Autorisation : Membre
Nb de messages : 57
Inscrit le : Lun 09 Fév 2009, 15:46
Posté le : Mar 14 Avr 2009, 20:03
Salut à tous
Run est un petit jeu que j'ai programmé, à la base, c'était juste un petit exercice pour faire un missile à tête chercheuse, puis, grâce à l'avis de plusieurs personnes, je l'ai adapté en véritable jeu.
Le jeu consiste à attraper les "+" disposé aléatoirement sur le terrain, comme un snake, tout en évitant le méchant "*" qui veux vous manger et ne vous lâchera pas d'une semelle, sauf lorsque vous mangerez un +. Le jeu se joue grâce aux flèches directionnelles.
Voci le code :
Code
ClrHome
Output(4,4,"GET READY
Pause
randInt(1,8->X
randInt(1,8->Y
randInt(9,16->S
randInt(1,8->T
0->F:–1->G
Lbl G
randInt(1,8->O
randInt(1,16->N
G+1->G
If G[different de]0:Then
S-(X-S)->S
T-(Y-T)->T
If S>16:16->S
If S<1:1->S
If T>8:8->T
If T<1:1->T
End
Lbl 1
ClrHome
Output(Y,X,"0
Output(T,S,"*
Output(O,N,"+
If Y=T and S=X:Goto P
If Y=O and X=N:Goto G
If S>X:S-1->S
If S<X:S+1->S
If T>Y:T-1->T
If T<Y:T+1->T
0->K
getKey->K
If K=24 and X[different de]1:X-1->X
If K=26 and X[different de]16:X+1->X
If K=25 and Y[different de]1:Y-1->Y
If K=34 and Y[different de]8:Y+1->Y
If K[superieur ou egal]24 and K[inferieur ou egal]26 or K=34:F+1->F
Goto 1
Lbl P
ClrHome
Output(3,1,"PERDU
Output(4,1,"FRAMES :
Output(5,1,"GUMS :
Output(4,10,F
Output(5,8,G
Et pour télécharger le fichier en .83p, cliquez ici !
Autorisation : Membre
Nb de messages : 32
Inscrit le : Dim 25 Oct 2009, 13:02
Posté le : Dim 25 Oct 2009, 23:40
Alors comme il n'y avait pas dit comment ire sur la stats fr j'ai écrit ca pour les lignes 10 et 11:
ent(8nbraléat+8->0
ent(8nbraléat+16->N
Je pense que j'ai exactement du me trompé là maisil n'y avait pas écrit comment faire pour ces lignes.
Encore merci de ta réponse
Autorisation : Membre
Nb de messages : 200
Inscrit le : Mar 20 Oct 2009, 18:58
Posté le : Mer 11 Nov 2009, 17:21
Bon ben j'ai pas mal d'erreurs mais je vois pas trop pourquoi et la ça me lasse un peu alors si quelqu'un veut prendre le relais, voici le code en l'état actuel :
Code
:EffEcr
:Lbl 5
:Menu("QUE FAIRE ?","JOUER",J,"PARTIR",Q
:Lbl J
Menu ("DIFFICULTE:","FACILE",U,"MOYEN",M,"DIFFICILE",D,"IMPOSSIBLE !",R
:Output(4,4,"GET READY"
:Pause
:entAléat(1,5)->X
:entAléat(1,8)->Y
:Lbl U
:entAléat(1,8)->T
:16->S
:entAléat(1,8)->O
:entAléat(1,4)->N
:0->F:1->U
:Goto 1
:Lbl M
:entAléat(1,8)->T
:13->S
:entAléat(1,8)->O
:entAléat(1,5)->N
:0->F:1->M
:Goto 1
:Lbl D
:entAléat(1,8)->T
:10->S
:entAléat(1,8)->O
:entAléat(1,6)->N
:Goto 1
:Lbl R
:entAléat(1,8)->T
:8->S
:entAléat(1,8)->O
:entAléat(1,7)->N
:0->F:1->R
:Goto 1
:Lbl 1
:EffEcr
:Output(Y,X,"0
:Output(T,S,"*
:Output(O,N,"+
:If Y=T et S=X:Goto P
:If Y=O et X=N:Goto U
:codeTouche->K
:If K=24 et X[différent de]1:X-1->X
:If K=26 et X[différent de]16:X+1->X
:If K=25 et Y[différent de]1:Y-1->Y
:If K=34 et Y[différent de]8:Y+1->Y
:If K[supérieur ou égal]24 et K[inférieur ou égal]26 ou K=34:F+1->F
:Goto 1
:Lbl P
:EffEcr
:Output(3,1,"PERDU
:Output(4,1,"FRAMES :
:Output(5,1,"GUMS :
:Output(4,10,F
:Output(5,8,G
:Pause
:Goto 5
:Lbl Q
:EffEcr
:Output(1,1,"
Autorisation : Membre
Nb de messages : 200
Inscrit le : Mar 20 Oct 2009, 18:58
Posté le : Mer 11 Nov 2009, 21:10
Ça marche, il reste plus qu'à corriger concernant la lettre "G" pour le nombre de gums car il y a plusieurs niveau de difficulté :/ !
Il y a aussi le "*" qui ne bouge pas et ça, je sais pas pourquoi ^_^ !
!