pti jeu nul a moi!! |
Auteur |
Message |
craminou
Autorisation : Membre
Nb de messages : 138
Inscrit le : Sam 15 Avr 2006, 11:31
|
Posté le : Mar 18 Avr 2006, 22:37
|
|
|
SA Y EST !!
g créé mon premier jeu a l'aide de la getkey don g compris le fonctionemen a l'aide des article du forum
malheureusemen , comme tout les 1er pgrm (du moin pr moi ) il contien plein d'erreur ke g du mal a corriger ...
pouvez vs m'aider ??
nombreu st ceux d'entre vs ki se st déja montrer d'exelen proff!! ( ex ratuss pr rester ds l'anonymat!! )
voici le code:
Code | :0ùQ
:8ùC
:lbl 1
:int (rand*7+1)ùD
:int (rand*15+1)ùE
:ouput (C,B,"B
:lbl 2
:int (rand*15+1)ùF
:1ùG
:lbl 0
:0ùA
:while A=0
:getkeyùA
:end
:G+1ùG
:if A=84
:then
:B+1ùB
:end
:if A=82
:then
:B-1ùB
:end
:if A=73
:then
:C-1ùC
:end
:if A=93
:then
:C+1ùC
:end
:if C=D and B=E
:then
:Q+1ùQ
:goto 1
:end
:if C=G and B=F
:then
:disp "perdu"
:disp "score=",Q
{:stop}(:goto 5)
:end
(:goto 4
:lbl 5
:if S<10
:then
:disp "perdu 5"
:P-5ùP
:end
:if P<=0
:then
:disp " ta plu de sous!!
:stop
:end
:if S>20
:then
:disp "gagner 5"
:p+5ùP
:return
:then
:if S>50
:then
:disp "gagner 20
:p+20ùP
:return
:end
:if P>0
:then
:return
:end
:lbl 4)
:if B=0
:then
:16ùB
:end
:if B=17
:then
:1ùB
:end
:if C=0
:then
:8ùC
:end
:if C=9
:then
:1ùC
:end
:if G=9
:then
:goto 2
:end
:clrhome
:ouput(1,1,"vvvvvvvvvvvvvvvv
:ouput(8,1,"^^^^^^^^^^^^^^^^^
:ouput(C,B,"B
:ouput(D,E,"P
:ouput(G,F,"V
:goto 0 |
voila!!
utilisé 8-4-6-2 pr se déplacer. javé ossi mi 7-9-1-3 mé bon c pa necessaire
dc pouvez vs m'indiker commen fer pr ke le stalaktite ( v ) continue de tomber meme si on ne bouge pa svp
de plud j'aimerai ke kom ds snake le bonhome (B) kon incarne continu d'avancer tan kon le fé pa tourener *
j'atten vos idéé!!!
|
|
|
|
Ratuss
Autorisation : Membre
Nb de messages : 1561
Inscrit le : Mer 01 Mar 2006, 20:41
|
Posté le : Mer 19 Avr 2006, 7:06
|
|
|
Deja :
Code | :0ùA
:while A=0
:getkeyùA
:end |
Tu as mis "while A=0", ce qui revient à dire "tant qu'une touche n'a pas été enfoncée, on ne continue pas le programme", essaye d'enlever le : "while A=0" ,le "end" (qui va avec) et le "0->A" qui n'est à present plus utile.
Ensuite :
Code | :if A=84
:then
:B+1ùB
:end
:if A=82
:then
:B-1ùB
:end
:if A=73
:then
:C-1ùC
:end
:if A=93
:then
:C+1ùC
:end |
Pour qu'il n'arrete pas d'avancer, tu peux faire un truc comme ca :
Code |
:if A=84 or A=82 or A=73 or A=93
:then
:0->M:0->N
:End
:if A=84
:then
:1ùM
:end
:if A=82
:then
:(-)1ùM
:end
:if A=73
:then
:(-)1ùN
:end
:if A=93
:then
:1ùN
:end
:N+C->C
:M+B->B
: |
Le end et le then n'est necessaire que s'il a plus d'une commande dans le condition if, tu peu donc gagner de la place :
Code |
:if A=84 or A=82 or A=73 or A=93
:then
:0->M:0->N
:end
:if A=84
:1ùM
:if A=82
:(-)1ùM
:if A=73
:(-)1ùN
:if A=93
:1ùN
:N+C->C
:M+B->B
: |
Il y en a d'aileurs plein d'autres à enlever, je te laisse le faire tout seul.
---------------------- --- LISTE DES JEUX POUR TI --- |
|
|
|
Dark TI
Autorisation : Membre
Nb de messages : 58
Inscrit le : Dim 26 Mar 2006, 21:57
|
Posté le : Jeu 20 Avr 2006, 11:38
|
|
|
Vous pouvez le réécrire en entier avec les changements ?
Parce que j'ai pas tout suivi...
PS: Je suis de retour sur le forum
---------------------- Je ne possède point de cable pour relier TI 82 STATS et Ordinateur. |
|
|
|
Sangohan38
Autorisation : Membre
Nb de messages : 3370
Inscrit le : Sam 31 Déc 2005, 19:48
|
Posté le : Jeu 20 Avr 2006, 17:58
|
|
|
Ouaiiiiiiiiiiiiiiiiiiiiiiii... T'est enfin de retour après une longue absence de quelques semaines
|
|
|
|
Dark TI
Autorisation : Membre
Nb de messages : 58
Inscrit le : Dim 26 Mar 2006, 21:57
|
Posté le : Jeu 20 Avr 2006, 20:31
|
|
|
Merci tu t'en es apercu, je suis tres emu
J'ai ete retenu par la force des choses
J'attend toujours pour réécrire le prog
---------------------- Je ne possède point de cable pour relier TI 82 STATS et Ordinateur. |
|
|
|
craminou
Autorisation : Membre
Nb de messages : 138
Inscrit le : Sam 15 Avr 2006, 11:31
|
Posté le : Jeu 20 Avr 2006, 21:20
|
|
|
voila .. en fait il suffit d'enlever le end pour pa que le jeu s'arette!! (si vous trouvez encore a modifier dite le moi !! )
Code | :0ùP
:8ùC
:lbl 1
:int (rand*7+1)ùD
:int (rand*15+1)ùE
:ouput (C,B,"B
:lbl 2
:int (rand*15+1)ùF
:1ùG
:lbl 0
:0ùA
:while A=0
:getkeyùA
:if A=84 or A=82 or A=73 or A=93
:then
:0->M:0->N
:end
:if A=84
:1ùM
:if A=82
:(-)1ùM
:if A=73
:(-)1ùN
:if A=93
:1ùN
:N+C->C
:M+B->B
:if C=D and B=E
:P+1ùP
:goto 1
:end
:if C=G and B=F
:disp "perdu"
:disp "score=",P
:stop
:end
:if B=0
:16ùB
:if B=17
:1ùB
:if C=0
:8ùC
:if C=9
:1ùC
:if G=9
:goto 2
:end
:clrhome
:ouput(1,1,"vvvvvvvvvvvvvvvv
:ouput(8,1,"^^^^^^^^^^^^^^^^^
:ouput(C,B,"B
:ouput(D,E,"P
:ouput(G,F,"V
:goto 0 |
voila dite moi si sa marche !!svp
|
|
|
|
Ratuss
Autorisation : Membre
Nb de messages : 1561
Inscrit le : Mer 01 Mar 2006, 20:41
|
Posté le : Jeu 20 Avr 2006, 21:29
|
|
|
Code | :0ùA
:while A=0 |
Enleve aussi ca, ce n'est plus utile
---------------------- --- LISTE DES JEUX POUR TI --- |
|
|
|
Dark TI
Autorisation : Membre
Nb de messages : 58
Inscrit le : Dim 26 Mar 2006, 21:57
|
Posté le : Jeu 20 Avr 2006, 21:40
|
|
|
J'ai un probleme de "DOMAIN" a
mais je sais pas pourquoi ( etpuis la flemme aussi )
---------------------- Je ne possède point de cable pour relier TI 82 STATS et Ordinateur. |
|
|
|
craminou
Autorisation : Membre
Nb de messages : 138
Inscrit le : Sam 15 Avr 2006, 11:31
|
Posté le : Jeu 20 Avr 2006, 21:57
|
|
|
se message signifie que b est + grand que 8 ou égal a 0 ou que c est plus grand que 16 ou égal a 0 ... vérifie les condition de " if B =9: 1ùB:if B=0:8ù b " et pareil pour C .
sinon remet les then et les end dans cette partie ..
|
|
|
|
dams
Invité
|
Posté le : Sam 10 Oct 2009, 13:24
|
|
|
bonjour a tous que veux dire c'est quoi round et rand sur ti 82stat.fr
merci
|
|
|
|
sypotu
Autorisation : Membre
Nb de messages : 655
Inscrit le : Dim 13 Sep 2009, 8:27
|
Posté le : Sam 10 Oct 2009, 13:36
|
|
|
salut
rand~~~~»NbrAléat
round~~~»arrondi(
---------------------- Ti-83+.fr
Passe en 1ère S
Foire Aux Questions__________Traduction des fonctions Anglais/Français
Emplacement des fonctions____Lexique
Liste des jeux
Ouvrir, éditer et créer des .82p ou .83p sans télécharger de logiciel
Logiciel pour prendre des screenshot animés
Hebergeur pour vos .83p |
|
|
|
rastaman
Invité
|
Posté le : Mer 27 Oct 2010, 17:56
|
|
|
bonjour moi jai un probleme avec la ti 82 stats.fr je ne trouve pas les touches "<" et ">" , "ù" dsl si c est hors sujet mais jai chercher toute la journer me rediriger ver un site ou n importe me suffirait
merci d avance
|
|
|
|
Persalteas
Autorisation : Membre
Nb de messages : 2164
Inscrit le : Sam 23 Jan 2010, 20:09
|
Posté le : Mer 27 Oct 2010, 18:09
|
|
|
pour faire < [2nd][math][5]
pour faire > [2nd][math][3]
le u c'est supérieur ou égal, le [2nd][math][4].
il y a un topic sur l'emplacement des fonctions.
|
|
|
|