Autorisation : Membre
Nb de messages : 101
Inscrit le : Jeu 02 Jui 2011, 15:17
Posté le : Sam 13 Oct 2012, 21:16
Hey tout le monde! Je vous présente aujourd'hui le jeu PoKéMoN!
Je vous le dis tout de suite, ne vous attendez pas à vivre une super aventure en y jouant car il n'arrive pas à la cheville des PoKéMoN de Nintendo... Mais nous sommes sur un TI82 très chers ! Ce n'est qu'un début de PoKéMoN, je l’améliorais peut être... Vous pouvez quand même m'en dire des nouvelles !
Télécharger le .8xp
Nom: PoKéMoN
Auteur: S.L
Taille: 961 octets (c'est assez peu non?)
Code
EffEcr
4üA:8üB
Menu("****POKEMON*****","JOUER",1,"CREDITS",Y,"QUITTER",Z
Lbl Z
EffEcr:Stop
Lbl Y
Disp "GAME BY S.L","(C)2012
Return
Lbl 1
entAl–at(20,110)üE
80üF
EffEcr
For(C,1,8
For(D,1,16
Output(C,D,"*
End
End
entAl–at(1,8)üC
entAl–at(1,16)üD
If A=C et B=D:Goto 1
While 1
If A>1:Output(A-1,B,"*
If B>1:Output(A,B-1,"*
If A<8:Output(A+1,B,"*
If B<16:Output(A,B+1,"*
Output(A,B,"8 //vous pouvez ici choisir la forme de votre
//personnage en remplaçant le "8" par un autre caractère
codeTouch(üK
If K=24 et B>1:B-1üB
If K=26 et B<16:B+1üB
If K=25 et A>1:A-1üA
If K=34 et A<8:A+1üA
If K=45:Then:EffEcr:Stop:End
If A=C et B=D:Goto 2
End
Lbl 2
EffEcr
Disp "UN ROUCOOL","SAUVAGE","APPARAIT!
Pause
EffEcr
Menu("QUE FAIRE?","ATTAQUER",A,"FUIR",B
Lbl B
Goto 1
Lbl A
Disp "EN AVANT","PIKACHU!
Pause
0üW
Lbl 3
EffEcr
If W=1:E-entAl–at(1,10)üE
If W=2:E-entAl–at(2,8)üE
Disp "ROUCOOL:","VIES:
If E>0:Output(2,6,E
If E÷0:Output(2,6,"K.O
Output(7,1,"PIKACHU:
Output(8,1,"VIES:
Output(8,6,F
Pause
If W=0:Goto 6
If W=1:Then:Output(4,1,"PIKACHU A LANCE
Output(5,1,"ECLAIR!":End
If W=2:Then:Output(4,1,"PIKACHU A LANCE
Output(5,1,"FOUDRE!":End
Pause
If E÷0:Then:EffEcr:Disp "ROUCOOL SAUVAGE","EST K.O!
Pause :Goto 1:End
0üW
Goto 3
Lbl 6
Output(4,1,"ROUCOOL LANCE
Output(5,1,"JET DE SABLE!
Pause
F-entAl–at(1,10)üF
Output(8,6,"
If F>0:Output(8,6,F
If F÷0:Output(8,6,"K.O
Pause
If F÷0:Then:EffEcr:Disp "PIKACHU EST K.O!","VOUS AVEZ PERDU!
Pause :EffEcr:Stop:End
Menu("ATTAQUES:","ECLAIR",R,"FOUDRE",S
Lbl R
1üW
Goto 3
Lbl S
2üW
Goto 3
Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Mar 16 Oct 2012, 1:16
Je ne me suis pas encore penché sur le programme mais une chose m'a choqué au plus profond: tu marques Roucoul!
Nanmého faudrait pas écorcher le nom de la bestiole (Roucool).
Bon sinon, il te manque l'essence même du jeu de pokémon à savoir les attaques différentes, la gestion de pv/pp, les états, les niveaux, les EV. Si tu veux pousser le jeu encore plus loin tu as les objets attachables/utilisables, les attaques spéciales etc.
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Mer 17 Oct 2012, 0:00
Citer : snap
Code
If W=1:E-entAléat(1,10)üE
If W=2:E-entAléat(2,8)üE
devient
Code
If W :E-entAléat(1+(W=2),8+2(W=1 -> E
Code
If W :E-entAléat(W,12-2W -> E
---------------------- 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)
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Mer 17 Oct 2012, 23:58
C'est "inférieur ou égal".
Arrêtez votre curseur de souris sur le caractère et le forum vous ouvrira une bulle indiquant le caractère correspondant s'il le connaît.
Consultez aussi mon article pour la plupart des caractères spéciaux.
---------------------- 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)
Autorisation : Membre
Nb de messages : 101
Inscrit le : Jeu 02 Jui 2011, 15:17
Posté le : Jeu 18 Oct 2012, 21:30
Voici mes réponses:
@persalteas: Merci et non je ne vais pas le passer en graphique vu qu'il va me prendre de la place et que je l'aime bien comme ça.
Ne t'inquiète pas je me suis mis à l'améliorer je pense que tu vas aimer
Pour noelthebest je verrais plus tard
@Le Grec: Bon d'accord on verras si on peux le passer en graphique mais voilà..
@Sangohan: Excuse moi j'ai fais ce programme en m'inspirant de quand j'avais joué à ce jeu et donc je me rappelais pas exactement... Je vais changer ça. Je me suis occupé des améliorations dans la nouvelle version qui va arrivée.
@Cytropus: J'aime pas trop créer d'autres programmes pour un seul jeu, je vais m'en tenir à programme.
@snap: Ne m'en veux pas mais je préfère faire les optimisations une fois le principe du jeu fini (pour traiter toutes les erreurs en même temps et pas revenir à chaque fois).
@homer38: La nouvelle version va être plus complète, donc plus lourde, donc plus longue à recopier à la main et si tu fais une erreur, tu vas devoir faire comme moi: descendre et chercher dans le programme.
Et oui, j'utilise Ti-Graph Link.
Je vais tout de suite vous mettre la nouvelle version -pas finie
Nom: PoKéMoN
Auteur: S.L
Taille: 3154 octets (qui a dit OMG?)
Code
4üA:8üB
4üdim(áP0K
100üF
Lbl 0
EffEcr
1üáP0K(4
Menu("****POKEMON*****","JOUER",1,"STATS",M,"CREDITS",Y,"QUITTER",Z
Lbl Z
EffEcr:Stop
Lbl M
Output(1,5,"PARTIES
Output(2,1,"GAGNEES:
Output(2,9,áP0K(1
Output(3,1,"PERDUES:
Output(3,9,áP0K(2
Output(4,1,"FUIES:
Output(4,7,áP0K(3
Output(6,5,"PIKACHU
Output(7,1,"LVL:
Output(7,5,áP0K(4
Output(8,1,"VIES:
Output(8,6,F
Pause
Goto 0
Lbl Y
Disp "POKEMON PAR S.L","(C)2012
Return
Lbl 1
1üÁ
entAl–at(20,80)üE
EffEcr
For(C,2,7
For(D,2,15
Output(C,D,"*
End
End
Output(1,8,"^
Output(4,1,"<
Output(8,8,"V
Output(4,16,">
Goto 30
Lbl 10
If A>2:Output(A-1,B,"*
If A<7:Output(A+1,B,"*
If B>2:Output(A,B-1,"*
If B<15:Output(A,B+1,"*
Output(A,B,"8
codeTouch(üK
If K=24:B-1üB
If B<2:Then:15üB:Goto 11:End
If K=26:B+1üB
If B>15:Then:2üB:Goto 13:End
If K=25:A-1üA
If A<2:Then:7üA:Goto 15:End
If K=34:A+1üA
If A>7:Then:2üA:Goto 17:End
If K=45:Goto 0
If A=C et B=D ou A=I et B=J ou A=L et B=M ou A=O et B=P:Goto 2
Goto 10
Lbl 11
2üÁ
entAl–at(20,60)üE
EffEcr
For(C,2,7
For(D,2,15
Output(C,D,"*
End
End
Output(4,16,">
Goto 30
Lbl 12
If A>2:Output(A-1,B,"*
If A<7:Output(A+1,B,"*
If B>2:Output(A,B-1,"*
If B<15:Output(A,B+1,"*
Output(A,B,"8
codeTouch(üK
If K=25 et A>2:A-1üA
If K=34 et A<7:A+1üA
If K=24 et B>2:B-1üB
If K=26:B+1üB
If B>15:Then:2üB:Goto 1:End
If K=45:Goto 0
If A=C et B=D ou A=I et B=J ou A=L et B=M ou A=O et B=P:Goto 2
Goto 12
Lbl 30
entAl–at(1,7)üC
entAl–at(1,15)üD
entAl–at(1,7)üI
entAl–at(1,15)üJ
entAl–at(1,7)üL
entAl–at(1,15)üM
entAl–at(1,7)üO
entAl–at(1,15)üP
If A=C et B=D ou A=I et B=J ou A=L et B=M ou A=O et B=P:Goto 30
If Á=1:Goto 10
If Á=2:Goto 12
If Á=3:Goto 14
Lbl 13
EffEcr
3üÁ
entAl–at(30,85)üE
For(C,2,7
For(D,2,15
Output(C,D,"*
End
End
Output(4,1,"<
Goto 30
Lbl 14
If A>2:Output(A-1,B,"*
If A<7:Output(A+1,B,"*
If B>2:Output(A,B-1,"*
If B<15:Output(A,B+1,"*
Output(A,B,"8
codeTouch(üK
If K=34 et A<7:A+1üA
If K=25 et A>2:A-1üA
If K=26 et B<15:B+1üB
If K=24:B-1üB
If B<2:Then:15üB:Goto 1:End
If K=45:Goto 0
If A=C et B=D ou A=I et B=J ou A=L et B=M ou A=O et B=P:Goto 2
Goto 14
Lbl 15
EffEcr
Output(1,2,"CENTRE POKEMON
Output(2,8,"*
Output(3,7,"***
Output(4,6,"*****
Output(5,6,"H---H
Output(6,2,"----H[ ]H-----
Output(8,8,"V
Lbl 16
If A=6 et B=8:Then
Output(A+1,B,"
For(C,1,30
Output(1,2,"SOIN EN COURS
100üF
End
A+1üA
Output(A-1,B,"
Goto 15
End
codeTouch(üK
If K=24 et B>2:B-1üB
If K=26 et B<15:B+1üB
If K=25 et B=8:A-1üA
If K=34:Then:2üA:Goto 1:End
If K=45:Goto 0
If B>2:Output(A,B-1,"
If B<15:Output(A,B+1,"
Output(A,B,"8
Goto 16
Lbl 17
EffEcr
entAl–at(3,7)üC
If B<8
15üD
If Bù8
2üD
Output(1,8,"^
Lbl 18
If A<7:Output(A+1,B,"
If A>2:Output(A-1,B,"
Output(A,B,"8
Output(C,D,"8
codeTouch(üK
If K=25:A-1üA
If A<2:Then:7üA:Goto 1:End
If K=34 et A<7:A+1üA
If K=45:Goto 0
If A=C:Then
Output(C-1,D,"!
Else
Output(C-1,D,"
End
Goto 18
Lbl 2
EffEcr
If Á=1:Disp "UN ROUCOOL
If Á=2:Disp "UN RATTATA
If Á=3:Disp "UN CHENIPAN
Disp "SAUVAGE","APPARAIT!
Pause
EffEcr
Menu("QUE FAIRE?","ATTAQUER",A,"FUIR",B
Lbl B
(áP0K(3)+1üáP0K(3
EffEcr:Disp "VOUS AVEZ PRIS","LA FUITE!
Pause
If Á=1:Goto 1
If Á=2:Goto 11
If Á=3:Goto 13
Lbl A
Disp "EN AVANT","PIKACHU!
Pause
0üW
0üX
Lbl 3
EffEcr
If W=1:E-entAl–at(1,10üE
If W=2:E-entAl–at(2,8)+XüE
If W=3:F+entAl–at(5,8)+XüF
If W=4:entAl–at(1,3)üX
If Á=1:Disp "ROUCOOL:
If Á=2:Disp "RATTATA:
If Á=3:Disp "CHENIPAN:
Disp "VIES:
If E>0:Output(2,6,E
If E÷0:Output(2,6,"K.O
Output(7,1,"PIKACHU:
Output(8,1,"VIES:
Output(8,6,F
Pause
If W=0:Goto 6
If W=1:Then:Output(4,1,"PIKACHU A LANCE
Output(5,1,"ECLAIR!":End
If W=2:Then:Output(4,1,"PIKACHU A LANCE
Output(5,1,"FOUDRE!":End
If W=3:Then:Output(4,1,"PIKACHU GAGNE
Output(5,1,"DES PDV!
End
If W=4:Then:Output(4,1,"PIKACHU GAGNE
Output(5,1,"EN FORCE!
End:Pause
If E÷0:Then:EffEcr:
If Á=1:Disp "ROUCOOL SAUVAGE
If Á=2:Disp "RATTATA SAUVAGE
If Á=3:Disp "CHENIPAN SAUVAGE
Disp "EST K.O!
Pause
(áP0K(1)+1üáP0K(1
If Á=1:Goto 1
If Á=2:Goto 11
If Á=3:Goto 13:End
0üW
Goto 3
Lbl 6
If Á=1:Output(4,1,"ROUCOOL LANCE
If Á=2:Output(4,1,"RATTATA LANCE
If Á=3:Output(4,1,"CHENIPAN LANCE
If Á=1:Output(5,1,"TORNADE!
If Á=2:Output(5,1,"MORSURE!
If Á=3:Output(5,1,"CHARGE!
Pause
If Á=1:F-entAl–at(1,10)üF
If Á=2:F-entAl–at(1,7)üF
If Á=3:F-entAl–at(2,11)üF
Output(8,6,"
If F>0:Output(8,6,F
If F÷0:Output(8,6,"K.O
Pause
If F÷0:Then:EffEcr:Disp "PIKACHU EST K.O!","VOUS AVEZ PERDU!
Pause :6üA:8üB:(áP0K(2)+1üáP0K(2
Goto 15:End
Lbl 45
Menu("QUE FAIRE?","ATTAQUES",40,"OBJETS",41,"FUIR",T
Lbl T
(áP0K(3)+1üáP0K(3
EffEcr
Disp "VOUS AVEZ PRIS","LA FUITE!
Pause
If Á=1:Goto 1
If Á=2:Goto 11
If Á=3:Goto 13
Lbl 40
Menu("ATTAQUES:","ECLAIR",R,"FOUDRE",S,"RETOUR",45
Lbl R
1üW
Goto 3
Lbl S
2üW
Goto 3
Lbl 41
Menu("OBJETS","VIE+",42,"FORCE+",43,"RETOUR",45
Lbl 42
3üW
Goto 3
Lbl 43
4üW
Goto 3
Les choses qui me restent à faire:
-Faire augmenter le lvl de Pikachu
-Finir la map avec le 8 qui a un point d'exclamation au-dessus de lui quand on se trouve en face de lui
-Faire commencer un combat contre lui et qui aura un pokémon de plus en plus fort selon le niveau de Pikachu et une évolution différente.
Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Ven 19 Oct 2012, 1:47
C'est déjà plus ressemblant!
Plus que la gestion de plusieurs poké à gérer, la gestion des PP et si la motivation se fait sentir une aventure et ça le fera.
Autorisation : Membre
Nb de messages : 12
Inscrit le : Ven 05 Oct 2012, 17:35
Posté le : Ven 19 Oct 2012, 17:05
C'est encore mieux!
Puisque tu as fait en sorte de bouger la map, pourquoi tu ne ferais pas une sorte de block ou quand on rentre dedans on peut acheter des objets avec des pieces qu'on gagnerai en combattant? :p
Et peut etre un moyen d'attraper les pokemon et de sauvegarder ^^
Autorisation : Membre
Nb de messages : 14
Inscrit le : Ven 19 Oct 2012, 17:41
Posté le : Ven 19 Oct 2012, 18:12
je debute en programmation et j'ai recopie la 1e version (pendant les cours de math naturellement ) et je l'ai un peu modifie pour rajouter la fonction capturer qui ne sert strictement à rien ^^ , et voici donc comment j'ai fait:
Code
Pause
If F÷0:Then:EffEcr:Disp "PIKACHU EST K.O!","VOUS AVEZ PERDU!
Pause :EffEcr:Stop:End
Menu("QUE FAIRE:","ECLAIR",R,"FOUDRE",S,"POKEBALL",C
Lbl C
Output(2,1,"VOUS N'AVEZ PAS
Output(3,1,"DE POKEBALL!
Pause
Output(4,6,"...
Pause
Output(5,1,"OH,NON!
Pause
Output(6,2,"IL EST PARTI...
Pause
Goto1
Lbl R
1üW
Goto 3
Lbl S
2üW
Goto 3
voila, donc cette amelioration ne sert à rien à part si quelqu'un essaye le jeu pour la premiere et qu'il 'a pas regarde le programme
---------------------- Quand il est l'heure de programmer, c'est plus l'heure et quand c'est les cours de math, c'est l'heure!
Maintenant, votre Pikachu peut augmenter de niveau et donc de vie, la map inachevé est terminée (le dresseur vient à votre rencontre) et il possède un pokémon qui est de plus en plus fort selon votre niveau.
Je poste ici le code même si je doute que quelqu'un ait le courage de le recopier.
Edit: Je me trompais.
Code
4üdim(áP0K
100+(áP0K(4))üF
Lbl 0
EffEcr
If (áP0K(1))-(áP0K(2))ù1:(áP0K(1))-(áP0K(2))üáP0K(4
If (áP0K(1))-(áP0K(2))<1:1üáP0K(4
If (áP0K(4))<16:1üR
If (áP0K(4))ù16 et (áP0K(4))<36:2üR
If (áP0K(4))ù36:3üR
Menu("****POKEMON*****","JOUER",33,"STATS",M,"CREDITS",Y,"QUITTER",Z
Lbl Z
EffEcr:Stop
Lbl M
Output(1,5,"PARTIES
Output(2,1,"GAGNEES:
Output(2,9,áP0K(1
Output(3,1,"PERDUES:
Output(3,9,áP0K(2
Output(4,1,"FUIES:
Output(4,7,áP0K(3
Output(6,5,"PIKACHU
Output(7,1,"NIVEAU:
Output(7,8,áP0K(4
Output(8,1,"VIES:
Output(8,6,F
Pause
Goto 0
Lbl Y
Output(1,5,"CREDITS:
Output(2,1,"POKEMON PAR S.L
Output(3,1,"(C)2012
Output(5,6,"SITE:
Output(6,1,"SL-TIPROG.
Output(7,1,"E-MONSITE.COM/
Pause
Goto 0
Lbl 33
4üA:8üB
Lbl 1
1üÁ
entAl–at(20,80)üE
EffEcr
For(C,2,7
For(D,2,15
Output(C,D,"*
End
End
Output(1,8,"^
Output(4,1,"<
Output(8,8,"V
Output(4,16,">
Goto 30
Lbl 10
If A>2:Output(A-1,B,"*
If A<7:Output(A+1,B,"*
If B>2:Output(A,B-1,"*
If B<15:Output(A,B+1,"*
Output(A,B,"8
codeTouch(üK
If K=24:B-1üB
If B<2:Then:15üB:Goto 11:End
If K=26:B+1üB
If B>15:Then:2üB:Goto 13:End
If K=25:A-1üA
If A<2:Then:7üA:Goto 15:End
If K=34:A+1üA
If A>7:Then:2üA:Goto 17:End
If K=45:Goto 0
If A=C et B=D ou A=I et B=J ou A=L et B=M ou A=O et B=P:Goto 2
Goto 10
Lbl 11
2üÁ
entAl–at(20,60)üE
EffEcr
For(C,2,7
For(D,2,15
Output(C,D,"*
End
End
Output(4,16,">
Goto 30
Lbl 12
If A>2:Output(A-1,B,"*
If A<7:Output(A+1,B,"*
If B>2:Output(A,B-1,"*
If B<15:Output(A,B+1,"*
Output(A,B,"8
codeTouch(üK
If K=25 et A>2:A-1üA
If K=34 et A<7:A+1üA
If K=24 et B>2:B-1üB
If K=26:B+1üB
If B>15:Then:2üB:Goto 1:End
If K=45:Goto 0
If A=C et B=D ou A=I et B=J ou A=L et B=M ou A=O et B=P:Goto 2
Goto 12
Lbl 30
entAl–at(2,7)üC
entAl–at(2,15)üD
entAl–at(2,7)üI
entAl–at(2,15)üJ
entAl–at(2,7)üL
entAl–at(2,15)üM
entAl–at(2,7)üO
entAl–at(2,15)üP
If A=C et B=D ou A=I et B=J ou A=L et B=M ou A=O et B=P:Goto 30
If Á=1:Goto 10
If Á=2:Goto 12
If Á=3:Goto 14
Lbl 13
EffEcr
3üÁ
entAl–at(30,85)üE
For(C,2,7
For(D,2,15
Output(C,D,"*
End
End
Output(4,1,"<
Goto 30
Lbl 14
If A>2:Output(A-1,B,"*
If A<7:Output(A+1,B,"*
If B>2:Output(A,B-1,"*
If B<15:Output(A,B+1,"*
Output(A,B,"8
codeTouch(üK
If K=34 et A<7:A+1üA
If K=25 et A>2:A-1üA
If K=26 et B<15:B+1üB
If K=24:B-1üB
If B<2:Then:15üB:Goto 1:End
If K=45:Goto 0
If A=C et B=D ou A=I et B=J ou A=L et B=M ou A=O et B=P:Goto 2
Goto 14
Lbl 15
EffEcr
Output(1,2,"CENTRE POKEMON
Output(2,8,"*
Output(3,7,"***
Output(4,6,"*****
Output(5,6,"H---H
Output(6,2,"----H[ ]H-----
Output(8,8,"V
Lbl 16
If A=6 et B=8:Then
Output(A+1,B,"
For(C,1,30
Output(1,2,"SOIN EN COURS
100+(áP0K(4))üF
End
A+1üA
Output(A-1,B,"
Goto 15
End
codeTouch(üK
If K=24 et B>2:B-1üB
If K=26 et B<15:B+1üB
If K=25 et B=8:A-1üA
If K=34:Then:2üA:Goto 1:End
If K=45:Goto 0
If B>2:Output(A,B-1,"
If B<15:Output(A,B+1,"
Output(A,B,"8
Goto 16
Lbl 17
EffEcr
entAl–at(3,7)üC
If B<8
15üD
If Bù8
2üD
Output(1,8,"^
Lbl 18
If A<7:Output(A+1,B,"
If A>2:Output(A-1,B,"
Output(A,B,"8
Output(C,D,"8
codeTouch(üK
If K=25:A-1üA
If A<2:Then:7üA:Goto 1:End
If K=34 et A<7:A+1üA
If K=45:Goto 0
If A=C:Then
Output(C-1,D,"!
69!
69!
69!
Goto 99
Else
Output(C-1,D,"
End
Goto 18
Lbl 99
4üÁ
If R=1:entAl–at(40,100üE
If R=2:entAl–at(80,120üE
If R=3:entAl–at(120,150üE
Lbl 98
69!
69!
69!
Output(A,B,"8
Output(A-1,B,"
Output(C,D,"8
Output(C-1,D,"!
If D>B:Then:D-1üD:Output(C,D+1,"
Output(C-1,D+1,"
End
If B+1=D:Goto 2
If D<B:Then:D+1üD:Output(C,D-1,"
Output(C-1,D-1,"
End
If B-1=D:Goto 2
Goto 98
Lbl 2
EffEcr
If Á=1:Disp "UN ROUCOOL
If Á=2:Disp "UN RATTATA
If Á=3:Disp "UN CHENIPAN
If Áø4:Disp "SAUVAGE","APPARAIT!
If Á=4:Disp "UN DRESSEUR","VOUS PROVOQUE","EN DUEL!
Pause
EffEcr
Lbl 55
Menu("QUE FAIRE?","ATTAQUER",A,"FUIR",B
Lbl B
(áP0K(3)+1üáP0K(3
EffEcr
If Áø4:Then:Disp "VOUS AVEZ PRIS","LA FUITE!
Pause :EffEcr:End
If Á=4:Then:Disp "IMPOSSIBLE DE","PRENDRE LA","FUITE!
Pause :EffEcr:Goto 55
End
If Á=1:Goto 1
If Á=2:Goto 11
If Á=3:Goto 13
Lbl A
Disp "EN AVANT","PIKACHU!
Pause
EffEcr
If Á=4 et R=1:Disp "DRESSEUR:","EN AVANT","SALAMECHE!
If Á=4 et R=2:Disp "DRESSEUR:","EN AVANT","REPTINCEL!
If Á=4 et R=3:Disp "DRESSEUR:","EN AVANT","DRACAUFEU!
If Á=4:Pause
0üW
0üX
Lbl 3
EffEcr
If W=1:E-(entAl–at(1,14)+XüE
If W=2:E-(entAl–at(4,12)+XüE
If W=3:F+(entAl–at(5,8)+XüF
If W=4:entAl–at(1,5üX
If Á=1:Disp "ROUCOOL:
If Á=2:Disp "RATTATA:
If Á=3:Disp "CHENIPAN:
If Á=4 et R=1:Disp "SALAMECHE:
If Á=4 et R=2:Disp "REPTINCEL:
If Á=4 et R=3:Disp "DRACAUFEU:
Disp "VIES:
If E>0:Output(2,6,E
If E÷0:Output(2,6,"K.O
Output(7,1,"PIKACHU:
Output(8,1,"VIES:
Output(8,6,F
Pause
If W=0:Goto 6
If W=1:Then:Output(4,1,"PIKACHU A LANCE
Output(5,1,"ECLAIR!":End
If W=2:Then:Output(4,1,"PIKACHU A LANCE
Output(5,1,"FOUDRE!":End
If W=3:Then:Output(4,1,"PIKACHU GAGNE
Output(5,1,"DES PDV!
End
If W=4:Then:Output(4,1,"PIKACHU GAGNE
Output(5,1,"EN FORCE!
End:Pause
If E÷0:Then:EffEcr
If Á=1:Disp "ROUCOOL SAUVAGE
If Á=2:Disp "RATTATA SAUVAGE
If Á=3:Disp "CHENIPAN SAUVAGE
If Á=4 et R=1:Disp "SALAMECHE ENNEMI
If Á=4 et R=2:Disp "REPTINCEL ENNEMI
If Á=4 et R=3:Disp "DRACAUFEU ENNEMI
Disp "EST K.O!
Pause
If Á=4:Disp "
(áP0K(1)+1üáP0K(1
If Á=1:Goto 1
If Á=2:Goto 11
If Á=3:Goto 13
If Á=4:Then:6üA:8üB:Goto 15:End
End
0üW
Goto 3
Lbl 6
If Á=1:Then:Output(4,1,"ROUCOOL LANCE
Output(5,1,"TORNADE!
End
If Á=2:Then:Output(4,1,"RATTATA LANCE
Output(5,1,"MORSURE!
End
If Á=3:Then:Output(4,1,"CHENIPAN LANCE
Output(5,1,"CHARGE!
End
If Á=4 et R=1:Then:Output(4,1,"SALAMECHE LANCE
Output(5,1,"GRIFFE!
End
If Á=4 et R=2:Then:Output(4,1,"REPTINCEL LANCE
Output(5,1,"FLAMMECHE!
End
If Á=4 et R=3:Then:Output(4,1,"DRACAUFEU LANCE
Output(5,1,"RUGISSEMENT
End
Pause
If Á=1:F-entAl–at(1,10üF
If Á=2:F-entAl–at(1,7üF
If Á=3:F-entAl–at(2,11üF
If Á=4 et R=1:F-entAl–at(4,14üF
If Á=4 et R=2:F-entAl–at(8,18üF
If Á=4 et R=3:F-entAl–at(12,25üF
Output(8,6,"
If F>0:Output(8,6,F
If F÷0:Output(8,6,"K.O
Pause
If F÷0:Then:EffEcr:Disp "PIKACHU EST K.O!","VOUS AVEZ PERDU!
Pause :6üA:8üB:(áP0K(2)+1üáP0K(2
Goto 15:End
Lbl 45
Menu("QUE FAIRE?","ATTAQUES",40,"OBJETS",41,"FUIR",T
Lbl T
(áP0K(3)+1üáP0K(3
EffEcr
If Áø4:Then:Disp "VOUS AVEZ PRIS","LA FUITE!
Pause :End
If Á=1:Goto 1
If Á=2:Goto 11
If Á=3:Goto 13
If Á=4:Then:Disp "IMPOSSIBLE DE","PRENDRE LA","FUITE!
Pause :EffEcr:Goto 45:End
Lbl 40
Menu("ATTAQUES:","ECLAIR",R,"FOUDRE",S,"RETOUR",45
Lbl R
1üW
Goto 3
Lbl S
2üW
Goto 3
Lbl 41
Menu("OBJETS","VIE+",42,"FORCE+",43,"RETOUR",45
Lbl 42
3üW
Goto 3
Lbl 43
4üW
Goto 3
Autorisation : Membre
Nb de messages : 101
Inscrit le : Jeu 02 Jui 2011, 15:17
Posté le : Dim 18 Nov 2012, 18:58
Ouah Soul Polochon! T'as la foi dis donc!
Profite bien du jeu et amuse toi bien!
Il met venu dans l'idée de faire un programme Pokémon multijoueur qui utiliserait la force (le niveau) du Pikachu de ce programme pour le faire combattre contre un autre via le câble de liaison de calculatrice. Cela rajouterait un but supplémentaire à ce jeu.
Hélas je ne sais pas comment faire ce genre de programme mais je pense que c'est faisable car ce serait un jeu de tour par tour.
Autorisation : Membre
Nb de messages : 8
Inscrit le : Dim 18 Nov 2012, 21:15
Posté le : Lun 19 Nov 2012, 8:18
Code
Code
4üdim(áP0K
100+(áP0K(4))üF <---ici
Lbl 0
EffEcr
If (áP0K(1))-(áP0K(2))ù1:(áP0K(1))-(áP0K(2))üáP0K(4
If (áP0K(1))-(áP0K(2))<1:1üáP0K(4
If (áP0K(4))<16:1üR
que represente le signe á devant POK, il apparait plusieur fois et je ne sais pas ce qui signifie et comment on le trouve dans la calculette
please aider moi!!!!
Autorisation : Membre
Nb de messages : 8
Inscrit le : Dim 18 Nov 2012, 21:15
Posté le : Ven 23 Nov 2012, 7:28
Code
Output(7,1,"
Pause
Goto 0
Lbl 33
4üA:8üB
Lbl 1
1üÁ <---ici aussi c'est un petit L comme pour á? :8:
entAl–at(20,80)üE
EffEcr
For(C,2,7
For(D,2,15
Output(C,D,"*
Autorisation : Membre
Nb de messages : 12
Inscrit le : Mar 20 Nov 2012, 21:24
Posté le : Ven 23 Nov 2012, 12:52
J'ai oublié de parler de mes améliorat°:
-Plus de Pokemon du dresseur adverse
-Obtention de + de PV au centre (car il fallait aller sur stat et retourner au centre pour avoir tous les PV nécessaires)
-améliorat° d'attaque par niveau
-Augmentation de la Force+ (car si tu la réutilisé alors que X=5, tu pouvais obtenir X=1, "Pikachu perd en force")
Autorisation : Membre
Nb de messages : 101
Inscrit le : Jeu 02 Jui 2011, 15:17
Posté le : Ven 23 Nov 2012, 17:40
Certes mon programme peut être amélioré mais je me suis arrêté de l'améliorer pour une seule et bonne raison: il prenait de plus en plus de place
J'avais déjà vu le "bug" de FORCE+ mais je ne l'avait pas corrigé car sinon le Pikachu pouvait devenir surpuissant (mais je suis pas contre).
[en passant, on peut remarquer un petit "glitch" qui consiste à faire FORCE+ puis VIE+ ce qui agrandissait le nombre de vie rajouté par VIE, si on "désactive le bug" il faudrait alors enlever le +X de la ligne :
]
Je vais t'autoriser à publier (ici) tes améliorations, en espérant que tu es gardé le créateur d'origine (moi ) dans les crédits.
En disant "Il est ouvert à toutes améliorations" je pensais plus à des optimisations mais on va dire que ces genres d'améliorations vont faire l'affaire.
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Sam 24 Nov 2012, 10:42
Hélas certains caractères ne permettent pas l'infobulle à laquelle tu fais allusion en proposant de passer le pointeur de la souris sur le caractère.
Á = thêta
L'article que tu as indiqué (le miens ) contient effectivement la conversion de thêta.
---------------------- 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)
Autorisation : Membre
Nb de messages : 8
Inscrit le : Dim 18 Nov 2012, 21:15
Posté le : Mar 27 Nov 2012, 12:14
ausecour!!! j'ai termine de recopier... mais ca marche pas souf pour les credits, quitter et les stats mais je peux pas jouer!!!!! quand je lance jouer il m'affiche les hautes herbes pendant 1 secondes puis err:etiquette
Autorisation : Membre
Nb de messages : 646
Inscrit le : Mer 23 Mai 2012, 17:28
Posté le : Mar 27 Nov 2012, 17:34
Regarde si tu as mis tous les Lbl et les Goto. Puis, vérifie qu'ils ont une bonne syntaxe (même si je pense que ça t'aurait mis "erreur syntaxe", dans ce cas).
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Mer 28 Nov 2012, 23:55
Vérifie aussi le menu : il est possible d'avoir mal saisi une étiquette sans foirer le reste.
---------------------- 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)
Autorisation : Membre
Nb de messages : 8
Inscrit le : Dim 18 Nov 2012, 21:15
Posté le : Dim 02 Déc 2012, 19:37
effectivement il manquait quelques lbl ,mais apparament j'ai pas fermer la boucle du combat pokemon car lorsque je decide d'attaquer ou de fuir et que je choisi attaquer, le pokemon adverse attaque puis le progamme s'arrete sans effacer l'ecran j'en ai marre...
Autorisation : Membre
Nb de messages : 14
Inscrit le : Ven 19 Oct 2012, 17:41
Posté le : Dim 02 Déc 2012, 19:39
Code
Lbl A
Disp "EN AVANT","PIKACHU!
Pause
0üW
0üX
Lbl 3
EffEcr
If W=1:E-entAl–at(1,10üE
If W=2:E-entAl–at(2,8)+XüE
If W=3:F+entAl–at(5,8)+XüF
If W=4:entAl–at(1,3)üX
If Á=1:Disp "ROUCOOL:
If Á=2:Disp "RATTATA:
If Á=3:Disp "CHENIPAN:
Disp "VIES:
If E>0:Output(2,6,E
If E÷0:Output(2,6,"K.O
Output(7,1,"PIKACHU:
Output(8,1,"VIES:
Output(8,6,F
Pause
If W=0:Goto 6
If W=1:Then:Output(4,1,"PIKACHU A LANCE
Output(5,1,"ECLAIR!":End
If W=2:Then:Output(4,1,"PIKACHU A LANCE
Output(5,1,"FOUDRE!":End
If W=3:Then:Output(4,1,"PIKACHU GAGNE
Output(5,1,"DES PDV!
End
If W=4:Then:Output(4,1,"PIKACHU GAGNE
Output(5,1,"EN FORCE!
End:Pause
If E÷0:Then:EffEcr:
If Á=1:Disp "ROUCOOL SAUVAGE
If Á=2:Disp "RATTATA SAUVAGE
If Á=3:Disp "CHENIPAN SAUVAGE
Disp "EST K.O!
Pause
(áP0K(1)+1üáP0K(1
If Á=1:Goto 1
If Á=2:Goto 11
If Á=3:Goto 13:End
0üW
Goto 3
Lbl 6
If Á=1:Output(4,1,"ROUCOOL LANCE
If Á=2:Output(4,1,"RATTATA LANCE
If Á=3:Output(4,1,"CHENIPAN LANCE
If Á=1:Output(5,1,"TORNADE!
If Á=2:Output(5,1,"MORSURE!
If Á=3:Output(5,1,"CHARGE!
Pause
If Á=1:F-entAl–at(1,10)üF
If Á=2:F-entAl–at(1,7)üF
If Á=3:F-entAl–at(2,11)üF
Output(8,6,"
If F>0:Output(8,6,F
If F÷0:Output(8,6,"K.O
Pause
If F÷0:Then:EffEcr:Disp "PIKACHU EST K.O!","VOUS AVEZ PERDU!
Pause :6üA:8üB:(áP0K(2)+1üáP0K(2
Goto 15:End
Lbl 45
Menu("QUE FAIRE?","ATTAQUES",40,"OBJETS",41,"FUIR",T
Lbl T
(áP0K(3)+1üáP0K(3
EffEcr
Disp "VOUS AVEZ PRIS","LA FUITE!
Pause
If Á=1:Goto 1
If Á=2:Goto 11
If Á=3:Goto 13
Lbl 40
Menu("ATTAQUES:","ECLAIR",R,"FOUDRE",S,"RETOUR",45
Lbl R
1üW
Goto 3
Lbl S
2üW
Goto 3
Lbl 41
Menu("OBJETS","VIE+",42,"FORCE+",43,"RETOUR",45
le probleme doit se situe dans ce secteur selon ta description...
---------------------- Quand il est l'heure de programmer, c'est plus l'heure et quand c'est les cours de math, c'est l'heure!
! Ce n'est qu'un début de PoKéMoN, je l’améliorais peut être... Vous pouvez quand même m'en dire des nouvelles 
!
)
)
)
J'avais jamais remarqué!
) et je l'ai un peu modifie pour rajouter la fonction capturer qui ne sert strictement à rien ^^ , et voici donc comment j'ai fait:
) sa vos le cout! 
et comment on le trouve dans la calculette
