Autorisation : Membre
Nb de messages : 74
Inscrit le : Mar 24 Mai 2011, 19:08
Posté le : Lun 03 Oct 2011, 11:52
Après avoir parcouru le forum, j'ai decouvert quelques programmes (Copter entre autres) :
Code
ClrHome
4->Y
DelVar N
For(X,1,8
Output(Y,X,"I-O
For(L,1,30
End
Output(Y,X," "
End
ClrHome
Lbl 1
randInt(1,3->A
randInt(5,7->C
16->X
Y->Z
Lbl 2
getKey->K
min(8,max(1,Y-(K=25)+(K=34->Y
ClrHome
Output(Y,8,"I-O
Output(A,X,"I
Output(A+1,X,"I
Output(C,X,"I
Output(C+1,X,"I
Output(Z,X,"I
X-1->X
N+not(X->N
If not(X
Goto 1
If X-9 or not(Y=A or Y=A+1 or Y=C or Y=C+1 or Y=Z
Goto 2
ClrHome
Output(4,4,"PERDU!
Pause
Output(6,4,"SCORE
For(A,0,N
Output(6,10,A
End
Pause
ClrHome
Programme de base : cam!
Amélioration : Linkakro
Ma question est la suivante : Est-il possible de creer un Copter sur ecran GRAPHIQUE ? Car ici, les "I" sont avec output(, ce qui ne rend pas le jeu très attirant .
Quelqu'un pourrait essayer de le programmer, est marquer le code pour que je puisse "Recopier" a la main, J'ai deja essayé mais je ne suis pas arrivé bien loin
cam! Invité
Posté le : Lun 03 Oct 2011, 13:26
('suis sur phone et la fleme de me loger ^^)
-> oui c'est possible je vauis essayer de le faire et de le poster ce soir ou demain =)
made2kill Invité
Posté le : Lun 03 Oct 2011, 15:18
('suis sur un ordi de mon lycée et j'au la flemme de me loger )
Cela dépasse mes compétences, désolé mais mon jeu de labyrinthe réunit à peu près toutes mes connaissances en graphique.
Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Lun 03 Oct 2011, 17:17
Le jeu manquera certainement de fluidité !
Mais je suis moi aussi intéressé par cette perspective car il y a plusieurs manières de traîter ce problème.
Par contre j'ai peu de chances de le finir avant cam!. (prépa oblige)
---------------------- 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)
ZStandart
ClrDraw
Menu("MODE DE JEU","MODE 1",A,"MODE 2",B
Lbl A:1->M
Goto 0
Lbl B:2->M
Lbl 0
20->X:30->Y
80->B:0->S
randInt(9,50->A
For(L,1,92
Pxl-On(8,L
End
Lbl 1
Text(1,1,"SCORE : ",S
While 1
For(L,A,A+10
Pxl-On(L,B
End
Text(Y,X,"*-O
getKey->K
If K!=0
Text(Y,X,"14 ESPACES
If M=1:Then
If K=25:Y-4->Y
If K=34:Y+4->Y
Text(Y,X,"*-O
End
If M=2:Then
If K=105:Then
Y-8->Y
Text(Y,X,"*-O
End
Text(Y,X,"14 ESPACES
Y+4->Y
Tdext(Y,X,"*-O
End
For(L,A,A+10
Pxl-Off(L,B
End
B-10->B
If B<1:Then
S+1->S
randInt(9,50->A
80->B:Goto 1
End:End
Vous pouvez déjà essayer!!...edit : sorry linkakro et au modos pour le double post forum
Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Mar 24 Jan 2012, 22:49
Vérifie "ZStandart" et :
If K=25:Y-4->Y
If K=34:Y+4->Y
Je ne sais pas d'où ailleurs peut venir ton erreur.
(En outre je n'ai pas testé cette version du programme.)
---------------------- 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 : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Mer 25 Jan 2012, 22:31
Parce que cette version n'a pas de test de collision.
Il n'y a ni pxl-Test ni la moindre condition sur Y.
---------------------- 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)
.
mais je ne suis pas arrivé bien loin 
)
