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 » Mes premiers jeux (13 réponse(s))
./POST DE DEPART (post n°0)   Marquer comme non lu.
tama Ecrit le: Dimanche 18 juin 2006 à 13:10 Déconnecté(e)    Voir le profil de tama Envoyer un email à tama Envoyer un message privé à tama  

Jeu de basket :


Cls
SetFont F_6X8
Print "Objectif"
Print "Marquer un maximum de paniers"
Print "en 120 secondes (2 minutes)"
Print "[<] et [>]=angle"
Print "[^] et [v]=force"
Print "[Enter] pour tirer
Print "Attention au vent !!"
Repeat
Until RR_Enter
SetFont F_4X6
S=0
Tot=-1
X =timer
While T-X<2.4E4
T=Timer
V=Rnd()
RV=Random(100)
If Rv<50 Then
V=-V
Endif
Cls
Line 89,89,89,99
Line 89,99,99,99
Line 99,99,99,89
Ang%=0
Forc%=0
Print At(1,1);"SCORE=";S;"/";TOT;"-TEMPS RESTANT=";(2.4E4-T+X)/200
Repeat
Key%=Getkey
Ang%=Ang%+(Key%=KEY_RIGHT)*(Ang%<90)-(Key%=KEY_LEFT)*(Ang%>0)
If Key%=KEY_UP Then
Inc Forc%
Elseif Key%=KEY_DOWN And Forc%>0 Then
Dec Forc%
Endif
Print At(1,2);"Angle=";Ang%;"-Force=";Forc%;"-Vent=";V;" "
Until RR_ENTER
Forc=Forc%/10
Ang=(pi*Ang%)/180
Dx=Forc*Cos(Ang)
Dy=Forc*Sin(Ang)
Px=0
Py=99
Do
Sub Dy,0.1
If Px>158 Or Px<0
Then
Dx=-Dx
Endif
pcx=px+dx
pcy=py+dy
If py>88 and ((Px<89 and pcx>89) Or (Px>89 and Pcx<89) or (Px<99 and pcx>99) or (Px>99 and pcx<99))
Then
Dx=-Dx
EndIf
Px=Px+Dx+V
Py=Py-Dy
Plot Px,Py
Print At(1,3);"px=";px;"py=";py;" "

Exit If Py>99
Loop
Inc tot
If Px>89 and Py<99
Then
Print "BRAVO!!!"
Inc S
Else
Print "RATE..."
Endif
Wend
Cls
SetFont F_6X8
R=S/Totx100
Print "Rentrés=";S
Print "Total=";Tot
Print "Réussite=";R;"%"
Print " "
SetFont F_8X10
Print "Score=";0.1xTOT+(0.1xTOT)xInt(R);" Pts"
Repeat
Until RR_ESC


Le but du jeu est de marquer un maximum de paniers en 120 secondes

Le 2ème jeu est un jeu de shoot mais je sais plus trop comment l'avancer :p


Cls
M1$=Mki$(0)+Mki$(0)+Mki$(&H0002)+Mki$(32766)+Mki$(32766)

Ve$=Mki$(0)+Mki$(0)+Mki$(&H0009)

For i=1 to 9
Read Data%
Ve$=Ve$+Mki$(Data%)
Next i

Data 240,392,15984,16576,65472,16576,15984,392,240

Vj$=Mki$(0)+Mki$(0)+Mki$(&H0008)

For i=1 to 8
Read Data%
Vj$=Vj$+Mki$(Data%)
Next i

Data 63488,50176,48640,58624,58624,48640,50176,63488

Dim Px%(10),Py%(10),Lfp%(10)

Arrayfill Lfp%(),100

Expl$=Mki$(0)+Mki$(0)+Mki$(&H0008)

For i=1 to 11
Read Data%
Expl$=Expl$+Mki$(Data%)
Next i

Data 7936,10176,20320,64112,57200,40432,55472,64944,20320,10176,7936

Pxj=0
Pyj=50
Jlf=100
Mis%=0
Pxm=0

Noe%=10

For T%=1 To 10
If Even(T%)=-1 Then
Px%(T%)=130
Else
Px%(T%)=145
Endif
Next T%

While Noe%>0
Key%=GetKey

Sprite Vj$,Pxj,Pyj

For I%=1 to 10
If Lfp%(I%)>0 Then
Sprite Ve$,Px%(I%),Py%(I%)
Elseif Lfp%(I%)=0 Then
Gosub Explode(Px%(I%),Py%(I%),I%)
Noe%=Noe%-1
EndIf
Next I%

If Key%=KEY_F1 And Mis%=0 Then
Mis%=1
Pxm=10
Pym=Pyj
Sprite M1$,Pxm,Pym
Endif

If Mis%=1 Then
Sprite M1$,Pxm,Pym,1
Pxm=Pxm+5
Sprite M1$,Pxm,Pym,1
If Pxm>160 Then
Mis%=0
Endif
For I%=1 to 10
If abs(Pxm-Px%(I%))<16 And Abs(Pym-Py%(I%))<8 And Lfp%(I%)>0 Then
Sprite M1$,Pxm,Pym,1
Lfp%(I%)=Lfp%(I%)-20
Mis%=0
Endif
Next
EndIf

If Key%=KEY_UP Then
Sprite Vj$,Pxj,Pyj,1
If Pyj>0 Then
Dec Pyj
EndIf
Elseif Key%=KEY_DOWN Then
Sprite Vj$,Pxj,Pyj,1
If Pyj<92 Then
Inc Pyj
EndIf
EndIf

WEnd

Procedure Explode(A%,B%,C%)
Sprite Ve$,A%,B%,1
Sprite Expl$,A%,B%
Pause 20
Sprite Expl$,A%,B%,1
Lfp%(C%)=-1
Return

-Edité le Lundi 19 juin 2006 à 18:43 par tama-
-Edité le Lundi 19 juin 2006 à 18:43 par tama-
    
./Post n°1   Marquer comme non lu.
geogeo Ecrit le: Dimanche 18 juin 2006 à 15:43 Déconnecté(e)    Voir le profil de geogeo Envoyer un email à geogeo Visiter le site WEB de geogeo Envoyer un message privé à geogeo  


Merci pour ta participation, ça fait plaisir de voir GFA Basic utilisé. :)
D'ailleur je compte mettre à jour GFA Basic pendant les vacances avec Niveaux de gris, fichiers...
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°2   Marquer comme non lu.
tama Ecrit le: Dimanche 18 juin 2006 à 16:19 Déconnecté(e)    Voir le profil de tama Envoyer un email à tama Envoyer un message privé à tama  

cool des niveaux de gris !! :)
c'est vrai que ce serait bien !!
    
./Post n°3   Marquer comme non lu.
tama Ecrit le: Samedi 24 juin 2006 à 14:35 Déconnecté(e)    Voir le profil de tama Envoyer un email à tama Envoyer un message privé à tama  

ça sortira quand ? je suis impatient de voir là !! :D:
    
./Post n°4   Marquer comme non lu.
Onur Ecrit le: Samedi 24 juin 2006 à 16:08 Déconnecté(e)    Voir le profil de Onur Envoyer un email à Onur Visiter le site WEB de Onur Envoyer un message privé à Onur  


Lol.. geo²> voila ce que ca fait d'etre tout seul sur un programme qui interesse plus d'un :)
Je ne veux pas faire quelque chose de bien, je cherche l'excellence:ETP Studio...


et autres projets à finir avant 2010
    
./Post n°5   Marquer comme non lu.
tama Ecrit le: Samedi 24 juin 2006 à 16:25 Déconnecté(e)    Voir le profil de tama Envoyer un email à tama Envoyer un message privé à tama  

lol mais c'est vrai que avec les niveaux de gris ça serait trop bien !!
    
./Post n°6   Marquer comme non lu.
Kevin Kofler Ecrit le: Samedi 24 juin 2006 à 16:40 Déconnecté(e)    Voir le profil de Kevin Kofler Envoyer un email à Kevin Kofler Visiter le site WEB de Kevin Kofler Envoyer un message privé à Kevin Kofler  


Onur> Sauf que toi, tu refuses tout genre de coopération, alors ne va pas te plaindre.
Membre de l'équipe de TIGCC: http://tigcc.ticalc.org
Mainteneur du portage Linux/Unix de TIGCC: http://tigcc.ticalc.org/linux/
Membre de l'équipe de CalcForge: http://www.calcforge.org:70/

Participez à la reprise de Ti-Gen!
    
./Post n°7   Marquer comme non lu.
geogeo Ecrit le: Samedi 24 juin 2006 à 20:46 Déconnecté(e)    Voir le profil de geogeo Envoyer un email à geogeo Visiter le site WEB de geogeo Envoyer un message privé à geogeo  


Je suis en train de réécrire le scanner donc je ne peux pas vraiment donner de date de sortie mais bon le projet reprend, c'est déjà ça.
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.
tama Ecrit le: Dimanche 25 juin 2006 à 13:56 Déconnecté(e)    Voir le profil de tama Envoyer un email à tama Envoyer un message privé à tama  

bon à part ça j'ai réussi à faire une capture d'écran de mon premier programme (1ère source : le jeu de basket)
les graphismes sont assez basiques (c'est pas mon point fort :D)

c'est un gif animé
http://www.mezimages.com/image/tama/CAPT.GIF
    
./Post n°9   Marquer comme non lu.
tama Ecrit le: Dimanche 25 juin 2006 à 14:48 Déconnecté(e)    Voir le profil de tama Envoyer un email à tama Envoyer un message privé à tama  

et puis aussi le jeu de shoot (2ème source) (là où j'en suis maintenant) :
http://www.mezimages.com/image/tama/CAPT3.GIF
    
./Post n°10   Marquer comme non lu.
geogeo Ecrit le: Dimanche 25 juin 2006 à 17:23 Déconnecté(e)    Voir le profil de geogeo Envoyer un email à geogeo Visiter le site WEB de geogeo Envoyer un message privé à geogeo  


C'est pas mal. :)
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°11   Marquer comme non lu.
tama Ecrit le: Mardi 4 juillet 2006 à 23:43 Déconnecté(e)    Voir le profil de tama Envoyer un email à tama Envoyer un message privé à tama  


Dim tps(5)
Setfont F_8X10
Cls

Go$=Mki$(0)+Mik$(0)+Mki$(&H0010)

For D%=1 to 16
Go$=Go$+Mki$(65535)
Next

No$=Mki$(0)+Mki$(0)+Mki$(&H0010)+Mki$(65535)

For D%=1 to 16
No$=No$+Mki$(32769)
Next
No$=No$+Mki$(65535)

For I%=1 to 5
Sprite No$,80,0
Pause 150+Random(500)
Sprite Go$,80,0
T%=Timer
Repeat
Until RR_ENTER
Tb=(Timer()-T%)/200
Print Str$(I%)+">"+Str$(Tb)
Tps(I%)=Tb
Sprite Go$,80,0,1
Next

Tm=0
For T%=1 to 5
Tm=Tm+Tps(T%)
Next T%
Tm=Tm/5
Print "TEMPS MOYEN"
Print Tm

Repeat
Until RR_ESC


Principe :
Test du temps de réaction
5 essais
Le programme "attend" pendant un temps aléatoire compris entre 3 et 13 secondes
Pendant cette "attente" un carré vide apparait : ne rien faire
Lorsqu'un carré plein apparait, appuyer le plus vite possible sur Enter
A la fin le programme affiche le temps moyen de réaction
Mon temps : 0.265 secondes
    
./Post n°12   Marquer comme non lu.
tama Ecrit le: Samedi 14 octobre 2006 à 22:28 Déconnecté(e)    Voir le profil de tama Envoyer un email à tama Envoyer un message privé à tama  

juste pour dire que j'ai fait d'autres programmes en gfabasic sur mon blog ici c'est de la pub mais c'est des programmes en GFA-Basic et je savais pas où le mettre :)
    
./Post n°13   Marquer comme non lu.
geogeo Ecrit le: Samedi 14 octobre 2006 à 23:54 Déconnecté(e)    Voir le profil de geogeo Envoyer un email à geogeo Visiter le site WEB de geogeo Envoyer un message privé à geogeo  


ok, merci :)
-Edité le Samedi 14 octobre 2006 à 23:58 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
    
  :: Index » GFA-Basic TI68K » Sources et exemples » Mes premiers jeux (13 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 41.56ms avec 18 requetes