PureBasic

Code : Tout sélectionner

```Purebasic
Procedure Start()  
  ; Création de la fenêtre
  Window = OpenWindow(#PB_Any, 0, 0, ww, wh, "Collision", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  
  ; Création de la scene et définition de la couleur d'arriere plan
  CreateScene(scene, 0, 0, ww, wh)  
  SceneColor(RGB(119, 136, 153))
  ; scene\collideWorldBounds = #True  
  
  ; Création et positionnement des Sprites 
  UsePNGImageDecoder()
  UseJPEGImageDecoder()
  
  AddSprite(ground, LoadImage(#PB_Any, "ground.jpg"))
  ground\sprite\y = wh-100
  
  AddSprite(ball, LoadImage(#PB_Any, "ball.png"))
  ball\sprite\x = 100
  ball\sprite\y = 20
  ball\physics\Static = #False
  ball\physics\speed\x = 3
  ball\physics\speed\y = 3
  ;ball\physics\acceleration\y = 0.1
  ;ball\physics\acceleration\x = -0.1
  ;ball\physics\bounce\x = 0.6
  ;ball\physics\bounce\y = 0.5
  
  Render() 
EndProcedure
```