Je ne vais pas te faire du bout de code par bout de code, mais j'ai trouvé une méthode pas trop mal pour le déplacement de mes worms par exemple :
:If getKey(2)
:.Si il y a un déplacement, alors on inverse A
:1-A=>A
:Pt-On(X,Y,A*8+Pic1
:.Quand A vaut 0, c'est le pied gauche en avant, et quand il vaut 1, c'est le pied droit en avant (par exemple)
:Else
:Pt-On(X,Y,Pic2
:.Les deux pieds collés
:End
C'est juste pour donner des idées, mais cherche par toi même le meilleur algo adapté à la situation.

If getKey-1=>F<5 and (F>0
F=>E
EndPar exemple.

Ok, if i've time, i'll post commented code.

Sorry, first time I do it.

I have revised my calcul: in fact all the screens shown above was displaying no more than 7 levels of gray!

In Axe Parser, the screen can display 4 grayscale from 0% (white), 33%, 66% and 100% (black).
When we alternate on the screen 2 imaginary memory screens, we obtain 7 levels of gray : 0%+0%=0%, 0%+33%=16,5%, etc.

That is exactly what we find here :

(the 3rd and 6th tile are identical)

Then when we add a third screen in memory, we get 10 levels of gray : 0%+0%+0%=0%, 0%+0%+33%=11%, etc.
That's what we have here :

(hard to discern, but they are all here)

So on : with a 4th screen we get 13 levels of color. Briefly, it is far from the 144 levels of gray.

From 10 grayscale screen flashes.

For your eyes I've made a screen composed of 13 levels of gray, I don't see them all, but they are there..

holy shit...

your gray scale routine in pure axe is the best I've ever seen...

* Ashbad hands kindermoumoute the Nobel prize for politics

c.sprinkle: I figure the same, though I check cemetech 30% of time and omnimaga 70% of time

An entire evening making head to look for this algorithm instead of revising my courses.

Woah that looks great! I wonder how it looks like on-calc... is the blinking very visible?

Correct on 83+.

And now, 16 grayscales  

Here a gif with wabbitemu :

Done.