Graphics 800, 600, 32, 1 ;Grafik initialisieren

SetBuffer BackBuffer() ;Dublebuffering aktivieren

Global FPS = CreateTimer(58) ;58 FramesPerSecond

Global Game = 1

;Bilder laden
Global GearPanelSix = LoadImage("data\2d\gfx\gearpanel6.png") ;Gangschaltung 6 Gang
Global GearPointer = LoadImage("data\2d\gfx\gearpointer.png") ;Gang Anzeiger
Global GearStatus = LoadAnimImage("data\2d\gfx\gearstatus.png", 17, 20, 1, 20) ;Gang Status
Global mouse = LoadImage("data\2d\gfx\mouse.png") ;Maus
;Bilder geladen

;Variablen
Global MX
Global MY
;Variablen Ende

;Haupschleife
Repeat
   
   WaitTimer FPS
   Cls
   
   MX = MouseX()
   MY = MouseY()
   
   DrawImage GearPanelSix, 449, 422
   DrawImage mouse, MX, MY
   
   If KeyHit(1) Then
      Game = 0
   EndIf
   
   FlushKeys()
   FlushMouse()
   
Until Game = 0

End
;Hauptschleife Ende

;Funktionen
Function GearChange(NowGear$, minRPM#, NextGear$, SetRPMTo#)
   Local Gear% = NowGear$
   Local NGear% = NextGear$
   
   Select NGear%
      Case "1"
         
      Case "2"
         
      Case "3"
         
      Case "4"
         
      Case "5"
         
      Case "6"
         
      Case "R"
         
      Case "N"
   End Select
   
End Function
;Funktionen Ende