Forum tama's team

cp: ne peut évaluer `brain': Aucun fichier ou dossier de ce type
AccueilPortailGalerieCalendrierFAQRechercherS'enregistrerMembresGroupesConnexion
Connexion
Nom d'utilisateur:
Mot de passe:
Connexion automatique: 
:: Récupérer mon mot de passe
Derniers sujets
» Network, essai 1
par godbod Dim 09 Juil 2017, 02:18

» GODBOD
par godbod Sam 08 Juil 2017, 14:05

» Numbers
par godbod Sam 08 Juil 2017, 13:54

» Mort ?
par godbod Sam 08 Juil 2017, 13:47

» mon humeur
par Ver2guerre Sam 30 Juil 2016, 19:44

» [A voir] Programme de traduction original : WikiTranslate
par AdRiWeB Lun 01 Fév 2016, 04:50

» Reprise ?
par Emyl Jeu 14 Juin 2012, 21:17

» Euh, ah ?
par Ver2guerre Dim 27 Mai 2012, 12:11

» Problème TI 89 Titanium non visible après mise à jour
par abdoukid Mer 23 Mai 2012, 13:37

» Y'a quelqu'un ?
par Ver2guerre Sam 21 Avr 2012, 23:10

Quick message
Qui est en ligne ?
Il y a en tout 3 utilisateurs en ligne :: 0 Enregistré, 0 Invisible et 3 Invités

Aucun

Le record du nombre d'utilisateurs en ligne est de 367 le Dim 18 Oct 2009, 00:16

Partagez | 
 

 Mon premier jeu entièrement fini !!!

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
Emyl
élite
élite
avatar

Nombre de messages : 210
Age : 25
Localisation : Nîmois
Loisirs : programmation, lecture
Humeur : ben c'es la reprise...vivement les prochaines vacances :P
items : 0.0000001
Personalized field :
Réputation : 0
Points : 3385
Date d'inscription : 01/01/2009

Profil
TI: 84+ et 83+
TO: 200
Spécialité: Basic z80

MessageSujet: Mon premier jeu entièrement fini !!!   Lun 27 Avr 2009, 17:01

Faut dire que j'aime bien perfectionner ^^

sauf dans ce cas, ou je présente un prog que j'ai fait ce week en 30 minutes Razz

le principe est simple, il faut cliquer le plus vite possible sur les touches pour faire avancer son perso, et arriver avant l'autre (en bas).

Fin voila XD

http://www.sendspace.com/file/oksb5e

_________________
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
tama
Admin
Admin
avatar

Nombre de messages : 12375
Age : 26
Localisation : DTC ? :triso:
Humeur : =)
items : o
Personalized field : huh ? oO
Réputation : 3
Points : 7028
Date d'inscription : 08/08/2007

Profil
TI: 84+, 89 tita, 89 tita
TO: infini :p
Spécialité: C 68k

MessageSujet: Re: Mon premier jeu entièrement fini !!!   Lun 27 Avr 2009, 18:40

cliquer sur les touches ? XD
sinon quelques remarques :
1. Pourquoi t'as protégé le code ? =(
2. En fait faut bourriner sur [Enter], non ? Very Happy, c'est pas plus intéressant de faire [gauche] [droite] ? =)
3. Euh ... au bout d'un moment la croix revient en arrière ? oO
4. C'est quoi le level ? j'ai essayé level 0 mais le rond n'a pas l'air de bouger :)

A part ça, plutôt bien pour un début mais tu peux sûrement l'améliorer encore Wink

_________________


Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Emyl
élite
élite
avatar

Nombre de messages : 210
Age : 25
Localisation : Nîmois
Loisirs : programmation, lecture
Humeur : ben c'es la reprise...vivement les prochaines vacances :P
items : 0.0000001
Personalized field :
Réputation : 0
Points : 3385
Date d'inscription : 01/01/2009

Profil
TI: 84+ et 83+
TO: 200
Spécialité: Basic z80

MessageSujet: Re: Mon premier jeu entièrement fini !!!   Lun 27 Avr 2009, 20:52

lol, nan en fait tu peux appuyer sur toute les touches sauf :
- Clear et On (sa arrête le jeu ^^)
- Del et toute les fleches, parce que on pouvait rester appuyé dessus !

J'ai protégé le code pour qu'on ne voit pas les codes pour aller plus vite Razz
Et en fait, appuyer sur Enter est un code... je m'explique en vous dévoilant le code ...
Code:
:ClrHome
Disp "","BY EMYL",""
Input "LEVEL:",H
(H+2->H
Lbl Z
AxesOff
DelVar KDelVar ADelVar B:DelVar DDelVar LDelVar ZDelVar T
ClrDraw
int(H/3->N
int(H/5->O
int(H/7->P
While K!=45
(T+1->T
getKey->K
If K=24 or K=26 or K=34 or K=25 or K=23:0->K
If K=63:(Z+1->Z
If K=105:(L+1->L
If K=41 and L>=30:(Z+5->Z
If L>33:(Z-2->Z

If D=0:randInt(0,N->A
If D=1:randInt(0,O->A
If D=2:randInt(0,P->A

(A+B->B
If B>94:Goto 0
If Z+(K!=0)>94:Goto 1

Text(20,Z+(K!=0),"X
Text(40,B,"Á
(Z+(K!=0)->Z
(D+1->D
If D>2:0->D

(L-0.3->L
End
Lbl 0:Disp "YOU LOST...","TIME IN SECOND",round((T*60)/432,0),"","BY EMYL
Stop
Lbl 1
If H=8:Disp "THE GAME BEGINS"
If H=12:Disp "CHEAT ACCEPTED"

Disp "YOU WIN LEVEL",H-2,"TIME IN SECOND:
Pause round((T*60)/432,0
Menu("    CONTINUE ?  ","---- YES -----",AA,"---- NO ------",AB
Lbl AA:(H+1->H
Goto Z
Lbl AB:Disp "","BY EMYL

Quand on appuie sur Enter, (L+1->L
Et lorsque on appuie sur Math ET que L>=30, on avance de 6 pixels au lieu de 1 !!!
Mais pour ajouter du fun (^^), j'ai rajouté à la fin de la boucle (L-.3->L
Donc L diminue a chaque fois, il faut donc cliquer plus que 30 fois sur Enter...
Et enfin, pour punir ceux qui ne conteraient pas, si L>33, alors le perso recule Very Happy

Mais cela se compense très rapidement, si on appuie sur la touche Math immédiatement.

_________________
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
tama
Admin
Admin
avatar

Nombre de messages : 12375
Age : 26
Localisation : DTC ? :triso:
Humeur : =)
items : o
Personalized field : huh ? oO
Réputation : 3
Points : 7028
Date d'inscription : 08/08/2007

Profil
TI: 84+, 89 tita, 89 tita
TO: infini :p
Spécialité: C 68k

MessageSujet: Re: Mon premier jeu entièrement fini !!!   Lun 27 Avr 2009, 21:17

moué ok ... c'est pour ça que mon "perso" reculait
bon alors le programme est optimisable (assez facilement d'ailleurs :)) mais bon comme c'est l'un de tes premiers programmes ça va :) évite quand même les goto quand tu en sauras plus sur le TI-Basic, c'est lourd et ça peut provoquer des ralentissements
puis une fois que tu en sauras suffisamment tu pourras faire des meilleurs graphismes par exemple Wink
Bonne continuation :)

_________________


Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Emyl
élite
élite
avatar

Nombre de messages : 210
Age : 25
Localisation : Nîmois
Loisirs : programmation, lecture
Humeur : ben c'es la reprise...vivement les prochaines vacances :P
items : 0.0000001
Personalized field :
Réputation : 0
Points : 3385
Date d'inscription : 01/01/2009

Profil
TI: 84+ et 83+
TO: 200
Spécialité: Basic z80

MessageSujet: Re: Mon premier jeu entièrement fini !!!   Lun 27 Avr 2009, 22:07

Citation :
tu pourras faire des meilleurs graphismes par exemple Wink
c'est pas dans l'esprit : c'est un jeu fait vite fait pour se défouler dans la cour avec les potes, pas le genre de jeu dont on fait une éloge pendant 5 ans ^^

sinon pour l'optimisation je vois pas trop comment...
sauf pour
Code:
If B>94:Goto 0
qui devient
Code:
If B>94:End
en fait ca marche pas ça ^^

et peut-être aussi cela
Code:
If K=24 or K=26 or K=34 or K=25 or K=23:0->K
qui peut devenir
Code:
If K=24 or K=26 or K=34 or K=25 or K=23:DelVar K

et enfin (trouvé à la dernière minutes XD)
Code:
Pause round((T*60)/432,0
que l'on peut simplifier ainsi
Code:
Pause round(T*.139,0


merci pour tes conseils

_________________
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
tama
Admin
Admin
avatar

Nombre de messages : 12375
Age : 26
Localisation : DTC ? :triso:
Humeur : =)
items : o
Personalized field : huh ? oO
Réputation : 3
Points : 7028
Date d'inscription : 08/08/2007

Profil
TI: 84+, 89 tita, 89 tita
TO: infini :p
Spécialité: C 68k

MessageSujet: Re: Mon premier jeu entièrement fini !!!   Lun 27 Avr 2009, 23:39

nan, c'est pas à ça que j'pensais, enfin j'ai vu ton code en diagonale
par exemple :
Code:

(H+2->H
(T+1->T
la parenthèse ne sert à rien ici (faute de frappe ? oO)

Code:

DelVar KDelVar ADelVar B:DelVar DDelVar LDelVar ZDelVar T
y a ":" en trop (entre DelVar B et DelVar D)

Code:

If K=24 or K=26 or K=34 or K=25 or K=23:0->K
tu peux optimiser en "If (K>=23 and K<=26) or K=34" ou "If (K>=23)(K<=26)+(K=34" (au passage, mettre DelVar K à la place de 0->K ne changera rien question optimisation ^^

'pis d'autres trucs ... j'ai pas vu en détail :)

_________________


Revenir en haut Aller en bas
Voir le profil de l'utilisateur
nay0w
légende
légende


Nombre de messages : 797
Age : 24
Localisation : Dans l'coin!
Humeur : Bonne x)
items : o
Personalized field : 10 jetons
Réputation : 0
Points : 3840
Date d'inscription : 11/02/2008

Profil
TI: 82Fr / 89-Titanium
TO: 3 825
Spécialité: Autre

MessageSujet: Re: Mon premier jeu entièrement fini !!!   Mar 28 Avr 2009, 21:55

Et ça :
Code:
If K=24 or K=26 or K=34 or K=25 or K=23:0->K
If K=63:(Z+1->Z
If K=105:(L+1->L
If K=41 and L>=30:(Z+5->Z
If L>33:(Z-2->Z

On peut le simplifier en ça non? :
Code:
(24<=K<=26 or K=34)-1->K
Z+(K=63)->Z
L+(K=105)->L
Z+5(K=41 and L>=30)->Z
Z-2(L>33)->Z

Question
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Emyl
élite
élite
avatar

Nombre de messages : 210
Age : 25
Localisation : Nîmois
Loisirs : programmation, lecture
Humeur : ben c'es la reprise...vivement les prochaines vacances :P
items : 0.0000001
Personalized field :
Réputation : 0
Points : 3385
Date d'inscription : 01/01/2009

Profil
TI: 84+ et 83+
TO: 200
Spécialité: Basic z80

MessageSujet: Re: Mon premier jeu entièrement fini !!!   Mer 29 Avr 2009, 13:23

bon alors, je répond a toutes ces propositions :

tout d'abord merci ^^

ensuite pour
Code:
(H+2->H
(T+1->T
je ne savais pas que l'on pouvais enlever les parenthèse dans ce cas, je me coucherais moins co* ce soir Razz

Par contre, est-tu sur tama que K->0 ne prend pas octet de plus que Delvar K, il me semblait l'avoir vu quelque part ... (sur TI-bank ??? XD)

Et enfin nayOw,
Code:
(24<=K<=26 or K=34)-1->K
ne fonctionne pas. On a beau appuyer sur une touche, le "bonhomme" n'avance pas.
Sinon le reste fonctionne

Ca m'a l'air d'ailleurs plus rapide (faut que je chronomètre ^^), donc vais devoir faire quelque modif supplémentaires

encor merci les gars ! Very Happy

_________________
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
tama
Admin
Admin
avatar

Nombre de messages : 12375
Age : 26
Localisation : DTC ? :triso:
Humeur : =)
items : o
Personalized field : huh ? oO
Réputation : 3
Points : 7028
Date d'inscription : 08/08/2007

Profil
TI: 84+, 89 tita, 89 tita
TO: infini :p
Spécialité: C 68k

MessageSujet: Re: Mon premier jeu entièrement fini !!!   Mer 29 Avr 2009, 19:46

Alors ...

Emyl a écrit:
bon alors, je répond a toutes ces propositions :

tout d'abord merci ^^

de rien =)

Citation :

ensuite pour
Code:
(H+2->H
(T+1->T
je ne savais pas que l'on pouvais enlever les parenthèse dans ce cas, je me coucherais moins co* ce soir Razz

con ? :p
Oui, on peut enlever les parenthèses dans ce cas, comme en maths, c'est des parenthèses superflues

Citation :

Par contre, est-tu sur tama que K->0 ne prend pas octet de plus que Delvar K, il me semblait l'avoir vu quelque part ... (sur TI-bank ??? XD)

Oui, 0->K et DelVar K revient au même (tu peux tester toi-même : crées 2 programmes, dans l'un mets 0->K, dans l'autre DelVar K, puis compare leurs tailles (bien sûr le nom des 2 programmes doit avoir le même nombre de caractères))
Utiliser DelVar est plus astucieux pour effacer plusieurs variables d'un coup ou pour mettre une instruction tout de suite à la suite : le code suivant est licite :
DelVar KClrHome
c'est l'équivalent de DelVar K:ClrHome, et ça fait économiser 1 octet :)

Citation :

Et enfin nayOw,
Code:
(24<=K<=26 or K=34)-1->K
ne fonctionne pas. On a beau appuyer sur une touche, le "bonhomme" n'avance pas.
Sinon le reste fonctionne

Oui, la TI ne comprend pas la double comparaison, il faut faire 24<=K and K<=26 à la place de 24<=K<=26 ^^

Citation :

Ca m'a l'air d'ailleurs plus rapide (faut que je chronomètre ^^), donc vais devoir faire quelque modif supplémentaires

sur 1 itération ça se verra pas tellement, c'est p'tet de l'ordre de quelques secondes au mieux Wink

Citation :

encor merci les gars ! Very Happy

cf début de ce post :)

_________________


Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Emyl
élite
élite
avatar

Nombre de messages : 210
Age : 25
Localisation : Nîmois
Loisirs : programmation, lecture
Humeur : ben c'es la reprise...vivement les prochaines vacances :P
items : 0.0000001
Personalized field :
Réputation : 0
Points : 3385
Date d'inscription : 01/01/2009

Profil
TI: 84+ et 83+
TO: 200
Spécialité: Basic z80

MessageSujet: Re: Mon premier jeu entièrement fini !!!   Mer 29 Avr 2009, 22:07

Citation :
ça se verra pas tellement, c'est p'tet de l'ordre de quelques secondes au mieux Wink
ben vu que moi je finis la ligne en 7 secondes, quelques secondes ça compte ^^


Au niveau de la rapidité, Delvar n'est-il pas mieux que 0-> ?

_________________
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
tama
Admin
Admin
avatar

Nombre de messages : 12375
Age : 26
Localisation : DTC ? :triso:
Humeur : =)
items : o
Personalized field : huh ? oO
Réputation : 3
Points : 7028
Date d'inscription : 08/08/2007

Profil
TI: 84+, 89 tita, 89 tita
TO: infini :p
Spécialité: C 68k

MessageSujet: Re: Mon premier jeu entièrement fini !!!   Mer 29 Avr 2009, 22:50

hmm je sais pas
essaie de comparer les codes
Code:

For A,1,1000
DelVar B
End

et
Code:

For A,1,1000
0->B
End

enfin, là c'est carrément de l'ordre du millième de seconde, donc ça va pas changer grand-chose ^^

_________________


Revenir en haut Aller en bas
Voir le profil de l'utilisateur
nay0w
légende
légende


Nombre de messages : 797
Age : 24
Localisation : Dans l'coin!
Humeur : Bonne x)
items : o
Personalized field : 10 jetons
Réputation : 0
Points : 3840
Date d'inscription : 11/02/2008

Profil
TI: 82Fr / 89-Titanium
TO: 3 825
Spécialité: Autre

MessageSujet: Re: Mon premier jeu entièrement fini !!!   Jeu 30 Avr 2009, 00:12

Citation :
Oui, la TI ne comprend pas la double comparaison, il faut faire 24<=K and K<=26 à la place de 24<=K<=26 ^^
Mais si! Je l'ai deja utilisée o_O

Bon bah, dans ce cas là, c'est :
(K>=23 and K<=26 or K=34)-1->K
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
tama
Admin
Admin
avatar

Nombre de messages : 12375
Age : 26
Localisation : DTC ? :triso:
Humeur : =)
items : o
Personalized field : huh ? oO
Réputation : 3
Points : 7028
Date d'inscription : 08/08/2007

Profil
TI: 84+, 89 tita, 89 tita
TO: infini :p
Spécialité: C 68k

MessageSujet: Re: Mon premier jeu entièrement fini !!!   Jeu 30 Avr 2009, 18:58

nay0w > ah ? sur 82Fr ?

parce que moi si j'fais :
Code:

3->A
If 4<=A<=5
Then
1
Else
0
End
Disp Ans

ça devrait sortir 0 ..... eh bah non, ça sort 1 :)
en tout cas, ça marche pas à tout les coups, et apparemment pas non plus ici puisque le bonhomme ne se déplace pas ...

_________________


Revenir en haut Aller en bas
Voir le profil de l'utilisateur
nay0w
légende
légende


Nombre de messages : 797
Age : 24
Localisation : Dans l'coin!
Humeur : Bonne x)
items : o
Personalized field : 10 jetons
Réputation : 0
Points : 3840
Date d'inscription : 11/02/2008

Profil
TI: 82Fr / 89-Titanium
TO: 3 825
Spécialité: Autre

MessageSujet: Re: Mon premier jeu entièrement fini !!!   Jeu 30 Avr 2009, 20:19

Nan en fait ça marche pas, pourtant j'en ai deja utilisé dans un programme je crois x) Coup de chance que ça marche quand meme en fait Very Happy
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Mon premier jeu entièrement fini !!!   

Revenir en haut Aller en bas
 

Mon premier jeu entièrement fini !!!

Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
Forum tama's team :: Les membres :: Espaces persos :: Emyl-
Créer un forum | © phpBB | Forum gratuit d'entraide | Contact | Signaler un abus | Forum gratuit