PureBoard

Code: Alles auswählen

;PB 3.94

InitSprite()
InitMouse()
InitKeyboard()

;- Image Plugins
UsePNGImageDecoder()


If OpenScreen(800,600,32,"IT") = 0  
  Debug 1
  End
EndIf

LoadSprite(400,"GFX/Maus/Maus0.png")
TransparentSpriteColor(400, 255, 0, 255)
LoadSprite(450,"GFX/misc/close.png")
LoadSprite(501,"GFX/HPuMP.png")


hp = 100
mp = 100

HPMP  = 1
HPMPx = 200
HPMPy = 200
HPMPh = SpriteHeight(501)
HPMPw = SpriteWidth(501)

ClBu  = 1

Repeat
  
  ExamineMouse()
  ExamineKeyboard()
  
  mousex = MouseX()
  mousey = MouseY()
  
  FlipBuffers():ClearScreen(255,255,255)
  
  If ClBu = 1
    DisplaySprite(450,580,0)
  EndIf
  
  
  If HPMP = 1
    DisplaySprite(501, HPMPx, HPMPy)
    If StartDrawing(ScreenOutput()) 
      For y = 0 To 3
        Line(HPMPx+6,HPMPy+16+y,hp,0,$0000FF)
      Next y
      For y = 0 To 3
        Line(HPMPx+6,HPMPy+23+y,mp,0,$FF0000)
      Next y
      StopDrawing()
    EndIf
  EndIf
  
  If StartDrawing(ScreenOutput()) 
    Locate(50,200) 
    DrawText("HP : "+Str(hp))
    Locate(50,220) 
    DrawText("MP : "+Str(mp))
    Locate(50,250) 
    DrawText("Mouse(x,y) : "+Str(MouseX)+","+Str(MouseY))
    Locate(50,280) 
    DrawText("Maus drückt : "+Str(MouseButton(1))+"    move : "+Str(move))
    StopDrawing() 
  EndIf
  
  
  mb1 = MouseButton(1)
    
  StartDrawing(ScreenOutput()) 
  If mb1 = 1
    If mousex <= HPMPx+112 And mousex >= HPMPx And mousey <= HPMPy+10 And mousey >= HPMPy And HPMP = 1
      If move = 0  
        mousexmove = mousex - HPMPx
        mouseymove = mousey - HPMPy
        move = 1
      EndIf
    ElseIf mousex <= 600 And mousex >= 580 And mousey <= 20 And mousey >= 0 And ClBu = 1
      End
    Else
      
    EndIf
  EndIf
  StopDrawing()  
  
  If move = 1
    HPMPx = mousex - mousexmove
    HPMPy = mousey - mouseymove
    If HPMPx <= 0
      HPMPx = 0
    EndIf
    If HPMPx >= 800 - HPMPw
      HPMPx = 800 - HPMPw
    EndIf
    If HPMPy <= 0
      HPMPy = 0
    EndIf
    If HPMPy >= 600 - HPMPh
      HPMPy = 600 - HPMPh
    EndIf
  EndIf
  
  If mb1_was = 1 And mb1 = 0
    move = 0
  EndIf
  
  DisplayTransparentSprite(400, mousex, mousey)
  
  
  If KeyboardReleased(#PB_Key_L)
    If HPMP = 1
      HPMP = 0
    Else
      HPMP = 1
    EndIf
  EndIf
  
  SetFrameRate(50)
  
  mb1_was = mb1
  
Until Quit