[TI 83+]Cat N' Mouse

Nom du prog : CATMOUSE
Hypothèse :
=/ veut dire n'égal pas
-> veut dire stocker
LZCM veut dire Liste ZCM
: D-2->C veut dire -2->C (sauf qu'il apparaissait un jolie smiley comme vous pouvez le voir... donc j'ai rajouté un espace)
:randInt(4,8 )->Y veut dire :randInt(4,->Y (sauf qu'il apparaissait un jolie smiley comme vous pouvez le voir... donc j'ai rajouté un espace)
Il y a 9 espaces entre le "I" et le "V2.0" à cette ligne : :Output(2,1,"I V2.0 I")
Il y a 2 espaces à la fin de cette ligne (au lieu de n'en avoir qu'un seul, comme affiché...) : :Output(1,1,"I CAT N MOUSE I")
Il y a 6 espaces avant le mot "LEVEL" à cette ligne : :Disp" LEVEL"
Il y a 7 espaces avant la première parenthèse de cette ligne : :Input " (1-5): ",D

Source :

:1->H:1->I
:7->K:16->L
:0->P
:Lbl 2
:ClrHome
:Output(1,1,"I CAT N MOUSE I")
:Output(3,1,"I==============I"
:Output(5,3,"PRESS ENTER")
:Output(2,1,"I V2.0 I")
:Output(7,1,"REPROGRAMMED BY:")
:Output(8,12,"PAYNE")
:Pause
:Lbl 9
:ClrHome
:Disp "DIFFICULTY"
:Disp" LEVEL"
:Output(6,2,"3:NORMAL GAME")
:Input " (1-5): ",D
:If D:lsup:1 and D:linf:3
:Then
:4-D->D
:1->C
:Else
:If D=4 or D=5
:Then
: D-2->C
:1->D
:Else:Goto9
:End:End
:Lbl 0
:ClrHome
:{0,0}->LZCM
:For(W,1,14)
:augment({randInt(2,7)},LZCM
:End
:augment({0},LZCM)->LZCM
:For(W,1,16)
:If LZCM(W)=/0
:Output(LZCM(W),W,"O")
:End
:Lbl 4
:randInt(4,8 )->Y
:randInt(11,16)->X
:If LZCM(X)=Y
:Goto 4
:Lbl 5
:randInt(1,4)->K
:randInt(1,4)->J
:If LZCM(J)=K
:Goto 5
:X->A:Y->B
:J->E:K->F
:For(H,1,250)
:End
:Output(Y,X,"C")
:For(H,1,250)
:End
:Output(K,J,"M")
:For(H,1,250)
:End
:Lbl 3
:For(H,1,250)
:getKey->G
:If X=J and Y=K
:Goto 8
:If G=24 and A-1:lsup:1
:Then
:If LZCM(A-1)=/B
:A-1->A
:End
:If G=25 and B-1:lsup:1 and LZCM(A+1)=/B
:A+1->A
:If G=34 and B+1:linf:8 and LZCM(A)=/B+1
:B+1->B
:Output(Y,X," ")
:Output(B,A,"C")
:A->X:B->Y
:If G=45:Goto 1
:End
:For(G,1,C)
:If J=X and K=Y
:Goto 8
:J-X->V
:K-Y->W
:0->Z
:If abs(V):linf:abs(W) and W:linf:0
:Then
:randInt(0,4)->Z
:Else
:If abs(V)>abs(W) and V>0
:Then
:randInt(3,7)->Z
:Else
:If abs(V):linf:abs(W) and W>0
:Then
:randInt(6,10)->Z
:Else
:If abs(V)>abs(W) ans V:linf:0
:Then
:randInt(9,13)->Z
:End:End:End:End
:If Z:lsup:0 and Z:linf:4 and K=/1 or Z:linf:14 and Z:lsup:12 and K=/1
:Then
:If (K-1)=/LZCM(J)
:K-1->K
:End
:If Z:lsup:3 and Z:linf:7 and J=/16
:Then
:If K=/LZCM(J+1)
:J+1->J
:End
:If Z:lsup:6 and Z:linf:10 and K=/8
:Then
:If (K+1)=/LZCM(J)
:K+1->K
:End
:If Z:lsup:9 and Z:linf:14 and J=/1 or Z:lsup:-1 and Z:linf:1 and J=/1
:Then
:If K=/LZCM(J-1)
:J-1->J
:End
:Output(F,E," ")
:Output(K,J,"M")
:J->E:K->F
:End
:Goto 3
:End
:Lbl 8
:ClrHome
:Output(4,4,"YOU WIN!")
:Pause
:Goto 0

AHHHHH, ENFIN!!!! ÇA A ÉTÉ LONG EN %!$& À ÉCRIRE !!!

Voilà... dites-moi le si jamais vous décidez de le prendre... j'aimerais savoir si j'l'ai écris pour rien