Author Topic: Forestfire (F2)(Spoonkiny)-07.09.05  (Read 1226 times)

Offline spoonkiny

  • Bot Neophyte
  • *
  • Posts: 8
    • View Profile
Forestfire (F2)(Spoonkiny)-07.09.05
« on: September 07, 2005, 05:19:50 PM »
Code: [Select]
'seperates then feeds if no other kinds of bot it will cannabalize

'******************
'* SETUP          *
'******************

' out1 and out2 are used to identify
' this bot as an I_Fire
' position 50 is used for the searching
' pattern

cond
  *40
  0
  =
start
  1
  40
  store
  13
  .out1
  store
  46
  .out2
  store
  1
  50
  store
stop





'******************
'* REPRODUCTION   *
'******************

' The turns before and after reproduction
' were added to keep the newly spawned
' I_Fire and the parent from getting in
' each other's way. Though Im not sure if
' its the best solution yet...

cond
  *.nrg
  6000
  >
start
  300
  .aimsx
  store
  50
  .repro
  store
  6000
  .aimdx
  store
stop

cond
  *.nrg
  6000
  >
start
  300
  .aimsx
  store
  50
  .repro
  store
  6000
  .aimdx
  store
stop



'******************
'* MOVEMENT       *
'******************

' AIM

cond
  *.eye1
  10
  >
  *.eye5
  0
  =
start
  80
  .aimsx
  store
  5
  .up
  store
stop

cond
  *.eye4
  10
  >
  *.eye5
  0
  =
start
  40
  .aimsx
  store
  5
  .up
  store
stop

cond
  *.eye9
  10
  >
  *.eye5
  0
  =
start
  80
  .aimdx
  store
  5
  .up
  store
stop

cond
  *.eye6
  10
  >
  *.eye5
  0
  =
start
  40
  .aimdx
  store
  5
  .up
  store
stop

' FIRE (TRY TO KEEP DISTANCE)

cond
  *.eye5
  10
  <
  *.in1
  13
  !=
  *.in2
  46
  !=
start
  3
  .up
  store
stop

cond
  *.eye5
  10
  >
  *.eye5
  50
  <
  *.in1
  13
  !=
  *.in2
  46
  !=
start
  3
  .up
  store
stop

cond
  *.eye5
  50
  >
  *.eye5
  90
  <
  *.in1
  13
  !=
  *.in2
  46
  !=
start
  2
  .up
  store
 -1
  .shoot
  store
stop

cond
  *.eye5
  90
  <
  *.in1
  13
  !=
  *.in2
  46
  !=
start
 -1
  .shoot
  store
stop

' STEER CLEAR OF OTHER I_FIREs

cond
  *.eye5
  30
  >
  *.in1
  13
  =
  *.in2
  46
  =
start
  300
  .aimdx
  store
stop

' SEARCH PATTERN

cond
  *.eye1
  0
  =
  *.eye3
  0
  =
  *.eye5
  0
  =
  *.eye7
  0
  =
  *.eye9
  0
  =
start
  *50
  .aimdx
  store
  50
  inc
  5
  .up
  store
stop

cond
  *50
  60
  >
start
  -60
  50
  store
stop



'******************
'* END            *
'******************


end
« Last Edit: May 09, 2014, 12:34:52 PM by Botsareus »