#config scanner=5 #config weapon=1 #config armor=1 #config engine=5 #config heatsinks=0 #config shield=0 #config mines=0 #msg You can't find me! #def scanarc #def scanarcs #def cdir #def norun #def noturn #def sdir ;opo 19,314 ;change transponder ID to 314 opo 11,100 ;go fast mov ax,1 int 4 ;overburn on int 3 ;keepshift on opo 22,10 opo 22,10 mov scanarc,64 ;set scan-arc to 64 opo 17,scanarc mov scanarcs,5 mov cdir,64 mov sdir,40 !loop cmp @8,0 jeq !chknt int 13 cmp noturn,0 jgr !decnt opo 14,128 neg cdir mov noturn,5 cmp cx,750 jgr !chkscan mov norun,10 jbe !chkscan !chknt cmp noturn,0 jbe !chkscan !decnt dec noturn !chkscan ipo 7,cx ;check scanner cmp cx,1500 ;if not in range, then increase range jgr !bigarc cmp cx,750 jbe !runaway opo 11,15 cmp noturn,0 jgr !loop2 mov ax,@2 sub ax,cdir opo 14,ax ;circle around !loop2 mov ax,@3 ;get accuracy cmp scanarcs,0 ;adjust for scanner size jeq !track shl ax,scanarcs dec scanarcs ;shrink scanner size shr scanarc,1 opo 17,scanarc !track opo 12,ax ;follow enemy ;ipo 6,ax ;if almost dead, then don't worry about heat ;cmp ax,25 ;jbe !fire ipo 2,ax ;check heat shl ax,scanarcs cmp ax,160 ;if cool, then fire jae !loop !fire ;mov ax,1 ;int 4 opo 15,0 ;mov ax,0 ;int 4 jls !loop !bigarc cmp scanarcs,5 jeq !aimstr inc scanarcs shl scanarc,1 opo 17,scanarc jne !loop !aimstr opo 12,128 jeq !loop !runaway opo 11,100 ;go fast cmp noturn,0 jgr !chknr opo 14,sdir ;squiggle! neg sdir !chknr cmp norun,0 jgr !decnorun ipo 4,ax add ax,128 opo 14,ax ;follow target jbe !loop2 !decnorun dec norun jgr !loop2