Cultris I - 1key-finesse

;sendmode input
sendmode event
setkeydelay -1, -1
setbatchlines -1
process, priority,, high
#maxthreads 1
#maxthreadsperhotkey 1
mode := 0
sonic := 0

*ß::suspend

*tab::
suspend
send {tab}
return

*l:: mode := 1 - mode

*o:: sonic := 2
*k:: sonic := 1
*i:: sonic := 3

; 1 rotated and left
*g::
if ( mode = 0 )
    send {Numpad4 5}
else
    send {r 2}{Numpad4 5}
goto postmove

*a::
if ( mode = 0 )
    send {Numpad4 4}
else
    send {r 2}{Numpad4 5}
goto postmove

*s::
if ( mode = 0 )
    send {Numpad4 3}
else
    send {r 2}{Numpad4 4}
goto postmove

*d::
if ( mode = 0 )
    send {Numpad4 2}
else
    send {r 2}{Numpad4 3}
goto postmove

*f::
if ( mode = 0 )
    send {Numpad4 1}
else
    send {r 2}{Numpad4 2}
goto postmove

; 1 rotated and right
*space::
if ( mode = 0 )
    send {Numpad8 0}
else
    send {r 2}{Numpad4 1}
goto postmove

*ralt::
if ( mode = 0 )
    send {Numpad8 1}
else
    send {r 2}{Numpad8 0}
goto postmove

*ö::
if ( mode = 0 )
    send {Numpad8 2}
else
    send {r 2}{Numpad8 1}
goto postmove

*ä::
if ( mode = 0 )
    send {Numpad8 3}
else
    send {r 2}{Numpad8 2}
goto postmove

*#::
if ( mode = 0 )
    send {Numpad8 4}
else
    send {r 2}{Numpad8 3}
goto postmove

; 0 or 2 rotated and left
*e::
if ( mode = 0 )
    send {r}{Numpad4 4}
else
    send {e}{Numpad4 4}
goto postmove

*q::
if ( mode = 0 )
    send {r}{Numpad4 3}
else
    send {e}{Numpad4 3}
goto postmove

*w::
if ( mode = 0 )
    send {r}{Numpad4 2}
else
    send {e}{Numpad4 2}
goto postmove

*r::
if ( mode = 0 )
    send {r}{Numpad4 1}
else
    send {e}{Numpad4 1}
goto postmove

; 0 or 2 rotated and right
*t::
if ( mode = 0 )
    send {r}{Numpad8 0}
else
    send {e}{Numpad8 0}
goto postmove

*p::
if ( mode = 0 )
    send {r}{Numpad8 1}
else
    send {e}{Numpad8 1}
goto postmove

*ü::
if ( mode = 0 )
    send {r}{Numpad8 2}
else
    send {e}{Numpad8 2}
goto postmove

*+::
if ( mode = 0 )
    send {r}{Numpad8 3}
else
    send {e}{Numpad8 3}
goto postmove

postmove:
if ( sonic = 0 )
    send {g}
else
    send {Numpad9 down}
mode := 0
return


a up::
s up::
d up::
f up::
Space up::
RAlt up::
ö up::
ä up::
# up::
g up::
q up::
w up::
e up::
r up::
t up::
p up::
ü up::
+ up::
if ( sonic = 0 )
    return
send {Numpad9 up}
if ( sonic = 1 )
    send {Numpad4 3}{g}
else if ( sonic = 2 )
    send {Numpad8 3}{g}
sonic := 0
return