Evolution du Projet:
- Menu: 100%
- Enregistrement d'un reccord: 0%
- Graphisme du Snake: 40%
* G?rer des "billes": 0%
* G?rer la "queue du Snake": 60%
Langues: Fran?aise / Anglaise
Pour plus de descriptions t?l?charger le fichier zip et contactez-moi.
Ouai ce que je veux surtout pas faire et a ce niveau autant pas utiliser Isz et Dsz et refaire tout le code, je trouverai une solution pour compresser tout ça dans une ou deux variables.
ça peut prendre du temps pour trouver le code et la formule magique.
Mais sinn donner moi juste une petite impression, et voir si ça marche sur des graphs autre que la G100.
BG-None
AxesOff
ClrGraph
20->A
20->B
27->K
Lbl C
ClrGraph
ViewWindow 1,64,1,1,32,1
Text 2,5,"SCORE:"
F-Line 2.5,2.5,61,2.5
F-Line 61,2.5,61,27.5
F-Line 61,27.5,2.5,27.5
F-Line 2.5,27.5,2.5,2.5
Lbl D
Do
GetKey->S
S différent de 0=>S->K
K=27=>Goto F
K=37=>Goto H
K=38=>Goto E
K=28=>Goto G
LpWhile Ans=0
Goto D
Lbl E
Do
GetKey->S
S différent de 0=>S->K
K=38=>Dsz B
B < ou = 3=>61->B
F-Line B-0.5,A,B-0.5,A-1
F-Line B-1,A,B-1,A-1
K=28 Or K=37=>Goto D
LpWhile Ans=0
Goto E
Lbl F
Do
GetKey->S
S différent de 0=>S->K
K=27=>Isz B
B superieur ou = à 61.5=>3->B
F-Line B-0.5,A,B-0.5,A-1
F-Line B,A,B,A-1
K=37 Or K=28=>Goto D
LpWhile Ans=0
Goto F
Lbl G
Do
GetKey->S
S différent de 0=>->K
K=28=>Isz A
A supérieur ou = à 28=>3->A
F-Line B,A-0.5,B-1,A-0.5
F-Line B,A,B-1,A
K=27 Or K=38=>Goto D
LpWhile Ans=0
Goto G
Lbl H
Do
GetKey->S
S différent de 0=>S->K
K=37=>Dsz A
A [Inférieur ou =] 2.5=>27->A
F-Line B,A+0.5,B-1,A+0.5
F-Line B,A,B-1,A
K=38=>Goto J
K=27=>Goto I
LpWhile Ans=0
Goto H
Lbl I
Do
GetKey->S
S différent de 0=>S->K
K=27->Isz B
B supérieur ou = 61.5=>3->B
F-Line B-0.5,A,B-0.5,A+1
F-Line B,A,B,A+1
K=37 Or K=28=>Goto D
LpWhile Ans=0
Goto I
Lbl J
Do
GetKey->S
S différent de 0=>S->K
K=38=>Dsz B
B inférieur ou = 2=>60->B
F-Line B+1,A,B+1,A+1
F-Line B+0.5,A,B+0.5,A+1
K=28 Or K=37=>B+1.5->B
K=28 Or K=37=>Goto D
LpWhile Ans=0
Goto J
Sinn pour les goto j'ai pas trop le choix ça permet d'alléger le programme en répartissant les mouvement sur plusieurs Label, ça accélere le snake par 3.
Sinn Isz, Dsz, Lbl et Goto sont des boucles. Plus tu mets d'infos dans une boucle plus elle est longue a tourner.
Donc les goto ici sont obligatoire. ça permet au lieu de mettre 20 lignes dans une grande boucle. Dans mettre 5 à la place sur pls Label. Fais moi confiance c'est testé et retesté...
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