181
The Gene depository / Re: Shooting Distance Calculator Gene
« on: January 21, 2014, 04:21:40 PM »
Maybe find the distance of x&y separately, then use the Pythagorean theorem to find the distance...
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
'Gland bot
'If it is pleasured, it will share it's protection.
'In a multibot, this would produce defenses.
'Attacking to a multibot has the added benefit of allowing room for repro.
'Veggie
cond
*.nrg 6000 >
start
15 .repro store
stop
'Conspec fooling devices
cond
*.robage 0 =
start
.memloc .memloc store
.tmemloc .tmemloc store
100 .eye5width 1 mult store
stop
cond
*.nrg 3000 >
start
50 .repro store
stop
cond
*.memloc .memloc !=
*.memval 0 !=
start
*.memval *.memloc store
stop
cond
*.memloc .memloc !=
start
.memloc .memloc store
stop
cond
*.eyef 0 >
*.memloc .memloc =
*.memval 0 >
*.memval .memloc !=
start
*.memval .memloc store
stop
cond
*.tmemloc .tmemloc !=
*.tmemval 0 !=
start
*.tmemval *.tmemloc store
stop
cond
*.tmemloc .tmemloc !=
start
.tmemloc .tmemloc store
stop
cond
*.numties 0 >
*.tmemloc .tmemloc =
*.tmemval 0 >
*.tmemval .tmemloc !=
start
*.tmemval .tmemloc store
stop
cond
*.eyef 0 >
start
*.in1 .out1 store
*.in2 .out2 store
*.in3 .out3 store
*.in4 .out4 store
*.in5 .out5 store
*.in6 .out6 store
*.in7 .out7 store
*.in8 .out8 store
*.in9 .out9 store
*.in10 .out10 store
stop
cond
*.numties 0 >
start
*.tin1 .tout1 store
*.tin2 .tout2 store
*.tin3 .tout3 store
*.tin4 .tout4 store
*.tin5 .tout5 store
*.tin6 .tout6 store
*.tin7 .tout7 store
*.tin8 .tout8 store
*.tin9 .tout9 store
*.tin10 .tout10 store
stop
cond
*.eyef 0 >
start
*.refxpos *.refypos angle .setaim store
stop
cond
*.eyef 0 =
start
*.aim 70 add .setaim store
stop
cond
*.shflav 0 !=
*.shflav -2 !=
*.memloc .memloc =
start
*.aim *.shang sub .setaim store
0 .shflav store
stop
'--- Addapt shoot commands
cond
*.eyef 0 >
*.refshoot *.myshoot <
start
*.thisgene 1 add .delgene store
*.myshoot *.refshoot sub 1 >
*.thisgene 3 add .delgene store
*.myshoot *.refshoot sub 4 >
*.thisgene 4 add .delgene store
*.myshoot *.refshoot sub 9 >
*.thisgene 5 add .delgene store
*.myshoot *.refshoot sub 19 >
*.thisgene 6 add .delgene store
*.myshoot *.refshoot sub 39 >
*.thisgene 7 add .delgene store
stop
cond
0 1 =
start
0 .shoot store
stop
cond
0 1 =
start
0 .shoot store
stop
cond
0 1 =
start
0 .shoot store
0 .shoot store
stop
cond
0 1 =
start
0 .shoot store
0 .shoot store
0 .shoot store
0 .shoot store
0 .shoot store
stop
cond
0 1 =
start
0 .shoot store
0 .shoot store
0 .shoot store
0 .shoot store
0 .shoot store
0 .shoot store
0 .shoot store
0 .shoot store
0 .shoot store
0 .shoot store
stop
cond
0 1 =
start
0 .shoot store
0 .shoot store
0 .shoot store
0 .shoot store
0 .shoot store
0 .shoot store
0 .shoot store
0 .shoot store
0 .shoot store
0 .shoot store
0 .shoot store
0 .shoot store
0 .shoot store
0 .shoot store
0 .shoot store
0 .shoot store
0 .shoot store
0 .shoot store
0 .shoot store
0 .shoot store
stop
cond
0 1 =
start
0 .shoot store
0 .shoot store
0 .shoot store
0 .shoot store
0 .shoot store
0 .shoot store
0 .shoot store
0 .shoot store
0 .shoot store
0 .shoot store
0 .shoot store
0 .shoot store
0 .shoot store
0 .shoot store
0 .shoot store
0 .shoot store
0 .shoot store
0 .shoot store
0 .shoot store
0 .shoot store
0 .shoot store
0 .shoot store
0 .shoot store
0 .shoot store
0 .shoot store
0 .shoot store
0 .shoot store
0 .shoot store
0 .shoot store
0 .shoot store
0 .shoot store
0 .shoot store
0 .shoot store
0 .shoot store
0 .shoot store
0 .shoot store
0 .shoot store
0 .shoot store
0 .shoot store
0 .shoot store
stop
'--- Addapt eye commands
cond
*.eyef 0 >
*.refeye *.myeye <
start
*.thisgene 1 add .delgene store
*.myeye *.refeye sub 1 >
*.thisgene 3 add .delgene store
*.myeye *.refeye sub 4 >
*.thisgene 4 add .delgene store
*.myeye *.refeye sub 9 >
*.thisgene 5 add .delgene store
*.myeye *.refeye sub 19 >
*.thisgene 6 add .delgene store
*.myeye *.refeye sub 39 >
*.thisgene 7 add .delgene store
stop
cond
0 1 =
start
*.eye9 0 >
stop
cond
0 1 =
start
*.eye9 0 >
stop
cond
0 1 =
start
*.eye9 0 >
*.eye9 0 >
stop
cond
0 1 =
start
*.eye9 0 >
*.eye9 0 >
*.eye9 0 >
*.eye9 0 >
*.eye9 0 >
stop
cond
0 1 =
start
*.eye9 0 >
*.eye9 0 >
*.eye9 0 >
*.eye9 0 >
*.eye9 0 >
*.eye9 0 >
*.eye9 0 >
*.eye9 0 >
*.eye9 0 >
*.eye9 0 >
stop
cond
0 1 =
start
*.eye9 0 >
*.eye9 0 >
*.eye9 0 >
*.eye9 0 >
*.eye9 0 >
*.eye9 0 >
*.eye9 0 >
*.eye9 0 >
*.eye9 0 >
*.eye9 0 >
*.eye9 0 >
*.eye9 0 >
*.eye9 0 >
*.eye9 0 >
*.eye9 0 >
*.eye9 0 >
*.eye9 0 >
*.eye9 0 >
*.eye9 0 >
*.eye9 0 >
stop
cond
0 1 =
start
*.eye9 0 >
*.eye9 0 >
*.eye9 0 >
*.eye9 0 >
*.eye9 0 >
*.eye9 0 >
*.eye9 0 >
*.eye9 0 >
*.eye9 0 >
*.eye9 0 >
*.eye9 0 >
*.eye9 0 >
*.eye9 0 >
*.eye9 0 >
*.eye9 0 >
*.eye9 0 >
*.eye9 0 >
*.eye9 0 >
*.eye9 0 >
*.eye9 0 >
*.eye9 0 >
*.eye9 0 >
*.eye9 0 >
*.eye9 0 >
*.eye9 0 >
*.eye9 0 >
*.eye9 0 >
*.eye9 0 >
*.eye9 0 >
*.eye9 0 >
*.eye9 0 >
*.eye9 0 >
*.eye9 0 >
*.eye9 0 >
*.eye9 0 >
*.eye9 0 >
*.eye9 0 >
*.eye9 0 >
*.eye9 0 >
*.eye9 0 >
stop
'Produce poison, shell and slime! Poison is for me, though.
cond
*.nrg 1000 >
start
1 .mkslime store
1 .mkshell store
1 .strpoison store
stop
'If I have ties and im pleasured, l'll share my defenses
cond
*.pleas 0 >
*.multi 0 !=
start
*.shell 200 >
*.pleas 2 div .shareshell store
*.slime 200 >
*.pleas 2 div .shareslime store
stop
'Set poison vars.
cond
*.robage 0 =
start
901 .ploc store
315 .pval store
stop
'Join a multibot when possible.
cond
*.eyef 0 !=
*.refmulti 0 !=
*.numties 0 =
start
.tie inc
stop
'Rotate
start
.aimdx inc
stop
'Follow bots Im tied to.
cond
*.multi 0 !=
start
*.trefxpos *.trefypos angle .setaim store
*.trefvelscalar .up store
stop