COMBAT

This program was designed as an experimental interface to a possible 'combat'-style game. It would draw a square on the screen (indicating the player's location) and then ask the player to select another location. The program would then move the square to the next location and repeat the process.

The interface would have been good if I had developed it more, but I think I created this later on and MS Basic because obselete rather soon thereafter.

WINDOW 1,,(0,20)-(520,400),3
LINE (322,0)-(322,321)
X=16
Y=16
LINE (X*10,Y*10)-((X*10)+9,(Y*10)+9),1,B
5 LOCATE 5,45
PRINT "Select placement."
10 IF MOUSE(0) <> 0 THEN 10
20  IF MOUSE(0) = 0 THEN 20
A=INT (MOUSE(1)/10)
B=INT (MOUSE(2)/10)
LOCATE 6,45
PRINT "                    "
LOCATE 6,45
PRINT A;",";B

REM    *****    MOVEMENT    *****

   IF (A=X) AND (B=Y) THEN 5000
   IF (A=X) AND (B<Y) THEN 300
   IF (B=Y) AND (A<X) THEN 350
   IF (A=X) AND (B>Y) THEN 400
   IF (B=Y) AND (A>X) THEN 550

   IF A<X THEN 100
   IF A>X THEN 200

100 IF B>Y THEN 150
110 GOSUB 1000
   LET X=X-1
   LET Y=Y-1
   GOSUB 1010
   IF (X=A) AND (Y=B) THEN 5000
   IF X=A THEN 300
   IF Y=B THEN 350
   GOTO 110

150 GOSUB 1000
   LET X=X-1
   LET Y=Y+1
   GOSUB 1010
   IF (X=A) AND (Y=B) THEN 5000
   IF X=A THEN 400
   IF Y=B THEN 450
   GOTO 150

200 IF B>Y THEN 250
210 GOSUB 1000
   LET X=X+1
   LET Y=Y-1
   GOSUB 1010
   IF (X=A) AND (Y=B) THEN 5000
   IF X=A THEN 500
   IF Y=B THEN 550
   GOTO 210

250 GOSUB 1000
   LET X=X+1
   LET Y=Y+1
   GOSUB 1010
   IF (X=A) AND (Y=B) THEN 5000
   IF X=A THEN 600
   IF Y=B THEN 650
   GOTO 250

300 GOSUB 1000
   LET Y=Y-1
   GOSUB 1010
   IF Y=B THEN 5000
   GOTO 300

350 GOSUB 1000
   LET X=X-1
   GOSUB 1010
   IF X=A THEN 5000
   GOTO 350

400 GOSUB 1000
   LET Y=Y+1
   GOSUB 1010
   IF Y=B THEN 5000
   GOTO 400

450 GOSUB 1000
   LET X=X-1
   GOSUB 1010
   IF X=A THEN 5000
   GOTO 450

500 GOSUB 1000
   LET Y=Y-1
   GOSUB 1010
   IF Y=B THEN 5000
   GOTO 500

550 GOSUB 1000
   LET X=X+1
   GOSUB 1010
   IF X=A THEN 5000
   GOTO 550

600 GOSUB 1000
   LET Y=Y+1
   GOSUB 1010
   IF Y=B THEN 5000
   GOTO 600

650 GOSUB 1000
   LET X=X+1
   GOSUB 1010
   IF X=A THEN 5000
   GOTO 650


1000 LINE (X*10,Y*10)-((X*10)+9,(Y*10)+9),0,B
   RETURN
1010 LINE (X*10,Y*10)-((X*10)+9,(Y*10)+9),1,B
   RETURN

5000 LOCATE 7,45
   PRINT "Spot is now at"
   LOCATE 8,45
   PRINT X;",";Y
   LOCATE 9,45
   PRINT "Click the mouse."
5010 IF MOUSE(0) <> 0 THEN 5010
5020 IF MOUSE(0) = 0 THEN 5020
   GOTO 5