π
<-
Chat plein-écran
[^]

Dev snake

Dev snake

Message non lude Raiseit » 22 Mar 2017, 20:47

Hello
Je rencontre actuellement un petit problème de modification d'un snake. J'ai piqué l'engine de celui en basic sur ce site, mais je n'arrive pas à augmenter la zone de déplacement du snake. Quand j'arrive dans les coords négatives, les points ne s’effacent plus. Une solution ?

Code: Tout sélectionner
10000→⌊HISNA(1)
FoncNAff 0,1,2,3,4,5,6,7,8,9
AxesNAff
Lbl 9
Menu("SNAKE","Nouvelle partie",3,"Highscores",4,"Difficultée",7,"Quitter",0
Lbl 3
CouleurBord 1
EffDess
0→Xmin
0→Ymin
1→X
164→Ymax
0→S
⌊HISNA(1)-10000→E
CouleurTexte(BLEU MRN
Texte(149,100,"Score: 0
Ligne(0,18,260,18,NOIR
Ligne(25,18,25,165,NOIR
Ligne(260,0,260,165,GRIS CLR
Ligne(264,0,264,165,GRIS CLR
Ligne(262,0,262,165,GRIS CLR


{6.11,6.12,6.09,6.1}→L₁
Pt-Aff(103,72,2,NOIR
Pt-Aff(111,72,2,NOIR
Pt-Aff(119,72,2,NOIR
Pt-Aff(127,72,2,NOIR
2→T
1→D
6→A
12→B
0→I
0→J
Repeat non(pxl-Test(142-8I,33+8J
nbrAléatEnt(1,16→I
nbrAléatEnt(1,28→J
End
Pt-Aff(31+8J,24+8I,3,ROUGE
Lbl 1
getKey→K
If K≥24 et K≤26 ou K=34 ou K=105 ou K=45
Then
If K=45
Then
EffÉcran
Stop
End
If K=105
Pause
If K=24 et D≠1
3→D
If K=25 et D≠4
2→D
If K=26 et D≠3
1→D
If K=34 et D≠2
4→D
End
If D=1
B+1→B
If D=2
A+1→A
If D=3
B-1→B
If D=4
A-1→A
If A=­1
Then
If E=0
Then:17→A
Else:Goto 2
End:End
If A=18
Then
If E=0
Then:0→A
Else:Goto 2
End:End
If B=­1
Then
If E=0
Then:28→B
Else:Goto 2
End:End
If B=29
Then
If E=0
Then:0→B
Else:Goto 2
End:End
If pxl-Test(143-8A,32+8B
Goto 2
Pt-Aff(31+8B,24+8A,2,NOIR
T+1→T
If T>dim(L₁
1→T
If pxl-Test(140-8A,31+8B
Then
dim(L₁→C
L₁(C→L₁(C+1
­1→L₁(C
Repeat non(pxl-Test(142-8I,33+8J
nbrAléatEnt(1,28→J
nbrAléatEnt(1,17→I
End
S+10→S
If E=1
S+5→S
CouleurTexte(ROUGE
Texte(149,147,S
Pt-Aff(31+8J,24+8I,3,ROUGE
End
Pt-NAff(31+800partDéc(L₁(T)),24+8partEnt(L₁(T
Pt-NAff(31+800partDéc(L₁(T)),24+8partEnt(L₁(T)),2
A+B/100→L₁(T
Goto 1
Raiseit

Image

New Super Oiram Bros - World 1
99%

New Super Oiram Bros - World 2
28%



La vie est trop courte pour enlever le périphérique en toute sécurité
Il y a 10 types de personnes: ceux qui comprennent le binaire, et les autres
Avatar de l’utilisateur
Raiseit
Niveau 8: ER (Espèce Rare: nerd)
Niveau 8: ER (Espèce Rare: nerd)
Prochain niv.: 16.8%
 
Messages: 33
Images: 13
Inscription: 21 Sep 2016, 13:56
Genre: Homme
Calculatrice(s):
MyCalcs profile
Classe: Etudes sup

Re: Dev snake

Message non lude critor » 22 Mar 2017, 21:20

Bonsoir.

Peux-tu préciser ce que tu as modifié ?
Merci à toi.
Image
Avatar de l’utilisateur
critorAdmin
Niveau 19: CU (Créateur Universel)
Niveau 19: CU (Créateur Universel)
Prochain niv.: 41.8%
 
Messages: 41470
Images: 14480
Inscription: 25 Oct 2008, 00:00
Localisation: Montpellier
Genre: Homme
Calculatrice(s):
MyCalcs profile
YouTube: critor3000
Twitter/X: critor2000
GitHub: critor

Re: Dev snake

Message non lude Raiseit » 22 Mar 2017, 21:29

J'ai agrandi la zone du snake (a droite, en haut et un peu en bas. Pas a gauche, parce que du coup j'y arrive pas), j'ai rajouté un mode de difficulté (on passe plus a travers les murs + plus de points par pomme), et j'ai fait un screen de highscores (il y est pas parce que je voulais pas tout mettre), j'ai empêché les fonctions de s'afficher, et je crois que c'est tout.

ps: oui, la licence me le permet. Si je le partage, je dois juste citer son auteur et mettre la même licence.
Raiseit

Image

New Super Oiram Bros - World 1
99%

New Super Oiram Bros - World 2
28%



La vie est trop courte pour enlever le périphérique en toute sécurité
Il y a 10 types de personnes: ceux qui comprennent le binaire, et les autres
Avatar de l’utilisateur
Raiseit
Niveau 8: ER (Espèce Rare: nerd)
Niveau 8: ER (Espèce Rare: nerd)
Prochain niv.: 16.8%
 
Messages: 33
Images: 13
Inscription: 21 Sep 2016, 13:56
Genre: Homme
Calculatrice(s):
MyCalcs profile
Classe: Etudes sup


Retourner vers TI-Basic

Qui est en ligne

Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 8 invités

-
Rechercher
-
Social TI-Planet
-
Sujets à la une
Comparaisons des meilleurs prix pour acheter sa calculatrice !
Aidez la communauté à documenter les révisions matérielles en listant vos calculatrices graphiques !
Phi NumWorks jailbreak
123
-
Faire un don / Premium
Pour plus de concours, de lots, de tests, nous aider à payer le serveur et les domaines...
Faire un don
Découvrez les avantages d'un compte donateur !
JoinRejoignez the donors and/or premium!les donateurs et/ou premium !


Partenaires et pub
Notre partenaire Jarrety Calculatrices à acheter chez Calcuso
-
Stats.
652 utilisateurs:
>645 invités
>2 membres
>5 robots
Record simultané (sur 6 mois):
6892 utilisateurs (le 07/06/2017)
-
Autres sites intéressants
Texas Instruments Education
Global | France
 (English / Français)
Banque de programmes TI
ticalc.org
 (English)
La communauté TI-82
tout82.free.fr
 (Français)