Rechercher
 
 

Résultats par :
 


Rechercher Recherche avancée

Connexion

Récupérer mon mot de passe

Chatbox externe


Derniers sujets
» [JEU] Mon voisin du dessous
Aujourd'hui à 11:52 par Clément.7

» Lancement du TI-Concours 2017 !
Sam 20 Mai 2017 - 0:27 par Paulo1026

» Chaînes Youtube des membres
Ven 19 Mai 2017 - 22:41 par Wistaro

» cacul du taux d'intêret
Ven 24 Mar 2017 - 21:50 par m@thieu41

» [Projet] Un mario by tout82
Dim 29 Jan 2017 - 14:09 par Wistaro

» Cherche documentation assembleur TI82stat
Mer 25 Jan 2017 - 12:29 par Ti64CLi++

» Probleme Ti-82 Stats fr
Jeu 12 Jan 2017 - 13:56 par Ti64CLi++

» ROM 82 stats.fr
Jeu 15 Déc 2016 - 10:24 par Ti64CLi++

» flappy bird
Jeu 15 Déc 2016 - 10:23 par Ti64CLi++

Partenaires
TI-Planet Espace-TI : Forum

Faire un don à Tout-82...
Où va cet argent ?
Membres donateurs:- Persalteas (10€)
- Wistaro (5€)
- jo2geek (22€)

Les posteurs les plus actifs du mois
Wistaro
 
Clément.7
 


[JEU] Les deux Snake de Xpro en un seul !

Poster un nouveau sujet   Répondre au sujet

Voir le sujet précédent Voir le sujet suivant Aller en bas

[JEU] Les deux Snake de Xpro en un seul !

Message par persalteas le Dim 6 Oct 2013 - 14:45

Salut,

Beaucoup parlent du Snake de Ratuss, notre jeu "local" :P, mais connaissez vous celui d'XPro ?
Il en a fait 2, le premier XSNAKE joli, fluide, et le deuxième, XSNAKE4, moins bien fait mais avec des niveaux.

Quand j'étais un jeune lycéen inconscient des droits d'auteur, je lui avais piqué son code pour mixer les deux en un seul: Voilà donc le Snake Deluxe...



Donc, ses features:


  • 4 Niveaux de jeu
  • Une longueur réglable au début, de 2 à 100, qui augmente au fur et à mesure du jeu
  • Un choix de vitesse


Lien de Téléchargement (C'est un 8xp, mais vous pouvez le renommer en 83p ça passe...)


Code:
PleinEcr:GraphNAff :AxesNAff:FonctOff :QuadNAff
0→Xmin:94→Xmax
0→Ymin:62→Ymax
EffEcr
4→dim(|LOP
3→dim(|LHS
{20,23,32,38,44,50,56,62,68,71,74,26,32,38,44,50,56,62,68,23,32,38,44,47,50,56,59,68,71,20,32,38,44,50,56,62,68,23,26,32,35,47,56,62,68,71,74→|LX
If 101>|LOP(3:101→|LOP(3
|LOP(3→dim(|LX
Rép→dim(|LY
EffDessin:1→B
Ligne(2,2,92,2
Ligne(2,2,2,60
Ligne(92,2,92,60
Ligne(92,60,2,60
Text(10,0,"PERSALTEAS GAMES PRESENTE:"
For(A,21,33,3
For(C,2,98,3
Pt-On(C+9,A,2
If C=|LX(B):Then:B+1→B
Else
Pt-Off(C,A,2
End
If codeTouche=45:Goto 1
End:End
For(K,1,100):End
0→D
10→V
EffVar |LY
Lbl 1
EffDessin
Menu("      SNAKE     ","JOUER",0,"LONGUEUR",3,"TERRAIN",4,"VITESSE",6,"QUITTER",5
Lbl 6
Input "VITESSE?(0 [|a] 10) ",V
100-10V→V
EffEcr
Goto 1
Lbl 3
Disp "longueur(1[|a]100)
Input L
L→|LOP(1)
EffEcr
Goto 1
Lbl 4:0
Menu("TERRAIN","VIERGE",16,"MUR CENTRAL",7,"2 MURS",8,"EN CROIX",9
Lbl 9:Rép+1
Lbl 8:Rép+1
Lbl 7:Rép+1
Lbl 16
Rép→|LOP(2
Goto 1
Lbl 0
|LOP(1→L
If L<1 ou L>100 ou partDéc(L
Goto 3
If V<0 ou V>100 ou partDéc(V
Goto 6
Horizontale 61
Horizontale 6
Ligne(0,6,0,62
Ligne(94,6,94,62:Pxl-Off(0,0
Pxl-Off(0,94
Text(57,4,"SCORE:",N,"        
Text(57,50,"HIGH:",|LHS(3
Remplir(0,|LX
|LX→|LY:2
If 0|LLOP(2
Then
For(A,31,36
Ligne(4,A,90,A
End:Rép+1:End
If 1|LLOP(2
Then
For(A,46,48
Ligne(A,10,A,57
End:Rép+2:End
If 2|LLOP(2
Then
For(A,1,2
Pt-On(47,8,A
Pt-On(47,59,A
End
For(A,31,36
Horizontale A
End:Rép+1:End
Rép→O
Pt-On(2,59,2
99→G:G→F:2→J
59→K:1→E:~O→N
K→B:~1→A:26→D
While 1
While D=24
M+1→M
If M=5:Goto A
D→C:26→H
Repeat Rép
A-3→A
If A<0:92→A
pxl-Test(61-B,A→I
Pt-On(A,B,2
A→|LY(E
B→|LX(E
1+E(E≠L→E
If I:Goto B
Pt-Off(|LY(E),|LX(E),2
Pt-Off(|LY(E),|LX(E
codeTouche
For(W,0,V):End
End
If Rép≠H
Rép→D
End
While D=25
M+1→M
If M=5:Goto A
D→C:34→H
Repeat Rép
B+3→B
If B>61:8→B
pxl-Test(61-B,A→I
Pt-On(A,B,2
A→|LY(E
B→|LX(E
1+E(E≠L→E
If I:Goto B
Pt-Off(|LY(E),|LX(E),2
Pt-Off(|LY(E),|LX(E
codeTouche
For(W,0,V):End
End
If Rép≠H
Rép→D
End
While D=26
M+1→M
If M=5:Goto A
D→C:24→H
Repeat Rép
A+3→A
If A>93:2→A
pxl-Test(61-B,A→I
Pt-On(A,B,2
A→|LY(E
B→|LX(E
1+E(E≠L→E
If I:Goto B
Pt-Off(|LY(E),|LX(E),2
Pt-Off(|LY(E),|LX(E
codeTouche
For(W,0,V):End
End
If Rép≠H
Rép→D
End
While D=34
M+1→M
If M=5:Goto A
D→C:25→H
Repeat Rép
B-3→B
If B<7:59→B
pxl-Test(61-B,A→I
Pt-On(A,B,2
A→|LY(E
B→|LX(E
1+E(E≠L→E
If I:Goto B
Pt-Off(|LY(E),|LX(E),2
Pt-Off(|LY(E),|LX(E
codeTouche
For(W,0,V):End
End
If Rép≠H
Rép→D
End
If D=102:Goto 5:If D=45:Goto 1
While D et D<24 ou D>26 et D≠34:Repeat codeTouche
End
C→D
End
End
Lbl B
If non(A=J et B=K ou A=G et B=F:Then
For(A,6,61
Horizontale A
End
Text(20,30," GAME OVER
Ligne(30,36,63,36,0
If N>|LHS(3
Then
N→|LHS(3
Text(49,3,"RECORD PULVERISE! BRAVO!"
Ligne(13,7,80,7,0
Text(57,68,N
Pause
End
For(A,7,60
Ligne(1,A,93,A,0:End
codeTouche
Goto 0
End
If A=J et B=K
Then
L+1→L:N+O→N
If L=|LOP(3:Then:5+|LOP(3→|LOP(3
|LOP(3→dim(|LX
Rép→dim(|LY
End:End
If A=G et B=F
Then:N+5O→N
99→F:F→G
Pt-Off(J,K,3
End
Text(57,26,N,"        "
Pt-Off(|LY(E),|LX(E),2
Pt-Off(|LY(E),|LX(E
If non(entAléat(0,4):Then
Pt-Off(G,F,3:0→M
Repeat non(pxl-Test(61-F,G)
2+3entAléat(3,19)→F
2+3entAléat(1,29)→G
End
Pt-On(G,F,3
Pt-Off(G,F
End
Repeat non(pxl-Test(61-K,J
2+3entAléat(3,19→K
2+3entAléat(1,29→J
End
Pt-On(J,K,3
codeTouche
End
If Rép≠H
Rép→D
End:End
Lbl A
Pt-Off(G,F,3
99→F:F→G
End
Lbl 5
EffDessin
EffVar |LX
EffVar |LY
Output(1,1,"
Les |L veulent dire "petit L" de Liste.

__________________________________________________________________________
Bienvenue sur le nouveau Tout-82, Invité ! Viens discuter sur le chat... What a Face
Depuis que je me suis tatoué une calculatrice sur le bras, vous pouvez compter sur moi ! :P (Best joke ever x) )
avatar
persalteas
----------------------
----------------------

Messages : 482
Points Concours : 152
Productivité : 39
Date d'inscription : 06/12/2012
Localisation : Savoie, France
Calculatrice(s) :
  • TI-82 Stats.fr

. : TI-82 Stats.fr

Voir le profil de l'utilisateur http://tout82.forumactif.org

Revenir en haut Aller en bas

Re: [JEU] Les deux Snake de Xpro en un seul !

Message par ashtrail le Dim 6 Oct 2013 - 17:00

C'est sur qu'il est beau! Je m'en vais le tester de suite.

__________________________________________________________________________
Mes programmes :
-JEUX : Le TAPTAUPE, Le MINSTEP, Un Plus-Moins
-MATHS : Regroupement n°1, Regroupement n°2, tout sur les pourcentages
-AUTRE : Le programme qui jauge les prénoms
avatar
ashtrail
Connaisseur
Connaisseur

Messages : 248
Points Concours : 21
Productivité : 21
Date d'inscription : 18/06/2013
Localisation : Paris
Calculatrice(s) :
  • TI-82 Stats.fr

. : TI-82 Stats.fr

Voir le profil de l'utilisateur http://ti-freeworld.fr1.co/

Revenir en haut Aller en bas

Re: [JEU] Les deux Snake de Xpro en un seul !

Message par blg_flg le Dim 6 Oct 2013 - 20:44

Je le connaissais. J'y jouais souvent en seconde.
Et tu l'as rendu sacrément joli. Il me semblait simplement qu'il était plus fluide, cependant...

__________________________________________________________________________




A bove ante, ab asino retro, a moderatoro undique caveto.

Invité, tu désires la liberté ? Fais donc un petit tour sur TI-Free World !

Spoiler:
avatar
blg_flg
Connaisseur
Connaisseur

Messages : 249
Points Concours : 45
Productivité : 6
Date d'inscription : 04/06/2013
Localisation : Pantruche
Calculatrice(s) :
  • TI-82 Stats.fr

. : TI-82 Stats.fr

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Re: [JEU] Les deux Snake de Xpro en un seul !

Message par persalteas le Dim 6 Oct 2013 - 21:02

Le premier, XSNAKE, était plus fluide, et super joli...

Le deuxième, XSNAKE4, était avec des niveaux, mais plus laggé.
Du coup, le mix des deux, est joli, mais laggé...

__________________________________________________________________________
Bienvenue sur le nouveau Tout-82, Invité ! Viens discuter sur le chat... What a Face
Depuis que je me suis tatoué une calculatrice sur le bras, vous pouvez compter sur moi ! :P (Best joke ever x) )
avatar
persalteas
----------------------
----------------------

Messages : 482
Points Concours : 152
Productivité : 39
Date d'inscription : 06/12/2012
Localisation : Savoie, France
Calculatrice(s) :
  • TI-82 Stats.fr

. : TI-82 Stats.fr

Voir le profil de l'utilisateur http://tout82.forumactif.org

Revenir en haut Aller en bas

Re: [JEU] Les deux Snake de Xpro en un seul !

Message par Contenu sponsorisé


Contenu sponsorisé


Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous pouvez répondre aux sujets dans ce forum