Darwinbots Forum

Bots and Simulations => Bestiary => F2 bots => Topic started by: PurpleYouko on February 21, 2005, 01:09:05 PM

Title: C. Discernens (F2)(Carlo)-DBv2.1 2002
Post by: PurpleYouko on February 21, 2005, 01:09:05 PM
Code: [Select]
' Comisia Discernens
' Robot evolved by Carlo
' very primitive these days
'
' Robot evolved in presence of walls.
' It's able to  tell them from food,
' therefore it don't attacks them.


cond
  *40
  25
  >
start
  0
  40
  store
stop

cond
  *.shdn
  27
  >
start
  0
  .eye1
  store
stop

cond
  *.hitdx
 -1
  !=
  *.hitdn
  26
  <
  *.eye3
  26
  >
  *.eye5
  24
  <
  *.hitdn
  26
  >
start
  0
  .shsx
  store
stop

cond
  *.dn
  0
  !=
  *.dn
  0
  !=
start
  1
  .aimdx
  store
stop

cond
  *.eye8
  0
  %=
start
  14
  .shootval
  store
stop

cond
  *.eye7
  0
  !=
  *.eye7
  0
  !=
start
  15
  .aimdx
  store
stop

cond
  *.eye9
  1
  >
start
  13
  .shoot
  store
stop

cond
  *.shdx
  0
  >
  *.shdx
  0
  >
start
  17
  .aimsx
  store
stop

cond
  *.pain
  0
  !=
  *.refdx
  0
  %=
  *.refaimsx
  0
  >
start
  17
  .eye8
  store
stop

cond
  *.eye2
 -1
  <
start
  15
  .aimsx
  store
stop

cond
  *.eye2
  0
  <
  *.eye2
  1
  <
start
  15
  .nrg
  store
stop

cond
  *.eye2
  0
  <
  *.eye2
  1
  <
start
  15
  .nrg
  store
stop

cond
  *.eye1
 -3
  >
  *.aimsx
 -1
  >
  *.eye1
 -3
  >
  *.eye1
 -1
  >
start
  13
  .aimsx
  store
stop

cond
  *.refaimdx
  0
  !=
  *.refaimdx
  0
  !=
  *.refaimdx
  0
  !=
  *.refaimdx
  0
  !=
start
 -1
  .shoot
  store
  8
  .shootval
  store
  10
  .up
  store
stop

cond
  *.nrg
  10000
  >
start
  314
  .aimdx
  store
  40
  .repro
  store
stop

cond
  *.vel
  5
  <
  *.refdx
  5
  <
  *.vel
  5
  <
  *.refdx
  5
  <
start
  100
  *.hitup
  store
  .aimdx
  store
stop

cond
  *.vel
  5
  <
  *.refdx
  5
  <
  *.vel
  5
  <
  *.refdx
  5
  <
start
  100
  *.hitup
  store
  .aimdx
  store
stop
end