File: bb1.cw

package info (click to toggle)
corewars 0.9.13-1
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k, lenny, sarge
  • size: 1,388 kB
  • ctags: 1,119
  • sloc: ansic: 7,429; yacc: 1,376; sh: 784; makefile: 112; lex: 104; lisp: 68
file content (43 lines) | stat: -rw-r--r-- 636 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
 
	 #
	 # my first warrior
	 # have fun!
	 #
	 
	 title "Black Beast 1"
	 author "Jacek Poplawski <jacekp@linux.com.pl>"

	 jump begin
	 
p1:	 add -3,bomb
	 move bomb,[bomb]
	 loop bombs,p1

a:	 data 0
bomb:	 data &next
howmuch: data 0
bombs:	 data 0
forkbomb:fork forkbomb

begin:   info 0,howmuch
	 div 48,howmuch
	 add -3,howmuch
	 move howmuch,bombs
find:	 add 48,bomb
	 equal 0,[bomb]
	 loop howmuch,find
       	 neg howmuch,howmuch
	 add howmuch,bombs
	 mul 16,bombs
	 fork p2
	 add 30,bomb
	 jump p1

p2:	 info 2,a
	 own [a]
	 jump p2
	 move forkbomb,[a]
         info 4,a	
	 equal a,1
current: move current,next
next:	 jump p2