Author Topic: Mister Magoo  (Read 3608 times)

Offline Endy

  • Bot Overlord
  • ****
  • Posts: 852
    • View Profile
Mister Magoo
« on: June 27, 2005, 01:44:19 AM »
' Mister Magoo

'A cool little blind bot able to reach decent population levels
' Bot is cannibotisitic, but is designed to avoid feeding on offspring and one another

cond
start
.fixpos *.fixed mult dec
*.shup *.shdn add *.shdx add *.shsx add *.hitup add dup div .fixpos mult *.shflav 2 add dup div 1 sub -1

mult mult inc
stop

cond
*.robage 0 =
start
.tie inc
stop

cond
*.robage 1 =
start
.deltie inc
600 28 rnd 1 rnd mult add 28 rnd 1 rnd mult sub .aimdx store
stop

cond
start
' Motion
10 rnd *.vel sub 0 floor .up rnd store

' Evasion
2
.dx *.shup dup div mult
.dx *.shdn dup div mult add
.up *.shdx dup div mult add
.up *.shsx dup div mult add
*.shflav 1 add dup div 1 sub -1 mult mult store

' spin back to food
628 .aimdx *50 dup div mult store
50 *50 dup div mult dec
stop

cond
*.nrg 10000 >
start
50 .repro store
628 .aimdx store
50 inc
stop

cond
start
' Turn to side hit on
25 rnd .aimdx *.hitdx mult *.fixpos dup div 1 sub -1 mult mult store
25 rnd .aimsx *.hitsx mult *.fixpos dup div 1 sub -1 mult mult store
25 rnd .aimdx 1 rnd add *.hitup *.shup sub mult store

' Fire based on age and hitup
-1 .shoot *.robage sgn mult *50 dup div 1 sub -1 mult mult *.hitup mult store
stop
end