Forum

Catégorie : Programmes
Forum : Les programmes des internautes
Vues : 1309
Réponses : 11
Type : discussion
Etat : réponses autorisées
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.

Labyrinthe léger et sympa en basic.

made2kill le 01/10/2011 à 11:36
Hey!!

Je vous l'avais promis, voici mon jeu de labyrinthe!

Il fait 354 octets, c'est donc très court, mais il faut télécharger les 2 images...

Il y a 2 niveaux...

Ca fait rêver, hein? glasses.gif

L'objectif, pour le premier niveau, est d'arriver aux petits points en bas à droite et pour le deuxième d'arriver au "E" (en bas à droite aussi.)
Vous partez d'en haut à gauche, et vous laissez une trace derrière vous que vous ne pouvez pas traverser.
Enfin, vous avez un temps limite, 1000 secondes pour le 1er niveau et le double contre le 2ème.

Mais assez parlé, voici la bête!

Pic 1

Pic 2

prgmLABY

Code
Menu("NIVEAU?","1",1,"2",2
Lbl 1
1ü ( ) [THETA]:Goto 3
Lbl 2
2ü ( ) [THETA]
Lbl 3
1000[THETA]ü ( ) S
0ü ( ) X
0ü ( ) Y
AxesOff
ClrDraw
If [THETA]=1
RecallPic 1
If [THETA]=2
RecallPic 2
Lbl 0
S-1ü ( ) S
Text(0,79,S
0ü ( ) K
getKeyü ( ) K
If K=105
Then
0ü ( ) K
While K[DIFFERENT DE]105
getKeyü ( ) K
End
S+1ü ( ) S
Goto 0
End
Y-(K=25)+(K=34ü ( ) Y
X+(K=26)-(K=24ü ( ) X
If Y[SUPERIEUR OU EGAL A]53 and X[SUPERIEUR OU EGAL A]90
Goto Z
If Y[SUPERIEUR A]62 or X[SUPERIEUR A]94 or Y[INFERIEUR A]0 or X[INFERIEUR A]0
Goto [THETA]
If K and pxl-test(Y,X
Goto [THETA]
Pxl-On(Y,X
Goto 0
Lbl [THETA]
Disp "PERDU
Stop
Lbl Z
ClrHome
Output(2,13,S
Disp "GAGNE!","VOTRE SCORE=","BEST=
If S[SUPERIEUR A][PETIT L DES LISTES]CUR([THETA
Sü ( ) [PETIT L DES LISTES]CUR([THETA]
Output(3,6,[PETIT L DES LISTES]CUR([THETA]


Voili voilou! glasses.gif
persallteas le 01/10/2011 à 16:06
Good Job ! bigmouth.gif
made2kill le 01/10/2011 à 17:02
Merci.

Mais t'es persalteas?
azerty1 le 01/10/2011 à 18:10
Bien joué! happy.gif
Oui, cependant il a perdu son mot de passe suite à des problèmes avec le forum, comme programmaths...
linkakro le 01/10/2011 à 18:18
Je ne suis pas fan des jeux avec des niveaux définitifs ainsi.
Mais pourquoi pas...

persalteas a perdu son mdp à cause d'un bug du forum. Alors il recommence avec cette variante de son pseudo.
made2kill le 01/10/2011 à 19:06
Tu peux modifier les niveaux si tu veux... et fais nous part de tes modif'...

Personnellement je trouve que c'est un excellent jeu pour la place que ça prend.
Après, à vous de juger...
sandro le 01/10/2011 à 21:30
Quelques optimisations :
Code
If K=25
Y-1ü ( ) Y
If K=34
Y+1ü ( ) Y
If K=26
X+1ü ( ) X
If K=24
X-1ü ( ) X

Devient
Code
Y-(K=25)+(K=34 -> Y
X+(K=26)-(K=24 -> X


Code
If pxl-test(Y,X)=1 and 0[DIFFERENT DE]K

devient
Code
If K and 1=pxl-test(Y,X


Sandro
snap le 01/10/2011 à 21:47
sandro a écrit :
Code
If pxl-test(Y,X)=1 and 0[DIFFERENT DE]K

devient
Code
If K and 1=pxl-test(Y,X


Sandro


Le 1= , vu que c'est un pixel-test (donc entre 0 et 1), n'est pas obligatoire. On peut donc l'enlever et raccourcir le programme.
Et donc cela donne

Code
If K and pxl-test(Y,X
sandro le 01/10/2011 à 21:55
Merci, je l'aais oublié.

Sandro
made2kill le 02/10/2011 à 08:49
Merci les mecs, j'ai ajouté vos modifs. glasses.gif
NINJACODEUR-3000 le 16/06/2023 à 20:06
Excusez moi je ne trouve pas les [theta] sur ma ti 82 stats.fr frozen.gif
NINJACODEUR-3000 le 16/06/2023 à 20:08
[theta]=then ? ahh.gif
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.