Tout 82
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
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
prgm TI-Road EmptyDim 16 Oct 2022 - 21:11 par Wistaro

» Bonne année 2018!
prgm TI-Road EmptyVen 2 Nov 2018 - 19:42 par Ti64CLi++

» Lancement du TI-Concours 2017 !
prgm TI-Road EmptySam 20 Mai 2017 - 0:27 par Paulo1026

» Chaînes Youtube des membres
prgm TI-Road EmptyVen 19 Mai 2017 - 22:41 par Wistaro

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

» [Projet] Un mario by tout82
prgm TI-Road EmptyDim 29 Jan 2017 - 14:09 par Wistaro

» Cherche documentation assembleur TI82stat
prgm TI-Road EmptyMer 25 Jan 2017 - 12:29 par Ti64CLi++

» Probleme Ti-82 Stats fr
prgm TI-Road EmptyJeu 12 Jan 2017 - 13:56 par Ti64CLi++

» ROM 82 stats.fr
prgm TI-Road EmptyJeu 15 Déc 2016 - 10:24 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
Aucun utilisateur

-15%
Le deal à ne pas rater :
(Adhérents Fnac) LEGO® Star Wars™ 75367 Le croiseur d’assaut de ...
552.49 € 649.99 €
Voir le deal

prgm TI-Road

4 participants

Aller en bas

prgm TI-Road Empty prgm TI-Road

Message par Wistaro 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: https://www.youtube.com/watch?v=ZQkg0Qyoeh8

Pour ceux qui n'auraient pas accès à Youtube, voici un Screenshot du jeu:
prgm TI-Road 1370705828fin (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!
Wistaro
Wistaro
Passioné
Passioné

Messages : 918
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

https://www.youtube.com/user/Wistaro

Revenir en haut Aller en bas

prgm TI-Road Empty Re: prgm TI-Road

Message par persalteas 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é
persalteas
persalteas
----------------------
----------------------

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

. : TI-82 Stats.fr

https://tout82.forumactif.org

Revenir en haut Aller en bas

prgm TI-Road Empty Re: prgm TI-Road

Message par m@thieu41 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 .
m@thieu41
m@thieu41
----------------------
----------------------

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

. : TI-82 Stats.fr

Revenir en haut Aller en bas

prgm TI-Road Empty Re: prgm TI-Road

Message par Wistaro 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
Wistaro
Wistaro
Passioné
Passioné

Messages : 918
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

https://www.youtube.com/user/Wistaro

Revenir en haut Aller en bas

prgm TI-Road Empty Re: prgm TI-Road

Message par ashtrail 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.
ashtrail
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

http://ti-freeworld.fr1.co/

Revenir en haut Aller en bas

prgm TI-Road Empty Re: prgm TI-Road

Message par m@thieu41 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.
m@thieu41
m@thieu41
----------------------
----------------------

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

. : TI-82 Stats.fr

Revenir en haut Aller en bas

prgm TI-Road Empty Re: prgm TI-Road

Message par Wistaro Dim 13 Oct 2013 - 20:26

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

Merci à tous Smile
Wistaro
Wistaro
Passioné
Passioné

Messages : 918
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

https://www.youtube.com/user/Wistaro

Revenir en haut Aller en bas

prgm TI-Road Empty Re: prgm TI-Road

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

[hs]Tiens les smiley passent dans la balise code maintenant Shocked [/hs]
m@thieu41
m@thieu41
----------------------
----------------------

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

. : TI-82 Stats.fr

Revenir en haut Aller en bas

prgm TI-Road Empty Re: prgm TI-Road

Message par Wistaro Dim 13 Oct 2013 - 20:37

non pourquoi?
Wistaro
Wistaro
Passioné
Passioné

Messages : 918
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

https://www.youtube.com/user/Wistaro

Revenir en haut Aller en bas

prgm TI-Road Empty Re: prgm TI-Road

Message par m@thieu41 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
m@thieu41
m@thieu41
----------------------
----------------------

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

. : TI-82 Stats.fr

Revenir en haut Aller en bas

prgm TI-Road Empty Re: prgm TI-Road

Message par Wistaro Dim 13 Oct 2013 - 22:03

bug ? :p
Wistaro
Wistaro
Passioné
Passioné

Messages : 918
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

https://www.youtube.com/user/Wistaro

Revenir en haut Aller en bas

prgm TI-Road Empty Re: prgm TI-Road

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

Peut être Razz .
Tant pis...
m@thieu41
m@thieu41
----------------------
----------------------

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

. : TI-82 Stats.fr

Revenir en haut Aller en bas

prgm TI-Road Empty Re: prgm TI-Road

Message par Wistaro Mer 23 Oct 2013 - 22:05

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

Messages : 918
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

https://www.youtube.com/user/Wistaro

Revenir en haut Aller en bas

prgm TI-Road Empty Re: prgm TI-Road

Message par persalteas Jeu 24 Oct 2013 - 22:25

La compatibilité 82 Stats ? :P

(minuscules -> majuscules... )
persalteas
persalteas
----------------------
----------------------

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

. : TI-82 Stats.fr

https://tout82.forumactif.org

Revenir en haut Aller en bas

prgm TI-Road Empty Re: prgm TI-Road

Message par Wistaro 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
Wistaro
Wistaro
Passioné
Passioné

Messages : 918
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

https://www.youtube.com/user/Wistaro

Revenir en haut Aller en bas

prgm TI-Road Empty Re: prgm TI-Road

Message par Contenu sponsorisé


Contenu sponsorisé


Revenir en haut Aller en bas

Revenir en haut

- Sujets similaires

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