auto Warp

automacro Warper {
pm "Warp GH","Name" #Change This to your char's name
delay 5
run-once 1
call Warp1
}

macro Warp1 {
@set (loc) @var (.pos)
@pause 2
northeast
@pause 2
sl 27 @var (loc) 4
@pause 5
warp 1 #Assumming GH is in Memo 1
@pause 2
move @var (loc)
conf follow 1
@pause 2
@release Warper
}