[Axe] Red Square

Bonjour à tous.
J'ai commencé à programmer le jeu du carré rouge. Si vous ne connaissez pas:
[Vous devez être inscrit et connecté pour voir ce lien]

Voilà mon code actuel:

Code:

:.SQUARE
:DiagnosticOff
:
:.My Square
:[007E7E7E7E7E7E00007E424242427E00→Pic1
:
:.Square 1
:[FEFEFEFEFEFEFE00FEFEFEFEFEFEFE00
:
:.Square 2
:[F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0
:
:.Square 3
:[00000000FFFFFFFF00000000FFFFFFFF
:
:.Square 4
:[0000FFFFFFFFFF000000FFFFFFFFFF00
:
:0→S
:
:32→Y+16→X
:1→A→B→D→E
:174→C→G
:110→F→H
:1→I→J→K→L→M→N→O→P
:10→U
:Repeat getKey(15)
:S+1→S
:!If S^U*100
:I*2→I
:J*2→J
:K*2→K
:L*2→L
:M*2→M
:N*2→N
:O*2→O
:P*2→P
:U*10→U
:End
:(getKey(1) and (Y≠56))-(getKey(4) and (Y≠0))*2+Y→Y
:(getKey(3) and (X≠88))-(getKey(2) and (X≠0))*2+X→X
:If A≤0 or (A≥176
:‾I→I
:End
:If B≤0 or (B≥112
:‾J→J
:If rand^2
:‾I→I
:End
:End
:If C≤0 or (C≥176
:‾K→K
:End
:If D≤0 or (D≥112
:‾L→L
:If rand^2
:‾K→K
:End
:End
:If E≤0 or (E≥176
:‾M→M
:End
:If F≤0 or (F≥112
:‾N→N
:If rand^2
:‾M→M
:End
:End
:If G≤0 or (G≥176
:‾O→O
:End
:If H≤0 or (H≥112
:‾P→P
:If rand^2
:‾O→O
:End
:End
:A+I→A
:B+J→B
:C+K→C
:D+L→D
:E+M→E
:F+N→F
:G+O→G
:H+P→H
:
:sub(DS
:Normal
:DispGraphrr
:Full
:End
:Output(0,0,S►Dec
:Pause 4800
:Return
:
:
:.Disp Square
:Lbl DS
:ClrDraw
:ClrDrawr
:sub(PO,X*2,Y*2,0
:sub(PO,A,B,16
:sub(PO,C,D,32
:sub(PO,E,F,48
:sub(PO,G,H,64
:Return
:
:
:
:.Point-On
:Lbl PO
:Pt-On(r1/2,r2/2,Pic1+r3
:Pt-On(r1/2,r2/2,Pic1+8+r3)r

Pour l'instant, le programme ne sait pas si on perd et il est loin d'être optimisé.
Si vous avez des propositions d'optimisations surtout n'hésitez pas.

Hum... Je joue au jeu (je fais un petit 15 secondes), et je reviens voir ton code en m'attendant à voir des Rect()... mais rien.
Bref, mettre des rectangles sous forme de tile, alors qu'il y aune commande toute faite pour simplifier la vie, ça c'est de la non-optimisation.

Un screen ?

Intéressant.

PS: J'ai fais 10 secondes.

Ah oui, j'ai pas penser à la fonction Rect :roll: .
Je modifie dès que je peux.

C'est vrai que c'est beaucoup plus pratique.

Je tenais à dire que ce projet n'était pas mort. Dès que je remet Axe Parser sur ma TI, je l'optimise et l'améliore.

6 mois plus tard ...

23 secondes...

Mon ancien PC étant mort, je n'ai plus les sources. Il faudra que je reprenne les sources dispo pour transférer sur ma TI. Et merci de me rappeler à l'ordre .