Author Topic: ratita australopitecus (F1)(Anazasi)-30.06.07  (Read 2401 times)

Offline Anazasi

  • Bot Neophyte
  • *
  • Posts: 11
    • View Profile
ratita australopitecus (F1)(Anazasi)-30.06.07
« on: June 30, 2007, 02:29:37 AM »
hi im new at this here is my first bot
Code: [Select]
'ratita australopitecus
'por/by Anazasi
'primer/first bot;)

cond
 *.robage 0 =
start
 .tie inc
stop

cond
 *.robage 1 =
start
 .deltie inc
stop

cond
 *.eye1 *.eye5 >
 *.refeye *.myeye != and
start
-157 .aimdx store
stop

cond
 *.eye2 *.eye5 >
 *.refeye *.myeye != and
start
-100 .aimdx store
stop

cond
 *.eye3 *.eye5 >
 *.refeye *.myeye != and
start
-78 .aimdx store
stop

cond
 *.eye4 *.eye5 >
 *.refeye *.myeye != and
start
-15 .aimdx store
stop

cond
 *.eye6 *.eye5 >
 *.refeye *.myeye != and
start
15 .aimdx store
stop

cond
 *.eye7 *.eye5 >
 *.refeye *.myeye != and
start
78 .aimdx store
stop

cond
 *.eye8 *.eye5 >
 *.refeye *.myeye != and
start
100 .aimdx store
stop

cond
 *.eye9 *.eye5 >
 *.refeye *.myeye != and
start
157 .aimdx store
stop

cond
 *.eye1 0 =
 *.eye2 0 = and
 *.eye3 0 = and
 *.eye4 0 = and
 *.eye5 0 = and
 *.eye6 0 = and
 *.eye7 0 = and
 *.eye8 0 = and
 *.eye9 0 = and
 *.refeye *.myeye = or
start
314 .aimdx store
stop

cond
 *.eye5 0 >
 *.refeye *.myeye !=
start
 *.refveldx .dx store
 *.refvelup 15 add .up store
stop

cond
*.refeye *.myeye !=
*.eye5 25 >
start
13 .tie store
stop

cond
*.tiepres 0 >
*.tienum 0 =
start
*.tiepres .tienum store
stop

cond
 *.tienum 0 >
 *.trefeye *.myeye = and
start
*.tiepres .deltie store
stop

cond
*.tienum 0 >
 *.refeye *.myeye != and
start
-1 .tieloc store
-1000 .tieval store
stop

cond
 *.eye5 25 >
 *.refeye *.myeye !=
start
-6 .shoot store
 *.refvelup .up store
stop

cond
 *.nrg 10000 >
start
 50 .repro store
stop
end
« Last Edit: June 30, 2007, 12:07:15 PM by Jez »

Offline scood

  • Bot Neophyte
  • *
  • Posts: 44
    • View Profile
ratita australopitecus (F1)(Anazasi)-30.06.07
« Reply #1 on: July 06, 2007, 01:03:07 AM »
OK WHAT IS IT WITH NO DESCRIPTION!!!!!! Why!!! is it so hard to put a god damn description on the bots!!!!!1      this goes for everyone

Offline Anazasi

  • Bot Neophyte
  • *
  • Posts: 11
    • View Profile
ratita australopitecus (F1)(Anazasi)-30.06.07
« Reply #2 on: July 06, 2007, 08:12:52 AM »
Code: [Select]

'ratita australopitecus
'por/by Anazasi
'primer/first bot;)

'gene 1 and 2 del fathers tie
cond
*.robage 0 =
start
.tie inc
stop

cond
*.robage 1 =
start
.deltie inc
stop


'genes 3 to 10 make the bot look at the nearest bot if the one he is looking isnt of his species (this is wrong I'll fix it in later versions)
cond
*.eye1 *.eye5 >
*.refeye *.myeye != and
start
-157 .aimdx store
stop

cond
*.eye2 *.eye5 >
*.refeye *.myeye != and
start
-100 .aimdx store
stop

cond
*.eye3 *.eye5 >
*.refeye *.myeye != and
start
-78 .aimdx store
stop

cond
*.eye4 *.eye5 >
*.refeye *.myeye != and
start
-15 .aimdx store
stop

cond
*.eye6 *.eye5 >
*.refeye *.myeye != and
start
15 .aimdx store
stop

cond
*.eye7 *.eye5 >
*.refeye *.myeye != and
start
78 .aimdx store
stop

cond
*.eye8 *.eye5 >
*.refeye *.myeye != and
start
100 .aimdx store
stop

cond
*.eye9 *.eye5 >
*.refeye *.myeye != and
start
157 .aimdx store
stop

'if nothing at sight it turns 90 degres
cond
*.eye1 0 =
*.eye2 0 = and
*.eye3 0 = and
*.eye4 0 = and
*.eye5 0 = and
*.eye6 0 = and
*.eye7 0 = and
*.eye8 0 = and
*.eye9 0 = and
*.refeye *.myeye = or
start
314 .aimdx store
stop

'if it sees a bot from another species it follows him
cond
*.eye5 0 >
*.refeye *.myeye !=
start
*.refveldx .dx store
*.refvelup 15 add .up store
stop

'if an enemy is close it ties at it
cond
*.refeye *.myeye !=
*.eye5 25 >
start
13 .tie store
stop

cond
*.tiepres 0 >
*.tienum 0 =
start
*.tiepres .tienum store
stop

'delete friendly ties
cond
*.tienum 0 >
*.trefeye *.myeye = and
start
*.tiepres .deltie store
stop

'feed throw ties
cond
*.tienum 0 >
*.refeye *.myeye != and
start
-1 .tieloc store
-1000 .tieval store
stop

'shoot this was modified in later versions cause the shoots never hit the enemy
cond
*.eye5 25 >
*.refeye *.myeye !=
start
-6 .shoot store
*.refvelup .up store
stop

'reproduce
cond
*.nrg 10000 >
start
50 .repro store
stop
end

there you have, if you can understand my english