;TOXIC2 by Lead (lawrence.steele@ntlworld.com) ;This bot is an attempt at the standard class. ;I don't think it will get in because the top 5 is solid at the moment. #config scanner=3 #config engine=1 #config armor=3 #config heatsinks=1 #config weapon=4 #def turnshl #def scanarc #def range #def minecount #def speed ipo 22, minecount mov ax, 1 int 3 mov scanarc, 64 mov turnshl, 5 mov speed, 100 !turn opo 12, 128 !scan call !move err scanarc opo 17, scanarc ipo 7, ax cmp ax, 3000 jgr !notfound mov range, ax mov bx, @3 shl bx, turnshl opo 12, bx cmp scanarc, 32 jgr !tighten call !fire cmp scanarc, 2 jeq !scan !tighten sub turnshl, 1 shr scanarc, 1 je !scan jne !scan !notfound cmp scanarc, 64 jeq !turn !widen shl scanarc, 1 add turnshl, 1 je !scan jne !scan !fire cmp @7, 10 jls !kill ipo 2, bx cmp bx, 150 jls !overburn2 cmp bx, 200 jgr !ret !normal2 opo 15, 0 ipo 2, bx cmp bx, 200 jgr !scan opo 15, 0 !ret ret !kill cmp scanarc, 4 jgr !ret mov speed, 10 ipo 1, dx cmp dx, 10 jgr !ret opo 15, 0 opo 15, 0 opo 15, 0 opo 15, 0 opo 15, 0 mov speed, 100 ret !overburn2 cmp scanarc, 8 jgr !normal2 opo 18, 1 opo 15, 0 opo 15, 0 opo 18, 0 ret !move opo 11, speed int 2 cmp ex, 100 jls !mleft cmp ex, 900 jgr !mright cmp fx, 100 jls !mup cmp fx, 900 jgr !mdown je !mclear jne !mclear !mleft ipo 3, ax mov bx, 64 sub bx, ax opo 14, bx ret !mright ipo 3, ax mov bx, 192 sub bx, ax opo 14, bx opo 11, 100 ret !mdown ipo 3, ax mov bx, 0 sub bx, ax opo 14, bx opo 11, 100 ret !mup ipo 3, ax mov bx, 128 sub bx, ax opo 14, bx opo 11, 100 ret !mclear !rand ipo 10, dx and dx, 255 opo 14, dx ret