• You've discovered RedGuides 📕 an EverQuest multi-boxing community 🛡️🧙🗡️. We want you to play several EQ characters at once, come join us and say hello! 👋
  • IS THIS SITE UGLY? Change the look. To dismiss this notice, click the X --->

Problems with my warpull mac (1 Viewer)

Nosaj23

New member
Joined
Oct 1, 2006
RedCents
11¢
k Ive been working on a Warrpull mac by borrowing snips from mac i thought would work. But i cant seem to get a decent pull section to the mac. Keep in mind this one of my first mac i tried to build (Not very Successful either) but I'm trying. Was hoping peeps could give me some Hint and tip of what Ive done wrong and which way to head to try and fix it. Well any way here it is.
PHP:
|xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx|
|\\\\\\\\\\\\\\\\\\\\\\\\Created For Warrior's//////////////////////////|
|////////////////////////////////Enjoy\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\|
|\\\\\\\\\\\\\\\\\\Must Have Nan.mac, Wait4Rez.Inc,/////////////////////| 
|//////////////////ninjadvloot.inc, spell_routines.inc\\\\\\\\\\\\\\\\\\|
|\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\////////////////////////////////////|
|\\\\\\\\\\\\\Req. Plugin's: Mq2melee, Mq2moveutils,\\\\\\\\\\\\\\\\\\\\|
|//////////////////// Mqexchange, Mq2cast, mq2pax///////////////////////|
|\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\////////////////////////////////////|
|//////////////Code Snip's From all over so Thank You\\\\\\\\\\\\\\\\\\\|
|\\\\\\\\\\\\\\All that worked on any of this coding!///////////////////|
|xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx|




|------------------------------Events-----------------------------------|

       #Event ImDead 			"You have been slain by#*#"
       #Event ImDead 			"You died#*#"
       #Event ImDead 			"You have fallen to your death#*#"     
       #event ExpTracker                                  "#*#experience!#*#" 
       #event AA                                             "You have gained an ability point!#*#" 
       #event Kills                                           "#*#My Progress#*#" 
       #event invite                                         "Invite pls" 
|xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx|
|------------------------------Req. Inc. Files--------------------------| 
      
       #Include Wait4Rez.inc
       #include ninjadvloot.inc  
       #include spell_routines.inc 
       
|xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx|
|-----------------------------------------------------------------------| 
                               Sub Main 
|-----------------------------------------------------------------------| 
    /call SetupAdvLootVars 
    /declare AlertListVoid int outer 
    /varset AlertListVoid 10 
    /call LoadVoidlist
    

|xxxxxxxxxxxxxxxxxxxxxxxxxxxxEXPTRACKERxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx|
|-----------------------------------------------------------------------|
 
   /declare Kills int outer 0
   /declare AA int outer 0 
   /declare Exper float outer 
   /declare AAExp float outer 
   /declare LDRExp float outer  
   /varset Exper ${Me.PctExp} 
   /varset AAExp ${Me.PctAAExp} 
   /varset LDRExp ${Me.PctGroupLeaderExp} 

|xxxxxxxxxxxxxxxxxxxxxxxxxxxxCLICKYSxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx|
|-----------------------------------------------------------------------|
    
    /declare ClickyItemUse       int outer 1 
    /declare ClickyItem[8]       string outer

|xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx| 
|---------------------------Clicky Item Names Here----------------------|

    /varset ClickyItem[1]        NULL 
    /varset ClickyItem[2]        NULL
    /varset ClickyItem[3]        Cazic Thule Guardian Band 
    /varset ClickyItem[4]        Diazophire earing 
    /varset ClickyItem[5]        Witherskin cloak 
    /varset ClickyItem[6]        null
    /varset ClickyItem[7]        NULL 
    /varset ClickyItem[8]        NULL 
    /declare MobRadius           int outer 45

|-----------------------------------------------------------------------|
                               |MedSection|
|-----------------------------------------------------------------------|
    
    /declare MainAssist 	                 string outer	MATANK	
    /declare DoMACheck    	                     int outer	1
    /declare DoHealerCheck    	       int outer	1 
    /declare HealerName		    string outer	CLERICNAME	
    /declare Debug    		       int outer	1
    
    
   
|-----------------------------------------------------------------------|
                      |Location of Camp|
|-----------------------------------------------------------------------|
    /declare MyXLOC int outer ${Me.X}
    /declare MyYLOC int outer ${Me.Y}
    /declare MyZLOC int outer ${Me.Z}
    /waypoint add Warrp_${Me}
    /waypoint update Warrp_${Me} 
    

|------------------------------Main Loop -------------------------------| 

   :main 


        /doevents
        /call Check_Clicky 
        /delay 1s
        /call DoWePause
        /delay 1s  
        /echo  Checking For Gms!! 
        /if (${Spawn[gm].ID}) /q 
        /disc Commanding Voice 
        /hidecorpse looted 
        /Echo Finding a Target!! 
        /delay 1s
        /if (${Me.Endurance}<15500) /g Medding Low on Endur!!
        /if (${Me.Endurance}<15500) /goto :med
        /target clear
        /delay 1s
        /moveto loc ${MyYLOC} ${MyXLOC}
        /if (${Target.ID})  /echo Starting Pulls Moving to Camp & switching to snare setup!
        /bandolier activate Snare
        /goto :mobmove


|---------------------------Movement to Mob-----------------------------|
    :mobmove
           
          /doevents
          /target ${NearestSpawn[NPC alert ${AlertListVoid}]} 
          /if (${Target.Distance}>1000) /target clear
          /face fast nolook
          /if (${Me.XTarget} > 0)  /goto :camp 
          /autofire
          /delay 1s
          /if (${Target.ID}) /moveto id
          /if (${Target.ID}) /disc  Bazu Roar Rk. II 
          /if (${Me.XTarget} > 0)  /goto :camp 
          /if (!${Target.ID}) /goto :main 
          /goto :mobmove

|------------------------Relocating part of mac-------------------------| 
   :wait1 
        /doevents 
        /delay 1s 
        /moveto loc ${MyYLOC} ${MyXLOC} 
        /Echo Waiting on targets, Might as Well Sit Down! 
        /g Medding Sec waiting on Targets!!
        /delay 2s
        /if (${Me.Standing}) /sit 
        /delay 20s 
        /goto :buff

|-------------------------Back to Camp Part of Mac----------------------| 
 

    :camp
        
        
        /doevents
        /bandolier activate Sheild
        /if (${Me.XTarget} > 0) /moveto loc ${MyYLOC} ${MyXLOC}
        /delay 1s
        /if (${Me.XTarget} > 0) /goto :kill 
        /if (!${Target.ID}) /goto :main
        /goto :main

|--------------------The Killing Part of mac----------------------------| 
    :kill 

        
        /doevents 
        /delay 1s
        /if (${Me.PctHPs}<=20) /disc Fortitude discipline 
        /if (${SpawnCount[npc radius 50]}>1) /disc Wheeling Blades Rk. II
        /if (${SpawnCount[npc radius 50]}>1 & ${Me.AltAbilityReady["Area Taunt"]}) /alt act 110
        /if (${SpawnCount[npc radius 50]}>1 & ${Me.AltAbilityReady["Rampage"]}) /alt act 109
        /attack on 
        /if ((${Me.AbilityReady["Bash"]}) && (${Target.Distance}<18) && (${Me.Endurance}>500)) /doability "Bash" 
        /if ((${Me.AbilityReady["Taunt"]}) && (${Target.Distance}<18) && (${Me.Endurance}>500)) /doability "Taunt"
        /if ((${Me.AbilityReady["Disarm"]}) && (${Target.Distance}<18) && (${Me.Endurance}>500)) /doability "Disarm"  
        /if (${Me.AltAbilityReady["Call of challenge"]} & ${Target.PctHPs}<=45) /alt activate 552  
        /if (${Target.PctHPs}<=95 & ${Me.AltAbilityReady["Stomping leap"]}) /alt activate 960 
        /if (${Me.AltAbilityReady["Hold the Line"]} && ${Me.PctHPs}<=50) /echo Popping Hold the Line!!!!!     
        /if (${Me.AltAbilityReady["Hold the Line"]} && ${Me.PctHPs}<=50) /alt activate 734 
        /if (${Target.PctHPs}<=15) /disc Strategic Strike Rk. II
        /if (${Target.Type.Equal[Corpse]}) /goto :loot 
        /if (${Target.ID}) /goto :kill 
        /if (!${Target.ID}) /goto :loot
        /if (!${Me.XTarget} > 0) /goto :main 
        
        /goto :kill
|--------------------------The Loot Portion------------------------------| 
          
      :loot 
          /doevents 
          /echo Looting Corpse!!
          /if (!${Target.ID})  /target corpse 
          /if (${Target.Type.Equal[Corpse]} && ${Target.Distance} <15)  /moveto Id  
          /if (${Target.Type.Equal[Corpse]} && ${Target.Distance} >25)  /goto :main       
          /if (${Target.Type.Equal[Corpse]}) /call LootCorpse
          /delay 1s  
          /goto :main 
       



|-----------------------Heal Potion portion------------------------------| 
    
   :potion 

         
          /doevents 
          /if (${Me.PctHPs}<=40 && ${Me.Combat}) /Echo Popping Potion!! 
          /if (${Me.PctHPs}<=40 && ${Me.Combat}) /potionbelt activate 1 
          /if (${Me.PctHPs}<=40 && ${Me.Combat}) /goto :kill 
          /goto :kill
          /return 

|---------------------------Buff Section---------------------------------| 
   :buff 
         /doevents 
         /delay 1s 
         /call Check_Clicky 
         /delay 1s 
         /disc champions aura 
         /delay 5s
         /goto :med 
         /return



|-------------------------Medding Section--------------------------------| 
    :med 


          /if (${Me.XTarget} > 0 & ${Me.Endurance}<15500) /echo Got Add Going to Kill!!
          /if (${Me.XTarget} > 0 & ${Me.Endurance}<15500) /popup Got An Add Going To Kill!!
          /if (${Me.XTarget} > 0 & ${Me.Endurance}<15500) /goto :mobmove
          /doevents
          
          /if (${Me.Standing}) /moveto loc ${MyYLOC} ${MyXLOC} 
          /delay 3s 
          /if (${Me.Standing}) /sit
          /delay 1s
          /if (!${Agro} & ${Me.Endurance}<15500) /Echo Low On Endur Popping Fourth Wind!! 
          /if (!${Agro} & ${Me.Endurance}<15500) /disc Fifth Wind Rk. II
          /if (!${Agro} && ${Me.PctHPs}<90)  /goto :med 
          /if (!${Agro} && ${Me.Endurance}<35000) /goto :med 
          /if (${Me.Endurance}>32001) /goto :main 
          /return



|-------------------All the Sub Sections---------------------------------| 

| # Sub Accept Rez
Sub Accept_rez
	/if (!${AcceptRez}) /return
	/timed 7000 /varset varDead 0
	:wait
	/doevents
	/delay 5s ${Window[ConfirmationDialogBox].Open}
	/if (!${Window[ConfirmationDialogBox].Open} && ${varDead}) /goto :wait
	/if (${Window[ConfirmationDialogBox].Open}) {
		/nomodkey /notify ConfirmationDialogBox Yes_Button leftmouseup
		/varset varDead 0
	}
	/delay 5s
	/if (${Window[RespawnWnd].Open}) /nomodkey /notify RespawnWnd RW_OptionsList listselect 2
	/delay 5s
	/if (${Window[RespawnWnd].Open}) /nomodkey /notify RespawnWnd RW_SelectButton leftmouseup 
/return 


| # I Died
Sub Event_ImDead
	/echo I have died. And the Angels wept. 
	
	/varset varDead 1
	/call Accept_rez
/return

|-----------------------------------------------------------------------|

   Sub LoadVoidlist 

        /declare inizone string local ${Zone.ShortName} 
        /declare Cntr1 int local 
        /declare CntrSt int local 1 
        /declare CntrMax int local 10 
        /declare tempnm string local  
        /if (${Ini[NaN,${inizone},1,NOTFOUND].Find["NOTFOUND"]}) {  
|    /echo No Exclude list exists.  
    /return  
}  
        /squelch /alert clear ${AlertListVoid} 
     
  :CntParse 

        /for Cntr1 ${CntrSt} to ${CntrMax} 
    /varset tempnm ${Ini[NaN,${inizone},${Cntr1},NOTFOUND]} 
    /if (${tempnm.Equal["NOTFOUND"]}) { 
        /goto :ParsEnd 
    } else { 
        /if (${tempnm.Find["NONE"]}) { 
            /goto :skipline 
        } else { 
            /squelch /alert add ${AlertListVoid} "${tempnm}" 
        } 
    } 

  :skipline 

       /next Cntr1 
       /varcalc CntrSt ${CntrMax}+1 
       /varcalc CntrMax ${CntrMax}+10 
       /if (${CntrSt}>=1001) { 
       /echo More then 1000 NPC in the ini??? Parse-Loop seams broken, ending. 
       /end 
} 
       /goto :CntParse 

:ParsEnd 

      /squelch /alert add ${AlertListVoid} ${Me.Name} 
      /return 


|---Ikky Illusion Section---| 
  sub event_Iksar 

    /call Check_Clicky 

    /return 

|---------------------------------------------------------------------------- 
| SUB: Check_Clicky  
|---------------------------------------------------------------------------- 

  Sub Check_Clicky 

    /declare i int local 
    /declare TwistOff int local 
    /if (!${ClickyItemUse}) /return 
    /if (${Me.Pet.CleanName.Equal[${Me.Name}`s familiar]}) /pet get lost 
    /for i 1 to ${ClickyItem.Size} 
        /if (${FindItemCount[${ClickyItem[${i}]}]}<=0) /next i 
        /if (${FindItem[${ClickyItem[${i}]}].Spell.Stacks[0]} && !${Me.Buff[${FindItem[${ClickyItem[${i}]}].Spell}].ID} && ${NearestSpawn[NPC].Distance}>=${MobRadius}) { 
            | - Turn off bard twisting 
            /if (${Me.Class.ShortName.Equal[BRD]} && ${Twist}) /multiline ; /squelch /twist off ; /varset TwistOff 1 
             
            /delay 3 
            /call Cast "${ClickyItem[${i}]}" item 
            /echo Clicking ${ClickyItem[${i}]} 
        } 
    /next i 
    | - Turn on bard twisting again 
    /if (${TwistOff}) /squelch /twist start 
/return 




|-------------------------------------------------------------------------------------
| SUB: DoWePause
|-------------------------------------------------------------------------------------
	
        Sub DoWePause

	  /if (${Debug}) /echo DoWePause ( Are We Going to Med!!)
	  /call CheckStats ${DoMACheck} "${MainAssist}" "${MAClass}" Endurance 20 95
	  /call CheckStats ${DoHealerCheck} "${HealerName}" "${HealerClass}" Mana 40 95
	  /if (${Debug}) /echo leave DoWePause
	/return

|-------------------------------------------------------------------------------------
| SUB: CheckStats
|-------------------------------------------------------------------------------------
	Sub CheckStats(int statcheck, charname, ckclass, stat, int pause,int resume)

	/if (${Debug}) /echo statcheck "${statcheck}" charname "${charname}" ckclass "${ckclass}" stat "${stat}" pause "${pause}" resume "${resume}"
	    /if (!${statcheck} || !${Spawn[${ckclass} ${charname}].ID} || ${Group.Member[${Group.Member[${Spawn[Group ${ckclass} ${charname}]}]}].Current${stat}}>${pause}) /return
	    /echo Waiting for ${charname} to med up to ${resume}% ${stat}.
            :wait_for_resume
	    /if (${Group.Member[${Group.Member[${Spawn[Group ${ckclass} ${charname}]}]}].Current${stat}}<${resume}) /goto :wait_for_resume
	    /echo ${charname} is now above ${resume}% ${stat} resuming activity.
	   /if (${Debug}) /echo leaving CheckStats
	/return

|**************************************************************************************|
|--------------------------------------------------------------------------------------| 

  Sub event_ExpTracker 

	/varset AAExp ${Math.Calc[${Me.PctAAExp}-${AAExp}]} 
	/varset Exper ${Math.Calc[${Me.PctExp}-${Exper}]} 
	/varset LDRExp ${Math.Calc[${Me.PctGroupLeaderExp}-${LDRExp}]} 
	/echo EXP: ${Exper} (${Me.PctExp}%) - AA: ${AAExp} (${Me.PctAAExp}%) : ${Time.Time12} : 
	/varset Exper ${Me.PctExp} 
	/varset AAExp ${Me.PctAAExp} 
	/varset LDRExp ${Me.PctGroupLeaderExp} 
	/varcalc Kills (${Kills}+1) 
        /echo ===================================== 
	/echo ======= Kill Count - ${Kills} ======= 
	/echo ========= AA Earned - ${AA} ========= 
	/echo ======= Time - ${Time.Time12} ======= 
	/echo ===================================== 
	/return   
	/return 

  Sub event_AA
 
	/echo ${Time.Time12} 
	/varcalc AA (${AA}+1) 
	/return 

 
  Sub event_invite 
 
   /invite Person 
   /return
 
Last edited:
For starters yank out the ninjadvloot code at the bottom of your macro its an inc file for a reason. You already called the file with #include ninjadvloot.inc.

Delete the following
Rich (BB code):
#Event ALCantLoot         "#*#may not loot this corpse#*#"
Rich (BB code):
|---------------------Looting Sub Section------------------------------|       

| Ninjadvloot.inc v1.3


  Sub SetupAdvLootVars


/declare ALDontLoot      int    outer
/declare CorpseRotTimer  timer  outer
/call ALLoadVar Settings LootMobs      TRUE  bool
/call ALLoadVar Settings CorpseRadius  100   int
/call ALLoadVar Settings MobsTooClose  50    int
/call ALLoadVar Settings CorpseRotTime 440s  string
/call ALLoadVar Settings ReportLoot    FALSE bool
/call ALLoadVar Settings LootChannel   echo  string
/if (!${Defined[${AlertList}]}) /declare AlertList int outer 1
/squelch /alert clear 25
/return

Sub ALLoadVar(IniSection,IniVar,IniValue,VarType)
/if (!${Defined[${IniVar}]} && ${Defined[VarType]}) /declare ${IniVar} ${VarType} outer
/declare IniString string local ${Ini[Loot.ini,${IniSection},${IniVar},NOTFOUND]}
/varset ${IniVar} ${IniString}
/if (${IniString.Equal["NOTFOUND"]}) {
  /if (${IniString.Equal["NOTFOUND"]}) /varset ${IniVar} ${IniValue}
  /ini "Loot.ini" "${IniSection}" "${IniVar}" "${${IniVar}}"
}
/return

  Sub LootCorpse

/declare i          int    local
/declare LootList   string local
/call CheckCursor
/loot
/delay 3s ${Corpse.Open}
/doevents CantLoot
/if (${Target.ID}==${ALDontLoot} && ${Spawn[${ALDontLoot}].ID}) /squelch /alert add 25 id ${ALDontLoot}
/delay 3s ${Corpse.Items} || ${Target.ID}==${ALDontLoot}
/if (${Corpse.Open} && ${Corpse.Items}) {
/declare loottotal  int    local

  :ALlootlag

  /varset loottotal ${Corpse.Items}
  /delay 1s ${loottotal}!=${Corpse.Items}
  /if (${loottotal}!=${Corpse.Items}) /goto :ALlootlag
  /for i 1 to ${loottotal}
  /if (${Corpse.Item[${i}].ID} && !${Select[${Ini[Loot.ini,"${Corpse.Item[${i}].Name.Left[1]}","${Corpse.Item[${i}]}"]},Ignore,Keep,Destroy]}) {
    /if (${Corpse.Item[${i}].NoDrop}) /ini "loot.ini" "${Corpse.Item[${i}].Name.Left[1]}" "${Corpse.Item[${i}]}" Ignore
    /if (!${Corpse.Item[${i}].NoDrop}) /ini "loot.ini" "${Corpse.Item[${i}].Name.Left[1]}" "${Corpse.Item[${i}]}" Keep
  }
  /if (${Ini[Loot.ini,"${Corpse.Item[${i}].Name.Left[1]}","${Corpse.Item[${i}]}"].NotEqual[Destroy]} && !${Me.FreeInventory} && (!${FindItemCount[=${Corpse.Item[${i}].Name}]} || (${FindItemCount[=${Corpse.Item[${i}].Name}]} && ${Corpse.Item[${i}].Stackable} && !${Corpse.Item[${i}].FreeStack})) || (${Corpse.Item[${i}].Lore} && ${FindItem[${Corpse.Item[${i}]}].ID}) || ${Ini[Loot.ini,"${Corpse.Item[${i}].Name.Left[1]}","${Corpse.Item[${i}]}"].Equal[Ignore]}) /varset LootList ${LootList}${Corpse.Item[${i}]},
  /if ((!${Corpse.Item[${i}].Lore} || !${FindItem[${Corpse.Item[${i}]}].ID}) && (${Me.FreeInventory} || (${FindItemCount[=${Corpse.Item[${i}].Name}]} && ${Corpse.Item[${i}].Stackable} && ${Corpse.Item[${i}].FreeStack})) && ${Ini[Loot.ini,"${Corpse.Item[${i}].Name.Left[1]}","${Corpse.Item[${i}]}"].Equal[Keep]}) /call LootItem ${i} Keep right
  /if (${Ini[Loot.ini,"${Corpse.Item[${i}].Name.Left[1]}","${Corpse.Item[${i}]}"].Equal[Destroy]}) /call LootItem ${i} Destroy left
  /next i
  /if (${Corpse.Items}) {
    /if (${ReportLoot}) /${LootChannel} ${LootList} left on corpse.
    /if (${Target.ID}) /squelch /alert add 25 id ${Target.ID}
    /varset CorpseRotTimer ${CorpseRotTime}
  }
}

:clickdoneffs

/nomodkey /notify LootWnd LW_DoneButton leftmouseup
/delay 5s !${Corpse.Open}
/if (${Corpse.Open}) /goto :clickdoneffs
/return

Sub LootItem(int i,DoWhat,WhichButton)
/declare CorpseItemID int local ${Corpse.Item[${i}].ID}
/nomodkey /itemnotify loot${i} ${WhichButton}mouseup
/delay 5s ${Window[ConfirmationDialogBox].Open} || !${Corpse.Item[${i}].NoDrop}
/if (${Window[ConfirmationDialogBox].Open}) /nomodkey /notify ConfirmationDialogBox Yes_Button leftmouseup
/delay 5s ${Cursor.ID} || ${WhichButton.NotEqual
} /if (${DoWhat.Equal[Destroy]} && ${Cursor.ID}==${CorpseItemID}) /destroy /delay 3s !${Corpse.Item[${i}].ID} && !${Cursor.ID} /return Sub LootMobs /if (!${LootMobs} || ${SpawnCount[npc radius ${MobsTooClose} zradius 100 noalert ${AlertList}]} || !${SpawnCount[corpse radius ${CorpseRadius} zradius 100 noalert 25]} || ${Me.Combat} ||(${Cursor.NoDrop} && !${Me.FreeInventory})) /return /if (!${CorpseRotTimer}) /squelch /alert clear 25 /declare i int local /declare CorpseList string local | /for i 1 to ${SpawnCount[corpse radius ${CorpseRadius} zradius 100 noalert 25]} /varset CorpseList ${CorpseList}${NearestSpawn[${i},corpse radius ${CorpseRadius} noalert 25].ID}| /next i /declare DeadCount int local ${SpawnCount[corpse radius ${CorpseRadius} zradius 100 noalert 25]} /if (${Me.Mount.ID}) /dismount /for i 1 to ${DeadCount} /if (${Spawn[${CorpseList.Arg[${i},|]}].Deity.ID} && ${Spawn[${CorpseList.Arg[${i},|]}].ID}) /squelch /alert add 25 id ${Spawn[${CorpseList.Arg[${i},|]}].Deity.ID} /if (!${Spawn[${CorpseList.Arg[${i},|]}].Deity.ID}) { /if (${Target.ID}!=${Spawn[${CorpseList.Arg[${i},|]}].ID}) /target id ${Spawn[${CorpseList.Arg[${i},|]}].ID} /if (!${Me.Standing}) /stand /delay 2s ${Target.ID}==${Spawn[${CorpseList.Arg[${i},|]}].ID} && ${Me.Standing} /if (${Spawn[${CorpseList.Arg[${i},|]}].Distance}>10) /moveto loc ${Spawn[${CorpseList.Arg[${i},|]}].Y} ${Spawn[${CorpseList.Arg[${i},|]}].X} /delay 10s ${Spawn[${CorpseList.Arg[${i},|]}].Distance}<10 /if (${Spawn[${CorpseList.Arg[${i},|]}].Distance}<15) /call LootCorpse /stick off } /next i /return Sub Event_ALCantLoot /varset ALDontLoot ${Target.ID} /return Sub CheckCursor :ALauto_inv /if (${Cursor.ID}) { /if (${Cursor.NoDrop} && !${Me.FreeInventory}) /return /timed 5 /autoinventory /delay 2s !${Cursor.ID} /goto :ALauto_inv } /return​


Add the code in red to initialize the loot variables.
Rich (BB code):
       #include ninjadvloot.inc 
       #include spell_routines.inc
       #event GotHit          "#*#hits YOU for#*#"



|----------------------------------------------------------------------|
                               Sub Main
|----------------------------------------------------------------------|
    /call SetupAdvLootVars
    /declare AlertListVoid int outer
    /varset AlertListVoid 10
    /call LoadVoidlist
    /declare ClickyItemUse       int outer 1
    /declare ClickyItem[8]       string outer
    /varset ClickyItem[1]        NULL
    /varset ClickyItem[2]        NULL
    /varset ClickyItem[3]        Band of subterfuge
    /varset ClickyItem[4]        Diazophire earing
    /varset ClickyItem[5]        Witherskin cloak
    /varset ClickyItem[6]        Ancient werewolf skull
    /varset ClickyItem[7]        NULL
    /varset ClickyItem[8]        NULL
    /declare MobRadius            int outer 45 

   /call SetupAdvLootVars
 
Updated with correction you suggested Maskoi thank you for the help. Im real having problems with the pull section never want to pull back to loc. Just get stuck at current loc and starts killing.
 
If i wanted to make the :move section of the mac Move to certain distance from target and then use range, then once Agro run back to my set camp loc. How would i go about getting the mac to register me being agro?
 
Thnks again Maskoi . Ive add it to my mac going to try and clean it up some more and then ill edit the one i posted. Hopefully i can get more idea's of areas i went wrong
 
Problems with my warpull mac

Users who are viewing this thread

Back
Top