1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47
| 1screen 13:_fullscreen:dim rr(32),BB(600,600):dim V(32),VX(32),VY(32),M(4),AM(32),AMX(32),AMY(32),cl(32):s=1:for i=1 to 32:cl(i)=rnd*40:w=w+30:if w>260 then w=30:z=z+16
vx(i)=w:vy(i)=8+z:next:for i=20to 320step 50:for c=1to 30:for j=150to 170:bb(i+c,j)=1:next j,c,i:t=2:do:_limit 30:if bou then cls:locate 10,15:?"GAME OVER !":goto 3
randomize timer:if _keydown(19712)and a<280then a=a+4
if _keydown(19200)and a>8then a=a-4
w=w+1:if _keydown(32)and w>25then t=1:w=0
cls:for i=1 to 320:for j=150 to 180
if bb(i,j)then pset(i,j),_rgb(255,255,0)
next j,i
for l=1to 4
if m(l)=0and t then
p(l)=a+10:o(l)=185:m(l)=1:t=0:PLAY"MBL64O5DC":end if
if m(l)then
o(l)=o(l)-4
if o(l)<1then m(l)=0
pset(p(l)+2,o(l)),rnd*16:end if:next:for i=1 to 32:u=u+1
if u>rnd*5000and q=0and u>2250-oo\2then u=0:q=1
for l=1to 4
if v(i)=0and m(l)and abs(p(l)-vx(i))<8and abs(o(l)-(vy(i)+8+b))<8then v(i)=1:m(l)=0:PLAY"MBL64O4DC":K=k+1:sc=sc+10
next
if v(i)=1and rr(i)<8 then
rr(i)=rr(i)+1:pset(vx(i)+rnd*16,vy(i)+rnd*16+b),rnd*16
end if
if v(i)=0then
if vy(i)+b>=190then bou=1
if am(i)then
if abs((amx(i)-10)-a)<12and abs(amy(i)-190)<10then PLAY"MBL64O1DC":N=N+10:am(i)=0
if bb(amx(i),amy(i))then
for g=1to 6:for G1=1to 6
bb(amx(i)+g-4,amy(i)+g1-2)=0:next G1,G:am(i)=0:PLAY"MBL64O3DC"
end if:end if
if bb(vx(i),vy(i)-1)then bb(vx(i),vy(i)-1)=0
if am(i)=0and q then
r=rnd*32:if r>0 and v(r)=0 then
amx(i)=vx(r):amy(i)=vy(r)+b:am(i)=1:q=0:end if:end if
vx(i)=vx(i)+(.5+h)*s
if h>1.2then h=1.2
if vx(i)>308then s=-1:b=b+4:h=h+.2
if vx(i)<8then s=1:b=b+4
_printstring(vx(i)-2.2,vy(i)+b-4),",,":line(vx(i),vy(i)+b)-(vx(i)+8,vy(i)+b-8),cl(i),bf
if am(i)then
amy(i)=amy(i)+2
if amy(i)>200then am(i)=0
pset(amx(i),amy(i)),_rgb(rnd*255,0,0):end if:end if:next
line(a,198)-(a+25,190),_rgb(0,255,0),bf:line(a+12,190)-(a+13,185),_rgb(0,255,0),bf:?"HEALTH :"+str$(100-n)+" "+"SCORE :"+str$(sc)+" "+"WAVE :"+str$(oo/800)
if k>=32 then erase bb,v,rr:k=0:z=0:OO=OO+800:b=0:h=0:goto 1
if (100-n)<0then Bou=1
3_display:loop until _keydown(27) |