10 SCREEN 1,2,0:WIDTH 32:KEY OFF:COLOR 15,1,1 20 DIM VX(16),VY(16),V(256):FOR I=0 TO 16:READ VX(I),VY(I):NEXT:FOR I=0 TO 255:READ V(I):NEXT 100 ' ===== INIT ===== 110 PX=16:PY= 5:PD= 1 'PLAYER 120 EX= 2:EY=22:ED= 0 'ENEMY 130 CT=0 200 ' ===== CHARACTER MOVE ===== 210 S=STICK(0):ED=0 220 IF (S=1) AND (EY>0) THEN ED=1 230 IF (S=3) AND (EX<31) THEN ED=5 240 IF (S=5) AND (EY<23) THEN ED=9 250 IF (S=7) AND (EX>0) THEN ED=13 260 IF ED THEN LOCATE EX,EY:PRINT " ";:EX=EX+VX(ED):EY=EY+VY(ED) 270 LOCATE EX,EY:PRINT "E"; 280 CT=CT+1:IF CT>5 THEN PD=INT(RND(1)*8)*2+1:CT=0 290 LOCATE PX,PY:PRINT " ";:PX=PX+VX(PD):PY=PY+VY(PD) 300 IF PX<1 OR PX>30 OR PY<1 OR PY>22 THEN PD=PD+8:IF PD>16 THEN PD=PD-16 310 LOCATE PX,PY:PRINT "P"; 320 IF STRIG(0)=0 THEN 210 400 ' ===== BULLET INIT ===== 410 GOSUB 1000 ' SEARCH DIRECTION TABLE -> BD 420 BX=EX:BY=EY:BV=VX(BD):BW=VY(BD) 500 ' ===== BULLET MOVE ===== 510 CX=BX:CY=BY:BX=BX+BV:BY=BY+BW 520 LOCATE CX,CY:PRINT " "; 'VPOKE &H1800+CX+(CY*32),32 530 IF (BX<0) OR (BX>31) OR (BY<0) OR (BY>23) THEN 210 540 LOCATE BX,BY:PRINT "*"; 'VPOKE &H1800+BX+(BY*32),42 550 LOCATE PX,PY:PRINT "P"; 560 LOCATE EX,EY:PRINT "E"; 570 GOTO 510 1000 ' ===== SEARCH DIRECTION TABLE===== 1010 X1=(EX*8)\16:Y1=(EY*8)\16:X2=(PX*8)\16:Y2=(PY*8)\16 1020 IF X1<=X2 AND Y1>=Y2 THEN XX=(Y1-Y2):YY=(X2-X1):DP=0:GOTO 1060 1030 IF X1<=X2 AND Y1<=Y2 THEN XX=(X2-X1):YY=(Y2-Y1):DP=4:GOTO 1060 1040 IF X1>=X2 AND Y1<=Y2 THEN XX=(Y2-Y1):YY=(X1-X2):DP=8:GOTO 1060 1050 XX=(X1-X2):YY=(Y1-Y2):DP=12 'X1>X2 AND Y1>Y2 1060 BD=V((YY*16)+XX)+DP 1070 RETURN 10000 ' ===== MOVE VALUE TABLE (x,y) ===== 10010 DATA 0.00, 0.00 10020 DATA 0.00, -1.00 10030 DATA 0.38, -0.92 10040 DATA 0.75, -0.75 10050 DATA 0.92, -0.38 10060 DATA 1.00, 0.00 10070 DATA 0.92, 0.38 10080 DATA 0.75, 0.75 10090 DATA 0.38, 0.92 10100 DATA 0.00, 1.00 10110 DATA -0.38, 0.92 10120 DATA -0.75, 0.75 10130 DATA -0.92, 0.38 10140 DATA -1.00, 0.00 10150 DATA -0.92, -0.38 10160 DATA -0.75, -0.75 10170 DATA -0.38, -0.92 11000 ' ===== DIRECTION TABLE ===== 11010 DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1 11020 DATA 5,3,2,1,1,1,1,1,1,1,1,1,1,1,1,1 11030 DATA 5,3,3,2,2,1,1,1,1,1,1,1,1,1,1,1 11040 DATA 5,4,3,3,2,2,2,2,1,1,1,1,1,1,1,1 11050 DATA 5,4,3,3,3,2,2,2,2,2,1,1,1,1,1,1 11060 DATA 5,4,4,3,3,3,2,2,2,2,2,2,2,1,1,1 11070 DATA 5,4,4,3,3,3,3,2,2,2,2,2,2,2,2,1 11080 DATA 5,4,4,3,3,3,3,3,2,2,2,2,2,2,2,2 11090 DATA 5,4,4,4,3,3,3,3,3,2,2,2,2,2,2,2 11100 DATA 5,4,4,4,3,3,3,3,3,3,2,2,2,2,2,2 11110 DATA 5,4,4,4,4,3,3,3,3,3,3,2,2,2,2,2 11120 DATA 5,4,4,4,4,3,3,3,3,3,3,3,2,2,2,2 11130 DATA 5,4,4,4,4,3,3,3,3,3,3,3,3,2,2,2 11140 DATA 5,4,4,4,4,4,3,3,3,3,3,3,3,3,2,2 11150 DATA 5,4,4,4,4,4,3,3,3,3,3,3,3,3,3,2 11160 DATA 5,4,4,4,4,4,4,3,3,3,3,3,3,3,3,3