Author Topic: C. Discernans (Evo)(Carlo)-DBv2.1  (Read 1231 times)

Offline Jez

  • Bot Overlord
  • ****
  • Posts: 788
    • View Profile
C. Discernans (Evo)(Carlo)-DBv2.1
« on: December 04, 2006, 08:51:20 AM »
' Comisia Discernens
'
' 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
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