Calculatrices Casio Graphiques : Jeux, programmes, cours, pompes, astuces et programmation sur calculatrice graphique Casio et ClassPad 300 : programmes casio et jeux casio...

Programmes et jeux pour calculatrices Casio Graph et calculatrice ClassPad 300, jeux casio, cours...Calcul formel pour Casio Graph 85
 

Forum Programmation Casio

 

Programmes et jeux pour calculatrices Casio Graph et calculatrice ClassPad 300, jeux casio, cours...: Forums

Bon anniversaire à nounou44640 (52 ans) Snape300 (27 ans)

Forum Casio

Un espace convivial pour poser vos questions ou simplement venir discuter... Entrer

Forum Programmation

Toutes les discussions à propos de la programmation sur calculatrices Casio... Entrer

Foire aux Questions

Les réponses aux questions les plus courantes sont ici ! Entrer

Forum programmation Casio
  

déboussolé...

Auteur déboussolé...
Juts
Utilisateur Graph



Messages: 1
Calculatrice : Graph 35+
Message posté: 03-06-2014 à 19:46     Editer/Supprimer les messages postés   Renvoyer une note
voilà, j'essaie de créer un mini-RPG sur ma Casio graph 35+, j'ai cependant un bug, lorsque je suis en combat, mon perso se régénère de 6PV de façon inexpliquée (je n'ai rien ajouté qui puisse augmenter la vie du joueur mis à part dans la section objet), j'ai donc essayer d'augmenter la valeur de C de 3 à chaque fois dans la section objets, mais maintenant, il se régénère de 7PV... Bref je suis un peu déboussoler, quelqu'un pour m'indiquer le sentier ?

Voilà mon code:

0→A~Z
2000→G
3→P
1→S

Lbl N

Z≥X And N≠5⇒N+1→N
Z≥X And N≠5⇒0→Z

If N=1
Then
15→V
2→A
1→D
20→X
Z=0⇒V→U
IfEnd

If N=2
Then
26→V
3→A
3→D
50→X
Z=0⇒V→U
IfEnd

If N=3
Then
42→V
5→A
4→D
100→X
Z=0⇒V→U
IfEnd

If N=4
Then
59→V
7→A
5→D
250→X
Z=0⇒V→U
IfEnd

If N=5
Then
80→V
8→A
6→D
Z=0⇒V→U
IfEnd

Lbl M

Int NRan# +1→O

If O=1
Then
14→W
2→B
1→E
5→Y
100→H
W→R
IfEnd

If O=2
Then
34→W
3→B
2→E
15→Y
300→H
W→R
IfEnd

If O=3
Then
56→W
4→B
4→E
30→Y
750→H
W→R
IfEnd

If O=4
Then
78→W
6→B
5→E
50→Y
1200→H
W→R
IfEnd

If O=5
Then
123→W
7→B
5→E
75→Y
2000→H
W→R
IfEnd

Lbl
ClrText
For 6→C To 16
Locate C,3,"-"
Locate C,7,"-"
Next

For 5→D To 16 Step +11
For 4→C To 7
Locate D,C,"|"
Next
Next

Locate 5,3,"+"
Locate 5,7,"+"
Locate 16,3,"+"
Locate 16,7,"+"

Locate 7,4,"Shop"
Locate 7,5,"Taverne"
Locate 7,6,"Combat"

1→C
Lbl W

C=1⇒Locate 6,4,"•"
C=1⇒Locate 6,4," "
C=1⇒Locate 6,4," "

C=2⇒Locate 6,4," "
C=2⇒Locate 6,4,"•"
C=2⇒Locate 6,4," "

C=3⇒Locate 6,4," "
C=3⇒Locate 6,4," "
C=3⇒Locate 6,4,"•"

Getkey=37⇒C+1→C
Getkey=28⇒C-1→C

C=0⇒3→C
C=4⇒1→C

C=1 And Getkey=31⇒Goto S
C=2 And Getkey=31⇒Goto (thêta)
C=3 And Getkey=31⇒Goto C

While Getkey = 28 Or Getkey=37
WhileEnd

Goto W

Lbl (thêta)
ClrText
For 6→C To 16
Locate C,3,"-"
Locate C,7,"-"
Next

Locate 5,5,"|"
Locate 5,6,"|"
Locate 16,5,"|"
Locate 16,6,"|"

Locate 5,4,"+"
Locate 5,7,"+"
Locate 16,4,"+"
Locate 16,7,"+"

Locate 7,5,"Restaurer"
Locate 7,6,"Sortir"

1→C

Lbl L

C=1⇒Locate 6,5,"•"
C=1⇒Locate 6,6," "

C=2⇒Locate 6,5," "
C=2⇒Locate 6,6,"•"

Getkey=28⇒C+1→C
Getkey=37⇒C-1→C

C=0⇒2→C
C=3⇒1→C

C=1 And Getkey=31⇒V→U
C=2 And Getkey=31⇒Goto S

Goto L

Lbl S
ClrText
Locate 1,1,"========Shop========="
Locate 1,2,"Vous avez"
Locate 11,2,G
Locate 18,2,"gils"
Locate 1,3,"Que voulez vous faire"
13,5,"Acheter"
Locate 13,6,"Vendre"
Locate 13,7,"Sortir"
Locate 3,6,"Stats"

For 1→C To 21
Locate C,4,"-"
Next
For 5→C To 7
Locate C,11,"|"
Next

1→C
2→r
Lbl T
If r=1
Then
Locate 2,6,"•"
Locate 12,5," "
Locate 12,6," "
Locate 12,7," "
Else
C=1⇒Locate 12,5,"•"
C=1⇒Locate 12,6," "
C=1⇒Locate 12,7," "
C=1⇒Locate 2,6," "

C=2⇒Locate 12,5," "
C=2⇒Locate 12,6,"•"
C=2⇒Locate 12,7," "
C=2⇒Locate 2,6," "

C=3⇒Locate 12,5," "
C=3⇒Locate 12,6," "
C=3⇒Locate 12,7,"•"
C=3⇒Locate 2,6," "
IfEnd

C=4⇒1→C
C=0⇒3→C
r=0⇒2→r
r=3⇒1→r

Getkey=37⇒C+1→C
Getkey=28⇒C-1→C
Getkey=38⇒r-1→r
Getkey=27⇒r+1→r

While Getkey=37 Or Getkey=28 Or Getkey=28 Or Getkey=38
WhileEnd

r=1 And Getkey=31⇒Goto r
C=1 And Getkey=31⇒Goto F
C=2 And Getkey=31⇒Goto K
C=3 And Getkey=31⇒Goto V

Goto T

Lbl r
ClrText
For 1→C To 7
Locate 9,C,"|"
Next
Locate 1,4,"•Sortir"

Locate 11,1,"Niveau:"

N≠5⇒Locate 19,1,N
N=5⇒Locate 18,1,"MAX"

Locate 11,3,"PV:"
Locate 15,3,U
Locate 17,3,"/"
Locate 18,3,V

Locate 11,4,"ATK:"
Locate 16,4,A
Locate 11,5,"DEF:"
Locate 16,5,D
Locate 11,6,"XP:"
Locate 15,6,Z
Locate 18,6,"/"
Locate 19,6,X

While Getkey≠31
WhileEnd
Goto S

Lbl F
ClrText
For 1→C To 4
Locate 17,C,"|"
Locate 14,C,"|"
Next
Locate 2,2,"Potion"
Locate 2,3,"Super-potion"
Locate 2,4,"Sortir"

Locate 13,6, "gils"

1→C

Locate 18,2,"500"
Locate 18,3,"1200"

Lbl X
Locate 5,6," "
Locate 5,6,G

Locate 15,2,P
Locate 15,3,S

C=1⇒Locate 1,2,"•"
C=1⇒Locate 1,3," "
C=1⇒Locate 1,4," "

C=2⇒Locate 1,2," "
C=2⇒Locate 1,3,"•"
C=2⇒Locate 1,4," "

C=3⇒Locate 1,2," "
C=3⇒Locate 1,3," "
C=3⇒Locate 1,4,"•"

Getkey=28⇒C-1→C
Getkey=37⇒C+1→C

If C=1 And Getkey=31 And G≥500
Then
G-500→G
P+1→P
IfEnd

If C=2 And Getkey=31 And G≥1200
Then
G-1200→G
S+1→S
IfEnd

C=4⇒1→C
C=0⇒3→C

C=3 And Getkey=31⇒Goto S

While Getkey=28 Or Getkey=31 Or Getkey=37
WhileEnd

Goto X

Lbl K
ClrText
For 1→C To 4
Locate 17,C,"|"
Locate 14,C,"|"
Next
Locate 2,2,"Potion"
Locate 2,3,"Super-potion"
Locate 2,4,"Sortir"

1→C

Locate 18,2,"250"
Locate 18,3,"600"

Lbl V

Locate 15,2,P
Locate 15,3,S

Locate 5,6," "
Locate 5,6,G
Locate 13,6,"gils"

C=1⇒locate 1,2,"•"
C=1⇒locate 1,3," "
C=1⇒locate 1,4," "

C=2⇒locate 1,2," "
C=2⇒locate 1,3,"•"
C=2⇒locate 1,4," "

C=3⇒locate 1,2," "
C=3⇒locate 1,3," "
C=3⇒locate 1,4,"•"

Getkey=28⇒C-1→C
Getkey=37⇒C+1→C

If C=1 And Getkey=31 And P≥1
Then
G+250→G
P-1→P
IfEnd

If C=2 And Getkey=31 And S≥1
Then
G+600→G
S-1→S
IfEnd

C=3 And Getkey=31⇒Goto S

While Getkey=28 Or Getkey=31 Or Getkey=37
WhileEnd

Goto V
//partie combat
Lbl C
ClrText

For 1→C To 7
Locate 13,C,"|"
Next

For 14→C To 21
Locate C,4,"-"
Next

1→C
Locate 3,3,"Attaquer"
Locate 3,4,"Objets"
Locate 15,6,R
Locate 18,6,"/"
Locate 19,6,W

Locate 16,2,U
Locate 18,2,"/"
Locate 19,2,V

Lbl O
C=1⇒Locate 2,3,"•"
C=1⇒Locate 2,4," "

C=2⇒Locate 2,3," "
C=2⇒Locate 2,4,"•"

C=3⇒1→C
C=0⇒2→C

Getkey=37⇒C+1→C
Getkey=28⇒C-1→C

While Getkey=37 Or Getkey=28
WhileEnd

C=1 And Getkey=31⇒Goto D
C=2 And Getkey=31⇒Goto Q

Goto O
//partie Objets
Lbl Q
ClrText
For 1→C To 7
Locate 14,C,"|"
Next
3→C
Locate 2,2,"Potion"
Locate 2,3,"Super-potion"
Locate 2,4,"Sortir"

Lbl J

C=3⇒Locate 1,2,"•"
C=3⇒Locate 1,3," "
C=3⇒Locate 1,4," "

C=4⇒Locate 1,2," "
C=4⇒Locate 1,3,"•"
C=4⇒Locate 1,4," "

C=5⇒Locate 1,2," "
C=5⇒Locate 1,3," "
C=5⇒Locate 1,4,"•"

Locate 15,2,P
Locate 15,3,S

If C=3 And Getkey=31 And P≥1
Then
P-1→P
U+10→U
U>V⇒V→U
IfEnd

If C=4 And Getkey=31 Ans S≥1
Then
S-1→S
U+30→U
U>V⇒V→U
IfEnd

C=5 And Getkey=31⇒Goto C

Getkey=28⇒C-1→C
Getkey=37⇒C+1→C

C=6⇒1→C
C=2⇒3→C

While Getkey=31 Or Getkey=28 Or Getkey=37
WhileEnd

Goto J
//FIN
Lbl D
R-(A-(Int (√(E)²)÷2)+1))→R
R≤0⇒Goto G
U-(B-(Int (√(E)²)÷2)+1))→U
U≤0⇒Goto P
Goto C
Lbl P
ClrText
Locate 7,4,"Game Over"
Stop
Lbl G
ClrText
Locate 3,1,"Vous avez vaincu"
Locate 3,3,"Vous remportez"
Locate 18,3,Y
Locate 2,4,"points d'éxperience"
Locate 1,6,"Vous gagnez"
Locate 13,6,H
Locate 18,6,"gils"
Z+Y→Z
G+H→G
0→C
X-Z→T
If N≠5
Then
If Z≥X
Then
Locate 3,7,"Nouveau niveau!"
Else
Locate 3,7,"Encore"
Locate 10,7,T
Locate 14,7,"d'xp"
IfEnd
IfEnd
While Getkey=31
WhileEnd

While Getkey≠31
WhileEnd

Goto N


J'espère que vous saurez m'aider ^^



Meetic - Les règles du jeu ont changé | MeeticAffinity
  
Bloquer le sujet Déplacer le sujet Supprimer le sujet
 
     


Toutes les pages et les images de jeux casio appartiennent à http://www.jeuxcasio.com ©2002-2017
Toute reproduction partielle ou totale de Jeuxcasio.com ou de son contenu est strictement interdite. | Casio est une marque déposée par le groupe Noblet

Bac Français Meeticadblocktest Amazon.com Expedia.com Ebookers
Opodo
Amazon.fr eBay Fr