//***Hunting Zone Creation and Traversal***

//initialize vars
V: CharName
V: MoveToP1, MoveToP2, TimeSinceAgro, TimeSinceP
V: xPosP1, yPosP1, zPosP1
V: xPosP2, yPosP2, zPosP2
V: xPosDiff, yPosDiff, zPosDiff
F: PosDiff(Pos1,Pos2) = abs(abs(Pos1) - abs(Pos2))
L Assign MoveToP1 = 0
L Assign MoveToP2 = 0
L Assign TimeSinceAgro = now
L Assign TimeSinceP = now

//Set Point 1
S EnableGroup SetP1 off
?SetP1 T(500) {Assign MoveToP1 = 0 ; Assign TimeSinceP = now ; Assign xPosP1 = xpos(me) ; Assign yPosP1 = ypos(me) ; Assign zPosP1 = zpos(me)} ; Display 0 ("P1 now set") ; EnableGroup SetP1 off

//Set Point 2
S EnableGroup SetP2 off
?SetP2 T(500) {Assign MoveToP1 = 0 ; Assign TimeSinceP = now ; Assign xPosP2 = xpos(me) ; Assign yPosP2 = ypos(me) ; Assign zPosP2 = zpos(me)} ; Display 0 ("P2 now set") ; EnableGroup SetP2 off

//***Traverse
S EnableGroup Traverse off
@GroupSwitch group == "Traverse" and MoveToP1 == 0 : ComeTo xPosP1 yPosP1 zPosP1 50 100 Traverse ; //Display 0 ("Moving to P1")
@GroupSwitch group == "Traverse" and MoveToP1 == 2 : ComeTo xPosP2 yPosP2 zPosP2 50 100 Traverse ; //Display 0 ("Moving to P2")

//Moving to P1
?Traverse T(1000) MoveToP1 == 0 and (target(me) == 0 or dead(target(me)) or not attackable(target(me))) and (xPosP1 ~= xpos(me) and yPosP1 ~= ypos(me) and zPosP1 ~= zpos(me)) : ComeTo xPosP1 yPosP1 zPosP1 50 100 Traverse ; //Display 0 ("Moving to P1")
?Traverse T(500,1000) (target(me) == 0 or dead(target(me)) or not attackable(target(me))) and (PosDiff(xPosP1,xpos(me)) < 200 and PosDiff(yPosP1,ypos(me)) < 200 and PosDiff(zPosP1,zpos(me)) < 200) : ComeTo xPosP2 yPosP2 zPosP2 50 200 Traverse ; Assign MoveToP1 = 2 ; //Display 0 ("Arrived at P1, switching to P2")

//Moving to P2
?Traverse T(500,1000) MoveToP1 == 2 and (target(me) == 0 or dead(target(me)) or not attackable(target(me))) and (xPosP2 ~= xpos(me) and yPosP2 ~= ypos(me) and zPosP2 ~= zpos(me)) : ComeTo xPosP2 yPosP2 zPosP2 50 100 Traverse ; //Display 1 ("Moving to P2")
?Traverse T(500,1000) (target(me) == 0 or dead(target(me)) or not attackable(target(me))) and (PosDiff(xPosP2,xpos(me)) < 200 and PosDiff(yPosP2,ypos(me)) < 200 and PosDiff(zPosP2,zpos(me)) < 200) : ComeTo xPosP1 yPosP1 zPosP1 50 200 Traverse ; Assign MoveToP1 = 0 ; //Display 1 ("Arrived at P2, switching to P1")

//Moving, Targeting, and Traverse groupswitching
?Exping T(500,1000) nowCasting(me) == 0 and (distance(target(me)) > 2000 or dead(target(me))) : Cancel ; PressKey ESC
?Exping T(500,1000) attackable(target(me)) == 0 or target(me) == 0 or dead(target(me)) : PressKey F12 ; EnableGroup Traverse on
?Exping T(500,2000) npc(target(me)) == 0 : PressKey F12 ; EnableGroup Traverse on
?Exping T(500) attackable(target(me)) and alive(target(me)) and distance(target(me)) < 1000 and npc(target(me)) : Attack ; EnableGroup Traverse off