Concours d'optimisation sur z80.

→ **MyCalcs** profile · by **nikitouzz** » 02 Aug 2012, 23:01

Comme je me suis dit que pendant les vacances, il n'y avait rien de special, je me suis permis de lance un petit concours sur Espace-TI ici

J’arrête de recevoir les optimisations lundi 6/08/2012 a 00h00, envoyez-moi vos codes le dimanche car le lundi ça sera trop tard, je les corrige le matin même et à 6-7 heure les resultat seront là

Il s'agit d'un concours d’optimisation, j'y ai inclus deux codes l'un en Axe et l'autre en TI-basic, le but étant de réduire leur taille sans que leur fonctionnement ne change, pour le premier tour.

(eh non il n'y a rien à gagner par contre j'aurais bien offert une nspire_cx cas mais c’était un peu cher ^^ )

Pour participer, envoyez-moi vos réponses en MP ou a cette adresse : sacha.stef@hotmail.fr
attention !!! il faut participer dans une seule catégorie, pas les deux !!!!

Axe : c'est un moteur de jeu donc le screen est plus bas.

Code: Select all: :[FF818181818181FF]→pic0 :[FFC3A59999A5C3FF]→pic1 :[0000000000000000]→pic9 :0→S :1→A :2→B :ClrDraw :Repeat getKey(15) :Pt-Change(A*8,B*8,Pic0) :DispGraph :Pt-Change(A*8,B*8,Pic0) :Pause 100 :If getKey(1) and (B≠7) and (pxl-Test(A*8,B+1*8)=0) :B+1→B :S++ :pause 250 :End :If getKey(2) and (A≠1) and (pxl-Test(A-1*8,B*8)=0) :A-1→A :S++ :pause 250 :End :If getKey(3) and (A≠11) and (pxl-Test(A+1*8,B*8)=0) :A+1→A :S+1→S :pause 250 :End :If getKey(4) and (B≠1) and (pxl-Test(A*8,B-1*8)=0) :B-1→B :S+1→S :pause 250 :End :If getKey(3) and (pxl-Test(A+1*8,B*8)=1) and (pxl-Test(A+2*8,B*8)=0) and (A≠10) and (pxl-Test(A+1*8+1,B*8+2)=0) :Pt-Off(A+1*8,B*8,Pic9) :Pt-Off(A+2*8,B*8,Pic1) :A+1→A :S+1→S :pause 250 :End :If getKey(2) and (pxl-Test(A-1*8,B*8)=1) and (pxl-Test(A-2*8,B*8)=0) and (A≠2) and (pxl-Test(A-1*8+1,B*8+2)=0) :Pt-Off(A-1*8,B*8,Pic9) :Pt-Off(A-2*8,B*8,Pic1) :A-1→A :S+1→S :pause 250 :End :If getKey(1) and (pxl-Test(A*8,B+1*8)=1) and (pxl-Test(A*8,B+2*8)=0) and (B≠6) and (pxl-Test(A*8+1,B+1*8+2)=0) :Pt-Off(A*8,B+1*8,Pic9) :Pt-Off(A*8,B+2*8,Pic1) :B+1→B :S+1→S :pause 250 :End :If getKey(4) and (pxl-Test(A*8,B-1*8)=1) and (pxl-Test(A*8,B-2*8)=0) and (B≠2) and (pxl-Test(A*8+1,B-1*8+2)=0) :Pt-Off(A*8,B-1*8,Pic9) :Pt-Off(A*8,B-2*8,Pic1) :B-1→B :S+1→S :pause 250 :End :End

un peu d'aide :

TI-basic : c'est un petit jeu tout simple qui est bien lourd pour sa simplicitee

Code: Select all: :Lbl 0:0→∟AD(1) :Menu("JEUX","jouer",8,"quitter",9) :Lbl 8 :ClrHome :200→D :Output(4,6,"00000") :Output(5,6,"0 0") :Output(6,6,"0 0") :Output(7,6,"0 0") :Output(8,6,"00000") :Lbl 1 :∟AD+1→∟AD :randInt(1,9)→A :Repeat D=0 :D-1→D :Output(1,1," ") :Output(1,1,D) :Output(2,1,∟AD(1)) :Output(6,8,A) :0→B :getKey→B :B+A→C :If C=93 or C=95 or C=97 or C=86 or C=88 or C=90 or C=79 or C=81 or C=83 :Goto 1 :End :ClrHome :Output(3,5,"SCORE:) :Output(4,6,∟AD(1)) :If ∟AD(1)>∟AC(1) :∟AD(1)→∟AC(1) :Pause :Goto 0 :Lbl 9 :ClrHome :Output(4,6,"sacha") :Output(1,1"")

pas besoin de screen pour celui la

voila voila ( phrase que je ne supporte pas entendre ^^ ) il faut m’optimiser tout ça pour le lundi 6/08 et envoyez-moi vos réponses dans une seule catégorie

→ **MyCalcs** profile · by **Hayleia** » 03 Aug 2012, 07:08

nikitouzz wrote:comme je me suis dit que pendant les vacances il n'y avait rien de speciales je me suis permis de lancee un petit concours sur Espace-TI ici

Mais pourquoi toujours sur Espace-TI ?
Pourquoi toujours sur le seul site qui:
- demande d'être enregistré pour voir certains topics (dont le tien)
- demande des informations inutiles pour s'enregistrer (fille ou garçon)
- demande d'autres informations d'utilité douteuse où il n'y a que le choix de l'embarras (ni CX CAS ni Prizm (Prizm qui n'est d'ailleurs pas non plus dans le choix des calculatrices possédées) dans le choix de la calculette favorite, ni la possibilité de voter pour plusieurs)
?
Et tu me diras que tu as cross posté sur TI Planet, oui, mais alors pourquoi avec 4 jours de retard ?

→ **MyCalcs** profile · by **nikitouzz** » 03 Aug 2012, 10:55

c'est critor qui m'a proposé de le mettre sur ti-planet je ne pensais pas que sa valait le coup
mais c'est vrai qu'il faut regler deux trois trucs sur espace ti je le dirai a alexis

→ **MyCalcs** profile · by **Hayleia** » 03 Aug 2012, 12:08

nikitouzz wrote:c'est critor qui m'a proposé de le mettre sur ti-planet je ne pensais pas que sa valait le coup
mais c'est vrai qu'il faut regler deux trois trucs sur espace ti je le dirai a alexis

Bien sûr que ça valait le coup. Il fallait poster ça bien plus tôt