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
Mar 10 Oct 2017 - 19:42 par Wistaro

» 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


prgm TI-Road

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

prgm TI-Road

Message par Wistaro le Dim 13 Oct 2013 - 18:25

Bonsoir à tous!

Je vous présente un jeu que j'ai fait il y a quelques semaines déjà, et dont je ne vous ait jamais parlé.
Il s'agit de, comme l'indique le titre, de TI-Road.

Je vous laisse le découvrir en image: http://www.youtube.com/watch?v=ZQkg0Qyoeh8

Pour ceux qui n'auraient pas accès à Youtube, voici un Screenshot du jeu:
(screenshoot un peu pourri, je vous l'accorde)

Lien TI-planet: http://tiplanet.org/forum/archives_voir.php?id=16549

Code:
Code:

:StoreGDB 1
:0→Xmin:94→Xmax
:0→Ymin:62→Ymax
:{0}→ᴸTR
:ClrDraw
:16→A:51→B:33→C
:25→D:45→E:55→F
:71→G
:For(K,1,05
:   A+1→A:B+1→B:C+1→C:D+1→D:E+1→E:F+1→F:G+1→G
:   Line(A,B,C,D
:   Line(C,D,E,E
:   Line(E,E,F,D
:   Line(F,D,G,B
:   Horizontal D-5
:End:Text(42,30,"By Wistaro"
:Text(57,02,"Youtube.com/user/Wistaro"
:For(T,1,1000:End:ClrDraw:Goto PP
:Lbl PP
:For(A,1,15
:   Text(‾1,A,20,"TI":End:For(A,1,20
:   Text(‾1,A,34,"road":End
:For(A,27,35
:   Text(A,5,"Attrape les chiffres pour "
:   Text(A+7,5,"gagner du score."
:   Text(A+14,5,"Atention aux 0,ils sont"
:   Text(A+21,30,"Traitres..."
:End
:Horizontal 32
:Pause :ClrDraw
:1→E:24→F:1→G
:57→A:43→B:57→C:43→D:0→S:0→Q:1→Z
:0→W:57→M:80→L
:0→Xmin:94→Xmax
:0→Ymin:62→Ymax
:Line(63,58,63,41
:Line(63,41,90,41
:Line(63,59,90,59
:Line(83,41,83,28
:Line(80,28,86,28
:Line(38,62,94,6
:Line(65,0,53,12
:Line(35,30,44,21
:Line(29,36,23,42
:Line(17,48,11,54
:Line(8,57,5,60
:Line(0,30,30,0
:Text(50,1,"Best"
:StorePic 1
:Menu(" Ta voiture:","π",JA,"°",JB,"^",JC,"Autre...",JD
:Lbl JA:"π"→Str1:Goto JJ
:Lbl JB:"°"→Str1:Goto JJ
:Lbl JC:"^"→Str1:Goto JJ
:Lbl JD
:ClrHome
:Disp "Ta voiture:"
:Disp "(1 caractere)"
:Input "",Str1
:If length(Str1)≠1:Goto JD:Goto JJ
:Lbl JJ
:Repeat K=45
:   Line(90,41,90,58
:   Text(57,1,ᴸTR(1)
:   getKey→K
:   If W=0:Then
:      randInt(1,2)→J
:      randInt(0,1)→T
:      If T=0:Then:15→E:01→F:Else:1→E:24→F:End
:      randInt(0,1)→U
:      If U=0:Then
:         0→Θ:Else
:         randInt(1,99)→Θ
:      End:1→W:End
:   A-1→A:B-1→B
:   E+J→E:F+J→F
:   Text(E-J,F-J,"          "
:   Text(A,B,Str1
:   Text(E,F,Θ
:   Text(4,66,"Score"
:   Text(14,72,S
:   If K=24 and Z≠1 and B>38 and G≠0:Then:Text(A,B,"    ":B-37→B:57→C:43→D:1→Z:End
:   If S>ᴸTR(1):S→ᴸTR(1)
:   If K=26 and Z≠0 and G≠0:Then:Text(A,B,"    ":B+37→B:57→C:0→Z:80→D:End
:   If B≤1 or A≤1 or Q=1:Then:Text(A,B,"    ":C→A:D→B
:      Line(65,0,5,60,0
:      randInt(0,1)→G
:      If G=0:Then:Line(65,0,5,60)
:      Else:RecallPic 1:End:0→Q:End
:   If E=57 or F=81:Then:Text(E,F,"        ":0→W:End:
:   If E=A and F=B or E-1=A and F-1=B or E+1=A and F+1=B:Then:Text(E,F,"            ":
:      If Θ=0:Then
:         If S>ᴸTR(1):Then:S→ᴸTR(1):End
:         0→S:1→Q:Else:S+Θ→S:End:0→W:Text(14,72,"                          ":End:End
:ClrDraw:ClrHome
:DelVar Str1
:StoreGDB 1
:DelVar GDB1
:DelVar ᴸTR

Bon, petit jeu sympa histoire de passer le temps (et de bien rager aussi)

Donnez-moi vos avis, vos suggestions

Merci!

__________________________________________________________________________
Clique ici pour retrouver tout mes programmes en TIbasic

Tu es curieux, Invité? Alors clique ici:


Coucou Invité !Ta dernière visite sur ce forum date de . Tu as posté un total de 78 message(s) sur Tout 82 et enfin, tu as 0 ans.
Si nous sommes le 0, je te souhaite un joyeux anniversaire ;-)

avatar
Wistaro
Passioné
Passioné

Messages : 910
Points Concours : 86
Productivité : 28
Date d'inscription : 16/06/2013
Localisation : Tarbes - DUT GEII
Calculatrice(s) :
  • TI-82
  • TI-82 Stats
  • TI-82 Stats.fr

. : TI-82 Stats.fr

Voir le profil de l'utilisateur http://www.youtube.com/user/Wistaro

Revenir en haut Aller en bas

Re: prgm TI-Road

Message par persalteas le Dim 13 Oct 2013 - 19:08

C'est très sympa Smile ... sur 83 Plus :P

Sur TI-82 Stats.fr, il n'y a pas les lettres minuscules, donc l'affichage bugge. On a des caractères aléatoires à la place.

Donc il faudrait juste remplacer les minuscules par des majuscules, et il serait compatible Bien Joué

__________________________________________________________________________
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: prgm TI-Road

Message par m@thieu41 le Dim 13 Oct 2013 - 19:49

C'est vraiment bien Bien Joué

Juste un petit truc: quand on est sur la route de droite, il arrive un moment ou on ne peut plus aller à gauche... Donc si un "0" arrive (après qu'on ait ramassé un autre nombre par ex), on ne peut pas l'éviter affraid .

__________________________________________________________________________
ZSNAKE Mon premier (et unique) jeu en ASM:
Un Snake 2 joueurs (2caltos)
-> Je travaille sur une version plus stable du jeu, je poste dès que possible.
avatar
m@thieu41
----------------------
----------------------

Messages : 934
Points Concours : 65
Productivité : 47
Date d'inscription : 02/06/2013
Localisation : Nice, France
Calculatrice(s) :
  • TI-82 Stats.fr

. : TI-82 Stats.fr

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Re: prgm TI-Road

Message par Wistaro le Dim 13 Oct 2013 - 19:55

m@thieu41 a écrit:C'est vraiment bien Bien Joué

Juste un petit truc: quand on est sur la route de droite, il arrive un moment ou on ne peut plus aller à gauche... Donc si un "0" arrive (après qu'on ait ramassé un autre nombre par ex), on ne peut pas l'éviter affraid .
Normal sa augmente la difficulté Smile

Persal: Ouai, je vais regler sa Smile

__________________________________________________________________________
Clique ici pour retrouver tout mes programmes en TIbasic

Tu es curieux, Invité? Alors clique ici:


Coucou Invité !Ta dernière visite sur ce forum date de . Tu as posté un total de 78 message(s) sur Tout 82 et enfin, tu as 0 ans.
Si nous sommes le 0, je te souhaite un joyeux anniversaire ;-)

avatar
Wistaro
Passioné
Passioné

Messages : 910
Points Concours : 86
Productivité : 28
Date d'inscription : 16/06/2013
Localisation : Tarbes - DUT GEII
Calculatrice(s) :
  • TI-82
  • TI-82 Stats
  • TI-82 Stats.fr

. : TI-82 Stats.fr

Voir le profil de l'utilisateur http://www.youtube.com/user/Wistaro

Revenir en haut Aller en bas

Re: prgm TI-Road

Message par ashtrail le Dim 13 Oct 2013 - 20:05

Whâ le mec avec sa chaine youtube et tout et tout (j'aime bien le wistaro en feu au début...). Enfin bref sinon il est sympa ce jeu.

__________________________________________________________________________
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: prgm TI-Road

Message par m@thieu41 le Dim 13 Oct 2013 - 20:08

Ah ok autant pour moi Razz .

Il y a quelques optimisations à faire:
Code:
If S>ᴸTR(1):Then:S→ᴸTR(1):End
Pourquoi Then/End?
Code:
If S>ᴸTR(1
S→ᴸTR(1 //Pas besoin de fermer les parenthèses
--------------------

Code:
:      If Θ=0:Then
:        If S>ᴸTR(1):Then:S→ᴸTR(1):End
:        0→S:1→Q:Else:S+Θ→S:End:0→W:Text(14,72,"                          ":End:End //Cette ligne est juste énorme Razz
N'hésites pas à mettre des retours à la ligne pour être plus clair:
Code:
:      If Θ=0
:      Then
:        If S>ᴸTR(1
:            S→ᴸTR(1
:        0→S
:        1→Q
:      Else
:        S+Θ→S
:      End
:      0→W
:      Text(14,72,"                          "
:    End
:End
On comprend mieux comme ça.

------------------

Code:
If Θ=0
Devient:
Code:
If not(Θ
(Et pareil à chaque fois que tu veux tester si une valeur est nulle).

-----------------

Tu as fermé pleins de parenthèses et de guillemets alors que c'est inutile et que ça prend de la place.

__________________________________________________________________________
ZSNAKE Mon premier (et unique) jeu en ASM:
Un Snake 2 joueurs (2caltos)
-> Je travaille sur une version plus stable du jeu, je poste dès que possible.
avatar
m@thieu41
----------------------
----------------------

Messages : 934
Points Concours : 65
Productivité : 47
Date d'inscription : 02/06/2013
Localisation : Nice, France
Calculatrice(s) :
  • TI-82 Stats.fr

. : TI-82 Stats.fr

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Re: prgm TI-Road

Message par Wistaro le Dim 13 Oct 2013 - 20:26

Oui, c'est vrai j'avais oublié de l'optimisé Smile

Merci à tous Smile

__________________________________________________________________________
Clique ici pour retrouver tout mes programmes en TIbasic

Tu es curieux, Invité? Alors clique ici:


Coucou Invité !Ta dernière visite sur ce forum date de . Tu as posté un total de 78 message(s) sur Tout 82 et enfin, tu as 0 ans.
Si nous sommes le 0, je te souhaite un joyeux anniversaire ;-)

avatar
Wistaro
Passioné
Passioné

Messages : 910
Points Concours : 86
Productivité : 28
Date d'inscription : 16/06/2013
Localisation : Tarbes - DUT GEII
Calculatrice(s) :
  • TI-82
  • TI-82 Stats
  • TI-82 Stats.fr

. : TI-82 Stats.fr

Voir le profil de l'utilisateur http://www.youtube.com/user/Wistaro

Revenir en haut Aller en bas

Re: prgm TI-Road

Message par m@thieu41 le Dim 13 Oct 2013 - 20:30

[hs]Tiens les smiley passent dans la balise code maintenant Shocked [/hs]

__________________________________________________________________________
ZSNAKE Mon premier (et unique) jeu en ASM:
Un Snake 2 joueurs (2caltos)
-> Je travaille sur une version plus stable du jeu, je poste dès que possible.
avatar
m@thieu41
----------------------
----------------------

Messages : 934
Points Concours : 65
Productivité : 47
Date d'inscription : 02/06/2013
Localisation : Nice, France
Calculatrice(s) :
  • TI-82 Stats.fr

. : TI-82 Stats.fr

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Re: prgm TI-Road

Message par Wistaro le Dim 13 Oct 2013 - 20:37

non pourquoi?

__________________________________________________________________________
Clique ici pour retrouver tout mes programmes en TIbasic

Tu es curieux, Invité? Alors clique ici:


Coucou Invité !Ta dernière visite sur ce forum date de . Tu as posté un total de 78 message(s) sur Tout 82 et enfin, tu as 0 ans.
Si nous sommes le 0, je te souhaite un joyeux anniversaire ;-)

avatar
Wistaro
Passioné
Passioné

Messages : 910
Points Concours : 86
Productivité : 28
Date d'inscription : 16/06/2013
Localisation : Tarbes - DUT GEII
Calculatrice(s) :
  • TI-82
  • TI-82 Stats
  • TI-82 Stats.fr

. : TI-82 Stats.fr

Voir le profil de l'utilisateur http://www.youtube.com/user/Wistaro

Revenir en haut Aller en bas

Re: prgm TI-Road

Message par m@thieu41 le Dim 13 Oct 2013 - 20:41

m@thieu41 a écrit:
Code:
:      If Θ=0:Then
:         If S>ᴸTR(1):Then:S→ᴸTR(1):End
:         0→S:1→Q:Else:S+Θ→S:End:0→W:Text(14,72,"                          ":End:End //Cette ligne est juste énorme Razz

__________________________________________________________________________
ZSNAKE Mon premier (et unique) jeu en ASM:
Un Snake 2 joueurs (2caltos)
-> Je travaille sur une version plus stable du jeu, je poste dès que possible.
avatar
m@thieu41
----------------------
----------------------

Messages : 934
Points Concours : 65
Productivité : 47
Date d'inscription : 02/06/2013
Localisation : Nice, France
Calculatrice(s) :
  • TI-82 Stats.fr

. : TI-82 Stats.fr

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Re: prgm TI-Road

Message par Wistaro le Dim 13 Oct 2013 - 22:03

bug ? :p

__________________________________________________________________________
Clique ici pour retrouver tout mes programmes en TIbasic

Tu es curieux, Invité? Alors clique ici:


Coucou Invité !Ta dernière visite sur ce forum date de . Tu as posté un total de 78 message(s) sur Tout 82 et enfin, tu as 0 ans.
Si nous sommes le 0, je te souhaite un joyeux anniversaire ;-)

avatar
Wistaro
Passioné
Passioné

Messages : 910
Points Concours : 86
Productivité : 28
Date d'inscription : 16/06/2013
Localisation : Tarbes - DUT GEII
Calculatrice(s) :
  • TI-82
  • TI-82 Stats
  • TI-82 Stats.fr

. : TI-82 Stats.fr

Voir le profil de l'utilisateur http://www.youtube.com/user/Wistaro

Revenir en haut Aller en bas

Re: prgm TI-Road

Message par m@thieu41 le Dim 13 Oct 2013 - 22:07

Peut être Razz .
Tant pis...

__________________________________________________________________________
ZSNAKE Mon premier (et unique) jeu en ASM:
Un Snake 2 joueurs (2caltos)
-> Je travaille sur une version plus stable du jeu, je poste dès que possible.
avatar
m@thieu41
----------------------
----------------------

Messages : 934
Points Concours : 65
Productivité : 47
Date d'inscription : 02/06/2013
Localisation : Nice, France
Calculatrice(s) :
  • TI-82 Stats.fr

. : TI-82 Stats.fr

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Re: prgm TI-Road

Message par Wistaro le Mer 23 Oct 2013 - 22:05

Qui a des idées pour l'améliorer?

__________________________________________________________________________
Clique ici pour retrouver tout mes programmes en TIbasic

Tu es curieux, Invité? Alors clique ici:


Coucou Invité !Ta dernière visite sur ce forum date de . Tu as posté un total de 78 message(s) sur Tout 82 et enfin, tu as 0 ans.
Si nous sommes le 0, je te souhaite un joyeux anniversaire ;-)

avatar
Wistaro
Passioné
Passioné

Messages : 910
Points Concours : 86
Productivité : 28
Date d'inscription : 16/06/2013
Localisation : Tarbes - DUT GEII
Calculatrice(s) :
  • TI-82
  • TI-82 Stats
  • TI-82 Stats.fr

. : TI-82 Stats.fr

Voir le profil de l'utilisateur http://www.youtube.com/user/Wistaro

Revenir en haut Aller en bas

Re: prgm TI-Road

Message par persalteas le Jeu 24 Oct 2013 - 22:25

La compatibilité 82 Stats ? :P

(minuscules -> majuscules... )

__________________________________________________________________________
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: prgm TI-Road

Message par Wistaro le Ven 25 Oct 2013 - 12:01

Ha oui Smile
Autant pour moi, j'avais oublié sa Razz

Je le corrige dès que je peut

__________________________________________________________________________
Clique ici pour retrouver tout mes programmes en TIbasic

Tu es curieux, Invité? Alors clique ici:


Coucou Invité !Ta dernière visite sur ce forum date de . Tu as posté un total de 78 message(s) sur Tout 82 et enfin, tu as 0 ans.
Si nous sommes le 0, je te souhaite un joyeux anniversaire ;-)

avatar
Wistaro
Passioné
Passioné

Messages : 910
Points Concours : 86
Productivité : 28
Date d'inscription : 16/06/2013
Localisation : Tarbes - DUT GEII
Calculatrice(s) :
  • TI-82
  • TI-82 Stats
  • TI-82 Stats.fr

. : TI-82 Stats.fr

Voir le profil de l'utilisateur http://www.youtube.com/user/Wistaro

Revenir en haut Aller en bas

Re: prgm TI-Road

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


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