Help : TI-83 plus Snake + Explications

Le_Super-Calculateur Messages postés 4 Date d'inscription   Statut Membre Dernière intervention   -  
Le_Super-Calculateur Messages postés 4 Date d'inscription   Statut Membre Dernière intervention   -
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

  1.
    Le_Super-Calculateur Messages postés 4 Date d'inscription   Statut Membre Dernière intervention   1
     
    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