AutoHotkey Community

PromptWindow:
{
  if Debug in promptwindow,all,on
    MsgBox 4112, %WinTitle%, Entering Prompt window routine.
  Loop
  {
    MouseX =
    MouseY =
    MouseColor =
    WinName = EQAutoCrafter - Pixel Setter
    InvisColor = 0xfebaec
    Gui, 2:color, %InvisColor%
    Gui, 2:Font, s20 bold, Verdana
    Gui, 2:Add, Text, w600 cNavy, Please Left Click on %PromptStr%...`n`n  You have 15 seconds...
    Gui, 2:show, x0 y400, %WinName%
    WinWait, A  ; Set the "last found" window for use with the next two commands.
    WinSet, Transcolor, %InvisColor%, %WinName%
    WinSet, AlwaysOnTop, On, %WinName%
    tooltip ontop done
    Sleep 5000
    Gui, 2:-Caption,, %WinName%
    tooltip caption done
    Sleep 5000

    KeyWait LButton, D T15
    Gui 2:Destoy,, %WinName%

;    WinKill %WinName%

    If ErrorLevel
    {
      MsgBox 4132, %WinTitle%, You didn't click on anything`nWould you like to try again?
      ifMsgBox No
        Break
      else
        Continue
    }
    MouseGetPos, MouseX, MouseY
    if ForceY
      MouseY = %ForceY%
    PixelGetColor, MouseColor, %MouseX%, %MouseY%
    if NeedYellow
    {
      if MouseColor != %NeedYellow%
      {
        MsgBox 4130, %WinTitle%, You were trying for the yellow but you didn't get it.`nIt's not required but is preferable.`n`nYou can retry or Ignore it and continue or just Abort and give up.
        IfMsgBox Abort
        {
          MouseColor =
          Break
        }
        ifMsgBox Ignore
          Break
        else
          Continue
      }
    }
  }
  Return
}

Gui 2:Destroy,, %WinName%

Gui 2:Destroy

Gui, 2:+AlwaysOnTop -Caption

    Gui, 2:+AlwaysOnTop -Caption
    Gui, 2:color, %InvisColor%
    Gui, 2:Font, s20 bold, Verdana
    Gui, 2:Add, Text, w600 cNavy, Please Left Click on %PromptStr%...`n`n  You have 15 seconds...
    Gui, 2:show, x0 y400, %WinName%
    WinSet, Transcolor, %InvisColor%, %WinName%

; Example: On-screen display (OSD):
CustomColor = EEAA99  ; Can be any RGB color (it will be made transparent below).
Gui, Color, %CustomColor%
Gui, Font, s24
Gui, Add, Text, vMyText cLime, XXXXX YYYYY  ; XX & YY serve to auto-size the window.
Gui, Show, x0 y400
WinWait, A  ; Set the "last found" window for use with the next two commands.
; Make all pixels of this color transparent and make the text itself translucent (150):
WinSet, TransColor, %CustomColor% 150
WinSet, AlwaysOnTop, On
; Remove the borders. Due to a quirk in Windows, this must be done after transparency:
Gui, -Caption
SetTimer, UpdateOSD, 500
return

SendEQ:
{
  IfWinActive %WinTitle%
  {
    WinActivate %EQWinTitle%
    WinWaitActive %EQWinTitle%,,1
    If %ErrorLevel%
    {
      MsgBox Unable to make EQ the Active Window.
      Return
    }
  }
  send %SendEQkey%
  Return
}

  Gui, Show, x40 w252 h388 NoActivate, %WinTitle%

EQWinTitle = EverQuest II
WinTitle = MyApp

  Gui, +AlwaysOnTop +ToolWindow
  Gui, Add, Button, x6 y290 w40 h30 vBuff1, Buff1
  Gui, Show, x40 w252 h388 NoActivate, %WinTitle%
Key1Speed = 7
  ControlSetText Buff1, %Key1Speed%, %WinTitle%
GoSub InstallHotkeys
GoSub ReInstallHotkeys

Return ;  End of autoexecute

GuiEscape:
ButtonExit:
GuiClose:
ExitApp


ReinstallHotkeys:
{
  ;  Turn off all hotkeys
  GoSub TurnOffHotkeys

  ;  Get the assigned value of buff1-6 and turn them on
  Loopcount = 0
  ButtonList = %Key1Speed% ;,%Key2Speed%,%Key3Speed%,%Key1Dur%,%Key2Dur%,%Key3Dur%
  Loop Parse, ButtonList, CSV
  {
    Loopcount++
    GuiControl,, Buff%Loopcount%, %A_LoopField%
    CurrHotkey = $%A_LoopField%
    Hotkey, %CurrHotkey%, On
  }
  Return
}

InstallHotkeys:
{
  HotKeyList = 1,2,3,4,5,6,7,8,9,0,-,=
  Loop Parse, HotKeyList, CSV
  {
    CurrHotkey = $%A_LoopField%
    Hotkey, %CurrHotkey%, ClickButton
    Hotkey, %CurrHotkey%, off
  }
  Return
}

TurnOffHotkeys:
{
  HotKeyList = 1,2,3,4,5,6,7,8,9,0,-,=
  Loop Parse, HotKeyList, CSV
  {
    CurrHotkey = $%A_LoopField%
    Hotkey, %CurrHotkey%, off
  }
  Return
}

ClickButton:
{
  ;   Strip the $, click on the key in the interface.
  StringReplace MyHotkey, A_ThisHotkey, $
  ControlClick %MyHotkey%, %WinTitle%,,Left, 1, D
  ControlClick %MyHotkey%, %WinTitle%,,Left, 1, U
  Return
}

ButtonBuff1:
{
  ;   Get the value of the button and call SendEQ to send it.
  GuiControlGet Buff1
  SendEQkey = %Buff1%
  GoSub SendEQ
  Return
}

SendEQ:
{
  IfWinActive %WinTitle%
  {
    WinActivate %EQWinTitle%
    WinWaitActive %EQWinTitle%,,1
    If %ErrorLevel%
    {
      MsgBox Unable to make EQ the Active Window.
      Return
    }
  }
  send %SendEQkey%
  Return
}

1. Start your favorite editor
2. Start above code snippet.  (it should NOT take focus)
3. Put focus on editor
4. Press 7 key.

WinTitle = MyApp

  Gui, +AlwaysOnTop +ToolWindow
  Gui, Add, Button, x6 y290 w40 h30 vBuff1, Buff1
  Gui, Show, x40 w252 h388 NoActivate, %WinTitle%
Key1Speed = 7
  ControlSetText Buff1, %Key1Speed%, %WinTitle%

; This is just to make it so you don't have to change focus (since my app doesn't)
; Trying to make the simulation accurate although focus seems irrelivant.
SetTimer DoPrompt, 1000

Return ;  End of autoexecute

GuiEscape:
ButtonExit:
GuiClose:
ExitApp

; I put this in a loop, you can press the mouse key to trigger the loop
DoPrompt:
{
  SetTimer DoPrompt, off
  PromptStr = Here's your prompt
  GoSub PromptWindow
  Return
}

PromptWindow:
{
  Loop
  {
    MouseX =
    MouseY =
    MouseColor =
    WinName = PromptWin
    InvisColor = 0xfebaec
    Gui, 2:color, %InvisColor%
    Gui, 2:Font, s20 bold, Verdana
    Gui, 2:Add, Text, w600 cNavy, Please Left Click on the %PromptStr%...`n`n  You have 15 seconds...
    Gui, 2:show, x0 y400, %WinName%
    WinSet, Transcolor, %InvisColor%, %WinName%
    WinSet, AlwaysOnTop, On, %WinName%
    ToolTip ontop done: window will dissapear now
    Sleep 2000
    Gui, 2:-Caption,, %WinName%

    KeyWait LButton, D T15
    ELevel = %ErrorLevel%

    Gui 2:Destroy
  }
  Return
}