Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Sam 27 Mar 2010, 23:55
Sur une calculatrice j'ai bien peur que le rendu ne soit pas agréable à cause des affichages au fur et à mesure
Pour faire simple je suppose que sur l'écran principal 6 lignes sont route, une celle du début, et la pause au milieu , mais dernière ligne pas nécessaire.
Donc sur 8 lignes d'écran.
Moi je ferais une boucle contenant au début les déplacements de la grenouille, puis les déplacements des obstacles puis un test pour savoir si la grenouille meurt.
Dans la matrice on rempli 1 pour un obstacle et 0 pour un vide
Pour un test de présence d'obstacle ça donne style If [A](Y,X)=1:Stop
Rand génère un décimal entre 0 et 1 donc pour faire plus propre avec des égalités d'entiers on fait int(Arand+B) , avec A+B=maxi-1 et B=mini pour un nombre entier entre le mini et le maxi inclus.
Et le reste c'est trop vague pour moi pour l'instant.
C'est le genre de chose où montrer revient presque à faire en entier. Alors je m'arrête là.
PS: Les obstacles doivent-ils apparaître aléatoirement ou régulièrement ? Traditionnellement c'est régulier mais déphasé.
---------------------- ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)
Autorisation : Membre
Nb de messages : 137
Inscrit le : Ven 26 Mar 2010, 17:13
Posté le : Dim 28 Mar 2010, 9:33
salut, les obstacles ne sont en effet pas réguliers mais je débute juste en programmation ,j'ai 12 ans ( oups, je me suis mal exprimer dans le 1er post, je cherchais un programme et non à en programmer un).
merci d'avoir essayer de m'aider
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Dim 28 Mar 2010, 21:51
sangohan: D'après le screen posté je déduit plutôt que les séquences d'apparition sont constantes lignes par lignes, mais que c'est la vitesse pour chaque ligne qui diffère. D'autre part je l'ai constaté dans des reprises de ce jeu indémodable.
alex : bonne chance
---------------------- ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Dim 06 Jui 2010, 23:58
J'ai programmé ce frogger il y a un petit moment, mais j'ai été déçu de mon résultat et je n'ai pas osé le poster avant.
Il reste encore un bug concernant la noyade sur les 3 dernières lignes.
Code
:ClrHome
:DelVar [A]
:{8,16}->dim([A])
:18->V
:18->W
:Output(1,1," XX XXXX XXXXX XXX X XX XXX XXXXX XX XX XX XXX XXXX XXX"
:
:-1->P
:Lbl P
:P+1->P
:8->Y
:5->X
:0->Z
:Lbl 0
:Z+1->Z
:0->K
:getKey->K
:Output(Y,X," "
:Y->T
:If [A](Y,X)=0 and Y<4
:Output(Y,X,"X
:X-(K=24 and X=/=1)+(K=26 and X=/=16)->X
:Y-(K=25)+(K=34 and Y=/=8)->Y
:If Y=0
:Goto P
:
:X-(Y=3 and not(Z/2=iPart(Z/2)) and Y=T)+(Y=2 and Y=T)-(Y=1 and Y=T)->X
:If X=0 or X=17
:Goto 9
:
:Output(Y,X,"*
:
:If Z/2=iPart(Z/2)
:V+1->V
:V-iPart((V-1)/16)*16->Q
:W+1->W
:W-iPart((W-1)/16)*16->R
:
:Output(7,Q,"X
:Output(7,Q-4+16(Q-4<1)," "
:1->[A](7,Q)
:0->[A](7,Q-4+16(Q-4<1))
:Output(7,Q+8-16(Q+8>16),"X
:Output(7,Q+4-16(Q+4>16)," "
:1->[A](7,Q+8-16(Q+8>16))
:0->[A](7,Q+4-16(Q+4>16))
:
:Output(6,17-R,"X
:Output(6,17-(R-2+16(R-2<1))," "
:1->[A](6,17-R)
:0->[A](6,17-(R-2+16(R-2<1))
:Output(6,17-(R+5-16(R+5>16)),"X
:Output(6,17-(R+3-16(R+3>16))," "
:1->[A](6,17-(R+5-16(R+5>16)))
:0->[A](6,17-(R+3-16(R+3>16))
:Output(6,17-(R+9-16(R+9>16)),"X
:Output(6,17-(R+7-16(R+7>16))," "
:1->[A](6,17-(R+9-16(R+9>16)))
:0->[A](6,17-(R+7-16(R+7>16)))
:Output(6,17-(R+13-16(R+13>16)),"X
:Output(6,17-(R+11-16(R+11>16))," "
:1->[A](6,17-(R+13-16(R+13>16)))
:0->[A](6,17-(R+11-16(R+11>16))
:
:Output(5,R,"X
:Output(5,R-7+16(R-7<1)," "
:1->[A](5,R)
:0->[A](5,R-7+16(R-7<1))
:Output(5,R-10+16(R-10<1),"X
:Output(5,R-13+16(R-13<1)," "
:1->[A](5,R-10+16(R-10<1))
:0->[A](5,R-13+16(R-13<1)
:
:Output(Y,X,"*
:
:Output(3,17-Q,"X
:Output(3,17-(Q-3+16(Q-3<1))," "
:0->[A](3,17-Q)
:1->[A](3,17-(Q-3+16(Q-3<1))
:Output(3,17-(Q+6-16(Q+6>16)),"X
:Output(3,17-(Q+3-16(Q+3>16))," "
:0->[A](3,17-(Q+6-16(Q+6>16))
:1->[A](3,17-(Q+3-16(Q+3>16))
:
:Output(2,R,"X
:Output(2,R-5+16(R-5<1)," "
:0->[A](2,R
:1->[A](2,R-5+16(R-5<1)
:
:Output(1,17-R,"X
:
:Output(1,17-(R-2+16(R-2<1))," "
:0->[A](1,17-R)
:1->[A](1,17-(R-2+16(R-2<1)))
:Output(1,17-(R+9-16(R+9>16)),"X
:Output(1,17-(R+7-16(R+7>16))," "
:0->[A](1,17-(R+9-16(R+9>16))
:1->[A](1,17-(R+7-16(R+7>16))
:
:If [A](Y,X)
:Goto 9
:Goto 0
:Lbl 9
:ClrHome
:Disp "GAME OVER","FROGS="
:Output(2,8,P
Il faut éviter les véhicules puis monter sur les objets flottant.
---------------------- ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)
Autorisation : Membre
Nb de messages : 2086
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Lun 07 Jui 2010, 11:06
ouuuh... ce programme fait mal aux yeux...
si tu es pas sur qu'il fonctionne je crois que je vais pas le recopier..
au moins il doit être léger.
pour ce genre de jeu il vaudrait mieux une version graphique,non?
et effectivement il faut un rand pour les obstacles, mais il faut que le passage reste libre.... les randoms riquent de bloquer tout le passage.
(cest pour ça que l'écran graphique peut être mieux car il y a plus de place et donc moins de chance d'être coincé.
