rcons-prefs

OpenPreferences(RunDir + "rcons.ini")

PreferenceGroup("Main")

Select UCase(ReadPreferenceString("Hotkey","TAB"))
  Case "TAB"
    Hotkey = #VK_TAB
  Case "0"
    Hotkey = #VK_0
  Case "1"
    Hotkey = #VK_1
  Case "2"
    Hotkey = #VK_2
  Case "3"
    Hotkey = #VK_3
  Case "4"
    Hotkey = #VK_4
  Case "5"
    Hotkey = #VK_5
  Case "6"
    Hotkey = #VK_6
  Case "7"
    Hotkey = #VK_7
  Case "8"
    Hotkey = #VK_8
  Case "9"
    Hotkey = #VK_9
  Case "A"
    Hotkey = #VK_A
  Case "B"
    Hotkey = #VK_B
  Case "C"
    Hotkey = #VK_C
  Case "D"
    Hotkey = #VK_D
  Case "E"
    Hotkey = #VK_E
  Case "F"
    Hotkey = #VK_F
  Case "G"
    Hotkey = #VK_G
  Case "H"
    Hotkey = #VK_H
  Case "I"
    Hotkey = #VK_I
  Case "J"
    Hotkey = #VK_J
  Case "K"
    Hotkey = #VK_K
  Case "L"
    Hotkey = #VK_L
  Case "M"
    Hotkey = #VK_M
  Case "N"
    Hotkey = #VK_N
  Case "O"
    Hotkey = #VK_O
  Case "P"
    Hotkey = #VK_P
  Case "Q"
    Hotkey = #VK_Q
  Case "R"
    Hotkey = #VK_R
  Case "S"
    Hotkey = #VK_S
  Case "T"
    Hotkey = #VK_T
  Case "U"
    Hotkey = #VK_U
  Case "V"
    Hotkey = #VK_V
  Case "W"
    Hotkey = #VK_W
  Case "X"
    Hotkey = #VK_X
  Case "Y"
    Hotkey = #VK_Y
  Case "Z"
    Hotkey = #VK_Z
  Case "F1"
    Hotkey = #VK_F1
  Case "F2"
    Hotkey = #VK_F2
  Case "F3"
    Hotkey = #VK_F3
  Case "F4"
    Hotkey = #VK_F4
  Case "F5"
    Hotkey = #VK_F5
  Case "F6"
    Hotkey = #VK_F6
  Case "F7"
    Hotkey = #VK_F7
  Case "F8"
    Hotkey = #VK_F8
  Case "F9"
    Hotkey = #VK_F9
  Case "F10"
    Hotkey = #VK_F10
  Case "F11"
    Hotkey = #VK_F11
  Case "F12"
    Hotkey = #VK_F12
  Case "RETURN"
    Hotkey = #VK_RETURN
  Case "CAPS"
    Hotkey = #VK_CAPITAL
  Case "TILDE"
    Hotkey = #VK_OEM_3
  Case "TILDE_ALT"
    Hotkey = #VK_OEM_102
  Default
    Hotkey = #VK_TAB
EndSelect

Select UCase(ReadPreferenceString("HotkeyModifier","CONTROL"))
  Case "CTRL"
    HotkeyModifier = #MOD_CONTROL
  Case "SHIFT"
    HotkeyModifier = #MOD_SHIFT
  Case "ALT"
    HotkeyModifier = #MOD_ALT
  Case "CTRL-SHIFT"
    HotkeyModifier = #MOD_CONTROL + #MOD_SHIFT
  Case "CTRL-ALT"
    HotkeyModifier = #MOD_CONTROL + #MOD_ALT
  Case "ALT-SHIFT"
    HotkeyModifier = #MOD_ALT + #MOD_SHIFT
  Default
    HotkeyModifier = #MOD_CONTROL
EndSelect

Select LCase(ReadPreferenceString("HideOnStart","true"))
  Case "true"
    HideOnStart = #True
  Case "yes"
    HideOnStart = #True
  Case "false"
    HideOnStart = #False
  Case "no"
    HideOnStart = #False
  Default
    HideOnStart = #True
EndSelect

Shell.s = UCase(ReadPreferenceString("Shell","%WINDIR%\system32\cmd.exe"))
Shell = ReplaceString(Shell,"%WINDIR%",GetEnvironmentVariable("WINDIR"))
Shell = ReplaceString(Shell,"%SYSTEMDRIVE%",GetEnvironmentVariable("SYSTEMDRIVE"))
Shell = ReplaceString(Shell,"%USERNAME%",GetEnvironmentVariable("USERNAME"))
Shell = ReplaceString(Shell,"%APPDATA%",GetEnvironmentVariable("APPDATA"))
Shell = ReplaceString(Shell,"%TEMP%",GetEnvironmentVariable("TEMP"))

;Shell = "%WINDIR%\system32\powershell.exe"

ShellParams.s = ReadPreferenceString("ShellParams","")

WorkDir.s = UCase(ReadPreferenceString("WorkDir","%WINDIR%"))
WorkDir = ReplaceString(WorkDir,"%WINDIR%",GetEnvironmentVariable("WINDIR"))
WorkDir = ReplaceString(WorkDir,"%SYSTEMDRIVE%",GetEnvironmentVariable("SYSTEMDRIVE"))
WorkDir = ReplaceString(WorkDir,"%USERNAME%",GetEnvironmentVariable("USERNAME"))
WorkDir = ReplaceString(WorkDir,"%APPDATA%",GetEnvironmentVariable("APPDATA"))
WorkDir = ReplaceString(WorkDir,"%TEMP%",GetEnvironmentVariable("TEMP"))

PreferenceGroup("Style")

WindowH = ReadPreferenceInteger("WindowHeight",400)
If WindowH < 50 Or WindowH > DesktopHeight(0)
  WindowH = 400
EndIf


Select LCase(ReadPreferenceString("Transparency","true"))
  Case "true"
    Transparency = #True
  Case "yes"
    Transparency = #True
  Case "false"
    Transparency = #False
  Case "no"
    Transparency = #False
  Default
    Transparency = #False
EndSelect

If Transparency
  TransparencyValue = ReadPreferenceInteger("TransparencyValue",220)
  If TransparencyValue > 254
    TransparencyValue = 254
  EndIf
  If TransparencyValue < 20
    TransparencyValue = 20
  EndIf
EndIf

Select LCase(ReadPreferenceString("ToolWindow","false"))
  Case "true"
    ToolWindow = #True
  Case "yes"
    ToolWindow = #True
  Case "false"
    ToolWindow = #False
  Case "no"
    ToolWindow = #False
  Default
    ToolWindow = #False
EndSelect

Select LCase(ReadPreferenceString("RollEffects","true"))
  Case "true"
    RollEffects = #True
  Case "yes"
    RollEffects = #True
  Case "false"
    RollEffects = #False
  Case "no"
    RollEffects = #False
  Default
    RollEffects = #False
EndSelect

Select LCase(ReadPreferenceString("HideScroll","true"))
  Case "true"
    HideScroll = #True
  Case "yes"
    HideScroll = #True
  Case "false"
    HideScroll = #False
  Case "no"
    HideScroll = #False
  Default
    HideScroll = #False
EndSelect

Offset = ReadPreferenceInteger("Offset",2)
If Offset < 0
  Offset = 0
EndIf

ClosePreferences()

; IDE Options = PureBasic 5.00 (Windows - x86)
; CursorPosition = 230
; FirstLine = 193
; EnableXP