[Axe] Tape

→ **MyCalcs** profile · by **Hayleia** » 04 Nov 2012, 08:16

smixi wrote:Sinon je trouve pas de tutoriel au niveau des appVar.

Si tu parles un peu anglais, je te conseille celui-ci. Il ne parle pas que des appvars donc il te faut naviguer un peu mais il est très clair

→ **MyCalcs** profile · by **nikitouzz** » 04 Nov 2012, 11:47

par contre il y a plusieurs variables donc je ne vois pas l'utilitées à quoi sert X ?

→ **MyCalcs** profile · by **Hayleia** » 04 Nov 2012, 12:02

nikitouzz wrote:par contre il y a plusieurs variables donc je ne vois pas l'utilitées à quoi sert X ?

D'après ce que j'ai compris (j'ai peut-être mal compris aussi), X est un flag qui permet de sortir de deux boucles à la fois. Lorsque la condition de sortie est réalisée, X est mis à 1 et les deux "Repeat X=1 or qqch" terminent.

smixi wrote:Y'a un bug que je n'arrive pas à corriger, dans le menu, quand j'appuis sur 'Clr' dans le 'menu', ca lance une partie au lieu de quitter :/. Sinon je trouve pas de tutoriel au niveau des appVar. Merci d'avance.

En fait c'est pas un bug. Regarde ton code: après la boucle du menu, tu as le label MAX sans rien entre les deux. Donc quand tu appuies sur Clear, la boucle termine et le programme passe au label MAX.
Pour corriger ça, tu peux mettre un Return entre le End et le label MAX (pour que le programme quitte en sortie de boucle) ou faire comme nikitouzz a dit 3 posts plus haut

→ **MyCalcs** profile · by **nikitouzz** » 04 Nov 2012, 12:44

la variable X et plein d'autre trucs peuvent etre enlevee tiens je t'ai fais vite fais ce code la :

Code: Select all: :.ATAPE :fix 5 :data(47,0,95,47,47,65,32,32,0,32)->oBB :LBL B :Asm(EF4645) //sert a effacer l'ecran visible :clrdraw :text(1,,"1jouer)2option)3credit") :while 1 :returnIf getKey(15) :If getKey(18) :fix 4 :text(25,32,"SMIXI") :fix 5 :pause 3600 :End :Dispgraph :EndIf getKey(34) :0->S :500->T :while 1 :clrdraw :S++ :rand^5+1->Z :1->P :for(16) :circle({Z-1+oBB->r2},{r2+5},select(P,+1,P)) :Dispgraph :End :while 1 :text(44,30,T--Dec) :Dispgraph :EndIf getKey=Z or (T=0) or (Z=5 and getKey(9)) :End!If T :clrdraw :text(30,+2,"score:",Sdec) :while1 :dispgraph :EndIf getkey(9) or getkey(15) :Goto B

voila je pense qu'il est juste je ne l'ai pas tester...

→ **MyCalcs** profile · by **kindermoumoute** » 04 Nov 2012, 14:07

Il y a un chapitre sur les appvars et les autres variables de la calculatrice (qui se manipulent quasiment pareil) ici.

En tout cas c'est pas mal du tout.

→ **MyCalcs** profile · by **smixi** » 04 Nov 2012, 15:46

Merci kindermoumoute

.

D'après ce que j'ai compris (j'ai peut-être mal compris aussi), X est un flag qui permet de sortir de deux boucles à la fois. Lorsque la condition de sortie est réalisée, X est mis à 1 et les deux "Repeat X=1 or qqch" terminent.

Oui c'est ca.

Sinon pour les appvars, j'ai regardé ton lien et je ne comprenais pas pourquoi pendant 1h et demi je ne faisait que des ram clear : j’écrivais appvar a la place de faire 2nd+G ...

Kindermoumoute -> je suis ton tutoriel depuis le début, il est super !

→ **MyCalcs** profile · by **smixi** » 06 Nov 2012, 19:47

Nouvelle version comprenant les options et les Higscore, ainsi qu'une nouvelle mode de jeu : Survie ( la vitesse augmente peu a peu, il faut rester appuyer sur la touche jusqu’à ce que le cercle disparaissent).
J'ai trouver quelque optimisation que je n'ai pas encore réalisé :/

Code: Select all: :.ATAPE : :"vTAPHS"→Pic1HS :UnArchive Pic1HS :!If GetCalc(Pic1HS)→Θ : Return!If GetCalc(Pic1HS,20)→Θ : 5→{Θ} :0→{Θ+1} :0→{Θ+2} :0→{Θ+3} :1→{Θ+10} :End :... :{Θ}=Option temp :{Θ+1}=HS 500 :{0+2}=HS 1000 :{Θ+10}=Mode jeu :{Θ+3}=mode survie HS :A=aleat(1-5) :B=score :X=flag fin temp :G=temps :U=vitesse :V=regle vitesse :... :0→A→B→X→U→V :{Θ+10}?100→U : :.MENU :ClrDrawDispGraph :While 1 : Text(1,1,"1=JOUER)2=OPTION)3=REGLES") : .JOUER : If getKey(34) : ClrDrawDispGraph : Text(43,32,"3") : Pause 1800 : Text(43,32,"2") : Pause 1800 : Text(43,32,"1") : Pause 1800 : MAX() :End : :.OPTION :If getKey(26) : ClrDrawDispGraph :While 1 : Text(14,32,"TEMPS: : Text(42,32,"< ",{Θ}*100►Dec,"> ") : : If {Θ}>1 and getKey(2) : {Θ}-1→{Θ} : Pause 180 :End : :If {Θ}<25 and getKey(3) : {Θ}+1→{Θ} :Pause 180 :End : :If getKey(55) : 1-{Θ+10}→{Θ+10} :Pause 360 :End : :If {Θ+10} : 100→U :Text(42,45,"SURVIE") :Else :0→U :Text(42,45,"NORMAL") :End : :Text(15,45,"MODE:") :EndIf getKey(9) or getKey(15) : {Θ}*100→G :ClrDrawDispGraph :End : :.REGLES :If getKey(18) : ClrDrawDispGraph :Text(35,60,"SMIXI") :Pause 3200 :End : :.SCORE :If getKey(43) : ClrDrawDispGraph :Text(20,15,"NORMAL-500 : ",{Θ+1}►Dec) :Text(20,25,"NORMAL-1000 : ",{Θ+2}►Dec) :Text(20,35,"SURVIE : ",{Θ+3)►Dec) :Text(18,50,"APPUYER SUR ENTRER" :While 1 :EndIf getKey(9) or getKey(15) : ClrDrawDispGraph :End : :EndIf getKey(15) : :Archive Pic1HS :Return :.Fin du jeu : : : :. Fonction :.------------- :Lbl MAX :While 1 : AL() : TOU() : B++ :EndIf X=1 or getKey(15) : ClrDrawDispGraph : :.OPTI possible :If (B>{Θ+1}) and ({Θ}=5) and ({Θ+10}=0) : B→{Θ+1} :HS() :End :If (B>{Θ+2}) and ({Θ}=10) and ({Θ+10}=0) : B→{Θ+2} :HS() :End :If B>{Θ+3} and {Θ+10}=1 : B→{Θ+3} :HS() :End : :Text(30,32,"SCORE:",B►Dec) :Pause 1800 :While 1 :EndIf getKey(9) or getKey(15) : 0→X→A→B→V :{Θ}*100→G :{Θ+10}?100→U :{Θ+10}??0→U :ClrDrawDispGraph :Return : :.Touche :Lbl TOU : :Repeat X=1 or getKey(A) or getKey(A+4) or getKey(15) : Text(44,30,G--►Dec) : Pause 18 : G??1→X : : : If {Θ+10} and (getKey≠A or getKey≠A+4) : 1→X :End : :End :!If getKey(1) xor getKey(2) xor getKey(3) xor getKey(4) xor getKey(9) : 1→X :End :Return : :.Alea :Lbl AL : :∆List(47,0,95,47,47)→GDB1X :∆List(65,32,32,0,32)→GDB1Y :rand^5+1→A :.affichage des fleches :CER({A+GDB1X-1},{A+GDB1Y-1}) :Return : :Lbl CER :ClrDraw :.ViTEsse :If {Θ+10} : U>30?U-- :U≤30?V++ :V=5?0→V+U-1→U :End : :For(P,1,15) : Circle(r1,r2,P) : DispGraph : Pause 4+U :End :Return : :Lbl HS :Text(15,39,"NOUVEAU HIGHSCORE !" :

Sinon j'ai deux questions :
- si je fait {o}->{o+1} ca marche ?
- comment je fait pour mettre un score superieur a 255 dans une appvar ?

Merci !

→ **MyCalcs** profile · by **Hayleia** » 07 Nov 2012, 07:29

smixi wrote:- si je fait {o}->{o+1} ca marche ?

Bien sûr que ça marche

Pourquoi ça ne marcherait pas ?

smixi wrote:- comment je fait pour mettre un score superieur a 255 dans une appvar ?

Il faut utiliser des nombres de deux octets.
Multiplie par deux la taille de ton appvar.
Ensuite, si tes scores étaient dans {Θ}, {Θ+1} et {Θ+2}, mets-les à présent dans {Θ}^r, {Θ+2}^r et {Θ+4}^r (tu peux trouver ce r dans Angle).
C'est à dire qu'avant, le N^ième score était dans {N+Θ}, il est maintenant à {N*2+Θ}^r

→ **MyCalcs** profile · by **smixi** » 07 Nov 2012, 18:14

Bien sûr que ça marche
Pourquoi ça ne marcherait pas ?

Parce que parfois, quand je créais L'appvar, cela donnait d'autre valeur (150, 151 ) peut être erreur de ma part :/, mais j'ai tester comme ça et séparé, ça ne marchais que séparé.

J'ai le droit de mélanger valeur a 2 octets et valeur a 1 octet, ou mettre r veut dire au compilateur " tu dois lire cette octet avec celui qui suit" ?
Enfaite c'est parce que celui qui arrive a faire plus de 255 de score en "temps 500 ou 1000" doit être vraiment fort. Par contre pour le "temps 2500" et pour la "survie" c'est assez possible.

Merci.

→ **MyCalcs** profile · by **Hayleia** » 07 Nov 2012, 19:50

smixi wrote:J'ai le droit de mélanger valeur a 2 octets et valeur a 1 octet, ou mettre r veut dire au compilateur " tu dois lire cette octet avec celui qui suit" ?

Mettre le r dit au compilateur de lire cet octet avec celui qui suit MAIS les nombres sont stockés au format little-endian* donc tu ne risques pas d'avoir de problèmes avec tes pointeurs que tes scores soient inférieurs ou supérieurs à 255

*ce que je veux dire par là, c'est que 255 en mode 2 octets est stocké dans l'ordre "255,000" (et pas "000,255") donc que tu lises en mode 1 octet ou 2 octets, le compilateur lira dans tous les cas 255

(pareil pour tous les nombres inférieurs à 255, mais pour les nombres supérieurs évidemment, le deuxième octet n'est plus à 000)