Author Topic: C. Discernens (F2)(Carlo)-DBv2.1 2002  (Read 1688 times)

Offline PurpleYouko

  • Bot God
  • *****
  • Posts: 2556
    • View Profile
C. Discernens (F2)(Carlo)-DBv2.1 2002
« 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
« Last Edit: May 09, 2014, 12:53:47 PM by Botsareus »
There are 10 kinds of people in the world
Those who understand binary.
and those who don't

:D PY :D