! Space Invader 2Ko !

**Vetea** · 13/08/2015, 08h53

* SPACE INVADERS 2Ko *

Et oui, voici un autre petit projet en 2048 octets développé en QB64: un Space Invader Like !
Vous serez confrontez à des vagues de vilains Aliens de plus en plus agressive.
Prenez garde à votre santé, et à ce que les aliens n'arrivent pas à votre base !
Des sons viendront agrémenter le jeu !
Vous découvrirez des graphismes type "Minitel HD" !!

Règles & Commandes :
- Touche Droite et Gauche pour déplacer le vaisseau, SPACE pour tirer, ESCAPE pour sortir du jeu.
- Un Alien détruit rapporte 10 points.
- Les boucliers protègent contre les tirs des Aliens, vous pouvez tirer à travers.

Listing :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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)