; ; Made by hugo ; ; #config scanner=4 #config weapon=2 #config armor=2 #config engine=2 #config heatsinks=2 #config shield=0 #def turn_rate #def ownangle #def turangle #def expang #def acc #def scanw #def arm #def abc #msg Hello opo 13, 0 ; Port 13 - Set turret to 0 degrees opo 17, 5 ; Port 17 - Set scan arc to 10 degrees. opo 20, 200 ; shutdown level=300'c opo 11, 10 ; set speed to 10 % opo 19, 27 ;set transponder to my lucky number. mov ax, 1 int 3 ;keepshift. ipo 3, ownangle ;make sure ownangle is good. ipo 5, turangle ;make sure turangle is good. :1 ipo 7, ax cmp ax, 1500 ; compare range to 1500 ja 124 ipo 8, acc ; get acc shl acc, 2 ; convert to degrees (exagerating slightly). add turangle,acc opo 12, acc ; Port 13 - Set turret off. to face foe degrees ipo 2, ax ; get temp. cmp ax, 150 ; if temp>220 ja 111 ; skip fire opo 15, -1 ; fire opo 15, 1 ; fire :111 ;sub turangle,4 ;add turangle,ax ;opo 13, turangle ; Port 13 - Set turret off. to rand degrees :3 opo 11, 100 ; set speed to 60 % mov abc, 60 ;turn about 160'. This comand is over ridden if no damage ipo 6, ax ;if damage cmp ax, arm ;has increased, jb 1234 ;don't ipo 10, abc ;turn randomly shr abc, 11 ; :1234 add ownangle,abc mov arm, ax ; (set arm to current damage- but only after compare.) err arm opo 14, abc ;change real heading. jmp 1 ;search. :10 do 16 :11 add turangle,12 opo 12, 12 ; Port 13 - Set turret off. to rand degrees ipo 7, ax ;scan dist into ax cmp ax, 1500 ; compare range to 1500 ja 12 xor cx, cx :12 loop 11 jmp 3 ; alternative search :15 opo 17, 64 ; Port 17 - Set scan arc to 64 degrees. ipo 7, ax ;scan dist into ax cmp ax, 1500 ; compare range to 1500 ja 16 ; flip & try again if fail. ipo 8, acc ; get acc. shl acc, 5 ;convert acc to degrees add turangle, acc ;move scanner to face thy foe. opo 12, acc ; Port 13 - Set turret off. to rand degrees ;next round :123 opo 17, 28 ; Port 17 - Set scan arc to 64 degrees. ipo 7, ax ;scan dist into ax cmp ax, 1500 ; compare range to 1500 ja 15 ; redo last round if fail. ipo 8, acc ; get acc. shl acc, 4 ;convert acc to degrees add turangle, acc ;move scanner to face thy foe. opo 12, acc ; Port 13 - Set turret off. to rand degrees :124 opo 17, 13 ; Port 17 - Set scan arc to 64 degrees. ipo 7, ax ;scan dist into ax cmp ax, 1500 ; compare range to 1500 ja 123 ; redo last round on fail. ipo 8, acc ; get acc. shl acc, 3 ;convert acc to degrees add turangle, acc ;move scanner to face thy foe. opo 12, acc ; Port 13 - Set turret off. to rand degrees :125 opo 17, 5 ; Port 17 - Set scan arc to 64 degrees. ipo 7, ax ;scan dist into ax cmp ax, 1500 ; compare range to 1500 ja 124 ; redo last round on fail. ipo 8, acc ; get acc. shl acc, 2 ;convert acc to degrees add turangle, acc ;move scanner to face thy foe. opo 12, acc ; Port 13 - Set turret off. to rand degrees ipo 7, ax ; scan dist into ax cmp ax, 1500 ; compare range to 1500 ja 125 ; redo last round on fail. jmp 3 :16 add turangle,128 ;flip scanner opo 12 ,128 ; " " jmp 15 #END