PureBasic

J'ai retrouvé un bout de code que j'avais commencé, et je me suis amusé à le transformer en une espèce de début de jeu qui consiste à cliquer sur des boules qui se balladent à l'écran pour les détruire.

Ca parait tout con, comme ça, mais essayez de faire ça en un minimum de temps.

Si ça me prends, peut-être que je lui ferait un petit compte à rebours.

Code : Tout sélectionner

UsePNGImageDecoder()

#Window = 0
#Width = 600
#Height = 600
#Souris = 100

Structure Sprites
  sprite.w
  x.l
  y.l
  Vx.l
  Vy.l
  Color.l
EndStructure
NewList Spr.Sprites()

NbSprites = 10
Global flag, hwnd

Font1 = LoadFont(#PB_Any,"Comic Sans MS",52)

Procedure TimerProc(hnd.l, uMsg.l, idEvent.l, dwTime.l)
  Select uMsg
    Case #WM_TIMER
      Select idEvent
        Case 1
          If flag = 1
            flag = 0
          EndIf
      EndSelect
  EndSelect
EndProcedure

;- Initialisation de DirectX
If InitSprite() = 0 Or InitKeyboard() = 0
  MessageRequester("Erreur", "Impossible d'initialiser DirectX", 0)
  CloseWindow(#Window) : End
EndIf

InitMouse()

;- Ouverture de la fenêtre et de l'écran
hwnd = OpenWindow(#Window, 0, 0, #Width, #Height, #PB_Window_TitleBar | #PB_Window_ScreenCentered, "")
OpenWindowedScreen(hwnd, 0, 0, #Width, #Height, 0, 0, 0)

If CreateSprite(#Souris,40,40,0)
  StartDrawing(SpriteOutput(#Souris)) : DrawingMode(4)
  LineXY(5,20,35,20,RGB($FF,$FF,$80))
  LineXY(20,0,20,40,RGB($FF,$FF,$80))
  Circle(20,20,10,RGB($FF,$FF,$80))
  Circle(20,20,20,RGB($80,$FF,$FF))
  StopDrawing()
EndIf

*Addr = LoadSprite(0,"boule.png",#PB_Sprite_Texture)

For i = 0 To NbSprites
  AddElement(Spr())
  Spr()\sprite = i
  Spr()\x = Random(#Width-20)
  Spr()\y = Random(#Height-20)
  
  Spr()\Vx = Random(4)+2
  Spr()\Vy = Random(4)+2
Next

ExamineMouse()
x = MouseX()-10
y = MouseY()-10
  
flag = 1

Timer = SetTimer_(hwnd,1,100,@TimerProc())

;- début de la boucle
Repeat
  Select WindowEvent()
    Case #WM_LBUTTONDOWN
      flag = 1
    Case #WM_LBUTTONUP
      flag = 0
  EndSelect
  
  ClearScreen(0, 0, 64) : ExamineKeyboard()
  ExamineMouse()
  x = MouseX()-10
  y = MouseY()-10
  
  ForEach Spr()
    If Spr()\x <=0 Or Spr()\x + SpriteWidth(0) >= #Width : Spr()\Vx = -Spr()\Vx : EndIf
    If Spr()\y <=0 Or Spr()\y + SpriteHeight(0)>= #Height : Spr()\Vy = -Spr()\Vy : EndIf
    Spr()\x + Spr()\Vx : Spr()\y + Spr()\Vy
    
    DisplayTransparentSprite(0,Spr()\x,Spr()\y)
    If Spr()\x >= x And Spr()\x <= x+20 And Spr()\y >= y And Spr()\y <= y+20 And MouseButton(1) And flag = 0 
      SelectElement(Spr(),ListIndex(Spr()))
      DeleteElement(Spr())
    EndIf
  Next
  
  If CountList(Spr()) = 0
    StartDrawing(ScreenOutput())
    DrawingFont(UseFont(Font1))
    DrawingMode(1)
    
    FrontColor($C0,$C0,$C0) : Locate(37,147)
    DrawText("Vous avez gagné")
    FrontColor($80,$FF,$FF) : Locate(40,150)
    DrawText("Vous avez gagné")
    
    StopDrawing()
  EndIf
  
  DisplayTransparentSprite(#Souris,x,y)
  
  
  FlipBuffers()
  Delay(1)
  
  If KeyboardPushed(#PB_Key_Escape) : quit = 1 : EndIf
Until quit = 1

L'image du sprite: Clic droit, "Enregistrer la cible sous..."

ah, bon si tu le dis, j'en pense autaut

fautt pas être modeste comme ça, c'est amusant.
le top serait que le fond soit une copie d'écran de win et qu'on tire des têtes de Bill G.

Ah oui, c'est pas idiot ça !

On bouge le viseur avec la souris, mais avec un genre d'effet de balancement, en donnant un peu de retard entre le mouvement de la souris, et le déplacement du sprite. Et quand la tête à Bill arrive dans le viseur,

. Entre les deux yeux

au boulot

Ok! Mais comme je ne suis pas un assassin, je vais me contenter de lui envoyer des tomates.

J'ai déjà fait le déplacement de la souris. Rest à trouver des images de la tronche à Billou, ou à d'autres. Rafarrin, Chirac, Bush, etc...

On a que l'embarras du choix

C'est sympa mais pourquoi dans applications

Parce que je me suis gourré de rubrique et j'ai eu la flemme de le couper pour le coller ailleurs

Régis, tu dois pouvoir faire ça facilement non ?

Si Windows vous gonfle, vous pouvez toujours vous venger en écrabouillant des tomates sur la tronche à Billou.

Bon, c'est pas les jeux à Polux, le gameplay, vaut mieux pas en parler, quand aux graphismes, autant oublier.

Pis d'abord, c'est la faute à Régis, c'est lui qui m'a obligé.

Le Soldat Inconnu a écrit :au boulot

Le fichier est ici

Cool j'ai bien aimer les sons ^^ c'est un petit jeux bien marrant j'aime bien le resultat en tout cas bravo !!!!

j'ai transférer ton post dans la bonne catégories

j'essayerai ça plus tard, ça veut pas tourner sur la veille carte graphique du pc de mes parents

Merci M'sieur

Cool

, regarde dans jeux, j'ai fait un petit chose du même genre pour essayer le joystick, tu pourrais le mettre, c'est beaucoup plus drôle avec

PureBasic

Un petit jeu totalement nul!!!

Un petit jeu totalement nul!!!