Posté le 02/10/2014 19:01
Planète Casio v4.3 © créé par Neuronix et Muelsaco 2004 - 2024 | Il y a 199 connectés | Nous contacter | Qui sommes-nous ? | Licences et remerciements
Planète Casio est un site communautaire non affilié à Casio. Toute reproduction de Planète Casio, même partielle, est interdite.
Les programmes et autres publications présentes sur Planète Casio restent la propriété de leurs auteurs et peuvent être soumis à des licences ou copyrights.
CASIO est une marque déposée par CASIO Computer Co., Ltd
Citer : Posté le 02/10/2014 19:02 | #
C'est quand une liste ou un matrice est trop petite
Citer : Posté le 02/10/2014 19:03 | #
Ce qui veut dire ? (Je débute en Casio ) C'est modifiable/Réparable ?
Citer : Posté le 02/10/2014 19:04 | #
Oui c'est modifiable mais il nous faut le code :/
Citer : Posté le 02/10/2014 19:04 | #
Hum, je peux récupérer le code depuis FA-124 ?
Ajouté le 02/10/2014 à 19:08 :
Ha, ça y'est je l'ai !
Voilà :
'By LancelotÙ
'Version 1.02Ù
Norm 1Ù
"###E5A7#E5A7#E5A7##E5A5##E5A7####E5A7##E5A5#E5A7##E5A7#E5A7###E5A7#E5A7#E5A7####E5A7#E5A7#E5A7#E5A7#E5A7#E5A7#E558#E5A7#E5A7#E5A7#E5A7##E5A7#E5A7#E5A7":" ":" ":"#E5A7#E5A7#E5A7#E5A7##E5A7#E5A7#E5A7#E5A7#E5A7#E5A7 #E6C1#E5A7####E5A7#E5A7#E5A7###E5A7#E5A7##E5A7#E5A5##E5A7####E5A7##E5A5##E5A7#E5A7#E558#"Ù
0ãA~Z:1ãC:1ãDÙ
"1234567890aAbBcCdDeEfFgGhHiIjJkKlLmMnNoOpPqQrRsStTuUvVwWxXyYzZ "ãStr 5Ù
"Lancelot"ãStr 4Ù
"Production"ãStr 3Ù
StrLen(Str 4)ãLÙ
For 1ãA To 40Ù
Getkey=25×Goto FÙ
RanBin#(1,10)ãBÙ
Locate B+10,4,StrMid(Str 3,B,1)Ù
If A<25Ù
Then RanBin#(1,10)ãBÙ
Locate B+10,4," "Ù
Locate B+11,4,StrMid(Str 3,B+1,1)Ù
IfEndÙ
If DÉLÙ
Then RanBin#(1,64)ãBÙ
StrMid(Str 5,B,1)ãStr 6Ù
If C=5Ù
Then 0ãCÙ
StrMid(Str 4,D,1)ãStr 6Ù
IfEndÙ
Locate 9-L+D,4,Str 6Ù
C=0×D+1ãDÙ
C+1ãCÙ
IfEndÙ
NextÙ
Lbl FÙ
Locate 2,4,Str 4Ù
Locate 11,4,Str 3Ù
For 1ãA To 800Ù
NextÙ
DoÙ
LpWhile Not GetkeyÙ
0ãA~ZÙ
1ãäÙ
Lbl DÙ
ClrTextÙ
" #E6C1#E5A5#E5A7#E5A7#E5A7PacºMan#E5A7 #E558 #E617 "Ù
Locate 4,7,"#E6C1 By Lancelot #E5A5"Ù
Locate 6,3,"#E69A ºJouerº #E69B"Ù
Locate 8,4,"Options"Ù
Locate 8,5,"Quitter"Ù
3ãAÙ
0ãGÙ
DoÙ
If GÙ
Then Locate 6,A," "Ù
Locate 16,A," "Ù
IfEndÙ
A-(G=28)(AÈ3)+(G=37)(AÈ5)ãAÙ
Locate 6,A,"#E69A"Ù
Locate 16,A,"#E69B"Ù
For 1ãC To 40Ù
NextÙ
DoÙ
GetkeyãGÙ
LpWhile Not GÙ
G=68×BreakÙ
LpWhile GÈ31Ù
ClrTextÙ
G=68×Goto OÙ
A=3×Goto JÙ
If A=5Ù
Then ClrList7Ù
ClrList8Ù
""ãStr 1Ù
ClrTextÙ
"###E5A7#E5A7#E5A7##E5A5##E5A7####E5A7##E5A5#E5A7##E5A7#E5A7###E5A7#E5A7#E5A7####E5A7#E5A7#E5A7#E5A7#E5A7#E5A7#E558#E5A7#E5A7#E5A7#E5A7##E5A7#E5A7#E5A7#E5A7##E5A7#E5A7#E558#E5A7#E5A7##E5A7#-##E5A7##E5A7##E5A7#E5A7#E5A7##E5A7####E5A7###E5A7##E5A7##E558##E5A7##E5A7###E5A7####E5A7##E5A7#E5A7#E5A7##E5A7##E5A7####E5A7##E5A7#E5A7#E5A7#E5A7#E5A7##E5A7#E5A7#E5A7#E5A7##E5A7#E5A7#E5A7#E5A7#E5A7#E5A7 #E6C1#E5A7####E5A7#E5A7#E5A7###E5A7#E5A7##E5A7#E5A5##E5A7####E5A7##E5A5##E5A7#E5A7#E558##"Ù
Locate 7,4,"A bient#E515t"Ù
Locate 2,7,"Lancelot production"Ù
StopÙ
IfEndÙ
Lbl OÙ
Mat P[1,2ãDÙ
" #E6C1#E5A5#E5A7#E5A7#E5A7PacºMan#E5A7 #E558 #E617 "Ù
Locate 6,3,"Difficult#E60A:1"Ù
Locate 7,4,"High score"Ù
Locate 8,5,"ºAide ?º"Ù
Locate 9,6,"Retour"Ù
Locate 17,3,DÙ
3ãAÙ
3ãIÙ
20ãJÙ
0ãGÙ
DoÙ
G×Locate I,A," "Ù
G×Locate J,A," "Ù
A-(G=28)(AÈ3)+(G=37)(AÈ6)ãZÙ
If AÈZÙ
Then I+(G=37)-(G=28)ãIÙ
J-(G=37)+(G=28)ãJÙ
IfEndÙ
ZãAÙ
Locate I,A,"ã"Ù
Locate J,A,"#E690"Ù
A=3×1+MOD(D-(G=38)+(G=27)-1,3ãDÙ
Locate 17,3,DÙ
DoÙ
GetkeyãGÙ
LpWhile Not GÙ
DãMat P[1,2Ù
G=47×BreakÙ
LpWhile GÈ31 Or A=3Ù
ClrTextÙ
G=47×6ãAÙ
A=6×Goto DÙ
If A=5Ù
Then Lbl 9Ù
ClrTextÙ
Menu "#E69A#E69AAide de PacºMan#E69B#E69B","ººººAccueilººººº",1,"ººD#E60Aplacementsºº",4,"ººMode de jeuººº",3,"ºººDifficult#E60Aººº",7,"ºCalcul du score",2,"ºFiche technique",5,"ººººCr#E60Aditsººººº",6,"ººººRetourºººººº",DÙ
Lbl 1Ù
" #E6C1#E5A5#E5A7#E5A7#E5A7PacºMan#E5A7 #E558 #E617"Ù
" "Ù
" Bienvenue #E601 toute et #E601 tous dans cenouveau PacºManpar Lancelot."Ø
ClrTextÙ
" #E6C1#E5A5#E5A7#E5A7#E5A7PacºMan#E5A7 #E558 #E617"Ù
" "Ù
" Alors pr#E60Aparezºvouspour une extraºordinaire exp#E60Arience."Ø
ClrTextÙ
" #E6C1#E5A5#E5A7#E5A7#E5A7PacºMan#E5A7 #E558 #E617"Ù
" "Ù
" "Ù
"Bonne chance #E601 tous ·!·"Ø
Goto 9Ù
Lbl 2Ù
ClrTextÙ
" #E6C1#E5A5#E5A7#E5A7#E5A7PacºMan#E5A7 #E558 #E617"Ù
" "Ù
"Calcul du score:"Ù
"Fant#E615me ã 80pts"Ù
"Super PacºGom ã 50ptsPacºGom ã 10pts"Ø
Ù
Goto 9Ù
Lbl 3Ù
ClrTextÙ
" #E6C1#E5A5#E5A7#E5A7#E5A7PacºMan#E5A7 #E558 #E617"Ù
" "Ù
"Mode aventure:"Ù
" Vous d#E60Abloquez desniveaux lorsque vousgagnez un niveau."Ø
ClrTextÙ
" #E6C1#E5A5#E5A7#E5A7#E5A7PacºMan#E5A7 #E558 #E617"Ù
" "Ù
"Mode arcade:"Ù
"Vous avez 3 vies pourr#E60Aussir un niveau etpasser au suivant."Ø
Goto 9Ù
Lbl 4Ù
ClrTextÙ
" #E6C1#E5A5#E5A7#E5A7#E5A7PacºMan#E5A7 #E558 #E617"Ù
" "Ù
"REPLAY: Se d#E60Aplacer EXIT: Pause"Ø
" "Ù
" Lorsque l'on vas enhaut, on peut seretrouver en bas,idempour droite gauche etinversement."Ø
Goto 9Ù
Lbl 5Ù
ClrTextÙ
" #E6C1#E5A5#E5A7#E5A7#E5A7PacºMan#E5A7 #E558 #E617"Ù
" "Ù
" Ce jeu utilise lamatrice P commesauvegarde."Ø
" #E6C1#E5A5#E5A7#E5A7#E5A7PacºMan#E5A7 #E558 #E617"Ù
" "Ù
" Prenez garde #E601 nepas l'effacer si vousvoulez garder vosrecords."Ø
Goto 9Ù
Lbl 6Ù
ClrTextÙ
" #E6C1#E5A5#E5A7#E5A7#E5A7PacºMan#E5A7 #E558 #E617"Ù
" "Ù
" Jeu PacºMan parLancelot en 2013"Ù
" Inspir#E60A du c#E60Al#E609brePacºMan."Ø
Goto 9Ù
Lbl 7Ù
ClrTextÙ
" #E6C1#E5A5#E5A7#E5A7#E5A7PacºMan#E5A7 #E558 #E617"Ù
" "Ù
"Difficult#E60A:"Ù
" La difficult#E60A faitvarier le nombre defant#E615mes."Ø
ClrTextÙ
" #E6C1#E5A5#E5A7#E5A7#E5A7PacºMan#E5A7 #E558 #E617"Ù
" "Ù
"Difficult#E60A:"Ù
"1:Facile ã 2 Fant#E615mes2:Moyen ã 3 Fant#E615mes3:Dur ã 4 Fant#E615mes"Ø
Goto 9Ù
Goto DÙ
IfEndÙ
If A=4Ù
Then " #E6C1#E5A5#E5A7#E5A7#E5A7PacºMan#E5A7 #E558 #E617 "Ù
For 1ãC To 5Ù
Locate 1,C+2,"Niveau :"Ù
Locate 8,C+2,CÙ
Locate 12,C+2,Mat P[1,C+2Ù
NextÙ
DoÙ
LpWhile GetkeyÈ31Ù
ClrTextÙ
" #E6C1#E5A5#E5A7#E5A7#E5A7PacºMan#E5A7 #E558 #E617 "Ù
For 1ãC To 5Ù
Locate 1,C+2,"Niveau :"Ù
Locate 8,C+2,C+5Ù
Locate 12,C+2,Mat P[1,C+7Ù
NextÙ
DoÙ
LpWhile GetkeyÈ31Ù
ClrTextÙ
" #E6C1#E5A5#E5A7#E5A7#E5A7PacºMan#E5A7 #E558 #E617 "Ù
0ãEÙ
For 3ãC To 12Ù
E+Mat P[1,CãEÙ
NextÙ
For 3ãC To 5Ù
Locate 3,C,"******************"Ù
NextÙ
Locate 3,4,"* Total : *"Ù
Locate 13,4,EÙ
DoÙ
LpWhile GetkeyÈ31Ù
Goto DÙ
IfEndÙ
Lbl JÙ
5ãV~WÙ
"#E558#E617#E6C1#E6C2#E6C4#E6C3"ãStr 2Ù
ClrTextÙ
" #E6C1#E5A5#E5A7#E5A7#E5A7PacºMan#E5A7 #E558 #E617 #E5A7#E5A7#E5A7#E5A7#E5A7#E5A7#E5A7#E5A7#E5A7#E5A7#E5A7 #E5A7#E5A7#E5A7#E5A7#E5A7#E5A7#E5A7#E5A7#E5A7#E5A7#E5A7 #E5A7#E5A7#E5A7#E5A7#E5A7#E5A7#E5A7#E5A7#E5A7#E5A7#E5A7 #E5A7#E5A7#E5A7#E5A7#E5A7#E5A7#E5A7#E5A7#E5A7#E5A7#E5A7 #E5A7#E5A7#E5A7#E5A7#E5A7#E5A7#E5A7#E5A7#E5A7#E5A7#E5A7 #E5A7#E5A7#E5A7#E5A7#E5A7#E5A7#E5A7#E5A7#E5A7#E5A7#E5A7"Ù
Locate 13,3,"Mode:"Ù
Locate 12,4,"#E6A3ºAventure"Ù
Locate 13,5,"ºArcade"Ù
Locate 13,6,"ºRetour"Ù
4ãAÙ
RanBin#(1,11ãIÙ
RanBin#(1,6ãJÙ
Locate I,J+1,"#E6A3"Ù
IãM:JãNÙ
DoÙ
RanBin#(0,1ãEÙ
RanBin#(1,9ãFÙ
F=2×1+MOD(I-2E,11)ãMÙ
F=4×1+MOD(J-2E,6)ãNÙ
If MÈI Or NÈJÙ
Then Locate I,J+1," "Ù
MãI:NãJÙ
Locate I,J+1,StrMid(Str 2,E+F+1,1)Ù
IfEndÙ
If GÙ
Then Locate 12,A," "Ù
A-(G=28)(AÈ4)+(G=37)(AÈ6)ãAÙ
Locate 12,A,"#E6A3"Ù
For 1ãG To 50Ù
NextÙ
IfEndÙ
GetkeyãGÙ
G=47×BreakÙ
LpWhile GÈ31Ù
G=47×Goto DÙ
A=6×Goto DÙ
If A=4Ù
Then ClrTextÙ
" #E6C1#E5A5#E5A7#E5A7#E5A7PacºMan#E5A7 #E558 #E617 "Ù
Locate 5,4,"Niveau(1ã ):"Ù
Locate 18,4,äÙ
Locate 14,4,Mat P[1,1]Ù
Locate 18,3,"#E69C"Ù
Locate 18,5,"#E69D"Ù
DoÙ
ä+(G=28)-(G=37)ãäÙ
1+MOD(ä-1,Mat P[1,1]ãäÙ
Locate 19,4," "Ù
Locate 18,4,äÙ
If ä>9Ù
Then Locate 19,3,"#E69C"Ù
Locate 19,5,"#E69D"Ù
Else Locate 19,3," "Ù
Locate 19,5," "Ù
IfEndÙ
For 1ãA To 50Ù
NextÙ
DoÙ
GetkeyãGÙ
LpWhile Not GÙ
G=47×Goto DÙ
LpWhile GÈ31Ù
Lbl IÙ
äãªÙ
ClrTextÙ
Locate 4,4,"#E5A7º- Niveau -º#E5A7"Ù
Locate 15,4,ªÙ
For 1ãC To 50Ù
NextÙ
For 1ãZ To 100Ù
GetkeyãGÙ
G=47×Goto DÙ
G=31×BreakÙ
NextÙ
Prog "~PAC-MAP"Ù
Prog "~PAC+MAN"Ù
G=47×Goto DÙ
If GÈ1Ù
Then For 1ãD To 15Ù
Locate A,B," "Ù
Locate A,B,"#E59B"Ù
For 1ãC To 25Ù
NextÙ
Locate A,B," "Ù
Locate A,B,"+"Ù
For 1ãC To 25Ù
NextÙ
Locate A,B," "Ù
Locate A,B,"À"Ù
For 1ãC To 25Ù
NextÙ
NextÙ
IfEndÙ
ClrTextÙ
ªãäÙ
Locate 9,2,"Gagn#E60A"Ù
GÈ1×Locate 7,2,"Game over"Ù
Locate 6,4,"***********"Ù
Locate 6,7,"***********"Ù
Locate 6,5,"* Score : *"Ù
Locate 6,6,"* *"Ù
O-1ãOÙ
80O+50N+10MãSÙ
For 0ãH To S Step 10Ù
Locate 10-(S>999),6,HÙ
HÊMat P[1,ª+2×Locate 3,3,"New high score ·!··!· "Ù
NextÙ
Locate 10-(S>999),6,SÙ
DoÙ
LpWhile GetkeyÈ31Ù
ClrTextÙ
"Score :"Ù
" "Ù
"Vous avez mang#E60A :"Ù
"º 0 Pacºgoms"Ù
"º 0 Super pacºgoms"Ù
"º 0 Fant#E515mes"Ù
Locate 1,2,"High score :"Ù
Locate 13,2,Mat P[1,ª+2Ù
Locate 8,1,SÙ
For 1ãH To SÙ
HÉM×Locate 4-(H>9),4,HÙ
HÉN×Locate 4,5,HÙ
HÉO×Locate 4-(H>9),6,HÙ
H>O×H>N×H>M×BreakÙ
NextÙ
Mat P[1,1Ù
ªÊAnsתãMat P[1,1Ù
If SÊMat P[1,ª+2Ù
Then SãMat P[1,ª+2Ù
Locate 1,2,"New high score ·!· "Ù
IfEndÙ
DoÙ
LpWhile GetkeyÈ31Ù
GÈ1×Goto DÙ
ä+1ãäÙ
ª=10×Goto DÙ
Goto IÙ
IfEndÙ
If A=5Ù
Then 3ãaÃÙ
0ãaÄÙ
1ãbÂÙ
0ãbÃÙ
DoÙ
bÂ=1×3ãaÃÙ
bÂ=1×RanBin#(1,10)ãªÙ
bÂ=1×bÃ+1ãbÃÙ
ClrTextÙ
Locate 4,4,"#E5A7º- Niveau -º#E5A7"Ù
Locate 15,4,ªÙ
Locate 1,7,"Il vous reste vies"Ù
Locate 15,7,aÃÙ
For 1ãC To 50Ù
NextÙ
For 1ãZ To 100Ù
GetkeyãGÙ
G=31×BreakÙ
NextÙ
Prog "~PAC-MAP"Ù
Prog "~PAC+MAN"Ù
G=47×Goto DÙ
GãbÂÙ
0ãDÙ
bÂÈ1×aÃ-1ãaÃÙ
If bÂÈ1Ù
Then For 1ãD To 15Ù
Locate A,B," "Ù
Locate A,B,"#E59B"Ù
For 1ãC To 25Ù
NextÙ
Locate A,B," "Ù
Locate A,B,"+"Ù
For 1ãC To 25Ù
NextÙ
Locate A,B," "Ù
Locate A,B,"À"Ù
For 1ãC To 25Ù
NextÙ
NextÙ
IfEndÙ
ClrTextÙ
ªãäÙ
Locate 9,2,"Gagn#E60A"Ù
bÂÈ1×Locate 7,2,"Game over"Ù
Locate 6,4,"***********"Ù
Locate 6,7,"***********"Ù
Locate 6,5,"* Score : *"Ù
Locate 6,6,"* *"Ù
80O+50N+10MãSÙ
For 0ãH To S Step 20Ù
Locate 10-(S>999),6,HÙ
HÊMat P[1,ª+2×Locate 3,3,"New high score ·!··!· "Ù
NextÙ
Locate 10-(S>999),6,SÙ
S+aÄãaÄÙ
DoÙ
LpWhile GetkeyÈ31Ù
ClrTextÙ
If aÃ=0Ù
Then Locate 4,2,"****************"Ù
Locate 4,3,"* Score final: *"Ù
Locate 4,4,"* *"Ù
Locate 9,4,aÄÙ
If aÄ>Mat P[1,13Ù
Then aÄãMat P[1,13Ù
Locate 3,1,"New high score ·!··!· "Ù
IfEndÙ
Locate 4,5,"*Niveaux faits:*"Ù
Locate 4,6,"* *"Ù
Locate 10,6,bÃÙ
Locate 4,7,"****************"Ù
For 1ãA To 500Ù
NextÙ
DoÙ
LpWhile GetkeyÈ31Ù
IfEndÙ
LpWhile aÃÊ1Ù
Goto DÙ
IfEndÙ
Ajouté le 02/10/2014 à 19:10 :
Et le bouton Replay m'indique que l'erreur vient de la ligne : Locate 14,4,Mat P [1,1]
Citer : Posté le 02/10/2014 19:14 | #
Il est recommandé de faire un RESET de sa calculatrice avant chaque installation.
Pour créer la matrice P et les infos qui vont dedans, tu doit utiliser le prog "PAC-INST" et lui dire que tu veux l'installer
La sauvegarde se fait sur la Matrice P.
Tu peux effacer le reste (listes strings, ...) et le prog d'installation
Lance PAC-INST
Citer : Posté le 02/10/2014 19:15 | #
"Un reset de la calculatrice" = Remise à 0 ?
Citer : Posté le 02/10/2014 19:16 | #
Non non pas la peine je pense
(Reset c'est le bouton derriere)
Citer : Posté le 02/10/2014 19:19 | #
Ah c'est bon, ça fonctionne, et donc non, ça ne reset pas (Ouf )
Et bien 2 sujets résolus en quelques minutes, y'a pas à dire, planète Casio est le top du top, vous êtes géniaux !
Grand merci à vous tous, continuez comme ça !