Merge pull request #23 from misterunix/adding-robots

Adding robots

Author: misterunix

basicbots

@@ -0,0 +1,68 @@
+1 REM pick a spot, run to it, shoot while moving, lead shots
+2 LET DX = 0
+3 LET DY = 0
+4 LET DMG = 0
+5 LET ODMG = 0
+6 LET LX = 0
+7 LET LY = 0
+8 LET DTT = 0
+9 LET ATT = 0
+10 LET RSA = 0
+11 let RSW = 5
+
+
+100 REM main loop
+110 DMG = DAMAGE
+120 GOSUB 2000 : REM pick spot 
+130 GOSUB 2600 : REM get angle
+140 DRIVE ATT, 100
+150 GOSUB 2500 : REM get distance
+160 IF DTT < 50 THEN GOTO 200
+160 IF DMG <> ODMG THEN GOTO 250
+170 GOSUB 2700
+180 GOTO 150
+
+200 DRIVE ATT,0
+210 GOTO 120
+
+249 REM damage!
+250 LET ODMG = DMG
+260 GOSUB 2000 : REM pick spot
+270 GOSUB 2600 : REM get angle
+275 DRIVE ATT, 100
+280 GOSUB 2500 : REM get distance
+290 IF DTT < 100 THEN G0T0 350
+300 GOSUB 2700
+310 RETURN
+350 DRIVE ATT,0
+360 RETURN
+
+2000 REM pick random DX,DY
+2010 LET DX = (RND 700) + 100
+2020 LET DY = (RND 700) + 100
+2030 RETURN
+
+2500 REM get distance to target
+2510 LET LX = LOCX
+2515 LET LY = LOCY
+2520 LET TX = DX - LOCX
+2521 LET TY = DY - LY
+2530 LET DTT = SQR (TX*TX) + (TY*TY)
+2540 RETURN
+
+2600 REM angle to target
+2610 LET LX = LOCX
+2620 LET LY = LOCY
+2630 LET ATT = ATN2 DY-LY, DX - LX 
+2640 RETURN
+
+2700 REM scan and shoot
+2710 LET SDTT = SCAN RSA,RSW
+2720 IF SDTT > 0 AND SDTT < 700 THEN GOTO 2800
+2730 LET RSA = RSA + RSW
+2740 RETURN
+
+2800 LET DTTN = SCAN RSA,RSW
+2810 LET DIF = DTTN + (DTTN - SDTT)
+2820 CANNON RSA, DIF
+2830 RETURN

robots/blaster.bas

@@ -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