Mit der Maus auf ein Sprite zeichnen...?

[funker]

Hallo, guten Tag.

Ich möchte bitte mit der Maus auf ein Sprite Punkte setzen.
Wenn ich die Maustaste links drücke , sollen Mousex() und Mousey() abgefragt werden.
Welchen Code muß ich unten reinsetzen?

Danke.
Gruss

Code: Alles auswählen

Global zaehler.l, x.l,y.l,xypos.l

InitSprite()

OpenWindow(0,0,0,800,600,"sprite",#PB_Window_SystemMenu|#PB_Window_SizeGadget|#PB_Window_ScreenCentered)
OpenWindowedScreen(WindowID(0),10,10,300,300,0,0,0)

CreateSprite(1,256,256,#PB_Sprite_PixelCollision)

StartDrawing(SpriteOutput(1))
  Box(0,0,256,256,RGB(255,255,255))
StopDrawing()
  
 StartDrawing(SpriteOutput(1))
   Buffer      = DrawingBuffer()             
   Pitch       = DrawingBufferPitch()        
   PixelFormat = DrawingBufferPixelFormat()  
 StopDrawing()

Repeat
  
  Event.l = WindowEvent()
  
  StartDrawing(SpriteOutput(1)) 
    xypos=buffer+x*4+y*1024
    PokeL(xypos,$ff0000)
  StopDrawing() 
  
  DisplaySprite(1,10,10)
  FlipBuffers()
  
Until Event = #PB_Event_CloseWindow

End

[Mr.L]

so in etwa?

Code: Alles auswählen

Global zaehler.l, x.l,y.l,xypos.l

InitSprite()

OpenWindow(0,0,0,800,600,"sprite",#PB_Window_SystemMenu|#PB_Window_SizeGadget|#PB_Window_ScreenCentered)
OpenWindowedScreen(WindowID(0),10,10,300,300,0,0,0)

CreateSprite(1,256,256,#PB_Sprite_PixelCollision)

StartDrawing(SpriteOutput(1))
  Box(0,0,256,256,RGB(255,255,255))
StopDrawing()
 
Repeat
 
  Event.l = WindowEvent()
  
  If Event = #PB_Event_LeftClick
    StartDrawing(SpriteOutput(1))
      x = WindowMouseX(0) - 10 - 10; SpritePosition "X" und ScreenPosition "X" abziehen!
      y = WindowMouseY(0) - 10 - 10; SpritePosition "Y" und ScreenPosition "Y" abziehen!
      Circle(x,y,2,RGB(255,0,0))
    StopDrawing()
  EndIf
  
  DisplaySprite(1,10,10)
  FlipBuffers()
 
Until Event = #PB_Event_CloseWindow

End

[bobobo]

hmm .. ich dachte zuerst erst an sowas.

[STARGÅTE]

@bobobo: Geil der ist gut,

[CodeCommander]

LOL

[Mr.L]

Sehr gut

[Rings]

you made my day

goil.

[Tommy]

You made my day too!