43 lines
957 B
QBasic
43 lines
957 B
QBasic
5 CLEAR
|
|
10 MAP l"map.dat"
|
|
11 TLOAD 1,"font1.dat",16,11
|
|
12 STILE 1
|
|
15 PLAYER k(4,8,1,2,16)
|
|
20 MAP d
|
|
25 MAP w
|
|
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)
|
|
57 t(1)=108:t(2)=129:t(3)=108:t(4)=129
|
|
58 h(1)=32:h(2)=240:h(3)=32:h(4)=240
|
|
59 f(1)=16:f(2)=$c0:f(3)=16:f(4)=$c0
|
|
60 r(1)=$56:r(2)=0:r(3)=$56:r(4)=0
|
|
63 SPRITE m(1)
|
|
65 SPRITE s(50)
|
|
70 a=JOY (1)
|
|
75 x=GETX (2):y=GETY (2)
|
|
80 PLAYXY a
|
|
90 c=PLAYER (1)
|
|
96 GOSUB 500
|
|
97 b=PLAYER (2)
|
|
98 IF b>0 AND z(b)=0 THEN BEEP
|
|
99 IF z(b)=0 THEN z(b)=b
|
|
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
|
|
500 REM items ersetzen
|
|
501 REM
|
|
590 RETURN
|
|
|