new rook

Author: misterunix

basicbots

@@ -6,14 +6,16 @@
 7 LET DY = 0
 8 LET D = 0
 9 LET DA = 0
+10 LET RSA = 0 : REM Rolling scan angle
+11 LET RWD = 3 : REM Rolling scan width
 
 200 T = RND 2
 205 IF T = 0 THEN GOSUB 220
 206 IF T = 1 THEN GOSUB 320
 210 GOSUB 9000
 250 GOTO 200
 
-
+219 REM move in the X plane
 220 LET DX = (RND 800) + 100
 221 LET LX = LOCX
 222 LET LY = LOCY
@@ -22,10 +24,12 @@
 226 DRIVE DA,100
 230 GOSUB 8000
 235 IF D < 20 THEN GOTO 250
+237 GOSUB 7000 : REM rolling scan and shoot
 240 GOTO 221
 250 DRIVE DA, 0
 260 RETURN
 
+319 REM move in the Y plane
 320 LET DY = (RND 800) + 100
 321 LET LX = LOCX
 322 LET LY = LOCY
@@ -34,22 +38,31 @@
 326 DRIVE DA,100
 330 GOSUB 8000
 335 IF D < 20 THEN GOTO 350
+337 GOSUB 7000 : REM rolling scan and shoot
 340 GOTO 322
 350 DRIVE DA, 0
 360 RETURN
 
 
+7000 REM scan and shoot while moving to target
+7010 LET RR = SCAN RSA, RWD
+7020 if RR > 0 AND RR < 700 THEN GOTO 7100
+7030 LET RSA = RSA + RWD
+7035 IF RSA > 360 THEN LET RSA = RDA - 360
+7040 RETURN
+7100 CANNON RSA, RR
+7110 RETURN
 
 
 
-8000 REM 
+8000 REM calculate distance to target
 8010 LET TX = DX - LX
 8015 LET TY = DY - LY
 8020 LET D = SQR (TX*TX)+(TY*TY)
 8025 RETURN
 
 
-9000 REM
+9000 REM scan and shoot
 9010 LET SD = 0
 9011 LET SW = 5
 9020 LET R = SCAN SD,SW

robots/rook.bas

@@ -0,0 +1,64 @@
+1 REM rook.bas
+2 REM only move in the X or Y at a time.
+
+5 LET T = 0
+6 LET DX = 0
+7 LET DY = 0
+8 LET D = 0
+9 LET DA = 0
+
+200 T = RND 2
+205 IF T = 0 THEN GOSUB 220
+206 IF T = 1 THEN GOSUB 320
+210 GOSUB 9000
+250 GOTO 200
+
+
+220 LET DX = (RND 800) + 100
+221 LET LX = LOCX
+222 LET LY = LOCY
+223 LET DY = LY
+225 IF LX > DX THEN LET DA = 180 ELSE LET DA = 0
+226 DRIVE DA,100
+230 GOSUB 8000
+235 IF D < 20 THEN GOTO 250
+240 GOTO 221
+250 DRIVE DA, 0
+260 RETURN
+
+320 LET DY = (RND 800) + 100
+321 LET LX = LOCX
+322 LET LY = LOCY
+323 LET DX = LX
+325 IF LY > DY THEN LET DA = 270 ELSE LET DA = 90
+326 DRIVE DA,100
+330 GOSUB 8000
+335 IF D < 20 THEN GOTO 350
+340 GOTO 322
+350 DRIVE DA, 0
+360 RETURN
+
+
+
+
+
+8000 REM 
+8010 LET TX = DX - LX
+8015 LET TY = DY - LY
+8020 LET D = SQR (TX*TX)+(TY*TY)
+8025 RETURN
+
+
+9000 REM
+9010 LET SD = 0
+9011 LET SW = 5
+9020 LET R = SCAN SD,SW
+9030 IF R = 0 THEN GOTO 9060
+9040 IF R > 700 THEN GOTO 9060
+9050 CANNON SD,R 
+9051 LET SW = SW - 1
+9052 IF SW = 1 THEN LET SW = 5
+9055 GOTO 9020
+9060 LET SD = SD + 5
+9065 IF SD > 360 THEN RETURN
+9070 GOTO 9020