AutoHotkey Community

IniRead,InputBoxW,TrickRun.ini,CommandLine,Width
IniRead,InputBoxH,TrickRun.ini,CommandLine,Height
IniRead,InputBoxX,TrickRun.ini,CommandLine,PositionX
IniRead,InputBoxY,TrickRun.ini,CommandLine,PositionY
IniRead,Cursor,TrickRun.ini,CommandLine,ChaseCursor

; This loop reads and parses INI files. Thanks to BoBo.

Loop,Read,Test.qrs
 {
  IfInString,A_LoopReadLine,[
   {
    SectionCount ++
    Section%SectionCount% = %A_LoopReadLine%
   }
  IfInString,A_LoopReadLine,`=
   {
    ValueCount ++
    StringSplit,Field%ValueCount%_,A_LoopReadLine,`=
   }
 }

; This trims the Section array of braces and reassigns it.
Loop,%SectionCount%
 {
  StringLen,HowMany,Section%A_Index%
  StringLeft,ThisSection,Section%A_Index%,%HowMany%
  StringTrimLeft,ThisSection,ThisSection,1
  StringTrimRight,ThisSection,ThisSection,1
  TrickWord%A_Index% = %ThisSection%
 }

; This was to be the section that assigned the labels.
; Originally, the script was going to run off of INI files,
; reading them and assigning labels to shortcuts on the
; fly.
Loop,%SectionCount%
 {
  Break
 }
SetTimer,ChaseCursor,25
Return

#q::
; The Input box is supposed to be the command line.
; Later on though, I'll use an element that's more configurable.
InputBox,TW,TrickRun,,,%InputBoxW%,%InputBoxH%,%InputBoxX%,%InputBoxY%
Loop,%SectionCount%
 {
  If TW = TrickWord%A_Index%
   {
    Gosub, %TW%
    Break
   }
  Else
  Continue
 }
Return

ChaseCursor:
SetTimer,ChaseCursor,Off
If Cursor = 1
Hotkey,#q,Chase
Return

Chase:
MouseGetPos, MouseX, MouseY
InputBoxX = %MouseX%
InputBoxY = %MouseY%
InputBox,TW,TrickRun,,,%InputBoxW%,%InputBoxH%,%InputBoxX%,%InputBoxY%
Loop,%SectionCount%
 {
  If TW = TrickWord%A_Index%
   {
    Gosub, %TW%
    Break
   }
  Else
  Continue
 }
Return