33 lines
694 B
QBasic
33 lines
694 B
QBasic
|
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
|
||
|
|
|