Include "function.bb"

GetKeyboardConfig()


Repeat

If ActionHit("1") Then Print "motherfucker"
If ActionHit("Esc") Then Print "Sauber Sebi, smoken?"

If actionhit("A") Then Print "yay"

Until KeyDown(3)
End

;z$ = tempzeile


;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%


Type kkeys
 Field b$ ;uchstabe
 Field s  ;cancode
End Type


Global k.kkeys


;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%


Function GetKeyboardConfig()

;---------------

config_file = ReadFile("data\keyboard.ini")
If config_file = 0 Then RuntimeError "Error loading <data\keyboard.ini>"

;---------------


While Not Eof(config_file)

   z$ = ReadLine$(config_file)
   
   pos1 = Instr(z$," ",1)
   pos2 = pos1 + 2
   
   k.kkeys   = New kkeys
   k\b$     = Left$(z$,pos1-1)
   k\s      = Mid$(z$,pos2)

   DebugLog k\b$ +"auf" +k\s

Wend



;---------------

End Function




;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%





Function ActionHit(key$)

;---------------

For k.kkeys = Each kkeys

   If key$ = k\b$ Then
      If KeyHit(k\s) Then Return 1
   Else
      Return 0
   End If

Next

;---------------

End Function

Esc = 1
1 = 2
A = 30
B = 22