PureBoard

Code: Alles auswählen

;---InitMouse()--
Macro Init_SDL_Maus()
  SDL_Init_(#SDL_INIT_VIDEO)
EndMacro
;----ExamineMouse()---
Macro Examine_Sdl_Maus()
  SDL_PollEvent_(@Event.SDL_Event)
EndMacro
;----MouseX()--
Macro MausdlX()
   Event\motion\x
EndMacro
;---MouseY()--
Macro MausdlY()
 Event\motion\y
EndMacro
;---Flag-MausButton()
#MausBLeft=#SDL_BUTTON_LEFT
#MausBRight=#SDL_BUTTON_RIGHT
#MausBMiddle=#SDL_BUTTON_MIDDLE
;---MouseButton()---
procedure MausButton(Flag)
  Shared Event.SDL_Event
  If Flag=Event\button\button
    ProcedureReturn 1
  Else
    ProcedureReturn 0
  EndIf
EndProcedure



;-----Test-----
If InitSprite()=0 Or init_sdl_Maus()<0
  End
EndIf
If OpenScreen(640,480,32,"Test der Macros")<>0
  ;---Creiere-Maus-Sprite-
  CreateSprite(0,32,32)
  StartDrawing(SpriteOutput(0))
    Box(0,0,32,32,$00ff00)
    LineXY(0,0,32,32,$ff00ff)
  StopDrawing()
  ;----Starte Schleife-
  Repeat
    FlipBuffers()
    ClearScreen($0000ff)
    Examine_Sdl_Maus()
    DisplaySprite(0,MausdlX(),MausdlY())
    Ret=0
    Ret=MausButton(#MausBLeft)
    Ret=Ret+MausButton(#MausBMiddle)
    Ret=Ret+MausButton(#MausBRight)
    If Ret>0
      ende=1
    EndIf
    Delay(2)
  Until Ende=1
  CloseScreen()
EndIf
End