PureBasic

Code : Tout sélectionner

InitSprite()
InitMouse()
InitKeyboard()


;----- Ouvre un Screen Plein écran
ExamineDesktops()
ScreenWidth=DesktopWidth(0)
ScreenHeight=DesktopHeight(0)

OpenScreen(ScreenWidth, ScreenHeight, 32, "")

;-- creation du sprite n°1 de la souris 
CreateSprite(1,10,10,#PB_Sprite_AlphaBlending | #PB_Sprite_PixelCollision)
StartDrawing(SpriteOutput(1))
Circle(5,5,5,RGB(255,255,255))
StopDrawing() 
TransparentSpriteColor(1,RGB(0,0,0))

;-- creation de 4 sprites à tester
For j=2 To 5
CreateSprite(j,100,100,#PB_Sprite_AlphaBlending | #PB_Sprite_PixelCollision)
StartDrawing(SpriteOutput(j))
Circle(50,50,50,RGB(255,0,0))
StopDrawing() 
TransparentSpriteColor(j,RGB(0,0,0))
Next

Global Dim SpriteX(5), Dim SpriteY(5)
For j=2 To 5
  SpriteX(j)=Random(500)
  SpriteY(j)=Random(500)
Next

;-- Boucle principale
Repeat
  ExamineKeyboard()
  ExamineMouse()
  ClearScreen(RGB(150,150,150))
  
 ; test tous les 4 sprites les uns après les autres, sachant que le sprite n°1 est la souris 
 For j=2 To 5
  If SpritePixelCollision(1,MouseX(),MouseY(),j,SpriteX(j),SpriteY(j)) ; tu test tous les sprites avec celui de la souris tu peux ajouter une condition du clicj gauche ici aussi
   ; c'est le sprite n°j qui est en contact avec la souris représenté par le sprite n°1
    ; si contact, change les coordonnées du sprite touché
    SpriteX(j)=Random(500)
  SpriteY(j)=Random(500)
   
EndIf
;- Affiche les 4 sprites 
DisplayTransparentSprite(j,SpriteX(j),SpriteY(j),255)
Next

;- affiche le sprite de la souris
DisplayTransparentSprite(1,MouseX(),MouseY(),255)



 FlipBuffers()
  
Until KeyboardPushed(#PB_Key_Escape)