Sujet Précédent Sujet Suivant

Help : TI-83 plus Snake + Explications

Fermé
Le_Super-Calculateur Messages postés 3 Date d'inscription mardi 28 octobre 2014 Statut Membre Dernière intervention 28 octobre 2014 - 28 oct. 2014 à 12:57
Le_Super-Calculateur Messages postés 3 Date d'inscription mardi 28 octobre 2014 Statut Membre Dernière intervention 28 octobre 2014 - 28 oct. 2014 à 13:25
Bonjour, après de longues recherches je n'ai pu trouver sur google que des codes de Snake mal expliqués. Ou encore certains vous donne juste le code et vous le copier sans le comprendre. C'est en vue de comprendre le code, de savoir ce que je fais que j'aimerais avoir un code Snake, expliqué précisément.
Merci d'avance !
Dans un dernier espoir ...

1 réponse

Réponse 1 / 1
Le_Super-Calculateur Messages postés 3 Date d'inscription mardi 28 octobre 2014 Statut Membre Dernière intervention 28 octobre 2014 1
28 oct. 2014 à 13:25
Alors voila j'ai réussi à récupérer ce code ( il fonctionne ) : 


0->Xmin:94->Xmax
0->Ymin:62->Ymax
AxesOff
ClrDraw
Line(1,0,1,61
Line(1,61,94,61
Line(94,61,94,0
Line(94,0,1,0
47->X:31->Y
0->H:-1->V
randInt(2,93->I
randInt(2,60->J
Pxl-On(J,I
{X->L1:{Y->L2
1->L:1->P
Repeat pxl-Test(Y,X) and not(X=I and Y=J
P+1->P
If P>L:1->P
Pxl-Off(L2(P),L1(P
Pxl-On(Y,X
X->L1(P:Y->L2(P
If X=I and Y=J
Then
L-1->L
Ans->dim(L1
Ans->dim(L2
randInt(2,93->I
randInt(2,60->J
Pxl-On(J,I
End
getKet->K
If K=24:-1->H
If K=26:1->H
If K=24 or K=26:0->V
If K=25:-1->V
If K=34:1->V
If K=25 or K=34:0->H
X+H->X
Y+V->Y
End


Il faudrait juste que quelqu'un me l'explique précisément ;)
0