tranq_swim.mac

| - tranq_swim.mac v1 by gSe7eN 17 Sept 2018
| ----- Go to Plane of Tranquility, stand in a place away from door, and type /mac tranq_swim
| -------Watch as tranq_swim will swim you around the perimenter until you're max swim.
| -
| - Please don't be stupid and drown or try to run outside of Plane of Tranquilty.
| -
| - Requires plugin MQ2Nav and a nice mesh file for The Plane of Tranquility.
| -------------------------------------------------------------------------------------

#event Swimming "You have become better at Swimming! (#1#)"
#event Drowning "YOU are drowning!"
#Event ImDead "#*#Returning to Bind Location.#*#"
#define GOTO "/squelch /nav locxyz"
#define SINK "/keypress CMD_MOVE_DOWN hold"
#define LOC "3998.96"
#define LOCZ "-974.28"
#define WAIT "/call Wait4Nav"

Sub Main
/declare Variable1 string outer
/declare Variable2 int outer
/declare HAVar string outer HA HA HA HA
/if (!(${VariableSwimDipShit}>=0)) /declare VariableSwimDipShit int global 0

|| Make sure we're in Plane of Tranquilty.
/if (${Zone.ID}!=203) {
    /if (${VariableSwimDipShit}>1) {
    /docommand /shout GOD DAMN AM I FUCKING RETARDED AND CAN'T EVEN FOLLOW SIMPLE DIRECTIONS. HOLY SHIT. MAKE FUN OF ME.
    /endmacro
    }
/varcalc ${VariableSwimDipShit}+1
/echo You need to be in Plane of Tranquilty for this to work, and no, I'm not going to do that for you.
}
|| Make sure we're not mounted.
/if (${Select[${Me.State},MOUNT]}==1) {
    /dismount
}

|| Nav to Southeast corner, begin swimming until max skill.
:swimloop
GOTO -LOC -LOC LOCZ
WAIT
GOTO LOC -LOC LOCZ
WAIT
GOTO LOC LOC LOCZ
WAIT
GOTO -LOC LOC LOCZ
/goto :swimloop

/return

|| ChillTF out until we get there.
Sub Wait4Nav
/while (${Navigation.Active}) {
    SINK
    /doevents
    /varset Variable1 string
    /delay 1
}
/return

|| When we max swim, go park ourselves somewhere near the beach between PoFire and PoK.
Sub Event_Swimming(string Line,int SwimSkill)
/if (${SwimSkill}==${Skill[Swimming].SkillCap}) {
/echo Congrats, you're max skill. Partying on the beach in just a moment.
GOTO ${Math.Calc[${Math.Rand[30]}-1640]} ${Math.Calc[${Math.Rand[40]}+128]} -930
WAIT
/endmac
}
/return

|| For People who need to suck less at life.
Sub Event_Drowning(string Line)
/echo ${Line}
/echo ${HAVar}
/varset HAVar "${HAVar} ${HAVar}"
/doevents
/return

|| For people who need culled from this planet.
Sub Event_ImDead
/echo HA HA HA HA HA HA HA
/echo Way to go, dumbass. You've really fucked it this time. Next time, try being less shit at EverQuest, you fucking muppet.
/endmacro
/return