PureBasic

bonjour,

voila j'ai voulu tester la fonction 2D pour changer

mais j'ai déja des problème des le début

, pour faire bouger mon sprite dans mon screen tester vous verrez .

voici un début de code

If InitMouse() = 0 Or InitSprite() = 0 Or InitKeyboard() = 0
  MessageRequester("Error", "not open DirectX 7", 0)
  End
EndIf

If OpenScreen(800, 600, 16, "Mouse") = 0
  MessageRequester("Error", "Impossible to open a 800*600 16 bit screen",0)
  End
EndIf

x = 800
y = 600

LoadSprite(0, "d:/gamebrick/barre.bmp", 0)

Repeat
  FlipBuffers()                        
  ClearScreen(RGB(0,0,0))                

  ExamineKeyboard()
  ExamineMouse()                      
       
  x = MouseX()  
  DisplaySprite(0, x-SpriteWidth(0), y-SpriteHeight(0))

Until KeyboardPushed(#PB_Key_Escape)

End

ps: j'utilise une image de 100X15

@++

Si tu veux faire suivre a ton sprite la position de ta souris, ton code a peine
modifier semble bien fonctionné

Code : Tout sélectionner

If InitMouse() = 0 Or InitSprite() = 0 Or InitKeyboard() = 0
  MessageRequester("Error", "not open DirectX 7", 0)
  End
EndIf

If OpenScreen(800,600 32, "Mouse") = 0
  MessageRequester("Error", "Impossible to open a 800*600 16 bit screen",0)
  End
EndIf



LoadSprite(0, "sources/data/Geebee2.bmp", 0)

Repeat
  FlipBuffers()                       
  ClearScreen(RGB(0,0,0))               

  ExamineKeyboard()
  ExamineMouse()                     
       
  x = MouseX() 
  y = MouseY()
  DisplaySprite(0, x, y)

Until KeyboardPushed(#PB_Key_Escape)

End

ou alors je n'ai pas saisi le fond de ta question .

tu as oublié un

Code : Tout sélectionner

y=MouseY()

sinon ça marche... mais je sais pas exactement ce que tu veux faire ...
Edit: tmyke M'a eu sur la vitesse

re,

désolé mais chez moi j'ai toujours la même erreur

.

sinon ça marche... mais je sais pas exactement ce que tu veux faire ...

je t'avoue que je n'est pas encore d'idée fixe mais je voudrais au moîn faire bouger une image avec la souris mais pour l'instant l'image disparait hors du screen

. c'est a sa que j'essaie de remédié

@++

venom a écrit : je voudrais au moîn faire bouger une image avec la souris mais pour l'instant l'image disparait hors du screen . c'est a sa que j'essaie de remédié

@++

Aaaaaaaaa ba voilà ! si on a pas tout les details on peu pas t'aider !

il te suffit de modifier ton code comme ça (j'ai pas tester c'est ecrit comme ça mais l'idée est là)

Code : Tout sélectionner

  x = MouseX() 
  y= MouseY()
if x+SpriteWidth(0)>800:x=800-SpriteWidth(0):endif
if y+SpriteHeight(0)>600:y=600-SpriteHeight(0):endif
  DisplaySprite(0, x, y)

autant pour moi c'est vrai je n'avais pas précisé vraiment mon problème

en revanche sa fonctionne parfaitement maintenant

merci Thyphoon et tmyke

.

vu que c'est la première fois que je test la fonction 2D on va surement me revoir d'ici peut

a bientôt et encore merci

@++

PureBasic

[ RESOLU ] bouger un sprite avec la souris [ RESOLU ]

[ RESOLU ] bouger un sprite avec la souris [ RESOLU ]