PureBoard

Code: Alles auswählen

UsePNGImageDecoder()

Enumeration ;window gadgets und images, shortcuts
  #win
  #pixelmann  
  #BILD_spielmap_DATEI
  #canvas
  #fakeKnopf
  #fakeKnopf_
  #blase
  #sk_left
  #sk_right
EndEnumeration

Global fkx=200 ;fakeknopf X-Position
Global fky=120 ;fakeknopf X-Position
Global pmw     ;pixelmannbreite
Global pmh=100

Procedure drawcanvas(x,m=0,b=0,i=0)
  StartDrawing(CanvasOutput(#canvas))
    DrawImage(ImageID(#BILD_spielmap_DATEI),0,0)
    DrawAlphaImage(ImageID(#pixelmann),x,Sin(x/10)*10+pmh) ; die Breite des Pixelmanns ist
    If m
      DrawAlphaImage(ImageID(#fakeKnopf_),fkx,fky) 
    Else
      DrawAlphaImage(ImageID(#fakeKnopf),fkx,fky) 
    EndIf
    If b
      DrawAlphaImage(ImageID(#blase),x+pmw,Sin(x/10)*10+pmh*0.7,b) 
    EndIf
    If i
      DrawingMode(#PB_2DDrawing_Transparent)
      RoundBox(0,0,WindowWidth(#win)-18,TextHeight("1")*3+2,5,5,RGB(121, 133, 108))
      RoundBox(0,0,WindowWidth(#win)-20,TextHeight("1")*3,5,5,RGB(113,167,82))
      
      DrawText(10,0,"Pfeil nach links rutscht den Knopf nach links",#White)
      DrawText(10,TextHeight("1"),"Pfeil nach rechts rutscht den Knopf nach rechts",#White)
      DrawText(10,TextHeight("1")*2,"Anklicken (korrekt linke maustaste gedrückt im Knopf setzt die Richtung nach links (falls Richtung nach rechts)",#White)
    EndIf
    
  StopDrawing()
EndProcedure
i=500
If OpenWindow(#win, 0, 0, 800, 600, "Test", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  
  LoadImage(#pixelmann, "d:\pixelm.png")
  pmw=ImageWidth(#pixelmann) ;die Breite brauch ich unten für die Kollisionsabfrage
  LoadImage(#BILD_spielmap_DATEI, "d:\landschaft.png")
  LoadImage(#fakeknopf,"D:\fakeknopf.png")
  LoadImage(#fakeknopf_,"D:\fakeknopf_.png")
  LoadImage(#blase,"D:\blase.png")
  
  fkw=ImageWidth(#fakeknopf)   ;Breite des Fakeknopfs
  fkh=ImageHeight(#fakeknopf)  ; Höhe des Fakeknopfs
  
  CanvasGadget(#canvas,0,0,800,600)
  AddWindowTimer(#win,1,1)
  AddKeyboardShortcut(#win,#PB_Shortcut_Left,#sk_left)
  AddKeyboardShortcut(#win,#PB_Shortcut_Right,#sk_right)
  
  Repeat
    ereignis=WaitWindowEvent()
    etimer=EventTimer()
    emenu = EventMenu() ;Keyboardshortcuts
    etype = EventType()
    egadget=EventGadget()
    gmx=GetGadgetAttribute(#canvas,#PB_Canvas_MouseX)
    gmy=GetGadgetAttribute(#canvas,#PB_Canvas_MouseY)
    
    Select ereignis
      Case #PB_Event_Gadget
        Select egadget
          Case #canvas
            Select etype
              Case #PB_EventType_LeftButtonDown
                If gmx>=fkx And gmx<=fkx+fkw And gmy>=fky And gmy<=fky+fkh ; ein Klick in den Fakeknopf setzt die Richtung nach links
                  m=8  ; knopfrevert  wirkt wie eine Art countdown
                  If ad=1
                    ad=-1
                    b=255 ; blase wirkt wie eine Art countdown, gleichzeitig Alphawert (darf nie mehr als 255 oder weniger als 0 werden)
                  EndIf
                EndIf
            EndSelect
        EndSelect
            
      Case #PB_Event_Menu
        Select emenu
          Case #sk_left
            fkx-3 ; x-Position für den Knopf drei pixel nach links
          Case #sk_right
            fkx+3; x-Position für den Knopf drei pixel nach rechts
        EndSelect
        
      Case #PB_Event_Timer
        If Etimer = 1
          If x+pmw>=fkx :ad=-1  :b=255:EndIf ;falls der mann an den knopf stösst, zurück , 
          If x=200  :  ad=-1  :  EndIf
          If x=0    :  ad=1   :  EndIf
          x+ad
          drawcanvas(x,m,b,i)
          If m>0
            m-1
          EndIf
          If b>0
            b -15
          EndIf
          If i>0
            i-1
          EndIf
          
        EndIf
    EndSelect
    
  Until Ereignis = #PB_Event_CloseWindow Or Ende = #True
EndIf
End