mirror of
https://github.com/mbirth/gwbasic.git
synced 2024-09-19 16:53:26 +01:00
59 lines
1.6 KiB
QBasic
59 lines
1.6 KiB
QBasic
10 CLS
|
||
20 COLOR 15
|
||
30 PRINT"Bitte geben Sie die Koordinaten ein !!!"
|
||
40 PRINT"Bei KEY OFF muá man bei X zur 24 die Zahl 1 ADDIEREN !!!"
|
||
50 PRINT"locate x,y"
|
||
60 PRINT
|
||
70 PRINT"locate ??,y"
|
||
80 INPUT"X(1-24):",X
|
||
90 PRINT
|
||
100 PRINT"locate x,??"
|
||
110 INPUT"Y(1-80):",Y
|
||
120 CLS
|
||
130 COLOR 26:LOCATE X,Y:PRINT"*"
|
||
140 B=3500
|
||
150 A$=INKEY$:IF A$="" THEN 150
|
||
160 IF A$=" " THEN 180
|
||
170 GOTO 10
|
||
180 A=79
|
||
190 LOCATE X,A:COLOR 28
|
||
200 PRINT"-< "
|
||
210 COLOR 15
|
||
220 PRINT
|
||
230 PRINT
|
||
240 PRINT"Missile: -<";:COLOR 28:PRINT" ANNIHILATE ROCKET ":COLOR 15
|
||
250 PRINT"Rocket Position :";X;",";A;" (LINE,CREVICE)"
|
||
260 SOUND B,1
|
||
270 PRINT" "
|
||
280 FOR Z=0 TO 2000:NEXT
|
||
290 A=A-1
|
||
300 IF A=Y+10 THEN B=4500:COLOR 28:PRINT:PRINT"Rocket in touch !!!Five seconds to collision !!!":COLOR 15
|
||
310 IF A=Y+5 THEN B=5500:COLOR 28:PRINT:PRINT:PRINT"Rocket too near !!!":COLOR 15
|
||
320 IF A=Y-2 THEN GOTO 340
|
||
330 GOTO 190
|
||
340 COLOR 12:LOCATE X-1,Y-1
|
||
350 PRINT"***"
|
||
360 LOCATE X,Y-1
|
||
370 PRINT"* *"
|
||
380 LOCATE X+1,Y-1
|
||
390 PRINT"***"
|
||
400 FOR Z=0 TO 22222:NEXT
|
||
410 COLOR 14:LOCATE X-2,Y
|
||
420 PRINT"*"
|
||
430 LOCATE X-1,Y-1:PRINT" "
|
||
440 LOCATE X+1,Y-1:PRINT" "
|
||
450 LOCATE X,Y-2
|
||
460 PRINT"* *"
|
||
470 LOCATE X+2,Y
|
||
480 PRINT"*"
|
||
490 PRINT
|
||
500 PRINT:PRINT:PRINT:PRINT:PRINT
|
||
510 COLOR 28:PRINT"STAR BASE destroyed !!!":COLOR 15
|
||
520 SOUND 2500,25
|
||
530 FOR Z=0 TO 22222:NEXT
|
||
540 CLS
|
||
550 COLOR 30:PRINT"GAME OVER * GAME OVER * GAME OVER * GAME OVER * GAME OVER * GAME OVER * GAME OV"
|
||
560 SOUND 3500,45
|
||
570 FOR Z=0 TO 55555!:NEXT
|
||
580 GOTO 10
|
||
|