Opti-Défi n°2 : Snake

[grosged]

Moi, le mien s'appelle SERPENT (même nombre de caractères que AVEMDR1)

Alors, au départ le serpent ne doit pas forcément appaître complètement ?
@Mathieu : ton serpent d'une case s'allonge pendant ses 4 premiers pas, alors?

Au fait ,j'ai oublié ça : quand le serpent se plante, j'affiche un caractère ("différent") à l'endroit de la collision (optionnel, j'avoue)

et quand j'affiche le score final c'est , par ex :
score:100

[m@thieu41]

@Mathieu : ton serpent d'une case s'allonge pendant ses 4 premiers pas, alors?

Mdr ^^

Oui c'est ça

Tu gaspilles beaucoup d'octets ça te ressemble pas

[grosged]

@mathieu : -mmm, attends, attends : j'm'échauffe à peine, là ! héhé

Pour vous dire à quel point j'suis long à la détente :
y a un truc encore flou : pendant la partie , c'est bien la taille du serpent qu'on affiche en permanence?... ou le score ?

[m@thieu41]

On affiche le score! ^^

C'est pour ça que le ré-afficher à la fin...

[Wistaro]

J'ai raté ce défi ! Bon, de toute façon je n'ai pas trop le temps en ce moment ^^

Pour le prochain, je serais là !

[m@thieu41]

Le défi n'est pas finis tu peux toujours proposer un truc

[Wistaro]

Mouai mais bon x)

[grosged]

Bon!..j'ai de nouveau planché sur le sujet... voici ma 2ème version du programme (nommé SERPENT) en...306 / 309 octets

Show/Hide spoilerAfficher/Masquer le spoiler

ClrHome //efface l'écran
Disp "ØØØØØ //affiche le serpent ( long de 5 cases au départ)
16→Z // nb de colonnes de l'écran
"1+int(Z¯¹(Ans–1→Y1 // calcule la ligne de la position dans Ans
"1+ZfPart(Z¯¹(Ans–1→Y2 // calcule la colonne ...
{2,3,4,5→L1 // positions successives de la queue
8Z→dim(L1 // liste contenant le terrain (128 cases)
DelVar SZ→D //score à 0, Direction=16 (vers le bas)
5→T:1→Q // position de la tête, et de la queue
Lbl Ø
Z–(S>9 // colonne où l'on ...
Output(1,Ans,S // affichera le score
Ans→L1(Ans // marque cet emplacement d'une valeur autre que 0
While L1(Ans // détermine au hasard
randInt(1,8Z // l'emplacement d'une nouvelle denrée
End
Output(Y1,Y2,1 // puis l'affiche
9→L1(Ans // et marque sur le terrain (liste L1)
S+1→S // incrémente le score
Lbl 1
getKey // scrute le clavier
(Ans=26)–(Ans=24)+Z((Ans=34)–(Ans=25 //(gauche:-1 droite: 1 haut: -16 bas: 16)
If Ans:Ans→D // si l'une des flèches appuyées alors nouvelle direction dans D
T+D // va maintenant gérer les bords du terrain (téléporteurs)
Ans–Z(8(D²>1)((Ans>8Z)–(Ans<1))+D(D²=cos(π8¯¹(T–not(D+1→L1(T
Ans→T // mets à jour la position de la tête
Output(Y1,Y2,Ø // et l'affiche
If 9=L1(T // si on tombe sur la denrée
Goto Ø // alors on n'efface pas la queue
Q→W // efface la queue
Output(Y1,Y2,"░ // au moyen d'un espace
L1(Q→Q //nouvelle position de la queue
Ø→L1(W // marque d'un 0 à l'ancienne position
If not(L1(T // la tête a-t-elle heurtée qqchose?
Goto 1 // non? alors on continue

http://tiplanet.org/modules/archives/do ... l&id=71184

[TheMachine02]

Intéressant

Sinon, je sais pas si ça pourrait permettre de grapiller quelques ooctets, mais je changerais bien le Lbl 1 : Goto 1 en Repeat not(...
Et si on sait que la condition est fausse au départ, en While L1(T: End

[grosged]

oui, j'y ai songé, mais ce qui m'embête c'est le "goto 0" à l'intérieur de cette boucle
(il aurait fallu une instruction comme "resume" dans certains basic)
en fait , j'ai eu recours à ces LBL GOTO car il y a 2 boucles imbriquées
(j'vais tester quand même...)

EDIT: Bien tenté, TheMachine02 ! car j'ai testé

Code: Select all

LBL 1...If not(L1(T

remplacé par

Code: Select all

Repeat L1(T....End

Hé bien , la Ti l'accepte !
Thanx , TheMachine02, (j'aurais pas osé)
mon programme SERPENT fait maintenant 301 / 304 octets (5 octets grapillés tout de même ! )

ClrHome //efface l'écran
Disp "ØØØØØ //affiche le serpent ( long de 5 cases au départ)
16→Z // nb de colonnes de l'écran
"1+int(Z¯¹(Ans–1→Y1 // calcule la ligne de la position dans Ans
"1+ZfPart(Z¯¹(Ans–1→Y2 // calcule la colonne ...
{2,3,4,5→L1 // positions successives de la queue
8Z→dim(L1 // liste contenant le terrain (128 cases)
DelVar SZ→D //score à 0, Direction=16 (vers le bas)
5→T:1→Q // position de la tête, et de la queue
Lbl Ø
Z–(S>9 // colonne où l'on ...
Output(1,Ans,S // affichera le score
Ans→L1(Ans // marque cet emplacement d'une valeur autre que 0
While L1(Ans // détermine au hasard
randInt(1,8Z // l'emplacement d'une nouvelle denrée
End
Output(Y1,Y2,1 // puis l'affiche
9→L1(Ans // et la marque sur le terrain (liste L1)
S+1→S // incrémente le score
Repeat L1(T // tant que la tête va sur des cases vides (mis à part la denrée)
getKey // scrute le clavier
(Ans=26)–(Ans=24)+Z((Ans=34)–(Ans=25 //(gauche:-1 droite: 1 haut: -16 bas: 16)
If Ans:Ans→D // si l'une des flèches appuyées alors nouvelle direction dans D
T+D // va maintenant gérer les bords du terrain (téléporteurs)
Ans–Z(8(D²>1)((Ans>8Z)–(Ans<1))+D(D²=cos(π8¯¹(T–not(D+1→L1(T
Ans→T // mets à jour la position de la tête
Output(Y1,Y2,Ø // et l'affiche
If 9=L1(T // (exception de la denrée)
Goto Ø // alors on n'efface pas la queue
Q→W // efface la queue
Output(Y1,Y2,"░ // au moyen d'un espace
L1(Q→Q //nouvelle position de la queue
Ø→L1(W // marque d'un 0 à l'ancienne position
End // continue si la tête n'a rien heurté