AutoHotkey Community

; Script Function:
;   Example block-toggler (non-working)
;   Enables the wasd keys in the Sherwood MMORPG. Toggle them on and
;   off with ScrollLock, NumLock or PrintScreen.
; BUG:
;   Does not turn off aliases when changing windows.
; License:
;   This code is explicitly released to the public domain under the "code
;   sample" precedent. You may modify, reuse or relicence it in any way
;   without informing or attributing me. Truly free, not just "Free(tm)".
#AllowSameLineComments
#InstallKeybdHook
#NoEnv ; For security
#Persistent
#SingleInstance force
DetectHiddenWindows on
SendMode Input
return

#IfWinActive MMORPG in Sherwood
ScrollLock::
NumLock::
PrintScreen::
IfWinExist wasd2uldr
{
  Gui destroy
}
else {
  Gui, Add, Text,, Window for toggling the wasd2uldr block
  Gui show, hide , wasd2uldr
  DetectHiddenWindows on
}
return

#IfWinExist wasd2uldr
$*w::Send {up down}
$*w up::Send {up up}
$*a::Send {left down}
$*a up::Send {left up}
$*s::Send {down down}
$*s up::Send {down up}
$*d::Send {right down}
$*d up::Send {right up}

#IfWinExist
#IfWinActive

#AllowSameLineComments
#InstallKeybdHook
#NoEnv ; For security
#Persistent
#SingleInstance force
DetectHiddenWindows on
SendMode Input
SetTitleMatchMode,2
hotkeys("Off")   ;turn off hotkeys by default
SetTimer,CheckState,500
return

CheckState:
   IfWinNotActive, MMORPG in Sherwood
   {   hotkeys("Off")
      Return
   }
   If(keyState)
   {   hotkeys("On")
   }
   Else
   {   hotkeys("Off")
   }
Return

#IfWinActive, MMORPG in Sherwood
ScrollLock::
NumLock::
PrintScreen::
   keyState := !keyState
return
#IfWinActive

hotkeys(onORoff)
{
   Hotkey,$*w,      %onORoff%
   Hotkey,$*w up,   %onORoff%
   Hotkey,$*a,      %onORoff%
   Hotkey,$*a up,   %onORoff%
   Hotkey,$*s,      %onORoff%
   Hotkey,$*s up,   %onORoff%
   Hotkey,$*d,      %onORoff%
   Hotkey,$*d up,   %onORoff%
}

$*w::Send {up down}
$*w up::Send {up up}
$*a::Send {left down}
$*a up::Send {left up}
$*s::Send {down down}
$*s up::Send {down up}
$*d::Send {right down}
$*d up::Send {right up}