Basic/data/LEVEL.BAS

33 lines
694 B
QBasic
Raw Normal View History

2014-04-30 20:24:00 +02:00
5 CLEAR
10 MAP l"map.dat"
11 TLOAD 1,"font1.dat",16,11
12 STILE 1
15 PLAYER k(2,3,4,5,32)
20 MAP d
30 SPRITE p(3,15,14,$56,250,0,3,13,24,8,13)
33 SPRITE p(1,15,14,$56,255,0,4,16,22,10,22)
35 PLAYER b(146,131,114,138,167,165,166,157,148,155)
50 PLAYER e(1,108,$56,$10,$20)
51 PLAYER e(3,108,$56,$10,$20)
52 PLAYER e(2,129,$0,$c0,$f0)
53 PLAYER e(4,129,$0,$c0,$f0)
55 PLAYER p(2,$56,250,0,10,10)
56 PLAYER i(42,47,103,125,0,0)
63 SPRITE m(1)
65 SPRITE s(50)
70 a=INKEY
75 x=GETX (2):y=GETY (2)
80 PLAYXY a
90 c=PLAYER (1)
97 b=PLAYER (2)
98 IF b>0 THEN BEEP
100 IF c=1 THEN GOTO 200
120 GOTO 70
200 FOR i=1 TO 10
210 BEEP 90:PAUSE 10:BEEP 100
220 NEXT i
230 SPRITE m(2)
240 CLS
250 GOTO 5