Basic/data/CLIM2.BAS

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