Code : Tout sélectionner
If InitSprite() And InitMouse() And InitKeyboard()
Else
MessageRequester("Erreur", "InitSprite() And InitMouse() And InitKeyboard() : impossible")
End
EndIf
OpenScreen(1024,768,32,"CasseBriques")
;;;;;;;;;;;; dessins de la balle, de la raquette et des briques ;;;;;;;;;;;;;
GrabSprite(0,0,0,1,1) ; pas de brique
StartDrawing(ScreenOutput())
Circle(6,6,6,RGB(255,255,255))
StopDrawing()
GrabSprite(254,0,0,12,12); notre balle
StartDrawing(ScreenOutput())
For i=0 To 20
LineXY(0,i,100,i,RGB(i*8,100+i*5,255))
Next
StopDrawing()
GrabSprite(255,0,0,100,20); notre raquette
StartDrawing(ScreenOutput())
For i=0 To 20
LineXY(0,i,36,i,RGB(255-i*10,i*5,0))
Next
StopDrawing()
GrabSprite(1,0,0,36,20); brique 1
StartDrawing(ScreenOutput())
For i=0 To 20
LineXY(0,i,36,i,RGB(0,255-i*10,i*5))
Next
StopDrawing()
GrabSprite(2,0,0,36,20); brique 2
StartDrawing(ScreenOutput())
For i=0 To 20
LineXY(0,i,36,i,RGB(i*5,0,255-i*10))
Next
StopDrawing()
GrabSprite(3,0,0,36,20); brique 3
StartDrawing(ScreenOutput())
For i=0 To 20
LineXY(0,i,36,i,RGB(255-i*11,255-i*11,i*8))
Next
StopDrawing()
GrabSprite(4,0,0,36,20); brique 4
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;; la map ;;;;;;;;;;;;;;;;
Dim briques(26,20)
For u=0 To 20
For i=0 To 26
briques(i,u)=Random(4)
Next
Next
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
bx.f
by.f
bxf.f=-2.3
byf.f=-2
; ##########################
; ########Boucle du jeu #########
; ##########################
Repeat
ClearScreen(0)
For u=0 To 20
For i=0 To 26
DisplaySprite(briques(i,u),i*38,u*22)
Next
Next
ExamineMouse()
Mb_Left=MouseButton(#PB_MouseButton_Left)
mx=MouseX()-50
DisplaySprite(255,mx,728)
If ok=0
DisplaySprite(254,mx+25,716)
If Mb_Left
ok=1
bx=mx+25
by=716
EndIf
Else
bx+bxf
by+byf
If bx<0 Or bx>1012
bxf*-1
bx+bxf
EndIf
If by<0
byf*-1
by+byf
EndIf
DisplayTransparentSprite(254,bx,by)
EndIf
FlipBuffers()
ExamineKeyboard()
Until KeyboardPushed(#PB_Key_Escape)