ARRIVAIS PAS A DORMIR bouhhhh

[garzul]

LOL bon allez lancez moi sa (c moi qui lai creer bon d'accord c pas super mais c'etait chiant a faire mais jai voulu faire sa car 1:J'Arrivais pas a dormir (5:36) enfin 2 heure pour le faire
2:paske j'avait envie
3:paske je voulais exprimer ma motivation pour le pure basic (au secour pk j'ai marquer sa il vont tous me casser lol )
Donc voila lancer le c'etait quand meme chiant de tout faire lol mais bon je suis content

Code : Tout sélectionner

;**********CODER PAR GARZUL LE MERCREDI 30 JUIN 2004( c rien je sais mais pour moi c bien de faire sa tt seul)*****
Enumeration
#Boite1
#Police
#Boite2
#Boite3
#boite4
#boite5
#boite6
#boite7
#boite8
#boite9
#boite10
#Boite11
#boite12
#boite13
EndEnumeration

Global x
Global y
Global a
Global b 
Global n
Global m
Global o
Global p
Global q
Global r
Global v
Global s
Global t
Global u
Global i
Global h
Global k
Global j
Global f
Global ab
Global cd
Global ef
Global gh
Global ij
Global kl
Global ad
Global cv
Global le
Global ok
Global ko
Global km
Global io
Global oi
Global pl
Global pi
Global ip
Global mn

Declare move()

Resultat = InitSprite() 
FontID = LoadFont(#Police, "arial", 18, #PB_Font_Bold ) 
EcranX = GetSystemMetrics_(#SM_CXSCREEN):;=largeur de l'ecran 
EcranY = GetSystemMetrics_(#SM_CYSCREEN):;=hauteur de l'ecran 
WindowID = OpenWindow(1, 0, 0, 800, 600,  #PB_Window_SystemMenu|#PB_Window_BorderLess |#PB_Window_ScreenCentered , "Demos 2d") 


WindowID = WindowID(1) 
Result = OpenWindowedScreen(WindowID,0,0, 800, 600, 1, 0,0) 

;****************avis au forum :) ce prog et pas genial au niveau des comentaire car jai juste fait sa comme sa pour rire :)*******
;sprite1
x = 50
y = 200

;variable de vitesse
a = 1
b = 1
c = 1
e = 1
v = 1
h = 1
k = 1
ef = 1
kl = 1
le = 1
km = 1
pl = 1
mn = 1

;sprite2
n = 50
m = 320

;sprite3
o = 250
p = 200

;sprite4
q = 250
r = 320

;sprite5
s = 380
t = 200

;sprite6
u = 450
i = 200

;sprite7
f = 515
j = 200

;sprite8
ab = 50
cd = 400

;sprite9
gh = 50
ij = 520

;sprite10
ad = 250
cv = 400

;sprite11
ok = 250
ko = 400

;sprite12
io = 250
oi = 460

;sprite13
pi = 250
ip = 520

;creation du sprite
CreateSprite(#Boite1, 6,6 )
StartDrawing(SpriteOutput(#Boite1)) :
Box(0, 0, 6, 6 , RGB(255,0,255)) :
StopDrawing() :

CreateSprite(#Boite2, 6,6 )
StartDrawing(SpriteOutput(#Boite2)) :
Box(0, 0, 6, 6 , RGB($17,$70,$E8)) :
StopDrawing() :

CreateSprite(#Boite3, 6,6 )
StartDrawing(SpriteOutput(#Boite3)) :
Box(0, 0, 6, 6 , RGB($F1,$14,$0E)) :
StopDrawing() :

CreateSprite(#Boite4, 6,6 )
StartDrawing(SpriteOutput(#Boite4)) :
Box(0, 0, 6, 6 , RGB($87,$F5,$78)) :
StopDrawing() :

CreateSprite(#Boite5, 6,6 )
StartDrawing(SpriteOutput(#Boite5)) :
Box(0, 0, 6, 6 , RGB($F1,$14,$0E)) :
StopDrawing() :

CreateSprite(#Boite6, 6,6 )
StartDrawing(SpriteOutput(#Boite6)) :
Box(0, 0, 6, 6 , RGB($93,$14,$6C)) :
StopDrawing() :

CreateSprite(#Boite7, 8,8 )
StartDrawing(SpriteOutput(#Boite7)) :
Box(0, 0, 8, 8 , RGB($F2,$F5,$0D)) :
StopDrawing() :

CreateSprite(#Boite8, 5,5 )
StartDrawing(SpriteOutput(#Boite8)) :
Box(0, 0, 5, 5 , RGB($9F,$87,$60)) :
StopDrawing() :

CreateSprite(#Boite9, 5,5 )
StartDrawing(SpriteOutput(#Boite9)) :
Box(0, 0, 5, 5 , RGB($5C,$47,$A3)) :
StopDrawing() :

CreateSprite(#Boite10, 5,5 )
StartDrawing(SpriteOutput(#Boite10)) :
Box(0, 0, 5, 5 , RGB($BF,$FF,$FE)) :
StopDrawing() :

CreateSprite(#Boite11, 5,5 )
StartDrawing(SpriteOutput(#Boite11)) :
Box(0, 0, 5, 5 ,RGB($FF,$FF,$FF)) :
StopDrawing() :

CreateSprite(#Boite12, 5,5 )
StartDrawing(SpriteOutput(#Boite12)) :
Box(0, 0, 5, 5 ,RGB($F3,$F3,$F3)) :
StopDrawing() :

CreateSprite(#Boite13, 5,5 )
StartDrawing(SpriteOutput(#Boite13)) :
Box(0, 0, 5, 5 ,RGB($FF,$FF,$FF)) :
StopDrawing() :

;************************************sa c la boucle*********************************************
Repeat

 event =WindowEvent() :
Delay(5)
 y + a
 n + b
 p + c
 q + e
 t + v
 u + h
 j + k
 cd + ef
 gh + kl
 cv + le
 ok + km
 io + pl
 pi + mn
 
DisplaySprite(#Boite1,x,y) 
DisplaySprite(#Boite2,n,m)
DisplaySprite(#Boite3,o,p)
DisplaySprite(#Boite4,q,r)
DisplaySprite(#Boite5,s,t)
DisplaySprite(#Boite6,u,i)
DisplaySprite(#Boite7,f,j)
DisplaySprite(#Boite8,ab,cd)
DisplaySprite(#Boite9,gh,ij)
DisplaySprite(#Boite10,ad,cv)
DisplaySprite(#Boite11,ok,ko)
DisplaySprite(#Boite12,io,oi)
DisplaySprite(#Boite13,pi,ip)

StartDrawing(ScreenOutput())
  DrawingMode(1)  
  Locate(350,450) 
  BackColor($93,$FF,$6C) 
  FrontColor($F8,$10,$07) 
  DrawText("FORUM DE PURE BASIC.FR ")
StopDrawing() 
StartDrawing(ScreenOutput())
  DrawingMode(1)  
  Locate(10,540) 
  BackColor($93,$FF,$6C) 
  FrontColor($F8,$10,$07) 
  DrawText("(MEME SI JE ME SUIS OCCUPER A FAIRE SA JE SAIS QUE C'EST NUL MAIS C'ETAIT CHIANT A FAIRE") 
StopDrawing()
StartDrawing(ScreenOutput())
  DrawingMode(1)  
  Locate(10,560) 
  BackColor($93,$FF,$6C) 
  FrontColor($F8,$10,$07) 
  DrawText("ALORS UN PEU DE RESPECT LOL :)) A BIENTOT LES PROGRAMMEUR SUR LE FORUM")
StopDrawing() 
StartDrawing(ScreenOutput())
  DrawingMode(1)  
  Locate(10,580) 
  BackColor($93,$FF,$6C) 
  FrontColor($F8,$10,$07) 
  DrawText("ps:je voulais dire a tt le monde merci a vous et ce programme je les fais tt seul (pour une fois lol ^^")
StopDrawing()

StartDrawing(ScreenOutput())
  DrawingMode(1)  
  Locate(20,20) 
  BackColor($93,$FF,$6C) 
  FrontColor($FF,$FF,$FF) 
  DrawText("FAIT PAR GARZUL (SANS AIDE ) LE MERCREDI 30 JUIN A 05 HEURE 31 (DU SOIR):)")
StopDrawing() 
  
FlipBuffers()
move()


Until event=#PB_Event_CloseWindow ; voila fini!


;***********************les procedure********************************************************


Procedure move()
;deplacement du sprite boite 1
If x =- y  : y = x  : EndIf
If y = 320 : x =- y : EndIf

;deplacement du sprite boite 2
If n =- m  : m = n  : EndIf
If n = 180 : m =- n : EndIf

;deplacement du sprite boite 3
If o =- p  : p = o  : EndIf
If p = 320 : o =- p : EndIf

;deplacemen du sprite boite 4
If q =- r  : r = q  : EndIf
If q = 380 : r =- q : EndIf

;deplacement du spritte boite 5
If s =- t  : t = s  : EndIf
If t = 320 : s =- t : EndIf

;deplacement du sprite boite 6
If u =- i  : i = u  : EndIf
If u = 580 : i =- u : EndIf

;deplacemen du sprrite boite 7
If f =- j  : j = f  : EndIf
If j = 320 : f =- j : EndIf

;deplacemen du sprite boite 8
If ab =- cd : cd = ab  : EndIf
If cd = 520 : ab =- cd : EndIf

;deplacement du sprite boite 9
If gh =- ij : ij = gh  : EndIf
If gh = 180 : ij =- gh : EndIf

;deplacement du sprite boite 10
If ad =- cv : cv = ad  : EndIf
If cv = 520 : ad =- cv : EndIf

;deplacement du sprite boite 11
If ok =- ko : ko = ok  : EndIf
If ok = 380 : ko =- ok : EndIf

;deplacement du sprite boite 12
If io =- oi : oi = io  : EndIf
If io = 340 : oi =- io : EndIf

;deplacement du sprite boite 13
If pi =- ip : ip = pi  : EndIf
If pi = 380 : ip =- pi : EndIf

EndProcedure

[Dr. Dri]

C'est super ^^
En tout cas moi j'adore !
Enfin si t'es preneur je suis sûr qu'on peut te faire progresser en te montrant comment changer certaines parties du code! Avec un code plus propre et structuré, ca t'aidera peut etre à mieux comprendre certaines choses.

Dri

[Oliv]

tu vois que tu peux faire sans aide

[Backup]

c'est tres bien Garzul !!!!


petite chose lorsque tu ecrit " sa " il faut ecrire "ça"
en fait c'est simple , dans la phrase " j'ai fait ça "
quant tu peut remplacer "ça" par "ceci" ex : " j'ai fait "ceci" "
tu doit donc ecrire "sa " avec un "ç" : "ça"

par contre "elle est belle "sa" mobylette " tu peut remplacer "sa" par
" la sienne a lui ", donc dans "ce" cas il faut ecrire "sa " avec un "s"

voila c'est un detail !!
moi je fait beaucoup de fautes d'ortographe et de grammaire , mais
il y a des fautes qui "choque" plus que d'autres !!



sinon , encore bravo pour ton programme , te decourage pas par les
critique d'ordre "optimisation et autre" un vieux proberve chinois dit :

"peut importe les moyens deployé, l'essentiel , c'est que ça marche !! "
en effet les ordinateurs ont des capacités extraordinaire en matiere de vitesse et de memoire, le purebasic est tres tres bien conçut,
donc , il y a quelque choses d'obscene a vouloir absolument tout
"reduire","compresser","obtimiser", les gens qui ne voient que par ça ont eux aussi l'esprit "compresse" !! les structures sont des mur qui empeche de voir la voisinne a poil dans sa douche!!

alors eclate toi comme t'en a envie , l'essentiel c'est de comprendre ce que tu fait, l'optimisation ,la reduction de la taille de ton code, viendra avec le temps, mais je veux que tu sache ,qu'il y a 2 ecoles,il y a les "ont peut reduire ce code, il est trop gros " ; et il y a les "cooool ça Marche !! ouuf ! "
ça me rappel une bande dessiné ou il y avait les "rigolus" et les "tristus"



Bravo Garzul !

[Le Soldat Inconnu]

mis à part l'orthographe, c'est bien

un truc pour les globals, tu peux écrire

Code : Tout sélectionner

Global x, y ,z, ... etc ...

c'est plus simple

[Polux]

lol
Moi je suis du côté des rigolus ( les ouf ça marche!! )
Bravo, c'est du zoli boulot!

[garzul]

Merci a vous je n'esperait pas tant que sa car vous vous le faite en meme pas 2 minute je suis sur pour ce qui'et de l'optimisation je voulais pas trop me casser la tete vu que ce code je ne le reprendrai jamais mais autrement merci dobro pour son cour d'orthographe et merci au soldat pour les global sur une ligne c mieux et sa prend moin de place allez merci a tous (Hé garzul tu sais que ta un jeu a realiser tt seul ) KOI mince j'y court (ta interet car c pas pure basic qui va le faire a ta place) OKOK C BON J'Y VAIS.

[garzul]

Bon j'ai revue un petit peu mon code avec se que ma dit regis donc maintenant mon code c'est alleger de 35 line (merci regis) allez a+ je retourne au boulot de jeu a+ voici mon code avec 35 ligne en moins.

Code : Tout sélectionner

;**********CODER PAR GARZUL LE MERCREDI 30 JUIN 2004( c rien je sais mais pour moi c bien de faire sa tt seul)*****
Enumeration
#Boite1
#Police
#Boite2
#Boite3
#boite4
#boite5
#boite6
#boite7
#boite8
#boite9
#boite10
#Boite11
#boite12
#boite13
EndEnumeration

Global x,y,a,b,n,m,o,p,q,r,v,s,t,u,i,h,k,j,f,ab,cd,ef,gh,ij,kl,ad,cv,le,ok,ko,km,io,oi,pl,pi,ip,mn

Declare move()

Resultat = InitSprite() 
FontID = LoadFont(#Police, "arial", 18, #PB_Font_Bold ) 
EcranX = GetSystemMetrics_(#SM_CXSCREEN):;=largeur de l'ecran 
EcranY = GetSystemMetrics_(#SM_CYSCREEN):;=hauteur de l'ecran 
WindowID = OpenWindow(1, 0, 0, 800, 600,  #PB_Window_SystemMenu|#PB_Window_BorderLess |#PB_Window_ScreenCentered , "Demos 2d") 


WindowID = WindowID(1) 
Result = OpenWindowedScreen(WindowID,0,0, 800, 600, 1, 0,0) 

;****************avis au forum :) ce prog et pas genial au niveau des comentaire car jai juste fait sa comme sa pour rire :)*******
;sprite1
x = 50
y = 200

;variable de vitesse
a = 1
b = 1
c = 1
e = 1
v = 1
h = 1
k = 1
ef = 1
kl = 1
le = 1
km = 1
pl = 1
mn = 1

;sprite2
n = 50
m = 320

;sprite3
o = 250
p = 200

;sprite4
q = 250
r = 320

;sprite5
s = 380
t = 200

;sprite6
u = 450
i = 200

;sprite7
f = 515
j = 200

;sprite8
ab = 50
cd = 400

;sprite9
gh = 50
ij = 520

;sprite10
ad = 250
cv = 400

;sprite11
ok = 250
ko = 400

;sprite12
io = 250
oi = 460

;sprite13
pi = 250
ip = 520

;creation du sprite
CreateSprite(#Boite1, 6,6 )
StartDrawing(SpriteOutput(#Boite1)) :
Box(0, 0, 6, 6 , RGB(255,0,255)) :
StopDrawing() :

CreateSprite(#Boite2, 6,6 )
StartDrawing(SpriteOutput(#Boite2)) :
Box(0, 0, 6, 6 , RGB($17,$70,$E8)) :
StopDrawing() :

CreateSprite(#Boite3, 6,6 )
StartDrawing(SpriteOutput(#Boite3)) :
Box(0, 0, 6, 6 , RGB($F1,$14,$0E)) :
StopDrawing() :

CreateSprite(#Boite4, 6,6 )
StartDrawing(SpriteOutput(#Boite4)) :
Box(0, 0, 6, 6 , RGB($87,$F5,$78)) :
StopDrawing() :

CreateSprite(#Boite5, 6,6 )
StartDrawing(SpriteOutput(#Boite5)) :
Box(0, 0, 6, 6 , RGB($F1,$14,$0E)) :
StopDrawing() :

CreateSprite(#Boite6, 6,6 )
StartDrawing(SpriteOutput(#Boite6)) :
Box(0, 0, 6, 6 , RGB($93,$14,$6C)) :
StopDrawing() :

CreateSprite(#Boite7, 8,8 )
StartDrawing(SpriteOutput(#Boite7)) :
Box(0, 0, 8, 8 , RGB($F2,$F5,$0D)) :
StopDrawing() :

CreateSprite(#Boite8, 5,5 )
StartDrawing(SpriteOutput(#Boite8)) :
Box(0, 0, 5, 5 , RGB($9F,$87,$60)) :
StopDrawing() :

CreateSprite(#Boite9, 5,5 )
StartDrawing(SpriteOutput(#Boite9)) :
Box(0, 0, 5, 5 , RGB($5C,$47,$A3)) :
StopDrawing() :

CreateSprite(#Boite10, 5,5 )
StartDrawing(SpriteOutput(#Boite10)) :
Box(0, 0, 5, 5 , RGB($BF,$FF,$FE)) :
StopDrawing() :

CreateSprite(#Boite11, 5,5 )
StartDrawing(SpriteOutput(#Boite11)) :
Box(0, 0, 5, 5 ,RGB($FF,$FF,$FF)) :
StopDrawing() :

CreateSprite(#Boite12, 5,5 )
StartDrawing(SpriteOutput(#Boite12)) :
Box(0, 0, 5, 5 ,RGB($F3,$F3,$F3)) :
StopDrawing() :

CreateSprite(#Boite13, 5,5 )
StartDrawing(SpriteOutput(#Boite13)) :
Box(0, 0, 5, 5 ,RGB($FF,$FF,$FF)) :
StopDrawing() :

;************************************sa c la boucle*********************************************
Repeat

 event =WindowEvent() :
Delay(5)
 y + a
 n + b
 p + c
 q + e
 t + v
 u + h
 j + k
 cd + ef
 gh + kl
 cv + le
 ok + km
 io + pl
 pi + mn
 
DisplaySprite(#Boite1,x,y) 
DisplaySprite(#Boite2,n,m)
DisplaySprite(#Boite3,o,p)
DisplaySprite(#Boite4,q,r)
DisplaySprite(#Boite5,s,t)
DisplaySprite(#Boite6,u,i)
DisplaySprite(#Boite7,f,j)
DisplaySprite(#Boite8,ab,cd)
DisplaySprite(#Boite9,gh,ij)
DisplaySprite(#Boite10,ad,cv)
DisplaySprite(#Boite11,ok,ko)
DisplaySprite(#Boite12,io,oi)
DisplaySprite(#Boite13,pi,ip)

StartDrawing(ScreenOutput())
  DrawingMode(1)  
  Locate(350,450) 
  BackColor($93,$FF,$6C) 
  FrontColor($F8,$10,$07) 
  DrawText("FORUM DE PURE BASIC.FR ")
StopDrawing() 

StartDrawing(ScreenOutput())
  DrawingMode(1)  
  Locate(10,540) 
  BackColor($93,$FF,$6C) 
  FrontColor($F8,$10,$07) 
  DrawText("(MEME SI JE ME SUIS OCCUPER A FAIRE SA JE SAIS QUE C'EST NUL MAIS C'ETAIT CHIANT A FAIRE") 
StopDrawing()

StartDrawing(ScreenOutput())
  DrawingMode(1)  
  Locate(10,560) 
  BackColor($93,$FF,$6C) 
  FrontColor($F8,$10,$07) 
  DrawText("ALORS UN PEU DE RESPECT LOL :)) A BIENTOT LES PROGRAMMEUR SUR LE FORUM")
StopDrawing() 

StartDrawing(ScreenOutput())
  DrawingMode(1)  
  Locate(10,580) 
  BackColor($93,$FF,$6C) 
  FrontColor($F8,$10,$07) 
  DrawText("ps:je voulais dire a tt le monde merci a vous et ce programme je les fais tt seul (pour une fois lol ^^")
StopDrawing()

StartDrawing(ScreenOutput())
  DrawingMode(1)  
  Locate(20,20) 
  BackColor($93,$FF,$6C) 
  FrontColor($FF,$FF,$FF) 
  DrawText("FAIT PAR GARZUL (SANS AIDE ) LE MERCREDI 30 JUIN A 05 HEURE 31 (DU SOIR):)")
StopDrawing() 
  
FlipBuffers()
move()


Until event=#PB_Event_CloseWindow ; voila fini!


;***********************les procedure********************************************************


Procedure move()
;deplacement du sprite boite 1
If x =- y  : y = x  : EndIf
If y = 320 : x =- y : EndIf

;deplacement du sprite boite 2
If n =- m  : m = n  : EndIf
If n = 180 : m =- n : EndIf

;deplacement du sprite boite 3
If o =- p  : p = o  : EndIf
If p = 320 : o =- p : EndIf

;deplacemen du sprite boite 4
If q =- r  : r = q  : EndIf
If q = 380 : r =- q : EndIf

;deplacement du spritte boite 5
If s =- t  : t = s  : EndIf
If t = 320 : s =- t : EndIf

;deplacement du sprite boite 6
If u =- i  : i = u  : EndIf
If u = 580 : i =- u : EndIf

;deplacemen du sprrite boite 7
If f =- j  : j = f  : EndIf
If j = 320 : f =- j : EndIf

;deplacemen du sprite boite 8
If ab =- cd : cd = ab  : EndIf
If cd = 520 : ab =- cd : EndIf

;deplacement du sprite boite 9
If gh =- ij : ij = gh  : EndIf
If gh = 180 : ij =- gh : EndIf

;deplacement du sprite boite 10
If ad =- cv : cv = ad  : EndIf
If cv = 520 : ad =- cv : EndIf

;deplacement du sprite boite 11
If ok =- ko : ko = ok  : EndIf
If ok = 380 : ko =- ok : EndIf

;deplacement du sprite boite 12
If io =- oi : oi = io  : EndIf
If io = 340 : oi =- io : EndIf

;deplacement du sprite boite 13
If pi =- ip : ip = pi  : EndIf
If pi = 380 : ip =- pi : EndIf

EndProcedure

[Le Soldat Inconnu]

tu sais, on peut le réduire facilement d'ou moins la moitié, ton code

il suffit d'utiliser les procedures pour la création des sprites par exemple (vu qu'ils sont répétitifs) et de ne pas mettre 36

Code : Tout sélectionner

StartDrawing(ScreenOutput()) 
StopDrawing()

un seul suffit

enfin la c'est l'expérience qui parle, ça viendra

[cederavic]

très chouette ton truc

tu peut aussi metre plusieur instruction sur la meme ligne a en les separent par : (deux points)


ps : je te vois plus sur msn...