81 lines
1.8 KiB
QBasic
81 lines
1.8 KiB
QBasic
5 CROFF
|
|
10 COL 0,$e6,0
|
|
15 CLS
|
|
20 TLOAD 2,"fontkc.dat",16,11
|
|
30 STILE 2
|
|
32 TLOAD 15,"man.dat",1,1
|
|
35 MBOUND 0,463,623,463
|
|
37 MOUSE 1,1
|
|
40 f(0)=$e6
|
|
50 f(1)=0
|
|
60 f(2)=$56
|
|
70 e=50
|
|
80 p=0
|
|
100 WAVE 1,4
|
|
200 ADSR 1,1,0,255,10
|
|
1000 a(0)=32
|
|
1010 a(1)=165
|
|
1020 b(0)=32
|
|
1030 b(1)=12
|
|
1040 b(2)=13
|
|
1050 c=20:REM cursor
|
|
1100 s=0
|
|
1200 GOSUB 6000
|
|
2000 k=MB (0)
|
|
2010 c=MGET (1)
|
|
2100 REM ziel darstellen
|
|
2130 IF t(3)=0 THEN GOSUB 6000
|
|
2140 IF TIMER c(1)=1 THEN t(4)=0
|
|
2150 IF t(4)=0 THEN TILE 32,$e6,0,0,t(1),t(2)
|
|
2160 IF t(4)=0 THEN t(3)=0
|
|
2170 IF k=255 THEN GOSUB 10000
|
|
2230 IF s<0 THEN s=0
|
|
3000 GOTO 2000
|
|
5000 REM
|
|
5020 s=s-1
|
|
5030 IF s<0 THEN RETURN
|
|
5040 TILE 124,f(0),f(1),f(2),d,s
|
|
5080 IF d=t(1) AND s=t(2) THEN t(3)=0
|
|
5085 TILE 32,f(0),f(1),f(2),d,s
|
|
5090 IF t(3)=0 THEN NOTE 1,60
|
|
5100 IF t(3)=0 THEN s=-1
|
|
5110 IF t(3)=0 THEN p=p+1
|
|
5120 IF t(3)=0 THEN e=e-1
|
|
5125 IF t(3)=0 THEN GOSUB 7000
|
|
5130 IF e=0 THEN GOTO 8000
|
|
5140 NTOFF 1
|
|
5900 GOTO 5000
|
|
6000 t(1)=FN int(RND (38))
|
|
6010 t(2)=FN int(RND (24))+2
|
|
6020 TILE 128,$e6,0,0,t(1),t(2)
|
|
6030 t(3)=1
|
|
6040 TIMER s(1,15)
|
|
6050 t(4)=1
|
|
6900 RETURN
|
|
7000 POS 0,0
|
|
7010 PRINT "Punkte:";p;TAB (12);"Feinde:";e;" ";TAB (24);"Schuss:";m
|
|
7900 RETURN
|
|
8000 REM ende
|
|
8010 CLS :NTOFF 1
|
|
8020 x=m-50
|
|
8030 IF !x<5 THEN #a="Superschuetze"
|
|
8040 IF !x>4 THEN #a="sehr guter Schuetze"
|
|
8050 IF !x>8 THEN #a="guter Schuetze"
|
|
8060 IF !x>10 THEN #a="maessiger Schuetze"
|
|
8070 IF !x>15 THEN #a="lausiger Schuetze"
|
|
8080 IF !x>19 THEN #a="absoluter Blindgaenger"
|
|
8100 PRINT "Sie haben alle Feinde vernichtet."
|
|
8110 PRINT "und haben dafuer ";m;" Schuss"
|
|
8120 PRINT "benoetigt!"
|
|
8130 PRINT "Sie sind ein ";#a
|
|
8200 MOUSE 0,0
|
|
8500 END
|
|
10000 NOTE 1,75:NTOFF 1
|
|
10010 IF s=0 THEN d=c
|
|
10020 IF s=0 THEN s=29
|
|
10030 IF s=29 THEN GOSUB 5000
|
|
10040 m=m+1
|
|
10050 GOSUB 7000
|
|
10060 RETURN
|
|
|