SKhunter mac

bigdaddy · May 24, 2006

This is a skhunter mac that i've used for awhile. Thought I'd share it. Any input or improvements are greatly appreciated! Also, if you know how to fix the Natimbi one, PLEASE LET ME KNOW! I've tried everything, but for some reason it will not identify any mobs or any loot out of the huntermob.ini or hunterloot.ini in Natimbi... I've tried [Natimbi], [Natimbi, the Broken Shores], etc... none seem to work. Maybe someone will see something i'm missing on that one.

You can edit the ini's to add whatever mobs, loot, other zones, etc.. that you'd like.

Also, it will keep hunting Mob1 until there are no more in the zone, then it will goto Mob2. So you make sure you put the main mob your lookin for in Mob1 spot. It will also destroy any loot not in the ini list for that zone. (DONT HAVE ANYTHING ON THE CURSER THAT YOU DONT WANT TO LOSE!! IF YOU PICK UP A INVENTORY ITEM WHILE THE MAC IS RUNNING, IT WILL DESTROY IT!! SO BE CAREFUL!!)

Enjoy!

PS. Toxx is definiely the best place for spiderling silk you can get about 1000 in one night. Also, Marus Seru was best place for me for low quality rockhopper hides to make leather padding with.

SKHunter.mac:

Rich (BB code):

| Shadowknight Hunter Macro
| SKHunter.mac
| 
|      /macro SKHunter
|      This macro will run your character around killing any mobs in your
|      RV_MobArray.  Then it will attempt to loot all items in your
|      RV_LootArray.
|------------------------------------------------------------------------------------

#include spell_routines.inc
#turbo 10

#Event lom  "#*#LOM#*#"

Sub Main


   |------------------------------------------------------------
   |How many times should aquire target fail before delaying?
   |------------------------------------------------------------
   /declare RV_FailMax          int outer  3
   |------------------------------------------------------------
   |How far would you like to target a mob?
   |------------------------------------------------------------
   /declare RV_MaxRadius        int outer  8000
   |------------------------------------------------------------
   |How far is the combat range?
   |------------------------------------------------------------
   /declare RV_Range            int outer 10
   |------------------------------------------------------------
   |What is the minimum Z Value of mobs I should target?
   |------------------------------------------------------------
   /declare RV_MinZRange        int outer  -1000
   |------------------------------------------------------------
   |What is the maximum Z Value of mobs I should target?
   |------------------------------------------------------------
   /declare RV_MaxZRange        int outer  1000
   |------------------------------------------------------------
   |Should I loot all items?
   |------------------------------------------------------------
   /declare RV_LootAllItems     int outer  0
   |------------------------------------------------------------
   |Should I display stats?
   |------------------------------------------------------------
   /declare RV_DisplayStats     int outer  1

   |------------------------------------------------------------
   |Loot Array Information.
   |------------------------------------------------------------
   /call ReadINI HunterMob.ini "${Zone.Name}" Mob
   /if (!${Defined[RV_MobArray]}) {
      /echo Mob Array Creation Error, ending macro...
      /endmacro
   }

   |------------------------------------------------------------
   |Mob Array Information.
   |------------------------------------------------------------
   /call ReadINI HunterLoot.ini "${Zone.Name}" Loot
   /if (!${Defined[RV_LootArray]}) {
      /echo No Loot Array Created...
   }

   |------------------------------------------------------------
   |Variables that you don't need to worry about.
   |------------------------------------------------------------
   /declare RV_FailCounter      int outer  0
   /declare RV_MyTargetID       int outer  0
   /declare RV_MyTargetName     string outer
   /declare RV_MyTargetDead     int outer  0
   /declare RV_InvalidTargetID  int outer  0
   /declare RV_HasTarget        int outer  0
   /declare RV_RandomWait       int outer  0
   /declare RV_LootSlot         int outer  0
   /declare RV_CheckLook        int outer  0
   /declare RV_Fighting         int outer  0
   /declare RV_TargetDead       int outer  0
   /declare RV_MyXLOC           int outer  0
   /declare RV_MyYLOC           int outer  0
   /declare Oktopull            int outer  1
   /declare RV_FastRange        int outer
   /declare RV_RangeMax         int outer
   /declare RV_RangeMin         int outer
   /varcalc RV_FastRange ${RV_Range}+3
   /varcalc RV_RangeMax ${RV_Range}+1
   /varcalc RV_RangeMin ${RV_Range}-1

   :Start
   /doevents
   /call GMCheck
   /call CheckBuffs
   /if (${Oktopull}>0&&${Int[${Me.PctHPs}]}>70) /call GetTarget


   :KillAdds
   /if (${RV_HasTarget}) /call MoveToMob
   /if (${RV_HasTarget}) /call CombatSub
   /if (${RV_HasTarget}) /call MoveToMob
   /if (${RV_HasTarget} && (${Defined[RV_LootArray]} || ${RV_LootAllItems})) /call LootMob
   /if (${RV_DisplayStats}) /call DisplayStats
   /call ResetSub

   /varset RV_RandomWait ${Math.Rand[30]}
   /varcalc RV_RandomWait ${RV_RandomWait}+1
   /echo Paranoia - Waiting ${RV_RandomWait} seconds before resuming
   /doability 5
   /delay ${RV_RandomWait}s
   
   /if (${Target.ID}) {
      /echo Looks like something is attacking us, killing it...
      /delay 1s
      /varset RV_HasTarget 1
      /varset RV_Fighting 1
      /goto :KillAdds
   }
   
   /goto :Start
   
/return

|--------------------------------------------------------------------------------
|Code: Check Buffs
|--------------------------------------------------------------------------------
Sub CheckBuffs

   /if (${Me.Buff[Shroud of Discord].Duration}<30) /call Cast "Shroud of Discord" gem4
   /if (${Me.Buff[Bobbing Corpse].Duration}<30) /call Cast "Bobbing Corpse" gem5
   /if (${Me.Buff[Cloak of Discord].Duration}<30) /call Cast "Cloak of Discord" gem7
   /if (${Me.Buff[Cloak of Shadows].Duration}<30) /call Cast "Cloak of Shadows" alt
|   /if (${Pet.Buff[Strengthen Death].Duration}<30) /call Cast "Strengthen Death" gem3
/return

|--------------------------------------------------------------------------------
|SUB: Aquire Target
|--------------------------------------------------------------------------------
Sub GetTarget

   /declare RV_CurrentRadius   int local
   /declare RV_TargetSub   int local
   :Acquire
   /for RV_CurrentRadius 100 to ${RV_MaxRadius} step 100
      /for RV_TargetSub 1 to ${RV_MobArray.Size}
         /squelch /target radius ${RV_CurrentRadius} nopcnear notid ${RV_InvalidTargetID} npc "${RV_MobArray[${RV_TargetSub}]}"
         /varset RV_MyTargetID ${Target.ID}
         /varset RV_MyTargetDead 0
         /if (${Target.ID}) {
            /if (${Int[${Target.PctHPs}]}<100) {
               /echo Mob NOT a Full Health, picking another...
               /varset RV_InvalidTargetID ${Target.ID}
               /call ResetSub
               /goto :Acquire
            }
            /if (${Int[${Target.Z}]}<${RV_MinZRange}) {
               /echo Mob is BELOW Min Z Range, picking another...
               /varset RV_InvalidTargetID ${Target.ID}
               /call ResetSub
               /goto :Acquire
            }
            /if (${Int[${Target.Z}]}>${RV_MaxZRange}) {
               /echo Mob is ABOVE Max Z Range, picking another...
               /varset RV_InvalidTargetID ${Target.ID}
               /call ResetSub
               /goto :Acquire
            }
            /varset RV_HasTarget 1
            /varset RV_MyTargetName ${Target.CleanName}
            /echo Acquired ${Target.CleanName} at range ${Int[${Target.Distance}]}
            /return
         }
      /next RV_TargetSub
      /delay 2
   /next RV_CurrentRadius

   /if (!${Target.ID}) {
      /delay 2s
      /varcalc RV_FailCounter ${RV_FailCounter}+1
      /echo Failed to Acquire Target in Range ${RV_MaxRadius} ${RV_FailCounter} Time(s)
      /if (${RV_FailCounter}>=${RV_FailMax}) {
         /echo Waiting for Respawns, Resetting Failure Counter...
         /delay 60s
         /varset RV_FailCounter 0
      }
      /goto :Acquire
   }
/return

|--------------------------------------------------------------------------------
|SUB: Moving
|--------------------------------------------------------------------------------
Sub MoveToMob

   /varset RV_MyXLOC ${Int[${Me.X}]}
   /varset RV_MyYLOC ${Int[${Me.Y}]}
   /declare RV_DistanceTimer timer 15
   
   /doevents
   
   :MovementLoop

   /if ((!${RV_Fighting})&&(!${RV_TargetDead})&&(${Target.PctHPs}<100)) {
      /echo Mob not at full health, picking another...
      /varset RV_InvalidTargetID ${Target.ID}
      /varset RV_HasTarget 0
      /call ResetSub
      /return
   }

   /if (${Target.ID}) {
      /face fast
   }
   /if (${Int[${Target.Distance}]}>${RV_FastRange}) {
      /keypress forward hold
   }
   /if (${Int[${Target.Distance}]}<${RV_FastRange}&&${Int[${Target.Distance}]}>${RV_RangeMax}) {
      /keypress forward
   }
   /if (${Int[${Target.Distance}]}<${RV_RangeMin}) {
      /keypress back
   }
   /if (!${RV_DistanceTimer}) {
      /if ((${RV_MyXLOC}==${Int[${Me.X}]})&&(${RV_MyYLOC}==${Int[${Me.Y}]})) /call HitObstacle
      /varset RV_MyXLOC ${Int[${Me.X}]}
      /varset RV_MyYLOC ${Int[${Me.Y}]}
      /varset RV_DistanceTimer 15
      /goto :Movementloop
   }
   /if (${Int[${Target.Distance}]}>${RV_FastRange}) /goto :MovementLoop

/return

|--------------------------------------------------------------------------------
|SUB: Combat
|--------------------------------------------------------------------------------
Sub CombatSub

   /echo Attacking Mob NOW!
   /gsay incoming
   /varset RV_Fighting 1
   /varset RV_TargetDead 0
   
   :CombatLoop
   /doevents
   /attack on
   
   /call MoveToMob
   /call SpecialIT

   /if (!${Target.ID}) {
      /attack off
      /keypress forward
      /keypress back
     
      /varset RV_TargetDead 1
      /varset RV_Fighting 0
      /delay 1s
      /target radius 30 corpse
      /delay 1s
      /if (!${Target.ID}) {
         /call ResetSub
         /return
      }
      /face fast
   }
   /if (!${RV_TargetDead}) {
      /goto :CombatLoop
   }
   
/return

|--------------------------------------------------------------------------------
|SUB: Special Combat
|--------------------------------------------------------------------------------
Sub SpecialIt

   /declare TempID    int inner  0

   /if ((${Target.Distance}<11)&&(${Me.AbilityReady["Bash"]})) /doability "Bash"

   /if ((${Target.Distance}<11)&&(${Me.AbilityReady["Taunt"]})) /doability "Taunt"
   
   /if ((${Int[${Me.PctHPs}]}<30)&&(${Me.Gem["Feign Death"]})&&(${Me.SpellReady["Feign Death"]})) {
      /varset TempID ${Target.ID}
      /keypress forward
      /keypress back
      /keypress F1
      /echo Playing dead because of low health...cleric should GATE!
      /gsay Playing dead because of low health...cleric should GATE!
      /call cast "Feign Death" gem8
      /delay 3s
      /target id ${TempID}
   }

/return

|--------------------------------------------------------------------------------
|SUB: Looting
|--------------------------------------------------------------------------------
Sub LootMob

   /declare LootSlot    int inner  0
   /declare LootCheck   int inner  0
   /declare LootTotal   int inner  0
   
   /face fast
   
   /keypress forward
   /keypress back
   
   /fastdrop on
   /lootn never
   /delay 2s
   /loot
   /delay 2s
   /if (!${Corpse.Items}) {
      /echo NO LOOT! Cheap Bastard!
      /return
   }

   /varset LootTotal ${Corpse.Items}
   /for LootSlot 1 to ${LootTotal}
      /itemnotify loot${LootSlot} leftmouseup
      /delay 1s
      /if (${RV_LootAllItems}) {
         /echo Keeping a ${Cursor.Name}... WOOT!
         /autoinventory
         /delay 1s
      } else {
         /for LootCheck 1 to ${RV_LootArray.Size}
            /if (${Cursor.Name.Find[${RV_LootArray[${LootCheck}]}]}) {
               /echo Keeping a ${Cursor.Name}... WOOT!
               /varcalc RV_LootStats[${LootCheck}] ${RV_LootStats[${LootCheck}]}+1
               /autoinventory
               /delay 1s
            }
         /next LootCheck
      }
      /if (${Cursor.ID}) {
         /echo Destroying a ${Cursor.Name}...
         /destroy
         /delay 1s
      }
   /next LootSlot
   
   /notify LootWnd DoneButton leftmouseup
   /delay 2
   
/return

|--------------------------------------------------------------------------------
|SUB: Reset
|--------------------------------------------------------------------------------
Sub ResetSub

   /keypress esc
   /keypress esc
   /keypress esc
   /keypress esc
   
   /varset RV_HasTarget 0
   /varset RV_TargetDead 0
   /varset RV_Fighting 0
   
/return

|--------------------------------------------------------------------------------
|SUB: Obstacle Avoidance
|--------------------------------------------------------------------------------
Sub HitObstacle

   /echo Obstacle hit, moving around it...
   /keypress forward
   /keypress back hold
   /delay 3
   /keypress back
   /if (${Math.Rand[100]}+1>50) {
     /keypress strafe_right hold
   } else {
     /keypress strafe_left hold
   }
   /delay 5
   /keypress strafe_right
   /keypress strafe_left
   /keypress forward hold
   /warp target
   
/return

|--------------------------------------------------------------------------------
|SUB: GM Check
|--------------------------------------------------------------------------------
Sub GMCheck

   /if (${Spawn[gm].ID}) {
      /beep
      /beep
      /beep
     
      /echo GM has entered the zone!
      /echo FUCK HIM but ending the macro...

      /keypress forward
      /keypress back

      /quit
      /endmacro
   }
   
/return

|--------------------------------------------------------------------------------
|SUB: Reading from an INI File
|--------------------------------------------------------------------------------
Sub ReadINI(FileName,SectionName,ArrayType)

   /echo Attempting to Read Section "${SectionName}" Zone Information from ${FileName}...
   /delay 1s
   
   /if (${Ini[${FileName},${SectionName},-1,NO].Equal[NO]}) {
      /echo "${SectionName}" is not a Valid Section for FILE:${FileName}, ending macro...
      /delay 1s
      /return
   }
   /declare nValues     int local  1
   /declare nArray      int local  0
   /declare KeySet      string local  ${Ini[${FileName},${SectionName}]}

   :CounterLoop
   /if (!${KeySet.Arg[${nValues},|].Length}) {
      /varcalc nValues ${nValues}-1
      /goto :MakeArray
   }
   /varcalc nValues ${nValues}+1
   /goto :CounterLoop 

   :MakeArray
   /if (!${nValues}) /return
   /if (${FileName.Equal["HunterMob.ini"]}&&${nValues}>0) {
      /echo Declaring Mob Array...
      /declare RV_MobArray[${nValues}]   string outer
      /declare RV_MobStats[${nValues}]   string outer
   }
   /if (${FileName.Equal["HunterLoot.ini"]}&&${nValues}>0) {
      /echo Declaring Loot Array...
      /declare RV_LootArray[${nValues}]  string outer
      /declare RV_LootStats[${nValues}]  string outer
   }
   /for nArray 1 to ${nValues}
      /if (${FileName.Equal["HunterMob.ini"]}) {
         /varset RV_MobArray[${nArray}] ${Ini[${FileName},${SectionName},${ArrayType}${nArray}]}
         /varset RV_MobStats[${nArray}] 0
      }
      /if (${FileName.Equal["HunterLoot.ini"]}) {
         /varset RV_LootArray[${nArray}] ${Ini[${FileName},${SectionName},${ArrayType}${nArray}]}
         /varset RV_LootStats[${nArray}] 0
      }
   /next nArray
   
   /echo "${SectionName}" Zone Information Read Successfully from ${FileName}...
   /delay 1s
   
/return

|--------------------------------------------------------------------------------
|SUB: Display Stats
|--------------------------------------------------------------------------------
Sub DisplayStats

   /declare nArray  int local
   
   /if (${Defined[RV_LootArray]}) {
      /for nArray 1 to ${RV_LootArray.Size}
         /echo ${Int[${RV_LootStats[${nArray}]}]} ${RV_LootArray[${nArray}]}'s
      /next nArray
   }
   
/return

Sub event_lom
     /mqpause
     /delay 5m
     /mqpause
/return

HunterMob.ini:

Rich (BB code):

[Eastern Plains of Karana]
Mob1=Spider
Mob2=Lion
Mob3=Griffawn

[East Commonlands]
Mob1=a black bear
Mob2=Spiderling

[The Feerrott]
Mob1=Spider 

[The Western Plains of Karana]
Mob1=Spiderling

[Toxxulia Forest]
Mob1=a large widow
Mob2=a large wood spider
Mob3=a spiderling
Mob4=a widow hatchling

[West Commonlands]
Mob1=black bear
Mob2=young kodiak
Mob3=kodiak
Mob4=grizzly bear
Mob5=spiderling

[Kithicor Woods]
Mob1=black bear
Mob2=young kodiak
Mob3=grizzly bear
Mob4=spiderling

[Marus Seru]
Mob1=a Greyhopper

[The Scarlet Desert]
Mob1=a fierce rockhopper
Mob2=a frenzied rockhopper
Mob3=a powerful rockhopper
Mob4=A Savage Rockhopper
Mob5=a scarlet rockhopper

[Shadeweaver's Thicket]
Mob1=A Needle Clawed Hopper
Mob2=A Saurek Darkclaw
Mob3=A Saurek Deathmaw

[Natimbi, The Broken Shores]
Mob1=a reef crustacean
Mob2=a hynid fleshripper
Mob3=a shore stonemite

HunterLoot.ini:

Rich (BB code):

[Eastern Plains of Karana]
Loot1=Silk
Loot2=High Quality
Loot3=Medium Quality
Loot4=Feather

[East Commonlands]
Loot1=Spiderling Silk
Loot2=Low Quality Bear Skin
Loot3=Medium Quality Bear Skin
Loot4=high Quality Bear Skin

[The Feerrott]
Loot1=Spiderling Silk 

[The Western Plains of Karana]
Loot1=Spiderling Silk

[Toxxulia Forest]
Loot1=Spiderling Silk
Loot2=Spider Silk

[West Commonlands]
Loot1=Low Quality Bear Skin
Loot2=Siderling Silk
Loot3=Medium Quality Bear Skin
Loot4=high Quality Bear Skin

[Kithicor Woods]
Loot1=Low Quality Bear Skin
Loot2=Siderling Silk
Loot3=Medium Quality Bear Skin
Loot4=high Quality Bear Skin
Loot5=Thick Grizzly Bear Skin

[Marus Seru]
Loot1=Low Quality Rockhopper Hide
Loot2=Medium Quality Rockhopper Hide
Loot3=High Quality Rockhopper Hide

[The Scarlet Desert]
Loot1=Low Quality Rockhopper Hide
Loot2=Medium Quality Rockhopper Hide
Loot3=High Quality Rockhopper Hide

[Shadeweaver's Thicket]
Loot1=Low Quality Rockhopper Hide
Loot2=Medium Quality Rockhopper Hide
Loot3=High Quality Rockhopper Hide

[Natimbi, the Broken Shores]
Loot1=Aligned Ore

Oceanrescue · May 25, 2006

I have the same issue of not being able to recognize loots listed in some zones. Some of the time i was able to get it to notice the loots and mobs if i zoned out and back in. This was only the case if i tried to change the ini while in the zone i wanted to farm though.

nyghteyes · May 25, 2006

If you turn down that 8k rad you wont hunt the same mob forever if your looking for some diversity in Tradeskill loot

bigdaddy · May 26, 2006

For some reason, its not recognizing some zones. I cant figure it out.

nyghteyes · May 27, 2006

my own stupidess

Rosk0e · Jun 7, 2006

I remeber this mac...I posted it in MQ2 forums ran this and a cleric macro to duo them all the way up to 70 +AAs

flargendingle · Sep 15, 2006

i dont know why, but i kepp getting this message-[mq2] "east commonland" is not a Valid Section for FILE:Huntermob.ini, ending macro...[mq2] Mob Array Creation Error, ending macro... i get this in all the zones in the .ini files. can ayone help me get this working please? thanks in advance.

SKhunter mac

bigdaddy

New member

Oceanrescue

New member

nyghteyes

What is a macro??

bigdaddy

New member

nyghteyes

What is a macro??

Rosk0e

New member

flargendingle

New member

Users who are viewing this thread

Cart