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

+RButton::
send {Altdown}
Click, Right
send {Altup}
send {Shiftdown}
Click, Right
send {Shiftup}
return

Rbutton::
KeyWait, RButton, T0.30
Multi = %errorlevel%
if (Multi = 1)
Traytip,,Multi,1
    if (Multi = 1){
SendInput  {Shift Up}
Sleep 35
SendInput  {Shift Down}
Sleep 35
Click, down, right
sleep 35
Click, up, right
sleep 35
SendInput  {Shift up}
sleep 35
return
}

Click, down, right
sleep 35
Click, up, right
sleep 35
return