• You've discovered RedGuides, an EverQuest multi-boxing and scripting community 🧙‍♀️⚙️. We want you to play several EQ characters at once, come join us and say hello! 👋

  • A TLP without truebox has thawed (Very Vanilla ready)
    Frostreaver

War Taunt inc mobs!

CodeCompiler

CodeCompiler

banned
BANNED
Joined
Dec 10, 2005
RedCents
201¢
This works so your puller can bring mob next to war and once mob in range of 35 will pop incite and bazu on the mob so enjoy i just made it so you can bring a mob to the camp and war will agro it.
I updated Edud's so it would allow it cause people keep asking this is like the 8th person that asked and for the little bit of code needed to be added to get it to work here you go.
You must also add pullers name btw! ! ! READ THROUGH IT !

PHP: 
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
|                                  ASSIST.MAC                                  |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
|Updated by CodeCompiler: Now allow taunts on incoming on range so has 2 taunts|
|on mob before mob gets to the camp... Just cause people requested and want all|
|the toys added.. This will be posted but can be removed at the request of edud|
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| by edud                                                                      |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
#turbo

#include spell_routines.inc

#Event Enrage "#*#has becomed ENRAGED#*#"
#Event Enrage "#*#is infuriated!#*#"
#Event EndEnrage "#*#is no longer ENRAGED#*#"
#Event EndEnrage "#*#is no longer infuriated.#*#"
#Event assloot "[MQ2] AssistLooting#*#" 
#Event assfollow "[MQ2] Assistfollow#*#" 
#Event asstaunt "[MQ2] Assisttaunt#*#"
#Event assface "[MQ2] Assistface#*#" 
#Event asscamp "[MQ2] Assistcamp#*#"
#Event assfade "[MQ2] Assistfade#*#"
#Event assnewcamp "[MQ2] Assistnewcamp#*#"
#Event asswarp "[MQ2] Assistwarp#*#"
#Event asstab "[MQ2] Assisttabbed#*#"
#Event killadds "[MQ2] Assistadd#*#"
sub main
	/declare macroname	string	outer	${Macro}
	/declare macrolenght	int 	inner	0
	/varcalc macrolenght	${macroname.Length}-4
	/declare ininame	string	outer	${macroname.Left[${macrolenght}]}.ini
	/if (!${Target.ID} || ${Target.Type.Equal[NPC]}) {
		/echo [${Time}] You must target your main assist before running the macro
		/endmacro
	}                                                                                                   
	/call custombinds
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
|                                Declarations                                  |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
	/if (${Ini[${ininame},${Me},dontchange]}==0) /call createini
	/declare looting 	int 	outer 	${Ini[${ininame},${Me},looting]}
	/declare fade	 	int 	outer 	${Ini[${ininame},${Me},fade]}
	/declare campnotank 	int 	outer 	${Ini[${ininame},${Me},campnotank]}
	/declare campongm	int	outer	${Ini[${ininame},${Me},campongm]}
	/declare autofollow 	int 	outer 	${Ini[${ininame},${Me},autofollow]}
	/declare taunt		int 	outer 	${Ini[${ininame},${Me},taunt]}
	/declare warp		int 	outer 	${Ini[${ininame},${Me},warp]}
	/declare facefast	int 	outer 	${Ini[${ininame},${Me},facefast]}
	/declare returntocamp	int	outer	${Ini[${ininame},${Me},returntocamp]}
	/declare twistcombat	string	outer	${Ini[${ininame},${Me},twistcombat]}
	/declare twistmed	string	outer	${Ini[${ininame},${Me},twistmed]}
	/declare killadds	int	outer	${Ini[${ininame},${Me},killadds]}
	/declare spellagro	string 	outer	${Ini[${ininame},${Me},spellagro]}
	/declare spellstun	string 	outer	${Ini[${ininame},${Me},spellstun]}
	/declare spellquickheal	string 	outer	${Ini[${ininame},${Me},spellquickheal]}
	/declare tankname 	string 	outer 	${Target}
	/declare strzone 	int 	outer 	${Zone.ID}
   	/declare xpos 		int 	outer 	${Me.Y}
   	/declare ypos 		int 	outer 	${Me.X}
	/declare zpos 		int 	outer 	${Me.Z}
	/declare startxp	int 	outer 	${Me.PctExp}
	/declare startlvl	int 	outer 	${Me.Level}
	/declare startaa	int 	outer 	${Me.PctAAExp}
	/declare startaas	int 	outer 	${Me.AAPointsTotal}
	/declare addtest	int	outer	${Me.PctHPs}
	/declare behindtimer 	timer 	outer 	100
	/declare myhps		int 	outer 	100
	/declare behindtries 	int 	outer	4
	/declare tabbed 	int 	outer	0
	/declare startheading 	int 	outer	0
	/declare waitcounter	int	outer	0
	/declare monky 		int 	outer 	0
	/declare bard	 	int 	outer 	0
	/declare behindcount	int 	outer 	0
	/declare mobcount	int 	outer 	0
	/declare enraged 	int 	outer 	0
	/declare dir 		int 	outer	0
	/declare delta 		int 	outer	0
	/declare strafedir string outer STRAFE_RIGHT
	/varcalc startheading 360 - ${Me.Heading.Degrees}
	/if (${Me.Class.ShortName.Equal[BRD]}) {
		/varset bard 1
	}
	/echo |~~~~~~~~~~~~~~~~~~~~STARTING~~~~~~~~~~~~~~~~~~~~~~|
	/echo Macro of melee or bard assist.
	/if (${looting}==1) 	 /echo You are set as the main looter
	/if (${campnotank}==1) 	 /echo You will camp if tank dies
	/if (${campongm}==1) 	 /echo You will camp if GM enters zone
	/if (${autofollow}==1) 	 /echo You will auto follow tank
	/if (${taunt}==1) 	 /echo You will taunt the mobs
	/if (${fade}==1) 	 /echo You will fade if low health
	/if (${warp}==1) 	 /echo You will warp to targets
	/if (${facefast}==1) 	 /echo You will face targets instantly
	/if (${killadds}==1) 	 /echo You will attempt to kill adds
	/if (${returntocamp}==1) /echo You will return to camp after mobs die
	/if (${getbehind}==1&&${taunt}==0)  /echo You will try to get behind mobs
	/if (${bard}==1 && !${twistcombat}) /echo You should endmacro and setup your twist in the ${ininame} file
	/if (${bard}==1 && ${twistcombat})  /echo You will twist ${twistcombat} during combat and ${twistmed} during med time
	/if (${bard}==1) /squelch /twist ${twistmed}
	/echo [${Time}] ${Me} will be assisting ${tankname}...
	/echo |~~~~~~~~~~~~~~~~~~~~~WAITING~~~~~~~~~~~~~~~~~~~~~~|
	/echo [${Time}] Idle ready for action...	
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
|                                  Main Loop                                   |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
	:loop
	/varset myhps ${Me.PctHPs}  
	/call checks
	/assist ${Pullers Name}
	/if (${Target.Distance} <= 35 && ${Me.AbilityReady["Taunt"]} && ${Target.ID}) /doability "Taunt"
 	/if (${incite} == 0) /if (${Target.Type.Equal[NPC]}) {
 	/disc incite
 	/delay 5
 	/disc Bazu
	/delay 2s
	/if (${Target.PctHPs}<=100&&${Target.Type.Equal[NPC]}&&${Target.Distance}<=100&&${taunt}==1) /call startcombat
	/if (${Target.PctHPs}<=97&&${Target.Type.Equal[NPC]}&&${Target.Distance}<=100) /call startcombat
	/varcalc waitcounter ${waitcounter}+1
	/if (${Me.PctHPs}<${myhps}) /call checkforadd
	/if (${waitcounter}==5&&${returntocamp}==1) /call movetocamp
	/if (${Target.Distance}>=10 && ${autofollow}==1 && ${warp}==0) /call movetoplayer
	/if (${Target.Distance}>=50 && ${autofollow}==1 && ${warp}==1) /call move
	/goto :loop
/return
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
|                                 Combat Subs                                  |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
sub combat
	/echo |~~~~~~~~~~~~~~~~~~~~ATTACKING~~~~~~~~~~~~~~~~~~~~~|
	/echo [${Time}] Attacking: ${Target.CleanName}
	/echo [${Time}] Mob Level: ${Target.Level}
	/echo [${Time}] Mob Class: ${Target.Class}
	/echo [${Time}] Mob Race: ${Target.Race}
	/if (${bard}==1) /squelch /twist ${twistcombat}
	/declare tempdist 	int 	inner 	0
	/stand
	/varset behindcount 0
	/if (${Me.Class.ShortName.Equal[PAL]}&&${taunt}==1) /call cast "${spellstun}" gem2 4s
	:combatloop
	/call checks
	 /if (${Target.Distance} <= 35 && ${Me.AbilityReady["Taunt"]} && ${Target.ID}) /doability "Taunt"
 	/if (${incite} == 0) 
	/if (${Target.Type.Equal[NPC]}) {
 	/disc incite
 	/delay 5
 	/disc Bazu/attack on
	/call face
	/if (${Target.ID}&&${Target.Distance}<=100) {
		/if (${Target.Distance}>=15 && ${Target.Distance}<=100) /call movetomob
		|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
		|              Taunt abilitys here!             |
		|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
		/if (${Me.AbilityReady[taunt]} && ${taunt}==1) /doability "Taunt"
		/if (${Me.Class.ShortName.Equal[PAL]}&&${taunt}==1&&${Target.PctHPs}>=15) /call Cast "${spellagro}" gem2 1s
		|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
		|          Add your own abilities here!         |
		|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
		/if (${Me.AbilityReady[Bash]}) /doability "Bash"
		/if (${Me.AbilityReady[Kick]}) /doability "Kick"
		/if (${Me.AbilityReady[Slam]}) /doability "Slam"
		/if (${Me.AbilityReady[Disarm]}) /doability "Disarm"
		/if (${Me.Class.ShortName.Equal[MNK]}) /call monk
	}
	/if (!${Target.ID} || ${Target.Type.Equal[Corpse]} || !${Target.Type.Equal[NPC]}) {
		/call deadsub
		/if (${bard}==1) /squelch /twist ${twistmed}
		/return
	}
	/if  (${taunt}==0 && ${Target.PctHPs}>10) /assist ${tankname}
	/delay 1s
	/goto :combatloop
/return

sub startcombat
	/call combat
	/varcalc mobcount ${mobcount} + 1
	/call stats
	/echo |~~~~~~~~~~~~~~~~~~~~~WAITING~~~~~~~~~~~~~~~~~~~~~~|
	/echo [${Time}] Idle ready for action...
	/varcalc waitcounter 0
	/if (${bard}==1) /squelch /twist ${twistmed}
/return

sub checkforadd
	/squelch /target clear
	/delay 2s
	/if (${Target.ID}) {
		/declare taunttemp int inner ${taunt}
		/varset taunt 1
		/call startcombat
		/varset taunt ${taunttemp}
	}
/return

sub monk
	/varset monky ${Math.Rand[4]}
	/if (${monky}==0&&${Me.AbilityReady[Round Kick]}) /doability "Round Kick"
	/if (${monky}==1&&${Me.AbilityReady[Round Kick]}) /doability "Round Kick"
	/if (${monky}==2&&${Me.AbilityReady[Tiger Claw]}) /doability "Tiger Claw"
	/if (${monky}==3&&${Me.AbilityReady[Tiger Claw]}) /doability "Tiger Claw"
/return
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
|                                 Looting Subs                                 |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
sub deadsub
	/squelch /target clear
	/keypress esc
	/keypress esc
	/attack off
	/keypress back
	/if (!${Target.ID}) {
		/call corpse
		/call corpse
		/call corpse
		/call corpse
		/call corpse
	}
/return

sub corpse
	/if (${looting}==1) {
		/squelch /tar corpse radius 80
		/if (${Target.Type.Equal[Corpse]}) /call loot
		/delay 5
	}
/return

sub loot
	/if (${Target.PctHPs}<=98 && ${Target.Type.Equal[NPC]}) /return
	/echo |~~~~~~~~~~~~~~~~~~LOOTING~~~~~~~~~~~~~~~~~~~|
	/echo [${Time}] Looting ${Target.CleanName}
	/if (${bard}==1) /squelch /twist off
	/declare strslot 	int 	inner 	0 
	/declare strtotal 	int 	inner 	0 
	/if (${warp}==1) /call move
	/call movetomob
	/fastdrop on 
	/lootnodrop never 
	/call face
	/loot 
	/delay 1s
	/if (!${Corpse.Items}) {
		/delay 5
		/notify LootWnd DoneButton leftmouseup
		/delay 5
		/keypress esc	
		/keypress esc
		/return 
	} 
	/varset strtotal ${Corpse.Items} 
	/for strslot 1 to ${strtotal} 
		/itemnotify loot${strslot} leftmouseup
		/delay 2s
		/if (${Cursor.Lore}) {
			/echo [${Time}] Destroying: ${Cursor}
			/destroy
		} else {
			/echo [${Time}] Looting: ${Cursor}
			/autoinventory
		}
	/next strslot 
	/delay 5
	/notify LootWnd DoneButton leftmouseup
	/delay 5
	/keypress esc
	/keypress esc
	/echo [${Time}] Done looting
/return
PHP: 
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
|                             GM and Health Checks                             |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
sub succor
	/succor
	/echo [${Time}] Fading because of low health
	:loop
	/if (!${Me.Sitting}) /sit
	/if (${Me.PctHPs}<=10) { 
		/keypress instant_camp
		/echo [${Time}] Ending macro cause i almost died
		/endmacro
	}
	/if (${FindItem[Distillate of Celestial Healing].InvSlot} && ${FindItem[Distillate of Celestial Healing].Timer}==0) /potionbelt activate 1
	/delay 2s
	/if (${Me.PctHPs}<=50) /goto :loop
/return

sub groupheal
	/declare i int inner 1
	/for i 1 to ${Group} 
		/if (${Me.PctMana}>20&&${Group.Member[${i}].PctHPs}<=30) {
			/squelch /target clear
			/squelch /target pc ${Group.Member[${i}]}
			/if (${Target.ID}) {
				/if (${Target.Distance}<=100) {
					/popup Healing group member ${Group.Member[${i}].Name}
					/echo [${Time}] Healed ${Group.Member[${i}].Name}...
					/call cast "${spellquickheal}" gem1 4s
				}
			}
		}
	/next i
/return

sub gm
	/keypress instant_camp
	/beep
	/beep
	/beep
	/echo [${Time}] GM entered Zone
	/endmacro
/return

sub died
	/keypress instant_camp
	/beep
	/beep
	/beep
	/echo [${Time}] You died or zoned without ending macro
	/endmacro
/return

sub notank
	/keypress instant_camp
	/beep
	/beep
	/beep
	/echo [${Time}] You seem to have lost the tank. Ending macro.
	/endmacro
/return

sub checks
	/doevents
	/if (${Spawn[gm].ID}&&${campongm}==1) /call gm
	/if (${Spawn[gm].ID}&&${warp}==1) /call gm
	/if (${Zone.ID}!=${strzone}) /call died
	/if (${Me.PctHPs}<40 && ${FindItem[Distillate of Celestial Healing].InvSlot} && ${FindItem[Distillate of Celestial Healing].Timer}==0) {
		/if (${bard}==1) /squelch /twist off
		/potionbelt activate 1
	}
	/if (${taunt}==0) /call groupheal
	/if (${Me.PctHPs}<=20 && ${fade}==1) /call succor
/return
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
|                                 Movement Subs                                |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
sub move
	/declare strcurrent int inner 0
	/squelch /warp target
	/varcalc strcurrent 180 - ${Target.Heading.Degrees}
	/face fast nolook heading ${strcurrent}
	/squelch /warp dir 5
	/face fast nolook
/return

sub face
	/if (${facefast}==1 || ${tabbed}==1) {
		/if (${Target.ID}) /face fast nolook
	} else {                      
		/if (${Target.ID}) /face nolook
	}
/return

sub faceh
	/if (${facefast}==1 || ${tabbed}==1) {
		/face fast nolook heading ${startheading}
	} else {                      
		/face nolook heading ${startheading}
	}
/return

sub movetocamp
	/declare tempdist 	int 	inner 	0
	/declare stuck 		timer 	inner 	10
	/declare tempx 		int 	inner 	0
	/declare tempy 		int 	inner 	0
	/varcalc tempdist ${Math.Distance[${xpos},${ypos}]}
	/if (${tempdist}<=4) /return
	/echo [${Time}] Moveing to camp...
	/if (${warp}==1) {
		/squelch /warp loc ${xpos} ${ypos} ${zpos}
		/face fast nolook heading ${startheading}
		/return
	}
	:loop
	/call checks
	/assist ${tankname}
	/varcalc tempdist ${Math.Distance[${xpos},${ypos}]}
	/if (${facefast}==1 || ${tabbed}==1) {
		/face fast nolook loc ${xpos}, ${ypos}
	} else {                      
		/face nolook loc ${xpos}, ${ypos}
	}
	/keypress forward hold
	/if (!${stuck}) {
		/if (${Int[${tempx}]}==${Int[${Me.X}]} && ${Int[${tempy}]}==${Int[${Me.Y}]}) /call movearound
		/varset tempx ${Int[${Me.X}]}
		/varset tempy ${Int[${Me.Y}]}
		/varset stuck 10
	}
	/if (${tempdist}<=4) { 
		/keypress back
		/call faceh
		/if (${Me.AbilityReady[Feign Death]}) /doability "Feign Death"
		/return	
	}
	/goto :loop
/return

sub movetomob
	/if (${warp}==1) {
		/call move
		/return
	}
	/declare stuck 	timer 	inner 	10
	/declare tempx 	int 	inner 	0
	/declare tempy 	int 	inner 	0
	:loop
	/if  (${taunt}==0) /assist ${tankname}
	/call checks
	/if (${Target.ID} && ${Target.Distance}<=200) {
		/call face
		/keypress forward hold
		/if (!${stuck}) {
			/if (${Int[${tempx}]}==${Int[${Me.X}]} && ${Int[${tempy}]}==${Int[${Me.Y}]}) /call movearound
			/varset tempx ${Int[${Me.X}]}
			/varset tempy ${Int[${Me.Y}]}
			/varset stuck 10
		}
		/if (${Target.Distance}<=10 && ${Target.ID}) { 
			/keypress back
			/call face
			/return
		}
		/goto :loop
	}
/return

sub movetoplayer
	/if (${warp}==1) {
		/call move
		/return
	}
	/declare stuck 	timer 	inner 	10
	/declare tempx 	int 	inner 	0
	/declare tempy 	int 	inner 	0
	:loop
	/call checks
	/if (${Target.ID}) {
		/call face
		/keypress forward hold
		/if (!${stuck}) {
			/if (${Int[${tempx}]}==${Int[${Me.X}]} && ${Int[${tempy}]}==${Int[${Me.Y}]}) /call movearound
			/varset tempx ${Int[${Me.X}]}
			/varset tempy ${Int[${Me.Y}]}
			/varset stuck 10
		}
		/if (${Target.Distance}<=20) { 
			/keypress back
			/call face
			/return
		}
		/goto :loop
	}
/return

sub movearound
	/declare tempheading 	int 	inner 	0
	/declare moveleft 	int 	inner 	0
	/declare moveright 	int 	inner 	0
	/varcalc tempheading 360 - ${Me.Heading.Degrees}
	/varcalc moveright ${tempheading} - 90
	/varcalc moveleft ${tempheading} - 270
	/keypress back hold
	/delay 5
	/keypress back
	/if (${Math.Rand[2]}==1) { 
		/if (${facefast}==1) {
			/if (${Target.ID}) /face fast nolook heading ${moveright}
		} else {                      
			/if (${Target.ID}) /face nolook heading ${moveright}
			/delay 5
		}	
	} else {
		/if (${facefast}==1) {
			/if (${Target.ID}) /face fast nolook heading ${moveleft}
		} else {                      
			/if (${Target.ID}) /face nolook heading ${moveleft}
			/delay 5
		}
	}
	/keypress forward hold
	/delay 1s
/return
PHP: 
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
|                                Ini Creation                                  |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
sub createini
	/echo New charactor detected creating ini section...
	/ini "${ininame}" "${Me}" "looting" "0"
	/ini "${ininame}" "${Me}" "campnotank" "0"
	/ini "${ininame}" "${Me}" "campongm" "0"
	/ini "${ininame}" "${Me}" "autofollow" "0"
	/ini "${ininame}" "${Me}" "taunt" "0"
	/ini "${ininame}" "${Me}" "fade" "0"
	/ini "${ininame}" "${Me}" "warp" "0"
	/ini "${ininame}" "${Me}" "facefast" "0"
	/ini "${ininame}" "${Me}" "returntocamp" "1"
	/ini "${ininame}" "${Me}" "killadds" "0"
	/ini "${ininame}" "${Me}" "twistcombat" ""
	/ini "${ininame}" "${Me}" "twistmed" ""
	/ini "${ininame}" "${Me}" "spellagro" "Sacred Force"
	/ini "${ininame}" "${Me}" "spellstun" "Sacred Force"
	/ini "${ininame}" "${Me}" "spellquickheal" "Burst of Sunlight"
	/ini "${ininame}" "${Me}" "dontchange" "1"
	/echo You should end macro and change ${ininame}...
/return
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
|                               Custom Binds                                   |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
sub custombinds
	/squelch /alias /assloot /echo AssistLooting
	/squelch /alias /assfollow /echo Assistfollow
	/squelch /alias /asstaunt /echo Assisttaunt
	/squelch /alias /assreturn /echo Assistcamp
	/squelch /alias /assfade /echo Assistfade
	/squelch /alias /asswarp /echo Assistwarp
	/squelch /alias /assface /echo Assistface
	/squelch /alias /asscamp /echo Assistnewcamp
	/squelch /alias /asstab /echo Assisttabbed
	/squelch /alias /assadd /echo Assistadd
/return
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
|                                  Spam Sub                                    |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
sub stats
	/echo |~~~~~~~~~~~~~~~~~~~~~STATS~~~~~~~~~~~~~~~~~~~~~~~~|
	/echo [${Time}] ${Me} has assisted with ${mobcount} mobs
	/echo [${Time}] Starting XP was ${startxp}% at level ${startlvl}
	/echo [${Time}] Starting AA was ${startaa}% and ${startaas} AA's
	/echo [${Time}] Current HPs: ${Me.CurrentHPs} / ${Me.MaxHPs} = ${Me.PctHPs}%
	/echo [${Time}] Current Mana: ${Me.CurrentMana} / ${Me.MaxMana} = ${Me.PctMana}%
	/echo [${Time}] Current XP: ${Me.Exp} / 330 = ${Me.PctExp}%
	/echo [${Time}] Current AA: ${Me.AAExp} / 330 = ${Me.PctAAExp}%
/return
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
|                                 Sub Events                                   |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
sub Event_Enrage
	/varset enraged 1
	/echo Mob has become enraged.
	/attack off
	/keypress back hold
	/delay 5
	/keypress back
	:loop
	/if (${enraged}==0) then /return
	/doevents
	/delay 1s
	/goto :loop
/return

sub Event_EndEnrage
	/varset enraged 0
/return
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
|                               Sub Command Events                             |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
sub Event_assloot(string strstring)
	/if (${strstring.Arg[3]}==1) {
		/echo |~~~~~~~~~~~~~~~CHANGING SETTINGS~~~~~~~~~~~~~~~~~~|
		/varcalc looting 1
		/ini "${ininame}" "${Me}" "looting" "1"
		/echo [${Time}] You are now set as the main looter
		/echo |~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
	}
	/if (${strstring.Arg[3]}==0) {
		/echo |~~~~~~~~~~~~~~~CHANGING SETTINGS~~~~~~~~~~~~~~~~~~|
		/varcalc looting 0
		/ini "${ininame}" "${Me}" "looting" "0"
		/echo [${Time}] You are NOT set as the main looter
		/echo |~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
	}
/return

sub Event_assfollow(string strstring)
	/if (${strstring.Arg[3]}==1) {
		/echo |~~~~~~~~~~~~~~~CHANGING SETTINGS~~~~~~~~~~~~~~~~~~|
		/varcalc autofollow 1
		/varcalc returntocamp 0
		/ini "${ininame}" "${Me}" "autofollow" "1"
		/ini "${ininame}" "${Me}" "returntocamp" "0"
		/echo [${Time}] You will now autofollow tank
		/echo [${Time}] You will no longer return to camp
		/echo |~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
	}
	/if (${strstring.Arg[3]}==0) {
		/echo |~~~~~~~~~~~~~~~CHANGING SETTINGS~~~~~~~~~~~~~~~~~~|
		/varcalc autofollow 0
		/ini "${ininame}" "${Me}" "autofollow" "0"
		/echo [${Time}] You will not follow tank
		/echo |~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
	}
/return

sub Event_assfade(string strstring)
	/if (${strstring.Arg[3]}==1) {
		/echo |~~~~~~~~~~~~~~~CHANGING SETTINGS~~~~~~~~~~~~~~~~~~|
		/varcalc fade 1
		/ini "${ininame}" "${Me}" "fade" "1"
		/echo [${Time}] You will now fade
		/echo |~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
	}
	/if (${strstring.Arg[3]}==0) {
		/echo |~~~~~~~~~~~~~~~CHANGING SETTINGS~~~~~~~~~~~~~~~~~~|
		/varcalc fade 0
		/ini "${ininame}" "${Me}" "fade" "0"
		/echo [${Time}] You will NOT fade
		/echo |~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
	}
/return

sub Event_asstaunt(string strstring)
	/if (${strstring.Arg[3]}==1) {
		/echo |~~~~~~~~~~~~~~~CHANGING SETTINGS~~~~~~~~~~~~~~~~~~|
		/varcalc taunt 1
		/ini "${ininame}" "${Me}" "taunt" "1"
		/echo [${Time}] You will now taunt the mobs
		/echo |~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
	}
	/if (${strstring.Arg[3]}==0) {
		/echo |~~~~~~~~~~~~~~~CHANGING SETTINGS~~~~~~~~~~~~~~~~~~|
		/varcalc taunt 0
		/ini "${ininame}" "${Me}" "taunt" "0"
		/echo [${Time}] You will NOT taunt the mobs and will move behind
		/echo |~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
	}
/return

sub Event_killadds(string strstring)
	/if (${strstring.Arg[3]}==1) {
		/echo |~~~~~~~~~~~~~~~CHANGING SETTINGS~~~~~~~~~~~~~~~~~~|
		/varcalc killadds 1
		/ini "${ininame}" "${Me}" "killadds" "1"
		/echo [${Time}] You will now kill adds
		/echo |~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
	}
	/if (${strstring.Arg[3]}==0) {
		/echo |~~~~~~~~~~~~~~~CHANGING SETTINGS~~~~~~~~~~~~~~~~~~|
		/varcalc killadds 0
		/ini "${ininame}" "${Me}" "killadds" "0"
		/echo [${Time}] You will NOT kill adds
		/echo |~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
	}
/return

sub Event_asswarp(string strstring)
	/if (${strstring.Arg[3]}==1) {
		/echo |~~~~~~~~~~~~~~~CHANGING SETTINGS~~~~~~~~~~~~~~~~~~|		
		/varcalc warp 1
		/ini "${ininame}" "${Me}" "warp" "1"
		/echo [${Time}] You will now warp
		/echo |~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
	}
	/if (${strstring.Arg[3]}==0) {
		/echo |~~~~~~~~~~~~~~~CHANGING SETTINGS~~~~~~~~~~~~~~~~~~|
		/varcalc warp 0
		/ini "${ininame}" "${Me}" "warp" "0"
		/echo [${Time}] You will NOT warp
		/echo |~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
	}
/return

sub Event_assface(string strstring)
	/if (${strstring.Arg[3]}==1) {
		/echo |~~~~~~~~~~~~~~~CHANGING SETTINGS~~~~~~~~~~~~~~~~~~|
		/varcalc facefast 1
		/ini "${ininame}" "${Me}" "facefast" "1"
		/echo [${Time}] You will now face fast
		/echo |~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
	}
	/if (${strstring.Arg[3]}==0) {
		/echo |~~~~~~~~~~~~~~~CHANGING SETTINGS~~~~~~~~~~~~~~~~~~|
		/varcalc facefast 0
		/ini "${ininame}" "${Me}" "facefast" "0"
		/echo [${Time}] You will face normal
		/echo |~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
	}
/return

sub Event_asscamp(string strstring)
	/if (${strstring.Arg[3]}==1) {
		/echo |~~~~~~~~~~~~~~~CHANGING SETTINGS~~~~~~~~~~~~~~~~~~|		
		/varcalc autofollow 0
		/varcalc returntocamp 1
		/ini "${ininame}" "${Me}" "autofollow" "0"
		/ini "${ininame}" "${Me}" "returntocamp" "1"
		/echo [${Time}] You will not autofollow tank
		/echo [${Time}] You will return to camp
		/echo |~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
	}
	/if (${strstring.Arg[3]}==0) {
		/echo |~~~~~~~~~~~~~~~CHANGING SETTINGS~~~~~~~~~~~~~~~~~~|
		/varcalc returntocamp 0
		/ini "${ininame}" "${Me}" "returntocamp" "0"
		/echo [${Time}] You will not return to camp
		/echo |~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
	}
/return

sub Event_assnewcamp(string strstring)
	/echo |~~~~~~~~~~~~~~~CHANGING SETTINGS~~~~~~~~~~~~~~~~~~|
	/varset xpos ${Me.Y}
   	/varset ypos ${Me.X}
	/varset zpos ${Me.Z}
	/varcalc startheading 360 - ${Me.Heading.Degrees}
	/echo This is your new camp
	/varcalc returntocamp 1
	/varcalc autofollow 0
	/ini "${ininame}" "${Me}" "returntocamp" "1"
	/ini "${ininame}" "${Me}" "autofollow" "0"
	/echo |~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
/return

sub Event_asstab(string strstring)
	/if (${strstring.Arg[3]}==1) {
		/echo |~~~~~~~~~~~~~~~CHANGING SETTINGS~~~~~~~~~~~~~~~~~~|
		/varcalc tabbed 1
		/echo [${Time}] You are in tabbed mode
		/echo |~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
	}
	/if (${strstring.Arg[3]}==0) {
		/echo |~~~~~~~~~~~~~~~CHANGING SETTINGS~~~~~~~~~~~~~~~~~~|
		/varcalc tabbed 0
		/echo [${Time}] You are not in tabbed mode
		/echo |~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
	}
/return


Copy all 3 and put in notepad... Enjoy tanks.
 
You must log in or register to reply here.
War Taunt inc mobs!
Next unread thread 🦁

Users who are viewing this thread

Total: 1 (members: 0, guests: 1)
Back
Top
Cart

Cart

Total -