70 lines
1.5 KiB
QBasic
70 lines
1.5 KiB
QBasic
10 WSET 0:CROFF
|
|
20 COL 255,0,255:CLS
|
|
30 TLOAD 1,"fontkc.dat",16,11
|
|
40 STILE 1
|
|
50 WAVE 1,1
|
|
60 ADSR 1,0,10,30,10
|
|
100 MAP l"clim1.map":MAP d
|
|
110 k=8:s=1
|
|
120 MAP w
|
|
520 PLAYER p(165,0,44,0,35,24)
|
|
530 PLAYER b(32,60,62,32,32,32,32,32,32,32)
|
|
535 PLAYER i(36,36,36,36,36,36)
|
|
540 SPRITE p(1,128,13,0,55,0,3,8,24,10,24)
|
|
550 SPRITE p(2,128,13,0,55,0,4,8,24,22,8)
|
|
551 SPRITE p(3,134,135,0,128,0,1,12,20,12,24)
|
|
555 SPRITE p(4,174,167,0,200,0,2,24,33,24,24)
|
|
556 FOR i=1 TO 6
|
|
557 PLAYER e(i,45,0,250,0)
|
|
558 NEXT i
|
|
560 SPRITE s(s)
|
|
570 SPRITE m(1)
|
|
580 FONT "SPEED:",0,44,0,1,1
|
|
600 a=INKEY
|
|
601 x=GETX (2):y=GETY (2)
|
|
602 PLAYXY a
|
|
603 IF x=16 AND y=1 THEN GOTO 1300
|
|
610 IF a=45 THEN s=s-1
|
|
611 IF s<1 THEN s=1
|
|
612 IF a=43 THEN s=s+1
|
|
613 IF s>255 THEN s=255
|
|
614 SPRITE s(s):#d=s:#d=#d+"-"
|
|
615 #s=#d+" "
|
|
619 IF a=43 OR a=45 THEN FONT #s,0,44,0,7,1
|
|
620 b=PLAYER (1)
|
|
622 c=PLAYER (2)
|
|
623 IF c>0 THEN GOSUB 1000
|
|
630 IF b>0 THEN GOTO 800
|
|
640 GOTO 600
|
|
800 REM Kollision mit Sprite
|
|
801 SPRITE m(0)
|
|
805 x=GETX (2):y=GETY (2)
|
|
810 FOR i=99 TO 10 STEP -5
|
|
811 TILE 165,255,0,255,x,y
|
|
820 BEEP i
|
|
821 TILE 165,0,44,0,x,y
|
|
830 NEXT i
|
|
840 SPRITE m(0)
|
|
845 CLS
|
|
850 POS 8,15:PRINT "Du hast verloren!!!"
|
|
860 PAUSE 2000
|
|
870 SPRITE m(2)
|
|
880 MAP c
|
|
885 CLS
|
|
886 a=INKEY :a=0
|
|
890 GOTO 100
|
|
1000 REM item einsammeln
|
|
1010 NOTE 1,95:NTOFF 1
|
|
1015 PAUSE 80
|
|
1020 NOTE 1,85:NTOFF 1
|
|
1030 TILE 45,0,250,0,16,k
|
|
1040 k=k-1
|
|
1200 RETURN
|
|
1300 NOTE 1,95:NTOFF 1:PAUSE 100
|
|
1310 NOTE 1,85:NTOFF 1:PAUSE 100
|
|
1320 NOTE 1,75:NTOFF 1:PAUSE 1000
|
|
1330 SPRITE m(0)
|
|
1340 CLS
|
|
1350 END
|
|
|