Graphics 1024,768,0,1
SetBuffer BackBuffer()

;Vars zum limitieren
Const SET_FPS# = 50
Const FPS_PERIOD# = 1000 / SET_FPS#  ;Wie fleissig wird gezeichnet (ms)
Global DRAW_TIME# = millisecs()    ;wann wird gezeichnet

;Vars zum zählen der tatsächlichen Frames
Global FPS = SET_FPS#   ;Am Anfang auch 50, Fehlervermeidung
Global FPS_COUNTER = 0  ;Zählt pro Zeichnungsdurchgang 1 dazu
Global COUNT_TIME = millisecs() + 1000  ;In 1 Sekunde Frames zählen.


Repeat

  ms = millisecs()

  If ms >= DRAW_TIME# then
 
    Cls
    ;Zeichnen...
    Flip
 
    DRAW_TIME# = Float#(ms) + FPS_PERIOD# ;Wann wieder zeichnen?
    FPS_COUNTER = FPS_COUNTER + 1   ;Wir haben 1 Frame mehr

  Endif

  If ms >= COUNT_TIME then
   
    FPS = FPS_COUNTER  ;Die gezählten Frames in FPS speichern
    FPS_COUNTER = 0     ;Wieder von Vorne beginnen mit zählen
    COUNT_TIME = ms + 1000   ;Das nächste mal in 1 sek. wieder in FPS speichern.

  Endif

Until Keyhit(1)

EndGraphics
End

  t1=MilliSecs()

  ...

  While Abs(t1-MilliSecs())<10 ;10ms=100 FPS Max.
  Wend
  Flip

;Deklerationen
   Const Title$ = "Spiel Aufbau"
   Const Step_Menu_load = 0,Step_Menu = 1,Step_Menu_unload = 2
   Const Step_Game_Load = 3,Step_Game = 4,Step_Game_Unload = 5

   Global fenster
   Global canvas
   Global Buffer
   Global Timer
   Global Steps
   
   Global Map_Pos_Y
   
   Dim down(255)
   Dim Hit(255)

Main()
End

Function Main()
   ende = 0
   Create_Scene()
   Repeat
      Repeat
         weiter=0
         Select WaitEvent()
            Case $803 : Ende=1
            Case $4001 : weiter = 1
         End Select
      Until weiter
      
      ;Wich Part of the Program
         If Steps = Step_Game Then Game()
      
      
      ;Updates
         FlipCanvas Canvas,False
      
   Until ende = 1
End Function

Function Game()
   Update_Steuerung()
End Function

Function Update_Steuerung()
   Local i,h
   For i = 0 To 255
   
      h = down(i)
      down(i) = KeyDown(i)
      
      If h=0
         hit(i)=Down(i)
      Else
         hit(i)=0
      EndIf
      
   Next
   
End Function


Function Graph()
   fenster=CreateWindow(Title$,GadgetWidth(Desktop())/2-320,GadgetHeight(Desktop())/2-240,320,240,0,1+2+8)
   Canvas=CreateCanvas(2,2,306,200,fenster)
   SetGadgetLayout Canvas,1,1,1,1
   SetStatusText fenster,Title$+" - By Jan Kuhnert"
   SetBuffer CanvasBuffer(Canvas)
End Function

Function Create_Scene()
   Timer=CreateTimer (60)
   Graph()
End Function