Forum

Catégorie : Programmes
Forum : Les programmes des internautes
Vues : 1206
Réponses : 0
Type : discussion
Etat : réponses autorisées
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.

Missile

TiFan le 23/08/2016 à 21:39
Salut à tous !

J'ai créé un jeu où le joueur incarne un missile, qui peut se déplacer vers le haut ou vers le bas.
Le but du jeu est d'éviter le plus d'obstacles possibles (représentés par des points).

Code
ZoomSto
StoreGDB 1
StorePic 1
RectGC
CoordOff
GridOff
AxesOff
LabelOff
ExprOff
PlotsOff
FnOff
ClrDraw
0→Xmin
0→Ymin
1→∆X
1→∆Y
0→Xscl
0→Yscl
Lbl ME
1→dim(⌊SMISS
3→dim(L₆
⌊SMISS(1→S
For(I,1,3
    iPart(S→L₆(I
    1000(S-L₆(I→S
End
Menu("MISSILE","JOUER",JO,"RECORDS",RE,"REGLES",RG,"QUITTER",QU
Lbl RE
For(I,0,2
    Text(7I,0,I+1," : ",L₆(I+1
End
Pause
ClrDraw
Goto ME
Lbl RG
Text(0,0,"LE BUT DU JEU EST DE
Text(7,0,"DEPLACER LA FUSEE AVEC LES
Text(14,0,"FLECHES HAUT ET BAS, AFIN
Text(21,0,"D'EVITER DE SE FAIRE
Text(28,0,"TOUCHER PAR UN MISSILE.
Pause
ClrDraw
Goto ME
Lbl JO
Text(25,22,"CHARGEMENT...
Text(32,22,"0/999
ClrList L₁
ClrList L₂
{7,22,37→L₂
999→dim(L₁
1→X
L₂(randInt(1,3→L₁(1
For(I,2,990
    1+X(X≠10→X
    L₂(randInt(1,3→L₁(I
    If X=10
    Then
        While L₁(I)=L₁(I-1
            L₂(randInt(1,3→L₁(I
        End
    End
    Text(32,22,I,"/999
End
For(I,991,999
    ⁻1→L₁(I
    Text(32,22,I,"/999
End
ClrList L₂
ClrList L₃
11→dim(L₂
11→dim(L₃
ClrDraw
{0,0,2,8,10,8,2,0→L₂
{3,11,9,9,7,5,5,3→L₃
For(I,1,7
    Line(L₂(I),L₃(I),L₂(I+1),L₃(I+1
End
Horizontal 46
⁻9→S
Text(4,5,"SCORE :
Text(4,29,0
Text(4,51,"RECORD :
Text(4,79,L₆(1
1→C
0→P
10→dim(L₄
10→dim(L₅
For(I,1,10
    ⁻1→L₄(I
    ⁻1→L₅(I
End
1→W
1→Z
While C and Z<1000
    S+1+(W=9)(Z>13&#8594;S
    Text(4,29,S(S>0),"
    getKey&#8594;K
    If (K=25)(P&#8800;2) or (K=34)(P&#8800;0
    Then
        P*15&#8594;R
        Text(54-R,0,"
        Text(49-R,0,"
        L&#8323;+(K=25)15-15(K=34&#8594;L&#8323;
        P+(K=25)-(K=34&#8594;P
        Pt-Off(5,L&#8323;(5
        For(I,1,7
            Line(L&#8322;(I),L&#8323;(I),L&#8322;(I+1),L&#8323;(I+1
        End
    End
    1+W(W&#8800;9&#8594;X
    For(I,1,10
        Pt-Off(L&#8324;(I),L&#8325;(I
    End
    L&#8324;-10&#8594;L&#8324;
    85&#8594;L&#8324;(W
    L&#8321;(Z&#8594;L&#8325;(W
    (W=9)85+(W&#8800;9)L&#8324;(10&#8594;L&#8324;(10
    L&#8325;(10)(W&#8800;9)+(W=9)L&#8321;(Z+(Z&#8800;999&#8594;L&#8325;(10
    Z+1+(W=9&#8594;Z
    For(I,1,10
        Pt-On(L&#8324;(I),L&#8325;(I
    End
    If L&#8323;(5)=L&#8325;(X) or (W=8)L&#8323;(5)=L&#8325;(10
        0&#8594;C
    X&#8594;W
End
If S=990
Then
    {18,26,24,24,22,20,20,18&#8594;L&#8323;
    For(I,&#8315;1,3
        Text(54-R,10I(I&#8800;&#8315;1),"
        Text(49-R,10I(I&#8800;&#8315;1),"
        15&#8594;R
        For(J,1,7
            Line(L&#8322;(J),L&#8323;(J),L&#8322;(J+1),L&#8323;(J+1
        End
        L&#8322;+10&#8594;L&#8322;
    End
    Text(24,27,"VICTOIRE !!!
Else
    Circle(5,L&#8323;(5),2
    Circle(5,L&#8323;(5),4
End
Pause
ClrDraw
0&#8594;Z
1&#8594;P
L&#8326;&#8594;L&#8321;
For(I,1,3
    If Z=0 and S&#8805;L&#8326;(P
    Then
        S&#8594;L&#8326;(I
        1&#8594;Z
        Text(7(I-1),25,"X
    Else
        L&#8321;(P&#8594;L&#8326;(I
        P+1&#8594;P
    End
    Text(7(I-1),0,I," : ",L&#8326;(I
End
Text(45,0,"VOTRE SCORE : ",S
0&#8594;S
1&#8594;X
For(I,1,3
    S+XL&#8326;(I&#8594;S
    .001X&#8594;X
End
S&#8594;&#8970;SMISS(1
Pause
ClrDraw
Goto ME
Lbl QU
ClrList L&#8321;
ClrList L&#8322;
ClrList L&#8323;
ClrList L&#8324;
ClrList L&#8325;
ClrList L&#8326;
DelVar S
DelVar P
DelVar C
DelVar W
DelVar X
DelVar Z
DelVar I
DelVar K
DelVar R
RecallGDB 1
DelVar GDB1
PlotsOff
ZoomRcl
RecallPic 1
DelVar Pic1
Disp


Si ça vous intéresse, je vous donne le lien pour le télécharger : https://tiplanet.org/forum/arc[...]r.php?id=654279

EDIT : Code ajouté, c'est bien de le mettre puisque l'idée de cette section est aussi de permettre des améliorations pour le public.
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.