Author Topic: Darth Shimazu (F1)(Henk)-04.03.04  (Read 3212 times)

Offline PurpleYouko

  • Bot God
  • *****
  • Posts: 2556
    • View Profile
Darth Shimazu (F1)(Henk)-04.03.04
« on: February 21, 2005, 01:00:49 PM »
Code: [Select]
' Darth Shimazu.
' "The Dark side has come.
' Muhahaha. Poor Shimazu, I knew
' that weakling would fall for
' the dark side..."
' This bot is the dark side version of
' Shimazu. It eats all but his friends
' By Henk

' ********************************* General Genes *********************************

'reset out1 when no-one is in sight
cond
*.eye5 0 =
*.in1 11 =
start
0 .in1 store
stop

'reproduce
cond
*.nrg 4500 >
*.robage 50 >
start
50 .repro store
628 .aimsx store
stop



' ***************************** Battle genes****************************************

' kill with standard shooting routine
cond
*.eye5 0 >
*.in1 11 !=
start
-1 .shoot store
stop

' ************************** nonsense genes to identify, so trefshoot=5**************

' Nonsense
cond
*.nrg 2 =
start
-3 .shoot store
stop

' Nonsense
cond
*.nrg 1 =
start
-3 .shoot store
stop

' Nonsense
cond
*.nrg 3 =
start
-1 .shoot store
stop

' Very important gene that controls the whole of the bot
cond
*.nrg 4 =
start
-1 .shoot store
stop

' **********************************TIE Genes****************************************

' Engage tie
cond
*.eye5 30 >
*.in1 11 !=
start
31 .tie store
stop

' Feed through tie
cond
*.numties 0 >
start
31 .tienum store
-1000 .tieval store
-1 .tieloc store
100 .sharenrg store
stop

' read the tie
cond
*.numties 0 >
start
31 .readtie store
stop

' ***************************************Move genes************************************
' Move.
cond
*.vel 30 <
start
10 .up store
stop

' ********************* Follow Genes **************************************************
' Follow gene 1
cond
*.eye1 *.eye9 !=
*.numties 0 =
start
*.eye9 *.eye1 sub 4 mult .aimdx store
stop

' Follow gene 2
cond
*.eye2 *.eye8 !=
*.numties 0 =
start
*.eye8 *.eye2 sub 3 mult .aimdx store
stop

' Follow gene 3
cond
*.eye3 *.eye7 !=
*.numties 0 =
start
*.eye7 *.eye3 sub 2 mult .aimdx store
stop

' Follow gene 4
cond
*.eye4 *.eye6 !=
*.numties 0 =
start
*.eye6 *.eye4 sub .aimdx store
stop

' ******************* Species genes ****************************************************

' turn away from other Darth Shimazu's
cond
*.in1 11 =
*.robage 20 >
start
314 .aimdx store
stop

'Identify as Darth Shimazu
cond
*.out1 11 !=
start
11 .out1 store
stop

' delete tie to fellow Darth Shimazu
cond
*.trefshoot 5 =
*.numties 0 >
start
31 .deltie store
stop

' *******************Reaction genes******************************************************

' right reaction gene
cond
*.shdx -1 =
start
314 .aimdx store
31 .tie store
stop

' Left reaction gene
cond
*.shsx -1 =
start
-314 .aimdx store
31 .tie store
stop

' Aft Reaction gene
cond
*.shdn -1 =
start
628 .aimdx store
31 .tie store
stop

' Forward reaction gene; Useless
' cond
' *.shup -1 =
' start
' 31 .tie store
' stop

' ****************/reaction genes********************************************************

‘ Tie to daddy on birth
cond
*.robage 0 =
start
31 .tie store
stop

‘ delete tie again. Bye daddy...
cond
*.robage 1 =
start
31 .deltie store
stop

' make small slime. Yuk
cond
*.slime 100 <
start
80 .mkslime store
stop

end
« Last Edit: May 07, 2014, 12:51:43 PM by Botsareus »
There are 10 kinds of people in the world
Those who understand binary.
and those who don't

:D PY :D