'Topic: New Bots
'James 4I
'Made by Jez
'Moded by Mutchy
cond
*.eye5 *.eye5 =
*234 0 !=
start
0 234 store
stop
cond
*99 *.refeye =
*.myshoot *.refshoot =
*.myup *.refup =
*.mydx *.refdx =
*.myaimdx *.refaimdx =
*.myties *.refties =
*.eye5 0 >
start
1 234 store
stop
cond
*.robage 0 =
start
*.myeye 99 store
1 1000 rnd 567 store
*567 .tie store
stop
cond
*.robage 1 =
*.numties 0 >
start
*.tiepres .deltie store
stop
cond
*.nrg 2000 >
*.eye5 0 =
start
40 .repro store
stop
cond
*.eye1 *.eye5 >
start
mult 104
stop
cond
*.eye9 *.eye5 >
start
mult -104
stop
cond
*.eye3 *.eye5 >
start
mult 52
stop
cond
*.eye7 *.eye5 >
start
mult -52
stop
cond
*.refeye 0 !=
*.numties 0 =
*.eye5 0 >
*234 1 !=
start
*.nrg 99 div .up store
stop
cond
*.refeye 0 =
'*.numties 0 =
*.eye5 0 >
*234 1 !=
start
*.nrg 99 div 1 add .up store
stop
cond
*.eye5 0 =
start
mult 104
stop
cond
*234 1 =
*.eye5 0 >
start
mult 208
stop
cond
start
.aimdx store
100 *.slime sub .mkslime store
50 *.poison sub .mkpoison store
mult 0
stop
cond
*.refpoison 0 =
*.refeye 0 !=
*.eye5 30 >
*234 1 !=
start
-1 .shoot store
*567 .tie store
stop
cond
*.refpoison 0 =
*.refeye 0 =
*.eye5 30 >
*234 1 !=
start
'-1 .shoot store
*567 .tie store
stop
cond
*.refpoison 0 >
*.eye5 30 >
*234 1 !=
start
505 .shoot store
0 .shootval store
*567 .tie store
stop
cond
*.numties 0 >
start
*.tiepres .tienum store
-1 .tieloc store
-1000 .tieval store
stop
cond
*.eye5 *.eye5 =
*.pain 900 >
start
*.tiepres .deltie store
stop
cond
*.eye9 *.eye1 >
start
104 .aimdx store
stop
cond
*.eye1 *.eye9 >
start
-104 .aimdx store
stop
' Friend close in front, avoid him
cond
*.eye5 50 >
*.refeye *99 =
start
30 .dx store 250 .aimdx store
stop
'gene run away from friends
cond
*.refeye *99 =
start
-562 .aimdx store
stop
cond
*.eye5 *.eye5 =
*.pain 120 >
*.shup -1 !=
*.shup -3 !=
*.shell 50 <
start
100 *.shell sub .mkshell store
mult
628
stop
'Tie to an enemy
'********************
cond
*.eye5 50 >
*.eye6 *.eye4 %=
*.refeye *99 !=
*.robage 0 >
start
800 rnd 100 add 51 store
*51 .tie store
*51 .readtie store
mult mult 0 0
52 inc
stop
cond
*.trefeye *.99 !=
start
*912 .deltie store
stop
cond
*.body 20 <
*.nrg 1000 >
start
100 .strbody store
stop
cond
*.nrg 2500 >
*.body 800 <
start
100 .strbody store
stop
cond
*.nrg 5000 >
start
100 .strbody store
stop
cond
*.body 20 >
*.nrg 1000 <
start
100 .fdbody store
stop
cond
*.body 1000 >
*.robage 10 <
start
50 .fdbody store
stop
cond
*.body 200 >
start
100 .fdbody store
stop
cond
*.fixed 1 =
start
0 .fixpos store
stop
' Freeze enemy robots
cond
*.eye5 30 >
*.refeye *.myeye !=
*.reffixed 0 =
*.refeye 0 !=
start
216 .shoot store
0 .shootval store
stop
end
