http://www.purebasic.com
https://www.purebasic.fr/english/
Code: Select all
Define.l quit
Define.l ev
If InitSprite() = 0
End
EndIf
If InitMouse() = 0 : End : EndIf
Define.l current_x : current_x = 100
Define.l current_y : current_y = 100
Define.l dragging : dragging = 0
Define.l old_mouse_x
Define.l old_mouse_y
Procedure DrawScreen()
Shared current_x
Shared current_y
ClearScreen(RGB(0, 0, 0))
DisplaySprite(0, current_x, current_y)
EndProcedure
If OpenWindow(0, 0, 0, 800, 600, "")
If OpenWindowedScreen(WindowID(0), 0, 0, 800, 600, #False, 0, 0)
SetRefreshRate(60)
CreateSprite(0, 32, 32, #PB_Sprite_Memory)
If StartDrawing(SpriteOutput(0))
Box(0, 0, SpriteWidth(0), SpriteHeight(0), RGB(255, 0, 0))
StopDrawing()
Else
CallDebugger
EndIf
DrawScreen()
While quit=0
ev = WaitWindowEvent()
While ev<>0
Select ev
Case #PB_Event_Repaint
DrawScreen()
Case #PB_Event_CloseWindow
quit = 1
Case #WM_LBUTTONDOWN
If WindowMouseX(0)>=current_x And WindowMouseX(0)<(current_x+SpriteWidth(0)) And WindowMouseY(0)>=current_y And WindowMouseY(0)<(current_y+SpriteHeight(0))
Debug "Starting drag"
old_mouse_x = WindowMouseX(0)
old_mouse_y = WindowMouseY(0)
dragging = 1
EndIf
Case #WM_MOUSEMOVE
If dragging
current_x = current_x + WindowMouseX(0) - old_mouse_x
current_y = current_y + WindowMouseY(0) - old_mouse_y
old_mouse_x = WindowMouseX(0)
old_mouse_y = WindowMouseY(0)
Debug "Dragging to "+Str(current_x)+", "+Str(current_y)
InvalidateRect_(WindowID(0), 0, 0)
EndIf
Case #WM_LBUTTONUP
Debug "Stop dragging"
dragging = 0
EndSelect
ev = WindowEvent()
Wend
Wend
CloseScreen()
EndIf
CloseWindow(0)
EndIf
End
You asked for multiple things instead of just one. First you need to detect mouse movement/presses. Then you need to draw the sprite. And you need to compare the mouse position to sprite position.c4 wrote:Nothing?
Did I ask something completely stupid? If so, I apologize. I'm new to PB programming.
Mainly this, because you will need to store x/y co-ordinates for each sprite, and then check against each one for the click hit-test. I've only used a variable for x/y whereas something like an array or list would obviously be better. And I think there are better hit tests than the multiple conditions in an If statement as I have used.c4 wrote:@tinman: Thank you. Does the scaling problem you mentioned means I would have quite a few redundant variables if I added more sprites with dragging properties? Since only one sprite is being dragged at any given moment, it shouldn't matter how many are on the screen, no?
The original post asked how to move a sprite. A windowed screen is just as legitimate as a full screen.Kaeru Gaman wrote:when you want to drag a sprite, you will have a screen and use Examinemouse(),
so I see no use in messing around with windows' evenqueue, sorry tinman.
Code: Select all
Define.l quit
Define.l ev
If InitSprite() = 0
End
EndIf
If InitMouse() = 0 : End : EndIf
If InitKeyboard() = 0 : End : EndIf
Define.l current_x : current_x = 100
Define.l current_y : current_y = 100
Define.l dragging : dragging = 0
Define.l old_mouse_x
Define.l old_mouse_y
Procedure DrawScreen()
Shared current_x
Shared current_y
ClearScreen(RGB(0, 0, 0))
DisplaySprite(0, current_x, current_y)
DisplaySprite(1, MouseX(), MouseY())
EndProcedure
If OpenScreen(800, 600, 32, "")
CreateSprite(0, 32, 32, #PB_Sprite_Memory)
If StartDrawing(SpriteOutput(0))
Box(0, 0, SpriteWidth(0), SpriteHeight(0), RGB(255, 0, 0))
StopDrawing()
Else
CallDebugger
EndIf
CreateSprite(1, 16, 16, #PB_Sprite_Memory)
If StartDrawing(SpriteOutput(1))
Line(SpriteWidth(1)/2, 0, 0, SpriteHeight(1), RGB(255, 255, 0))
Line(0, SpriteHeight(1)/2, SpriteWidth(1), 0, RGB(255, 255, 0))
StopDrawing()
Else
CallDebugger
EndIf
While quit=0
ExamineKeyboard()
If KeyboardPushed(#PB_Key_Escape)
quit = 1
EndIf
ExamineMouse()
If MouseButton(#PB_MouseButton_Left)
If dragging=0
If MouseX()>=current_x And MouseX()<(current_x+SpriteWidth(0)) And MouseY()>=current_y And MouseY()<(current_y+SpriteHeight(0))
Debug "Starting drag"
dragging = 1
EndIf
Else
current_x = current_x + MouseDeltaX()
current_y = current_y + MouseDeltaY()
Debug "Dragging to "+Str(current_x)+", "+Str(current_y)
EndIf
Else
Debug "Stop dragging"
dragging = 0
EndIf
DrawScreen()
FlipBuffers(#True)
Wend
CloseScreen()
EndIf
End
for me a windowed screen is just another container for a screen,tinman wrote:The original post asked how to move a sprite. A windowed screen is just as legitimate as a full screen.
But just for you I made this. It took less time to write than this reply. I'm sure you could have provided the same example sooner rather than making yet another condescending post.