def building 77 def suppotie 76 def tiecheck 75 def writpos 74 def inspect 73 def counter 72 def scout 89 cond *.robage 0 = start 420 .eye1dir store 315 .eye2dir store 210 .eye3dir store 105 .eye4dir store -105 .eye6dir store -210 .eye7dir store -315 .eye8dir store -420 .eye9dir store 105 .eye1width store 105 .eye2width store 105 .eye3width store 105 .eye4width store 105 .eye5width store 105 .eye6width store 105 .eye7width store 105 .eye8width store 105 .eye9width store stop 'setting friend "1" or foe "0" status cond *.refeye *.myeye = start 1 *.focuseye 5 add 9 mod 60 add store stop 'eye1 specific cond *.eye1 *51 10 !~= *.eye1 *52 10 ~= *62 1 = and *.eye1 *59 10 ~= *69 1 = and or start 1 61 store stop cond *.eye1 *51 10 !~= *.eye1 *52 10 !~= *.eye1 *59 10 !~= start 0 61 store stop cond *.eye1 0 = start 0 61 store stop 'eye2 specific cond *.eye2 *52 10 !~= *.eye2 *53 10 ~= *63 1 = and *.eye2 *51 10 ~= *61 1 = and or start 1 62 store stop cond *.eye2 *52 10 !~= *.eye2 *53 10 !~= *.eye2 *51 10 !~= start 0 62 store stop cond *.eye2 0 = start 0 62 store stop 'eye3 specific cond *.eye3 *53 10 !~= *.eye3 *54 10 ~= *64 1 = and *.eye3 *52 10 ~= *62 1 = and or start 1 63 store stop cond *.eye3 *53 10 !~= *.eye3 *54 10 !~= *.eye3 *52 10 !~= start 0 63 store stop cond *.eye3 0 = start 0 63 store stop 'eye4 specific cond *.eye4 *54 10 !~= *.eye4 *55 10 ~= *65 1 = and *.eye4 *53 10 ~= *63 1 = and or start 1 64 store stop cond *.eye4 *54 10 !~= *.eye4 *55 10 !~= *.eye4 *53 10 !~= start 0 64 store stop cond *.eye4 0 = start 0 64 store stop 'eye5 specific cond *.eye5 *55 10 !~= *.eye5 *56 10 ~= *66 1 = and *.eye5 *54 10 ~= *64 1 = and or start 1 65 store stop cond *.eye5 *55 10 !~= *.eye5 *56 10 !~= *.eye5 *54 10 !~= start 0 65 store stop cond *.eye5 0 = start 0 65 store stop 'eye6 specific cond *.eye6 *56 10 !~= *.eye6 *57 10 ~= *67 1 = and *.eye6 *55 10 ~= *65 1 = and or start 1 66 store stop cond *.eye6 *56 10 !~= *.eye6 *57 10 !~= *.eye6 *55 10 !~= start 0 66 store stop cond *.eye6 0 = start 0 66 store stop 'eye7 specific cond *.eye7 *57 10 !~= *.eye7 *58 10 ~= *68 1 = and *.eye7 *56 10 ~= *66 1 = and or start 1 67 store stop cond *.eye7 *57 10 !~= *.eye7 *58 10 !~= *.eye7 *56 10 !~= start 0 67 store stop cond *.eye7 0 = start 0 67 store stop 'eye8 specific cond *.eye8 *58 10 !~= *.eye8 *59 10 ~= *69 1 = and *.eye8 *57 10 ~= *67 1 = and or start 1 68 store stop cond *.eye8 *58 10 !~= *.eye8 *59 10 !~= *.eye8 *57 10 !~= start 0 68 store stop cond *.eye8 0 = start 0 68 store stop 'eye9 specific cond *.eye9 *59 10 !~= *.eye9 *51 10 ~= *61 1 = and *.eye9 *58 10 ~= *68 1 = and or start 1 69 store stop cond *.eye9 *59 10 !~= *.eye9 *51 10 !~= *.eye9 *58 10 !~= start 0 69 store stop cond *.eye9 0 = start 0 69 store stop 'the focuseye is set cond start 5 .focuseye *.eye1 sgn abs mult *61 1 sub abs mult store 6 .focuseye *.eye2 sgn abs mult *62 1 sub abs mult store 7 .focuseye *.eye3 sgn abs mult *63 1 sub abs mult store 8 .focuseye *.eye4 sgn abs mult *64 1 sub abs mult store 9 .focuseye *.eye5 sgn abs mult *65 1 sub abs mult store 1 .focuseye *.eye6 sgn abs mult *66 1 sub abs mult store 2 .focuseye *.eye7 sgn abs mult *67 1 sub abs mult store 3 .focuseye *.eye8 sgn abs mult *68 1 sub abs mult store 4 .focuseye *.eye9 sgn abs mult *69 1 sub abs mult store stop 'the visual memory is stored cond start *.eye1 51 store *.eye2 52 store *.eye3 53 store *.eye4 54 store *.eye5 55 store *.eye6 56 store *.eye7 57 store *.eye8 58 store *.eye9 59 store stop cond *.tiecheck *.numties > start *.readtie 80 >= *.readtie 80 *.tiecheck add <= and *.trefnrg 0 = and *.readtie writpos store dropbool 80 *.inspect add * .readtie store .inspect inc *.inspect *.tiecheck > 0 .inspect store stop cond *.tiepres *.suppotie != start *.numties *.tiecheck > *.numties .tiecheck store *.numties .writpos store dropbool *.tiepres .suppotie store *.tiepres 79 *.writpos add store stop cond *.numties 0 > start 50 .sharenrg store 80 *.robage *.numties mod add * .tienum store 500 .fixlen store 100 .stifftie store 628 1256 *.numties div *.robage *.numties mod mult add 1256 mod .fixang store *.robage 40 mod 0 = *.readtie .deltie store stop cond *.numties 3 < *.eyef 50 > '*.refeye *.myeye = start *.numties 10 mult 9 rnd add .tie store stop cond *.nrg 7000 > start 200 .strbody store 50 .repro store stop cond *.eyef 20 > *.refeye *.myeye != *.scout 0 = start 17 .scout store .scout .tieloc store 27 .tieval store stop cond 7 *.scout 10 mod = *.timer 10 mod 5 < start .scout .tieloc store *.scout 10 add .tieval store 100 .fixlen store *971 4 = 0 .fixpos store dropbool *971 1 = 1 .fixpos store dropbool stop cond 7 *.scout 10 mod = *.timer 10 mod 4 > start .scout .tieloc store *.scout 10 add .tieval store 800 .fixlen store *971 4 = 1 .fixpos store dropbool *971 1 = 0 .fixpos store dropbool stop cond 7 *.scout 10 mod = *.timer 30 mod 29 = start 0 971 store 0 .scout store 0 .fixpos store stop cond *.scout 10 mod 7 = *971 0 = start *.scout 7 sub 10 div 971 store stop end