'Topic: Cactus veg?
'K0zm0
'Cactus veg
'Made by k0zm0
'27.04.2004
cond
*.robage 10 =
start
1000 rnd 60 store
1 .fixpos store
1250 rnd .aimsx store
1 .readtie store
stop
cond
start
*60 .tienum store
*60 .tie store
stop
cond
*.multi 1 =
200 *.slime >
start
200 *.slime sub .mkslime store
stop
cond
*.multi 1 =
200 *.shell >
start
200 *.shell sub .mkshell store
stop
cond
*.multi 1 =
*.nrg 500 <
start
*60 .tienum store
50 .sharenrg store
store
cond
*.pain 0 >
start
45 .aimdx store
stop
cond
*.trefeye 0 >
start
.shoot .tieloc store
-2 .tieval store
stop
cond
*.pain 0 >
*.refeye 0 !=
start
*.refeye .shoot store
.refeye .shootval store
stop
cond
*.nrg 10000 >
start
50 .repro store
stop
cond
*.body 1000 >
start
100 .fdbody store
stop
end