Accueil Ti-Gen Foire Aux Questions Chat sur le chan #tigcc sur IRC
Liste des membres Rechercher Aide
Bienvenue Invité !   Se connecter             Mes sujets   
Administrer
0 membre(s) et 1 visiteur(s) actif(s) durant les 5 dernières minutes Utilisateurs actifs : Aucun membre + 1 visiteur
Avant de poster sur le forum, il y a des régles de bases à respecter pour une bonne entente et un respect de tous.
Veuillez lire la charte du forum.
  :: Index » GFA-Basic TI68K » Sources et exemples » Jeu en GFA (10 réponse(s))
./POST DE DEPART (post n°0)   Marquer comme non lu.
Dari Ecrit le: Samedi 26 février 2005 à 13:29 Déconnecté(e)    Voir le profil de Dari Envoyer un email à Dari Visiter le site WEB de Dari Envoyer un message privé à Dari  

Voilà un jeu marrant :
T%=Timer%
Copter1$=Mki$(0)+Mki$(0)+Mki$(&H0010)
For I%=1 To 16
 Read Data%
 Copter1$=Copter1$+Mki$(Data%)
Next
Data 3968,128,50160,48156,32786,57374,6148,2040,1016,1028,0,0,0,0,0,0
Copter2$=Mki$(0)+Mki$(0)+Mki$(&H0010)
For I%=1 To 16
 Read Data%
 Copter2$=Copter2$+Mki$(Data%)
Next
Data 248,128,50160,48156,32786,57374,6148,2040,1016,1028,0,0,0,0,0,0
Enn$=Mki$(0)+Mki$(0)+Mki$(&H0010)
For I%=1 To 16
 Read Data%
 Enn$=Enn$+Mki$(Data%)
Next
Data 0,1920,7399,9369,17545,17545,33927,33925,33925,33927,17545,17545,9369,7399,1920,0
Sco%=0
Vie%=0
X%=800
Xs%=0
Ys%=0
Y%=900
Xa%=80
Ya%=50
Xr%=0
Yr%=0
Sht%=FALSE
Xenn%=159
Yenn%=Random(84)
Z%=TRUE
Copter$=Copter1$
Setfont F_4X6
Repeat
 Cls
 Print "Score : "'Sco%'"Vie : "'Vie%
 Sprite Copter$,Xa%,Ya%
 Sprite Enn$,Xenn%,Yenn%
 If Sht%
  Plot Xr%,Yr%
  Plot Xr%-1,Yr%
 Endif
 Pause 1
 If RR_LEFT And Xs%>-10
  Sub Xs%,2
 Endif
 If RR_RIGHT And Xs%<10
  Add Xs%,2
 Endif
 If RR_UP And YS%>-5
  Sub Ys%,2
 Endif
 If RR_DOWN And Ys%<20
  Add YS%,1
 Endif
 If RR_2ND And Not(Sht%)
  Sht%=True
  Xr%=Int(X%/10)+17
  Yr%=Int(Y%/10)+5
 Endif
 If Ys%<20 and Y%<880
  Add Ys%,1
 Endif
 Add X%,Xs%
 If X%<0
  X%=-X%
  Xs%=-Xs%-1
 Elseif X%>1450
  X%=2900-X%
  Xs%=-Xs%+1
 Endif
 Add Y%,Ys%
 If Y%<0
  Y%=-Y%
  Ys%=-Ys%-1
 Elseif Y%>900
  Y%=1800-Y%
  Ys%=-Ys%+1
 Endif
 If Sht% And Xr%<159
  Add Xr%,2
 Elseif Sht% and Xr%>=158
  Sht%=FALSE
 Endif
 If Sht% And Abs(Yr%-Yenn%-8)<=8 And Abs(Xr%-Xenn%)<=2
  Add Sco%, 9-Abs(Yr%-Yenn%-8)
  Sht%=FALSE
  Xenn%=159
  Yenn%=Random(84)
 Endif
 If Abs(Y%-10*Yenn%-30)<=120 And Abs(X%-10*Xenn%)<=150
  Dec Vie%
  Sub Sco%,50
  X%=800
  Xs%=0
  Ys%=0
  Y%=900
 Endif
 If Xenn%<>0
  Dec Xenn%
 Else
  Xenn%=159
  Yenn%=Random(84)
  Sub Sco%,50
 Endif
 If Z%
  Copter$=Copter1$
 Else
  Copter$=Copter2$
 Endif
 Z%=Not Z%
 Xa%=Int(X%/10)
 Ya%=Int(Y%/10)
Until RR_ESC Or Vie%=0
Cls
Setfont F_8X10
Print "Bravo"
Setfont F_6X8
Print "Vous avez fait";Sco%;" points","Vous avez tenu pendant :",(Timer%-T%)*200;" secondes."
Repeat
Until RR_ESC Or RR_ENTER

Note : Les sprites qui ne font pas 16*16 (16*10 par exemple) ne sont pas bien gérés. Ils se décalent de 1 pixel vers le bas pour chaque sprite fait (le premier est bon, le deuxième est décalé de 1, etc.)
Voilà, je pense que tout est bon. Amusez-vous !
"iPod, therefore, I am."

http://media.laquadrature.net/Quadrature_black-out_HADOPI_468x60px.gif

    
./Post n°1   Marquer comme non lu.
limmt Ecrit le: Samedi 26 février 2005 à 13:33 Déconnecté(e)    Voir le profil de limmt Envoyer un email à limmt Visiter le site WEB de limmt Envoyer un message privé à limmt  


euh tu pourrais enregistrer ca dans un .89T stp? :)
http://www.falco-fr.com/ - http://www.jump67.com/ - http://www.msf-league.com/
    
./Post n°2   Marquer comme non lu.
geogeo Ecrit le: Samedi 26 février 2005 à 18:04 Déconnecté(e)    Voir le profil de geogeo Envoyer un email à geogeo Visiter le site WEB de geogeo Envoyer un message privé à geogeo  


Prendre TI-Graph link faire copier coller en envoyer! En format Text bien sûr. :D
Webmaster du site.
Programmeur sur TI68K. Arkanoid, Nebulus, GFA-Basic.

Plus d'informations sur GFA-Basic (un langage Basic pour TI68K).
http://www.tigen.org/gfabasic
    
./Post n°3   Marquer comme non lu.
geogeo Ecrit le: Samedi 26 février 2005 à 18:18 Déconnecté(e)    Voir le profil de geogeo Envoyer un email à geogeo Visiter le site WEB de geogeo Envoyer un message privé à geogeo  


J'ai trouvé des bugs dans ton code Dari, j'ai corrigé certaines choses.
Sinon pour ton pb de décalage il fallait juste changer ta boucle for, la faire passer de 16 à 10.

Ton jeu est bien mais l'helico est difficile à manier.


T%=Timer
Copter1$=Mki$(0)+Mki$(0)+Mki$(&H0010)
For I%=1 To 16
Read Data%
Copter1$=Copter1$+Mki$(Data%)
Next
Data 3968,128,50160,48156,32786,57374,6148,2040,1016,1028,0,0,0,0,0,0
Copter2$=Mki$(0)+Mki$(0)+Mki$(&H000A)
For I%=1 To 10
Read Data%
Copter2$=Copter2$+Mki$(Data%)
Next
Data 248,128,50160,48156,32786,57374,6148,2040,1016,1028
Enn$=Mki$(0)+Mki$(0)+Mki$(&H0010)
For I%=1 To 16
Read Data%
Enn$=Enn$+Mki$(Data%)
Next
Data 0,1920,7399,9369,17545,17545,33927,33925,33925,33927,17545,17545,9369,7399,1920,0
Sco%=0
Vie%=5
X%=800
Xs%=0
Ys%=0
Y%=900
Xa%=80
Ya%=50
Xr%=0
Yr%=0
Sht%=FALSE
Xenn%=159
Yenn%=Random(84)
Z%=TRUE
Copter$=Copter1$
Setfont F_4X6
Repeat
Cls
Print "Score "'Sco%'"Vie "'Vie%
Sprite Copter$,Xa%,Ya%
Sprite Enn$,Xenn%,Yenn%
If Sht%
 Plot Xr%,Yr%
 Plot Xr%-1,Yr%
Endif
Pause 1
If RR_LEFT And Xs%>-10
 Sub Xs%,2
Endif
If RR_RIGHT And Xs%<10
 Add Xs%,2
Endif
If RR_UP And Ys%>-5
 Sub Ys%,2
Endif
If RR_DOWN And Ys%<20
 Add Ys%,1
Endif
If RR_2ND And Not(Sht%)
 Sht%=TRUE
 Xr%=Int(X%/10)+17
 Yr%=Int(Y%/10)+5
Endif
If Ys%<20 And Y%<880
 Add Ys%,1
Endif
Add X%,Xs%
If X%<0
 X%=-X%
 Xs%=-Xs%-1
Elseif X%>1450
 X%=2900-X%
 Xs%=-Xs%+1
Endif
Add Y%,Ys%
If Y%<0
 Y%=-Y%
 Ys%=-Ys%-1
Elseif Y%>900
 Y%=1800-Y%
 Ys%=-Ys%+1
Endif
If Sht% And Xr%<159
 Add Xr%,2
Elseif Sht% And Xr%>=158
 Sht%=FALSE
Endif
If Sht% And Abs(Yr%-Yenn%-8)<=8 And Abs(Xr%-Xenn%)<=2
 Add Sco%, 9-Abs(Yr%-Yenn%-8)
 Sht%=FALSE
 Xenn%=159
 Yenn%=Random(84)
Endif
If Abs(Y%-10*Yenn%-30)<=120 And Abs(X%-10*Xenn%)<=150
 Dec Vie%
 Sub Sco%,50
 X%=800
 Xs%=0
 Ys%=0
 Y%=900
Endif
If Xenn%<>0
 Dec Xenn%
Else
 Xenn%=159
 Yenn%=Random(84)
 Sub Sco%,50
Endif
If Z%
 Copter$=Copter1$
Else
 Copter$=Copter2$
Endif
Z%=Not Z%
Xa%=Int(X%/10)
Ya%=Int(Y%/10)
Until RR_ESC Or Vie%=0
Cls
Setfont F_8X10
Print "Bravo"
Setfont F_6X8
Print "Vous avez fait ";Sco%;" points","Vous avez tenu pendant",(Timer-T%)/200;" secondes."
Repeat
Until RR_ESC Or RR_ENTER


EDIT: smileys
geogeo penses y pour les codes GFA sinon ca fait plein d'erreurs sur la page (images 404)
-Edité le Samedi 26 février 2005 à 18:29 par limmt-
Webmaster du site.
Programmeur sur TI68K. Arkanoid, Nebulus, GFA-Basic.

Plus d'informations sur GFA-Basic (un langage Basic pour TI68K).
http://www.tigen.org/gfabasic
    
./Post n°4   Marquer comme non lu.
geogeo Ecrit le: Samedi 26 février 2005 à 18:19 Déconnecté(e)    Voir le profil de geogeo Envoyer un email à geogeo Visiter le site WEB de geogeo Envoyer un message privé à geogeo  


Pour la variable Sht%
Je te conseil de la faire passer en boolena avec
Sht!
genre
Sht!=TRUE ou Sht!=FALSE.

-Edité le Samedi 26 février 2005 à 18:19 par geogeo-
Webmaster du site.
Programmeur sur TI68K. Arkanoid, Nebulus, GFA-Basic.

Plus d'informations sur GFA-Basic (un langage Basic pour TI68K).
http://www.tigen.org/gfabasic
    
./Post n°5   Marquer comme non lu.
geogeo Ecrit le: Dimanche 27 février 2005 à 00:11 Déconnecté(e)    Voir le profil de geogeo Envoyer un email à geogeo Visiter le site WEB de geogeo Envoyer un message privé à geogeo  


Ah oui, Dari, qu'en penses-tu de ce langage et de sa vitesse?
Webmaster du site.
Programmeur sur TI68K. Arkanoid, Nebulus, GFA-Basic.

Plus d'informations sur GFA-Basic (un langage Basic pour TI68K).
http://www.tigen.org/gfabasic
    
./Post n°6   Marquer comme non lu.
Dari Ecrit le: Dimanche 27 février 2005 à 11:34 Déconnecté(e)    Voir le profil de Dari Envoyer un email à Dari Visiter le site WEB de Dari Envoyer un message privé à Dari  

Ça tue ! Vachement rapide.
Sinon, je pense que GFA Basic n'est pas assez documenté. En effet, j'ai recopié la syntaxe des Data sur tes programmes, mais je n'ai pas compris pourquoi le Data? est après la boucle For.
Sinon, les types de variables, pareil. Je saivais pas que ! était booléen. Je connaissais que % (entiers/flottants) et $ (strings).
"iPod, therefore, I am."

http://media.laquadrature.net/Quadrature_black-out_HADOPI_468x60px.gif

    
./Post n°7   Marquer comme non lu.
geogeo Ecrit le: Dimanche 27 février 2005 à 11:52 Déconnecté(e)    Voir le profil de geogeo Envoyer un email à geogeo Visiter le site WEB de geogeo Envoyer un message privé à geogeo  


La documentation va arriver mais faut me laisser le temps. :)
Webmaster du site.
Programmeur sur TI68K. Arkanoid, Nebulus, GFA-Basic.

Plus d'informations sur GFA-Basic (un langage Basic pour TI68K).
http://www.tigen.org/gfabasic
    
./Post n°8   Marquer comme non lu.
Dari Ecrit le: Dimanche 27 février 2005 à 13:22 Déconnecté(e)    Voir le profil de Dari Envoyer un email à Dari Visiter le site WEB de Dari Envoyer un message privé à Dari  

OK, merci pour tout geogeo !
"iPod, therefore, I am."

http://media.laquadrature.net/Quadrature_black-out_HADOPI_468x60px.gif

    
./Post n°9   Marquer comme non lu.
Folco Ecrit le: Lundi 28 février 2005 à 13:10 Déconnecté(e)    Voir le profil de Folco Envoyer un email à Folco Envoyer un message privé à Folco  


Ca fait vraiement plaisir de voir du concret sortir de ce projet, bravo les gars! #top#
<<< Kernel Extremist©®™ >>>
Pas la peine d'aller là plus d'une fois tous les six mois...

"Il faut apprendre pour savoir qu'il faut apprendre pour savoir."
    
./Post n°10   Marquer comme non lu.
Dari Ecrit le: Lundi 28 février 2005 à 18:57 Déconnecté(e)    Voir le profil de Dari Envoyer un email à Dari Visiter le site WEB de Dari Envoyer un message privé à Dari  

Héhé, merci, je savais que ça ferait plaisir à certains !
"iPod, therefore, I am."

http://media.laquadrature.net/Quadrature_black-out_HADOPI_468x60px.gif

    
  :: Index » GFA-Basic TI68K » Sources et exemples » Jeu en GFA (10 réponse(s))
Pages : 1/1     « [1] » »|

.Répondre à ce sujet
Les boutons de code
[B]old[I]talic[U]nderline[S]trikethrough[L]ine Flip Hori[Z]ontallyFlip [V]erticallySha[D]ow[G]low[S]poilerCode [G][C]ite
Bullet [L]istList Item [K] Link [H][E]mail[P]icture SmileysHelp
Couleurs :
Saisissez votre message
Activer les smileys
     

Forum de Ti-Gen v3.0 Copyright ©2004 by Geoffrey ANNEHEIM
Webmaster: Kevin KOFLER, Content Admins: list, Server Admins: Tyler CASSIDY and Kevin KOFLER, DNS Admin: squalyl
Page générée en 171.3ms avec 18 requetes