Author Topic: Ant Alpha (IB)(K0zm0)-21.08.04  (Read 3252 times)

Offline Jez

  • Bot Overlord
  • ****
  • Posts: 788
    • View Profile
Ant Alpha (IB)(K0zm0)-21.08.04
« on: January 13, 2007, 10:53:38 AM »
'Topic: Interesting group behaviour  
'K0zm0

cond
*.robage 21 >
*972 0 =
*973 0 =
*.eye5 0 >
*.refeye 0 =
start
*.xpos 972 store
*.ypos 973 store

'Hrani se, ko si doma
cond
*.xpos *972 %=
*.ypos *973 %=
*.nrg 1000 <
*.eye5 25 >
*.refeye *.myeye !=
start
-1 .shoot store
stop

'Zbiraj vege in jih pripelji domov

cond
*80 6 =
start
1 .deltie store
0 80 store
stop

cond
*80 5 =
start
0 .tieval store
.fixpos .tieloc store
80 inc
stop

cond
*80 4 =
*.xpos *972 %=
start
80 inc
stop

cond
*80 4 =
*.xpos *972 !%=
start
15 *.vel sub 2 div .up store
stop

cond
*80 3 =
*.xpos *972 >
start
628 .setaim store
80 inc
stop

cond
*80 3 =
*.xpos *972 <
start
0 .setaim store
80 inc
stop


cond
*80 2 =
*.ypos *973 %=
start
80 inc
stop

cond
*80 2 =
*.ypos *973 !%=
start
15 *.vel sub 2 div .up store
stop

cond
*80 1 =
*.ypos *973 >
start
314 .setaim store
80 inc
stop

cond
1 *.multi =
start
628 .fixang store
stop

cond
*80 1 =
*.ypos *973 <
start
932 .setaim store
80 inc
stop

cond
*80 0 =
*.numties 0 >
start
.fixpos .tieloc store
0 .tieval store
80 inc
stop

cond
*80 0 =
*.eye5 30 >
*.refeye 0 =
start
1 .tienum store
1 .tie store
stop
end
If you try and take a cat apart to see how it works, the first thing you have in your hands is a non-working cat.
Douglas Adams