; Full Direction Rotation Camera View (for Amber Client)
; Toggle it with Pause key
; you can inverse easily right and left keys by changing "Right::" to "Left::" and "Left::" to "Right::"
; you can also change the hotkey to Toggle (changing "Pause::" ) but avoid Ctrl or Alt combination as it is a little buggy (can work, tho)


#singleinstance force
#MaxThreadsPerHotkey 1
SetTitleMatchMode, 1 ; match start of the title
#IfWinActive Haven and Hearth

Toggle := 0


Pause::
Toggle := !Toggle
If (Toggle = 1)
{
Direction = 0
Send, {Control Down}
Send, {up}
Send, {Control Up}

Traytip,,FullDirRotation On,1
;Progress, zh0 fs18 x300 y300, "%Direction%"
}
else{
Direction := ""
Traytip,,FullDirRotation Off,1
}
return


$Right::

if (Direction = 1){
Send, {Control Down}
Send, {left}
Send, {Control Up}
Direction++
;Progress, zh0 fs18 x300 y300, "%Direction%"
return
}

if (Direction = 3){
Send, {Control Down}
Send, {down}
Send, {Control Up}
Direction++
;Progress, zh0 fs18 x300 y300, "%Direction%"
return
}

if (Direction = 5){
Send, {Control Down}
Send, {right}
Send, {Control Up}
Direction++
;Progress, zh0 fs18 x300 y300, "%Direction%"
return
}
if (Direction = 7){
Direction = 0
Send, {Control Down}
Send, {up}
Send, {Control Up}
;Progress, zh0 fs18 x300 y300, "%Direction%"
return
}

if (VarExist(Direction) = 1)
{
Direction++
Send {Right}
;Progress, zh0 fs18 x300 y300, "%Direction%"
return
}
else{
Send {Right}
}
return


$Left::
;Progress, zh0 fs18 x300 y300, "%Direction%"
if (Direction = 0){
Direction = 8
;Progress, zh0 fs18 x300 y300, "%Direction%"
}

if (Direction = 1){
Direction--
Send, {Control Down}
Send, {up}
Send, {Control Up}
;Progress, zh0 fs18 x300 y300, "%Direction%"
return
}

if (Direction = 3){
Send, {Left}
Sleep 130
Send, {Control Down}
Send, {left}
Send, {Control Up}
Direction--
;Progress, zh0 fs18 x300 y300, "%Direction%"
return
}

if (Direction = 5){
Send, {Control Down}
Send, {down}
Send, {Control Up}
Direction--
;Progress, zh0 fs18 x300 y300, "%Direction%"
return
}
if (Direction = 7){
Direction--
Send, {Control Down}
Send, {right}
Send, {Control Up}
;Progress, zh0 fs18 x300 y300, "%Direction%"
return
}

if (VarExist(Direction) = 1)
{
Direction--
Send {Left}
;Progress, zh0 fs18 x300 y300, "%Direction%"
;msgbox % Direction
return
}
else{
Send {Left}
}
return



varExist(ByRef v) { ; Requires 1.0.46+
   return &v = &n ? 0 : v = "" ? 2 : 1
}