Jeu de Snake trop lent. [FINI TOUT EST OK]

loko

Bonjour a tous, j'ai crée un petit jeu de snake, mais apres avoir créé la base du jeu je me suis rendu compte que ça ramait pas mal si on allait au dela de 8 parties pour mon serpent.
Voici ma source, j'aimerais savoir si on pouvais faire la meme chose avec moins de code, ou avec des fonctions plus rapides a lire pour la calculatrice.

Code:

:ClrHome
:5->A // Taille du serpent
:ClrAllLists
:20->dim(L1
:20->dim(L2
:Fill(3,L1
:Fill(3,L2
:2->D
:While K!=105
:getKey->K
:If K!=0
:Then
:If K=24 and D!=2:1->D //Gauche
:If K=26 and D!=1:2->D //Droite
:If K=25 and D!=4:3->D //Haut
:If K=34 and D!=3:4->D //Bas
:End
:If D=1:L2(1)-1->L2(1) //Changement de
:If D=2:L2(1)+1->L2(1) //coordonée en
:If D=3:L1(1)-1->L1(1) //fonction de
:If D=4:L1(1)+1->L1(1) //D
:For(G,A,2,-1
:L1(G-1)->L1(G) // on transforme les coordonnées de
:L2(G-1)->L2(G) // la 1ere partie en 2eme partie ...
:End
:For(I,1,A
:Output(L1(I),L2(I),"*" // on affiche.
:If I=A:Output(L1(I),L2(I)," "
:End
:End
:ClrAllLists

On m'a conseillé de ne transformer que les coordonées de la premiere et derniere parties a chaque fois, mais je ne vois vraiment pas comment faire. Merci a tous ;)

chicu · 16.5/20

Code:

:If K!=0
:Then
:If K=24 and D!=2:1->D //Gauche
:If K=26 and D!=1:2->D //Droite
:If K=25 and D!=4:3->D //Haut
:If K=34 and D!=3:4->D //Bas
:End
:If D=1:L2(1)-1->L2(1) //Changement de
:If D=2:L2(1)+1->L2(1) //coordonée en
:If D=3:L1(1)-1->L1(1) //fonction de
:If D=4:L1(1)+1->L1(1) //D

Moi j'aurais plutôt mis :

Code:

:If K=24 and D!=2:L2(1)-1->L2(1)
:If K=26 and D!=1:L2(1)+1->L2(1)
:If K=25 and D!=4:L1(1)-1->L1(1)
:If K=34 and D!=3:4->L1(1)+1->L1(1)

Le !K=0 est inutile car si K n'est pas égal à 24 ou autre il fera rien.
Et puis séparé entre l'identification de la touche et l'ajustement des coordonnées ça ne sert pas à grand chose à mon avis :)
Sinon je ne comprend pas ta démarche de changer les coordonnées entre chaque parties à la limite tu gardes L1(1 à 5) et pareil pour L2, je ne comprend pas pourquoi tu veux le faire grimper vers l'avant :).

loko

Il y a une probleme avec ton code: si tu dit qu'il ne doit avancer que si K=24 et D!=2, il n'avancera pas si tu n'appuie sur aucune touche or le snake ne s'arrete jamais normalement ;)

Mon if k!=0 sert a ne pas reverifier si k a une valeur alors que l'utilisateur n'a pas pressé de touches, c'est pour gagner du temps ;)

**AdRiWeB**

sinon tu peux t'inspirer (librement ^^) de snakes déja fait ... sinon, sur une 84+, le code passe bien ! bien joué !

_________________

LE blog des 83+ et 84+ : programmes scolaires, aides, deblocages, jeux...

loko

Heu merci mais je demandais de l'aide ^^'
J'ai reussit a le faire plus rapide et j'ai trouvé coment l'ameliorer encore ;) (niveau vitesse) je vous posterais la code optimisé puis le code avec les objectifs a manger plus tard ;), si vous avez des idées pour gagner de la vitesse je suis ouvert. Merci

**Ver2guerre**

Hum, moi, j'ai tenté de programmer un snake sur 68k, mais je n'ai pas réussi à l'optimiser assez pour dépasser pèpère les 15 morceaux ... (j'avais rajouté les bonus) ...

Donc je pense qu'en ti-basic, bof bof, pas trop possible. Mais bon, tu peux quand même essayer

**Mic**

loko, n'hésite pas à le mettre, une fois fini, sur ti-bank :
http://ti.bank.free.fr/index.php?mod=archives&ac=poster2

_________________
Responsable de TI-BANK (http://www.ti-bank.fr)

Projet 1 : How well do you know your World ? [68k] (19%)
Projet 2 : Da Vinci Flight [68k] (0.5%)
Projet 3 : Mastermind Nspire [Nspire] (80%)
Projet 4 : Ephy Nspire [Nspire] (0%)

loko

ver2guerre a écrit:

Hum, moi, j'ai tenté de programmer un snake sur 68k, mais je n'ai pas réussi à l'optimiser assez pour dépasser pèpère les 15 morceaux ... (j'avais rajouté les bonus) ...

Donc je pense qu'en ti-basic, bof bof, pas trop possible. Mais bon, tu peux quand même essayer

J'ai trouvé un moyen de mettre autant de morceaux que tu veux sans changer la vitesse ;) Je te poste le code demain et des que je retrouve mon cable je met la premiere version.

loko

Voila mon nouveau code, tout marche ;)

Code:

:ClrHome
:5->A:0->k
:A->G:0->Q
:1->Z:1->Y
:ClrAllLists
:{9,17}->dim([A]
:Fill(0,[A]
:50->dim(L1
:50->dim(L2
:Fill(3,L1
:Fill(3,L2
:2->D
:
:While K!=105
:getkey->K
:
:If K!=0
:Then
:If K=24 and D!=2:1->D
:If K=26 and D!=1:2->D
:If K=25 and D!=4:3->D
:If K=34 and D!=3:4->D
:End
:
:If D=1:L2(1)-1->L2(1)
:If D=2:L2(1)+1->L2(1)
:If D=3:L1(1)-1->L1(1)
:If D=4:L1(1)+1->L1(1)
:
:If L1(1)=0 or L1(1)=9 or L2(1)=0 or L2(1)=17:Goto 99
:If [A](L1(1),L2(1))=1:Goto 99
:1->[A](L1(1),L2(1))
:
:If Q!=1
:Then
:Randint(2,15->Z
:Randint(2,7->Y
:1->Q
:If [A](Y,Z)=1:0->Q
:If Q=1:Output(Y,Z,"X"
:End
:
:If L1(1)=Y and L2(1)=Z
:Then
:A+1->A
:0->Q
:End
:
:L1(1)->L1(G)
:L2(1)->L2(G)
:G-1->G
:Output(L1(G+1),L2(G+1),"*
:Output(L1(G),L2(G)," "
:0->[A](L1(G),L2(G))
:
:If G=1
:Then
:Output(L1(A),L2(A)," "
:0->[A](L1(A),L2(A))
:Output(L1(G),L2(G),"*
:A->G
:End
:
:End
:
:Lbl 99
:
:ClrAllLists
:{1,1}->dim([A]
:Disp "PERDU
:Pause
:ClrHome
:Disp "
:Disp "SCORE
:Disp A
:Disp "
:Disp "
:Disp "CREATED BY LOKO
:Pause
:ClrHome
:Output(1,1,"

**Mic**

http://ti.bank.free.fr/index.php?mod=archives&ac=poster2

_________________
Responsable de TI-BANK (http://www.ti-bank.fr)

Projet 1 : How well do you know your World ? [68k] (19%)
Projet 2 : Da Vinci Flight [68k] (0.5%)
Projet 3 : Mastermind Nspire [Nspire] (80%)
Projet 4 : Ephy Nspire [Nspire] (0%)

**Ver2guerre**

J'avoue, très classe !

**AdRiWeB**

pas mal ! bravo !! encore plus rapide qu'avant !!
mets-le sur TI-Bank si c'est pas déja fait !!

_________________

LE blog des 83+ et 84+ : programmes scolaires, aides, deblocages, jeux...

**tama**

hmm encore des optimisations possibles ^^

Code:

:ClrHome
:5->A
:DelVar KDelVar Q
:5->G
:1->Z
:1->Y

:ClrAllLists
:{9,17->dim([A]
:Fill(0,[A]
:50->dim(L1
:L1->L2
:Fill(3,L1
:Fill(3,L2
:2->D
:
:While K!=105
:getkey->K
:
:If K
:Then
:If K=24 and D!=2:1->D
:If K=26 and D!=1:2->D
:If K=25 and D!=4:3->D
:If K=34 and D!=3:4->D
:End
:
:If D=1:L2(1)-1->L2(1
:If D=2:1+L2(1->L2(1
:If D=3:L1(1)-1->L1(1
:If D=4:1+L1(1+1->L1(1
:
:If L1(1)=0 or L1(1)=9 or L2(1)=0 or L2(1)=17
:Goto 99
:If 1=[A](L1(1),L2(1
:Goto 99
:1->[A](L1(1),L2(1
:
:If Q!=1
:Then
:Randint(2,15->Z
:Randint(2,7->Y
:1->Q
:If [A](Y,Z)=1:0->Q
:If Q=1:Output(Y,Z,"X
:End
:
:If L1(1)=Y and Z=L2(1
:Then
:A+1->A
:0->Q
:End
:
:L1(1->L1(G
:L2(1->L2(G
:G-1->G
:Output(L1(G+1),L2(G+1),"*
:Output(L1(G),L2(G)," "
:0->[A](L1(G),L2(G
:
:If G=1
:Then
:Output(L1(A),L2(A),"
:0->[A](L1(A),L2(A
:Output(L1(G),L2(G),"*
:A->G
:End
:
:End
:
:Lbl 99
:
:ClrAllLists
:{1,1}->dim([A]
:Disp "PERDU
:Pause
:ClrHome
:Disp "
:Disp "SCORE
:Disp A
:Disp "
:Disp "
:Disp "CREATED BY LOKO
:Pause
:ClrHome
:Output(1,1,"

Bon j'ai vu vite fait le code (pas de goto dans des while !!) mais il est déjà pas mal

Pour l'optimiser encore plus tu peux regarder le topic "astuces z80" en post it de ce salon programmation ^^

_________________
Modérateur des salons z80

Lisez le Journal de tibank, y a du bon ! :)

Envie de nous voir IRL ? participez à la réunion Nord de tibank !

**AdRiWeB**

les disp a la fin, mets des virgules et ne saute pas de lignes, au final !

_________________

LE blog des 83+ et 84+ : programmes scolaires, aides, deblocages, jeux...

**tama**

aussi y a pas mal d'optimisations à faire là dedans ^^

_________________
Modérateur des salons z80

Lisez le Journal de tibank, y a du bon ! :)

Envie de nous voir IRL ? participez à la réunion Nord de tibank !