Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Projets Discussion :

! Space Invader 2Ko !


Sujet :

Projets

  1. #1
    Expert confirmé
    ! Space Invader 2Ko !
    * 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<img src="images/smilies/icon_confused.gif" border="0" alt="" title=":?" class="inlineimg" />"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<img src="images/smilies/icon_razz.gif" border="0" alt="" title=":P" class="inlineimg" />LAY"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<img src="images/smilies/icon_razz.gif" border="0" alt="" title=":P" class="inlineimg" />LAY"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<img src="images/smilies/icon_razz.gif" border="0" alt="" title=":P" class="inlineimg" />LAY"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<img src="images/smilies/icon_confused.gif" border="0" alt="" title=":?" class="inlineimg" />"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)


    Le lien du jeu :
    https://dl.dropboxusercontent.com/u/108143465/Space2Ko.zip


    Amusez vous bien !!
    Développeur - Créateur Amateur de Jeux vidéos
    Visitez ma page dédiée
    Visitez mon espace Itch.io
    Mon canal Discord

  2. #2
    Membre averti
    Ah bah c'est cool

    Mais juste pour savoir: tu n'aurais pas des dll en trop dans ton projet? (jpeg,png,ogg et peut être d'autres...)

  3. #3
    Expert confirmé
    Merci !! ;-)
    Oui sans doute, j'ai mis toutes les .dll par défaut !
    Bon jeu !
    Développeur - Créateur Amateur de Jeux vidéos
    Visitez ma page dédiée
    Visitez mon espace Itch.io
    Mon canal Discord

  4. #4
    Membre du Club
    Héhé plutôt cool ^^

  5. #5
    Membre averti
    <troll>
    Quoi, mais c'est même pas l'exécutable qui fait 2ko ???
    </troll>

  6. #6
    Expert confirmé
    Et non, c'est Juste la taille du listing ! ;-)
    Développeur - Créateur Amateur de Jeux vidéos
    Visitez ma page dédiée
    Visitez mon espace Itch.io
    Mon canal Discord

###raw>template_hook.ano_emploi###