Poster un nouveau sujet Poster une réponse
Mon premier programme!
Auteur Message
percevan80



Autorisation : Membre
Nb de messages : 19
Inscrit le : Mar 09 Oct 2012, 12:47
Posté le : Mar 09 Avr 2013, 15:53   Citer 

Bonjour je suis nouveau sur le site et je vais poster mon 1er programme. Il s'agit d'un simulateur de combat entre 2 joueur.Plusieur actions sont possibles:
-L'attaque: Elle fait perdre 1 a 3 points de vie a l'adversaire
-Le feu: Il utilise 5PM pour infliger 3 a 6 points de dégats a l'adversaire
-Les objets: Potion ou Ether
-Potion: Remet vos PV a 20
-Ether: Vous donne 10 PM utilisable pour l'action FEU
Voila j'espère que je n'ai pas fait de fautes de recopiage (1heure pour tout recopier sa serai bête!!)
Bref j'espère que vous aimerai et que vous m'aiderai a l'optimiser. Sur ce voici le programme:

Note:
-> est la fléche sto (au dessus de ON)
<= est inférieur ou égal (2nde+math+6)
=> est supérieur ou égal (2nde+math+4)


Code

:20->A
:20->C
:5->B
:5->D
:Effvar EEffvar FEffvar GEffvar H
:2->K
:2->L
:2->M
:2->N
:EffEcr
:Lbl Z
:EffEcr
:Disp "*****COMBAT*****","J1          J2","PV:         PV:"," ","PM:         PM:
:Output(3,4,A
:Output(4,4,B
:Output(3,15,C
:Output(4,15,D
:69!69!69!69!69!69!69!69!69!69!69!69!69!69!69!69!    *J'écrit sa car je n'ai
:69!69!69!69!69!69!69!69!69!69!69!69!69!69!69!69!    *pas trouver le moyen de
:69!69!69!69!69!69!69!69!69!69!69!69!69!69!69!69!    *ralentir le prog autrement
:If A<=O
:Then:EffEcr:Disp"J1 KO","J2 VAINQUEUR":Stop:End
:Menu(ACTION J13,"ATTAQUE",Y,"FEU 5PM",X,"ETAT,Z,"OBJET",I
:Stop
:End
:Lbl Y
:entAléat(1,3)->E
:B+2.5->B
:C-E->C
:Goto W
:Stop
:End
:Lbl X
:entaléat(3,6)->F
:If B=>5
:Then
:C-F->C
:B-5->B
:Goto W
:Else
:EffEcr
:Disp "PLUS DE PM"
:69!69!69!69!69!69!69!69!69!69!69!69!69!69!69!69!    *pareil que tout a l'heure
:69!69!69!69!69!69!69!69!69!69!69!69!69!69!69!69!
:69!69!69!69!69!69!69!69!69!69!69!69!69!69!69!69!
:Goto Y
:Stop
:End
:Lbl W
:If C<=0
:Then:EffEcr:Disp"J2 KO","J1 VAINQUEUR":Stop:End
:Menu("ACTION J2","ATTAQUE",V,"FEU 5PM",U,"OBJET",J
:Stop
:End
:Lbl V
:entAléat(1,3)->G
:D+2.5->D
:A-G->A
:Goto Z
:Stop
:End
:Lbl U
:entaléat(3,6)->H
:If D=>5
:Then
:A-H->A
:D-5->D
:Goto Z
:Else
:EffEcr
:Disp "PLUS DE PM"
:69!69!69!69!69!69!69!69!69!69!69!69!69!69!69!69!    *pareil que tout a l'heure
:69!69!69!69!69!69!69!69!69!69!69!69!69!69!69!69!
:69!69!69!69!69!69!69!69!69!69!69!69!69!69!69!69!
:Goto V
:Stop
:End
:Lbl I
:Menu("OBJET","POTION",k,"ETHER",M
:Stop
:End
:Lbl K
:If K<=0
:Then
:Effecr
:Disp "PLUS DE","POTION"
:69!69!69!69!69!69!69!69!69!69!69!69!69!69!69!69!    *toujour a optimiser
:69!69!69!69!69!69!69!69!69!69!69!69!69!69!69!69!
:69!69!69!69!69!69!69!69!69!69!69!69!69!69!69!69!
:Goto Z
:Else
:K-1->K
:20->A
:Goto W
:Stop
:End
:Lbl M
:If M<=0
:Then
:EffEcr
:Disp "PLUS","D'ETHER"
:69!69!69!69!69!69!69!69!69!69!69!69!69!69!69!69!    *toujour a optimiser
:69!69!69!69!69!69!69!69!69!69!69!69!69!69!69!69!
:69!69!69!69!69!69!69!69!69!69!69!69!69!69!69!69!
:Goto Z
:Else
:M-1->M
:B+10->B
:Goto W
:Stop
:End
:Lbl J
:Menu("OBJET","POTION",L,"ETHER",N
:Stop
:End
:Lbl L
:If L<=0
:Then
:Effecr
:Disp "PLUS DE","POTION"
:69!69!69!69!69!69!69!69!69!69!69!69!69!69!69!69!    *toujour a optimiser
:69!69!69!69!69!69!69!69!69!69!69!69!69!69!69!69!
:69!69!69!69!69!69!69!69!69!69!69!69!69!69!69!69!
:Goto W
:Else
:L-1->L
:20->C
:Goto Z
:Stop
:End
:Lbl N
:If N<=0
:Then
:EffEcr
:Disp "PLUS","D'ETHER"
:69!69!69!69!69!69!69!69!69!69!69!69!69!69!69!69!    *toujour a optimiser
:69!69!69!69!69!69!69!69!69!69!69!69!69!69!69!69!
:69!69!69!69!69!69!69!69!69!69!69!69!69!69!69!69!
:Goto W
:Else
:N-1->N
:D+10->D
:Goto Z
:Stop
:End



----------------------
La vie est une grande aventure. La mort n'est que le prolongement de cette aventure...
 Adresse email Haut de page Bas de page 
 
Cytropus



Autorisation : Membre
Nb de messages : 407
Inscrit le : Lun 07 Nov 2011, 12:09
Posté le : Mar 09 Avr 2013, 17:05   Citer 

pas mal du tout ! bigmouth.gif

cependant, je peux te donner quelque astuce winkle.gif


Code
:0->E
:0->F
:0->G
:0->H


peut devenir

Code
Effvar EEffvar FEffvar GEffvar H


pas d'espace ou de point entre les Effvar glasses.gif

pour


Code
:Output(1,1,"*****COMBAT*****
:Output(2,1,"J1
:Output(2,12,"J2
:Output(3,1,"PV:"
:Output(3,4,A
:Output(4,1,"PM:"
:Output(4,4,B
:Output(3,12,"PV:"
:Output(3,15,C
:Output(4,12,"PM:"
:Output(4,15,D


je te conseil de le mettre sous la forme

Code
:Disp "*****COMBAT*****","J1          J2","PV:         PV:"," ","PM:         PM:
:Output(3,4,A
:Output(4,4,B
:Output(3,15,C
:Output(4,15,D



pour le

Code
:69!69!69!69!69!69!69!69!69!69!69!69!69!69!69!69!


il te suffit de faire

Code
:For(¤,1,10000         <//- change 10000 pour changer la durée
:End




En apparence, aucun bug alors bravo pour ton programme ! cupsmiley.gif

----------------------
Le nouveau site de tout82
 Adresse email Haut de page Bas de page 
 
percevan80



Autorisation : Membre
Nb de messages : 19
Inscrit le : Mar 09 Oct 2012, 12:47
Posté le : Jeu 11 Avr 2013, 8:08   Citer 

Voila j'ai rééditer mon programme.Par contre

Code

For(¤,1,10000         <//- change 10000 pour changer la durée
:End


Sa ne marche pas. Le symbole ¤, je ne le trouve pas

----------------------
La vie est une grande aventure. La mort n'est que le prolongement de cette aventure...
 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Jeu 11 Avr 2013, 12:46   Citer 

¤ représente thêta le rond barré dont personne ne retien le code ascii.
¤=thêta=alpha+3
Tu prends la variable que tu veux tant qu'elle n'est pas utilisée ailleurs dans le programme.

----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store
 Adresse email Haut de page Bas de page 
 
Cytropus



Autorisation : Membre
Nb de messages : 407
Inscrit le : Lun 07 Nov 2011, 12:09
Posté le : Ven 12 Avr 2013, 12:08   Citer 

j'ai mis ¤ pour être sur de ne pas utiliser une raviable que tu utilise happy.gif
si tu le fais avec la mauvaise, ça peut faire complètement bugger ton prgm

----------------------
Le nouveau site de tout82
 Adresse email Haut de page Bas de page 
 
percevan80



Autorisation : Membre
Nb de messages : 19
Inscrit le : Mar 09 Oct 2012, 12:47
Posté le : Ven 12 Avr 2013, 14:54   Citer 

Ok d'accord je comprend mieux bigmouth.gif

----------------------
La vie est une grande aventure. La mort n'est que le prolongement de cette aventure...
 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse





  Page générée en 6 requêtes