PureBoard

Code: Alles auswählen

;PB 4.00
InitSprite()
InitKeyboard()
OpenScreen(800,600,16,"Plotwar")

fr.w = 3  
cx.w = 100
cy.w = 100

   Repeat
      ClearScreen(RGB(255,255,255))
      StartDrawing(ScreenOutput())
         Circle(cx,cy,fr,255)
      StopDrawing()
      FlipBuffers()

      ExamineKeyboard()

         If KeyboardPushed(#PB_Key_S)
            cy + 1;+2 oder höher
         If cy = 600;Dat funzt denn nicht mehr
            cy = 599
         EndIf
         EndIf
         If KeyboardPushed(#PB_Key_W)
            cy - 1;hier auch -2 oder weniger
         If cy = 0
            cy = 1
         EndIf
         EndIf
         If KeyboardPushed(#PB_Key_A)
            cx - 1;und hier
         If cx = 0
            cx = 1
         EndIf
         EndIf
         If KeyboardPushed(#PB_Key_D)
            cx + 1;und hier
         If cx = 800
            cx = 799
         EndIf
         EndIf
      If KeyboardPushed(#PB_Key_Escape)
         End
      EndIf
   ForEver