si je fait ça :
Code : Tout sélectionner
\briqueX = (gLigne * 50) + 200
Code : Tout sélectionner
\briqueX = (gLigne * 50) + 200
Code : Tout sélectionner
Procedure MakeBrique()
Protected gLigne,gColonne,w=40,h=15,X,Y
For gLigne=0 To 5
; Calcul de x pour que les briques soit centrées
; le centre de l"écran moins 5 briques (puisqu'il y en 10)
X=(800/2)-(w * 5)
For gColonne= 0 To 9
With mur(gLigne,gColonne)
\sprite = CreateSprite(#PB_Any,w,h)
\briqueX =X
\briqueY =Y
StartDrawing(SpriteOutput(\sprite))
Box(0, 0, w,h, RGB(0, Random(255,0), Random(255,0)))
StopDrawing()
X+W
EndWith
Next
Y+H
Next
EndProcedure