Forum

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

Stalact v1.0

Koin² le 07/06/2007 à 19:51
V'là un (très) ancien jeux que j'avais fait :

Il s'agit d'un jeu d'ésquive dans lequel il faut éviter les rochers qui nous tombes dessus. Il y a, bien sur, la gestions des scores et le choix des niveau (1-5). Voilà le code source :

Code
8[->]X:4[->]dim([L]STAL
Lbl 0
ClrHome
Menu("Stalactite v1.0 ","Commencer",1,"Scores",2,"Quitter",3
Lbl 1
ClrHome
Input "Niveau (1-5) : ",D
If D>5:Then:Disp "Trop grand !":Pause :ClrHome:Goto 1:End
If D<1:Then:Disp "Trop petit !":Pause :ClrHome:Goto 1:End
ClrHome:D[->]B
int(rand*15+1)[->]A
0[->]S
While 1
getKey[->]K
If K=45:Goto 3
If K=24:Then
If Xø1:Then:Output(8,X," ":X-1[->]X:End
End
If K=26:Then
If Xø16:Then:Output(8,X," ":X+1[->]X:End
End
Output(8,X,"8
B+1[->]B
Output(B-1,A,"
Output(B,A,"o"
If B=8:Then
If X=A:Then:Goto 4:Else:S+1[->]S:Output(B,A," ":D[->]B:int(rand*15+1)[->]A:End
End
End
Lbl 2
ClrHome
Disp "Scores :
Disp "1er :",[L]STAL(1)
Disp "2nd :",[L]STAL(2)
Disp "3eme :",[L]STAL(3)
Pause :Goto 0
Lbl 3
ClrHome
Disp "Koin²       2007
Output(2,1,"
Stop
Lbl 4
ClrHome
If S>[L]STAL(3):Then:Disp "Nouveau score :",S:S[->][L]STAL(4):SortD([L]STAL:Pause :Goto 2:Else:Disp "Perdu :",S:Pause :End
Goto 3


[L] : Le tout petit 'L' pour les listes.
[->] : Touche 'Sto>'.
ø : Le signe 'différent de'.

Pour les flemmards : Stalact v1.0

Vous en pensez quoi ?
Koin² le 07/06/2007 à 20:19
Faut rajouter des variables (deux pour chaques rochers donc : X et Y), mais là c'est pas nécessaire c'est asser difficile comme ça.
Stupid le 07/06/2007 à 20:32
ben si y'a 16 endroits c'est facile?
Koin² le 07/06/2007 à 20:43
Là ça dépend de la vitesse (essaye le niveau 5 c'est déjà plus dur).
Stupid le 08/06/2007 à 13:14
j'ai vraiment la flemme de le taper
Koin² le 08/06/2007 à 19:32
Télécharge le alors.
Stupid le 08/06/2007 à 19:49
j'ai vraiment la flemme de me payer un cable et en fait je vais peut etre le taper
ratuss le 09/06/2007 à 09:51
moi pas.
Koin² le 09/06/2007 à 15:28
Osef.
ChickenKill le 09/06/2007 à 15:47
Non franchment il est pas mal se programe mé il y une ereur quelque par faut que je trouve loupe.gif
lol le 09/06/2007 à 16:29
Code
8[->]X:4[->]dim([L]STAL
Lbl 0
ClrHome
Menu("Stalactite v1.0 ","Commencer",1,"Scores",2,"Quitter",3
Lbl 1
Disp "FAIT GAFFE!
Lbl 0
ClrHome
Input "Niveau (1-5) : ",D
If D>5
"Trop grand !"
If D<1
Disp "Trop petit !"
If D>5 ou D<1
Goto 0
ClrHome:D[->]B
int(rand15+1)[->]A
0[->]S
While 1
getKey[->]K
If K=45:Goto 3
If K=24:Then
If Xø1:Then:Output(8,X," ":X-1[->]X:End
End
If K=26:Then
If Xø16:Then:Output(8,X," ":X+1[->]X:End
End
Output(8,X,"8
B+1[->]B
Output(B-1,A,"
Output(B,A,"o"
If B=8:Then
If X=A:Then:Goto 4:Else:S+1[->]S:Output(B,A," ":D[->]B:int(rand*15+1)[->]A:End
End
End
Lbl 2
ClrHome
Disp "Scores :
Disp "1er :",[L]STAL(1)
Disp "2nd :",[L]STAL(2)
Disp "3eme :",[L]STAL(3)
Pause :Goto 0
Lbl 3
ClrHome
Disp "Koin²       2007
Output(2,1,"
Stop
Lbl 4
ClrHome
If S>[L]STAL(3):Then:Disp "Nouveau score :",S:S[->][L]STAL(4):SortD([L]STAL:Pause :Goto 2:Else:Disp "Perdu :",S:Pause :End
Goto 3
Koin² le 09/06/2007 à 17:43
C'est qui qu'a rajouter 'Fait gaffe' ? ça sert à rien.

ChickenKill > Où tu vois un bug ?

(Et n'oubliez pas que ce jeu date d'hyper longtemps donc c'est normal qu'il soit nul.)
Stupid le 09/06/2007 à 17:45
lol a ajouté ça

dans le contexte ça doit etre pour éviter que y'ai pas de textes et une pause et pour faire joli mais c'ets futile
Koin² le 09/06/2007 à 20:49
Et :

Citation
If D>5
"Trop grand !"


ça veut rien dire.
Stupid le 09/06/2007 à 21:49
disp
Sangohan38 le 09/06/2007 à 22:08
Non, si on met du texte simplemententre guillemets, il est afficher purement comme avec disp.

Sangohan38
Stupid le 10/06/2007 à 11:02
c'est cool mais tu peut planter qu'une ligne
Koin² le 12/06/2007 à 21:04
Quoi est-ce ?
macwarrior le 15/11/2007 à 19:43
Salut, j'ai copié ton programme, mais j'ai un problem avec cette ligne :

int(rand15+1)[->]A

en fr, ca fait :

ent(entaleat(15+1)->A

et ca me met erreur argument à la )
si je l'enlève, ca me met erreur argument à sto ->

Cette ligne y est 1 fois dans le code, et sans celles-ci, le jeu n fonctionne pas......
merci de m'aider, @+++
coc5 le 17/11/2007 à 16:48
Ca fait un moment que Koin² ne passe plus par ici winkle.gif

En fait ton erreur vient du fait que la traduction de rand est Nbraléat et non pas entaléat.
Stupid le 17/11/2007 à 17:19
il vient plus depuis juin, et pile le jour ou j'emprunte son pseudo il reaparait...bizaare, je crois que faudrait faire une verification d'ip
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.