percevan80 le 09/04/2013 à 15:53
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
Cytropus le 09/04/2013 à 17:05
pas mal du tout !
cependant, je peux te donner quelque astuce
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
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 !
percevan80 le 11/04/2013 à 08:08
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
