Autorisation : Membre
Nb de messages : 22
Inscrit le : Jeu 10 Nov 2011, 13:12
Posté le : Jeu 10 Nov 2011, 18:45
voila mon 2eme prgm fait pour la coupe du monde,le but est de marquer des drop..
ps:ce jeu s'inspire du jeu de basket de FulliZing( pour la trajectoire du ballon, un grand merci)
Code
:-100->Xmin
:50->Xmax
:-50->Ymin
:50->Ymax
:effdessin
:ligne(30,-50,30,10)
:ligne(44,-50,30,44)
:ligne(30,-30,44,-30)
:-49->E
:entAléat(-100,0)->D
:D->K
:Pt-On(D+1,E+1) //// ce Pt-On sert a donner environ une forme
:Pt-On(D,E) //// de ballon
:Pause
:EffEcr
:Input"HAUTEUR?",H
:Input"FORCE?",F
:Lbl1
:Pt-On(D+1,E+1)
:Pt-On(D,E)
:H-6->H
:D+F/4->D
:E+4/10->E
:Pt-On(D+1,E+1)
:Pt-On(D,E)
:For(Q,1,200)
:End
:If D>30 et D<44 et E>-30 et E<20 //// le E<20 met une limite de hauteur
:Goto3 //// pour ne pas tirer a pleine puissance
:If E[inferieur ou egale]-50 ou D[superieur ou egale]50
:Goto4
:Goto1
:Lbl3
:EffEcr
:Output(4,7,"DROP!
:Output(1,1,"****************
:Output(8,1,"****************
:Output(5,7,"DISTANCE:
:abs(K)->K
:K+30->K
:Output(6,7,K
:Stop
:Lbl4
:EffEcr
:Output(4,6,"RATE
PS: pour marquer il faut que le point s'arrete dans le but...
---------------------- -----------------------------------
&amp;amp;quot;on monte plus vite un escalier fait pour descendre que si on descend un escalier fait pour monter...&amp;amp;quot;
&amp;amp;quot;si ton tonton thon tond ton tonton thon,ton tonton tondu sera...&amp;amp;quot; http://www.chucknorrisfacts.fr/:LE site qu'il faut avoir vu dans sa vie
Autorisation : Membre
Nb de messages : 1366
Inscrit le : Ven 25 Mar 2011, 22:58
Posté le : Jeu 10 Nov 2011, 18:57
Je n'ai pas testé le jeux, mais on peut bien l'optimiser :
Code
:-100->Xmin
:50->Xmax
:-50->Ymin
:50->Ymax
:effdessin
:ligne(30,-50,30,10
:ligne(44,-50,30,44
:ligne(30,-30,44,-30
:-49->E
:entAléat(-100,0->D
:D->K
:Pt-On(D+1,E+1 //// ce Pt-On sert a donner environ une forme
:Pt-On(D,E //// de ballon
:Pause
:EffEcr
:Input"HAUTEUR?",H
:Input"FORCE?",F
:Lbl1
:Pt-On(D+1,E+1
:Pt-On(D,E
:H-6->H
:D+F/4->D
:E+.14->E
:Pt-On(D+1,E+1
:Pt-On(D,E
:For(Q,1,200
:End
:If D>30 et D<44 et E>-30 et E<20 //// le E<20 met une limite de hauteur
:Goto3 //// pour ne pas tirer a pleine puissance
:If E[inferieur ou egale]-50 ou D[superieur ou egale]50
:Goto4
:Goto1
:Lbl3
:EffEcr
:Output(4,7,"DROP!
:Output(1,1,"****************
:Output(8,1,"****************
:Output(5,7,"DISTANCE:
:abs(K->K
:K+30->K
:Output(6,7,K
:Stop
:Lbl4
:EffEcr
:Output(4,6,"RATE
---------------------- mort à l'inutile, place à la mémoire libre et aux programmes
Autorisation : Membre
Nb de messages : 22
Inscrit le : Jeu 10 Nov 2011, 13:12
Posté le : Lun 14 Nov 2011, 18:10
merci snap c'est plus joli avec ta derniere amelioration pour les *
---------------------- -----------------------------------
&amp;amp;quot;on monte plus vite un escalier fait pour descendre que si on descend un escalier fait pour monter...&amp;amp;quot;
&amp;amp;quot;si ton tonton thon tond ton tonton thon,ton tonton tondu sera...&amp;amp;quot; http://www.chucknorrisfacts.fr/:LE site qu'il faut avoir vu dans sa vie
