Aide pour un programme en Axe Parser

programmes pour TI · by **jacques** » 31 Dec 2010, 13:49

Wellen wrote:(je vient d'éditer le post précedent)

@ Jacques : tu penses ? bon ça c'est pas un problème je vais voir ce que ça donne si je la réduis

EDIT: = plus petite, la balle est pas visible (sur calto hein) . En plus ça me fait changer tous mes pxl-Test(

A ce moment là, il vaut mieux que la balle garde sa taille actuelle.

Tu pourrais faire un casse-brique super sympa après avec ce programme.

→ **MyCalcs** profile · by **Wellen** » 31 Dec 2010, 14:19

Comment je fais ? parce que je n'arrive pas à ouvrir le source avec TIprogrameditor, une idée ?
Quand je l'aurais mis en ligne, faudra pas s'énerver parce qu'a mon avis, c'est optimisable à fond ^^ (et c'est un peu le bordel bazar dedans)

@jacques : c'est bon j'ai réussi à réduire la balle je posterais un screen mais je vais me mettre à ma philo là donc, fin d'aprem

Pour le casse-briques j'y ai pensé aussi

→ **MyCalcs** profile · by **kindermoumoute** » 31 Dec 2010, 14:20

hum... http://tiforge.info/ti_editor/

ici · by **Loulou 54** » 31 Dec 2010, 15:35

Wellen wrote:Comment je fais ? parce que je n'arrive pas à ouvrir le source avec TIprogrameditor, une idée ?
Quand je l'aurais mis en ligne, faudra pas s'énerver parce qu'a mon avis, c'est optimisable à fond ^^ (et c'est un peu le bordel bazar dedans)

@jacques : c'est bon j'ai réussi à réduire la balle je posterais un screen mais je vais me mettre à ma philo là donc, fin d'aprem
Pour le casse-briques j'y ai pensé aussi

La conscience de soi implique-t-elle la connaissance de soi ?

→ **MyCalcs** profile · by **Wellen** » 31 Dec 2010, 16:24

Loulou --> Tout à fait ça

→ **MyCalcs** profile · by **Wellen** » 31 Dec 2010, 17:02

kindermoumoute wrote:hum... http://tiforge.info/ti_editor/

Merci

Et hop voilà le code, pas d'arrêt cardiaque, surtout !

Show/Hide spoilerAfficher/Masquer le spoiler

Code: Select all: :.JPONG : :ClrDraw:ClrHome :sub(P) :Lbl 0 :[003C6E5E7E7E3C00]→Pic0 :25→B:43→A :‾1→L→H :40→X :0→Θ→U→V :15→Y:4→Z :2→D : :Text(36,0,"+PONG+") :Text(35,57,"by Wellen - 2010") :Text(9,8,"1. Jouer !") :Text(9,18,"2. Instructions") :Text(9,28,"3. Scores") :Text(9,38,"4. Complements") :Text(9,48,"5. Quitter") : :Repeat 1=Θ : If getKey(34) : rand^700+100→U : sub(1) : sub(P) : Goto 0 : 1→Θ :ElseIf getKey(26) : sub(2) : Goto 0 : 1→Θ :ElseIf getKey(18) : sub(3) : Goto 0 : 1→Θ :ElseIf getKey(35) : sub(4) : Goto 0 : 1→Θ :ElseIf getKey(27) : Goto F : 1→Θ :End :End : :Lbl 1 :ClrDraw :ClrHome :ref(X,60,Y,2):Pt-On(A,B,Pic0) :DispGraph :Output(4,0,"Appuyez"):Output(6,1,"sur") :Output(5,2,"[2ND]") :Repeat getKey(54) :End :Repeat B70 : If getKey(55) : Output(5,0,"PAUSE") : Output(5,2,"[2ND]"):Output(1,3,"pour reprendre") : Repeat getKey(54) : End :End :If D=2 :If getKey(2) and (X1) : X-D→X :ElseIf getKey(3) and (X+Y95) : X+D→X :End :ElseIf D=‾2 :If getKey(2) and (X+Y95) : X-D→X :ElseIf getKey(3) and (X1 : X+D→X :End :End : : : : :If A≤1 or A≥89 : ‾L→L :End :If B≤1 : ‾H→H :End : :If Pxl-Test(X+Z,59)=0 and (Pxl-Test(X,59)=1) :If L=1 : 65535→L :ElseIf L=2 : 65534→L :End :‾H→H :ElseIf Pxl-Test(X+Y-Z-1,59)=0 and (Pxl-Test(X+Y-1,59)=1) :If L=65535 : 1→L :ElseIf L=65534 : 2→L :End :‾H→H :ElseIf Pxl-Test(X+Z,59)=1 or Pxl-Test(X+Z+2,59)=1 or Pxl-Test(X+Z+4,59)=1 or Pxl-Test(X+Y-Z-1,59)=1 : ‾H→H :End : :If getKey(15) : 80→B :End : :If V=U : sub(B) :End : :V+1→V :A+L→A:B+H→B : :ClrDraw :ref(X,60,Y,2):Pt-On(A,B,Pic0):DispGraph :End :Output(5,3,"PERDU !") :Pause 2000 :ClrDraw :Return : : : : : :Lbl P :For(Θ,0,95) : Pxl-On(Θ,7):Pxl-On(95-Θ,56):DispGraph:End :For(Θ,0,64) : Pxl-On(5,Θ):Pxl-On(89,64-Θ):DispGraph:End :Pxl-Off(5,7) :Pxl-Off(89,56) :Pxl-Off(5,56) :Pxl-Off(89,7) :DispGraph :Return : :Lbl 2 :DispGraph :Text(20,0,"+Instructions+") :Text(6,10,"-Deplacez le palet avec") :Text(7,16,"les fleches.") :Text(6,26,"-[MODE] = Pause") :Text(6,36,"-[CLEAR] arrete la") :Text(7,42,"partie en cours.") :Text(42,57,"[2ND]=Retour") :Repeat getKey(54) :End :DispGraph :Return : :Lbl 3 :DispGraph :Return : :Lbl 4 :DispGraph :Text(20,0,"+Complements+") :Text(6,10,"-Edite on-calc.(TI84+)") :Text(6,20,"-Langage Axe Parser.") :Text(3,35,"jean.vintache(a)orange.fr") :Text(42,57,"[2ND]=Retour") :Repeat getKey(54) :End :DispGraph :Return : :Lbl B :rand^700+100→U :0→V :If D=‾2 : 2→D :ElseIf Y=9 : 15→Y:4→Z :End :For(Θ,0,4) : Pxl-On(89+Θ,5) : Pxl-On(89+Θ,45):End :Pxl-On(89,6):Pxl-On(93,6):Pxl-On(89,44):Pxl-On(93,44) :DispGraph :rand^5+49→T :If T=53 : Pt-On(80,20,[00F286E282828700]) :ElseIf T=52 : Pt-On(80,20,[00F689E182848F00]) :ElseIf T=51 : Pt-On(80,20,[00F689E182818906]) :ElseIf T=50 : Pt-On(80,20,[00F286EA8F828200]) :ElseIf T=49 : Pt-On(80,20,[00F784E781818700]) :End :For(Θ,0,38) : Pxl-On(90,Θ+6) : Pxl-On(91,Θ+6) : Pxl-On(92,Θ+6) :End :DispGraph :For(Θ,0,38) : Pxl-Off(90,Θ+6):Pxl-Off(91,Θ+6):Pxl-Off(92,Θ+6):DispGraph : Pause 50 : If getKey(T) : 0→V : Return :End :End :rand^2→W :If W=0 : ‾2→D :Output(0,0,"Inversion des fleches") :ElseIf W=1 : 9→Y:1→Z :Output(0,0,"Palet retreci") :End :Pause 800 :Return : : : :Lbl F :For(Θ,0,32) : For(A,0,95) : Pxl-On(A,Θ) : Pxl-On(A,64-Θ) : End : DispGraph :End :For(Θ,0,32) : For(A,0,95) : Pxl-Off(A,32-Θ):Pxl-Off(A,32+Θ):End : DispGraph :End

→ **MyCalcs** profile · by **tama** » 01 Jan 2011, 14:36

'faudrait que je fasse un pseudo-parser de code TI-Basic un jour pour en faire un code coloré (à moins que ça existe déjà ?) ...
Pour le code, ça a pas l'air d'être trop crade à part les goto/lbl que tu peux certainement réduire (je l'ai lu en diagonale), mais merci de l'avoir mis en ligne

→ **MyCalcs** profile · by **kindermoumoute** » 01 Jan 2011, 14:40

Pour le code, je verrai ça… plus tard

@tama : ça existe déjà, en ligne ! Sourcecoder chez cemetech je crois, jettes un coup d'œil.

→ **MyCalcs** profile · by **tama** » 01 Jan 2011, 14:44

effectivement, je me disais bien avoir déjà vu ça quelque part

→ **MyCalcs** profile · by **Wellen** » 01 Jan 2011, 14:51

tama wrote:Pour le code, ça a pas l'air d'être trop crade à part les goto/lbl que tu peux certainement réduire (je l'ai lu en diagonale), mais merci de l'avoir mis en ligne

Ca doit être la boucle du menu principale je pense ^^
Bah je savais pas trop comment m'en sortir, alors j'ai balancé une boucle sans fin

( qui se finit quand même au cas où, mais le 1="téta" n'est jamais atteint en fait)

J'ai apporté quelques modifications au code, mais c'est pas trop important (surtout du texte pour les instructions concernant les bonus, et je vais changer le Pt-On en Pt-Off du sprite-bonus Fquelquechose pour effacer derrière au cas où la balle se superpose)

Hm quelqu'un connaitrait l'équivalent de la fonction partInt( en Axe ? C'est pour le score, parce que je compte pas rajouter 1 à chaque passage (plutot 0.001, et afficher la partie entière)