code help please (1 Viewer)

motorsgt · Mar 9, 2006

I am looking for some help please. I am wanting to add a few lines to two macros.

Macro one is a druid healing. I would like for him to tell the tank to HOLD until his mana is above 90%

Macro two is a hunter macro. I would like for it to pause until the druid tells it to RESUME.

Any help would be greatly appreciated.
motorsgt

:eek:

Siddin · Mar 9, 2006

any way you could post the macros so i could help youwith em?

motorsgt · Mar 10, 2006

Druid macro
Works fine except it spams tells to the warrior to hold until mana is good.

Rich (BB code):

#include spell_routines.inc

#Chat Chat
#Chat tell

Sub Main

/declare heal string outer "Karana's Renewal"
/declare gate string outer "Gate"
/declare healpct int outer 50
/declare tank string outer *TANK NAME*
/declare nuke string outer "Summer's Flame"
/declare fastheal string outer "Nature's Infusion"

:main
/if (${Me.PctMana}<50) /call hold
/if (${Spawn[pc *Me*].PctHPs}<50) /call selfheal
/target ${tank}
/if (${Spawn[pc ${tank}].Distance}>50) /call Move
/if (${Spawn[pc ${tank}].PctHPs}<50) /call heal
/delay 5
/if (!${Me.Mount.ID}) /call cast "Collaspable Roboboar" item
/goto :main
/return

Sub Move
/assist ${tank}
/Warp target
/return

Sub Heal
/target ${tank}
/call cast ${heal} gem7 3s
/return

Sub selfheal
/target *ME*
/call cast ${fastheal} gem8 3s
/return

Sub Hold
:loop
/tell ${tank} hold

Tank Macro
Didn't try to add anything to this one yet.

Rich (BB code):

| Modified Warping Hunter Macro
| Hunter.mac
| Author      : noobhaxor (orginal code by robdog)
| Version     : v1.1
| Useage      : /macro Hunter
| Description : Use in Plane of Justice...will warp around and kill mobs in Basement
| Rooms. Most people never look in those rooms. Ideal Level 60 to 66.
|------------------------------------------------------------------------------------
|v1.1 Included /stick command, and improved Z axis checks, and Auto Camp (3/21/05)
|---------------------------------------------------------------------
#include spell_routines.inc
#turbo 10
#chat tell


Sub Main
   /declare RV_MyZLOC int outer -100
   /declare myzone int outer ${Zone.ID}
   |------------------------------------------------------------
   |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  3000
   |------------------------------------------------------------
   |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  -3000
   |------------------------------------------------------------
   |What is the maximum Z Value of mobs I should target?
   |------------------------------------------------------------
   /declare RV_MaxZRange        int outer  3000
   |------------------------------------------------------------
   |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 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 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[5]}
   /varcalc RV_RandomWait ${RV_RandomWait}+1
   /echo Paranoia - Waiting ${RV_RandomWait} seconds before resuming
   /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

|--------------------------------------------------------------------------------
|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 7
         /squelch /target "${RV_MobArray[${RV_TargetSub}]}"
         /varset RV_MyTargetID ${Target.ID}
         /varset RV_MyTargetDead 0
         /if (${Target.ID}) {
            /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

   /if (${Int[${Target.Distance}]}>25) {
	/warp target
	/delay 2s
	/warp target
   }
   /if (${RV_MyZLOC}>${Int[${Me.Z}]}) /warp target

   /if (${Target.ID}) {
      /face fast
      /stick 13 moveback
   }

/return

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

   /echo Attacking Mob NOW!
   /varset RV_Fighting 1
   /varset RV_TargetDead 0
   
   /call MoveToMob

   :CombatLoop
   /doevents
   /attack on
   
   /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 
	
|----------Melee Ability---Kick---Bash---------Input what you use----------------
    /if ((${Target.Distance}<17)&&(${Me.AbilityReady["Kick"]})) /doability "Kick"

    /if (${Me.PctHPs}<5) /gate

/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
|---------Casts Haste after fight is finished-------------------
   |/call cast "Jymall's Gloves of Frenzy" item
|---------Delay to help Cleric regen mana-----------------------
   /delay 42s
   /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
   
/return

|--------------------------------------------------------------------------------
|SUB: GM Check
|--------------------------------------------------------------------------------
Sub GMCheck
   /if (${Zone.ID}!=${myzone}) {
	/nomodkey /keypress forward
	/nomodkey /keypress left
	/nomodkey /keypress right
	/camp desktop
	/endmacro
	}	
   /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 (${String[${Ini[${FileName},${SectionName},${ArrayType}${nValues}]}].Equal[null]}) {
      /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

Siddin · Mar 10, 2006

looks like your missing part of your druid macro, but when i get up tommorrow (its 3 am atm) i'll help ya with it.

Learningcurve · Mar 10, 2006

Here is what I come up with to make him tell your tank once to hold , check his mana until its at 90 or better and then tell him to resume and continue the macro. Not sure if it will work but it might be a direction to look at.

Rich (BB code):

#include spell_routines.inc

#Chat Chat
#Chat tell

Sub Main

/declare heal string outer "Karana's Renewal"
/declare gate string outer "Gate"
/declare healpct int outer 50
/declare tank string outer *TANK NAME*
/declare nuke string outer "Summer's Flame"
/declare fastheal string outer "Nature's Infusion"

:main
/if (${Me.PctMana}<50) /call hold
/if (${Spawn[pc *Me*].PctHPs}<50) /call selfheal
/target ${tank}
/if (${Spawn[pc ${tank}].Distance}>50) /call Move
/if (${Spawn[pc ${tank}].PctHPs}<50) /call heal
/delay 5
/if (!${Me.Mount.ID}) /call cast "Collaspable Roboboar" item
/goto :main
/return

Sub Move
/assist ${tank}
/Warp target
/return

Sub Heal
/target ${tank}
/call cast ${heal} gem7 3s
/return

Sub selfheal
/target *ME*
/call cast ${fastheal} gem8 3s
/return

Sub Hold
/tell ${tank} hold
/call wait

Sub Wait
:loop 
/if (${Me.PctMana}>=90) /call Resume

Sub Resume
/tell ${tank} Resume
/return

Now I will look at the hunter mac and see where I can slip in a event or two to watch for the tells

thez · Mar 10, 2006

Cleaning this code up a little bit:

Rich (BB code):

#include spell_routines.inc

Sub Main

/declare heal string outer "Karana's Renewal"
/declare gate string outer "Gate"
/declare healpct int outer 50
/declare tank string outer *TANK NAME*
/declare nuke string outer "Summer's Flame"
/declare fastheal string outer "Nature's Infusion"

:main
/if (${Me.PctMana}<50) /call hold
/if (${Me.PctHPs}<50) /call selfheal
/target ${tank}
/if (${Spawn[pc ${tank}].Distance}>50) /call Move
/if (${Spawn[pc ${tank}].PctHPs}<50) /call heal
/delay 5
/if (!${Me.Mount.ID}) /call cast "Collaspable Roboboar" item
/goto :main
/return

Sub Move
/assist ${tank}
/Warp target
/return

Sub Heal
/target ${tank}
/call cast ${heal} gem7 3s
/return

Sub selfheal
/target ${Me}
/call cast ${fastheal} gem8 3s
/return

Sub Hold
/tell ${tank} hold
/call wait

Sub Wait
:loop 
/if (${Me.PctMana}>=90) /call Resume
/goto :loop
/return

Sub Resume
/tell ${tank} Resume
/return

Closed a few of your subs, made your Sub Wait loop actually loop, and replaced *me* with ${Me}...which works for everyone.

thez · Mar 10, 2006

Rich (BB code):

#include spell_routines.inc
#turbo 10
#event hold "#*# tells you, 'hold#*#"
#event resume "#*# tells you, 'resume#*#"


Sub Main
   /declare thezsez int outer 0
   /declare RV_MyZLOC int outer -100
   /declare myzone int outer ${Zone.ID}
   |------------------------------------------------------------
   |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  3000
   |------------------------------------------------------------
   |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  -3000
   |------------------------------------------------------------
   |What is the maximum Z Value of mobs I should target?
   |------------------------------------------------------------
   /declare RV_MaxZRange        int outer  3000
   |------------------------------------------------------------
   |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 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 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[5]}
   /varcalc RV_RandomWait ${RV_RandomWait}+1
   /echo Paranoia - Waiting ${RV_RandomWait} seconds before resuming
   /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

|--------------------------------------------------------------------------------
|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 7
         /squelch /target "${RV_MobArray[${RV_TargetSub}]}"
         /varset RV_MyTargetID ${Target.ID}
         /varset RV_MyTargetDead 0
         /if (${Target.ID}) {
            /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

   /if (${Int[${Target.Distance}]}>25) {
	/warp target
	/delay 2s
	/warp target
   }
   /if (${RV_MyZLOC}>${Int[${Me.Z}]}) /warp target

   /if (${Target.ID}) {
      /face fast
      /stick 13 moveback
   }

/return

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

   /echo Attacking Mob NOW!
   /varset RV_Fighting 1
   /varset RV_TargetDead 0
   
   /call MoveToMob

   :CombatLoop
   /doevents
   /attack on
   
   /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 
	
|----------Melee Ability---Kick---Bash---------Input what you use----------------
    /if ((${Target.Distance}<17)&&(${Me.AbilityReady["Kick"]})) /doability "Kick"

    /if (${Me.PctHPs}<5) /gate

/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
|---------Casts Haste after fight is finished-------------------
   |/call cast "Jymall's Gloves of Frenzy" item
|---------Delay to help Cleric regen mana-----------------------
   /delay 42s
   /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
   
/return

|--------------------------------------------------------------------------------
|SUB: GM Check
|--------------------------------------------------------------------------------
Sub GMCheck
   /if (${Zone.ID}!=${myzone}) {
	/nomodkey /keypress forward
	/nomodkey /keypress left
	/nomodkey /keypress right
	/camp desktop
	/endmacro
	}	
   /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 (${String[${Ini[${FileName},${SectionName},${ArrayType}${nValues}]}].Equal[null]}) {
      /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_hold
/echo Holding
/popup Holding
:looplooploop
/doevents
/delay 1s
/if (${thezsez}==1) {
     /varset thezsez 0
     /goto :start
     }
/goto :looplooploop
/return

Sub event_resume
/echo Resuming
/popup Resuming
/varset thezsez 1
/return

That should do it. Untested....but yeah, it should work.

motorsgt · Mar 10, 2006

Thanks much. I will give it a shot when I get home.

Learningcurve · Mar 10, 2006

Rich (BB code):

Sub Wait
:loop 
/if (${Me.PctMana}>=90) /call Resume
/goto :loop
/return

In this is the /return needed? once you hit resume it doesn't come back here does it? if it does how does it get outta the loop? Just getting clarification. After I posted this last night I got thinking that I hadn't closed some of the loops but then I wasn't sure if the program cam back to this point after a /call or not. I am still trying to get the hang of this myself.

Also was wondering if we should put a do events statement in there so if you get hit while trying to get your mana up you won't just sit there and will start your heal self routine again. maybe

Rich (BB code):

Sub Wait
:loop 
/if (${Me.PctMana}>=90) /call Resume
/doevents
/goto :loop
/return

or does the

/if (${Me.PctHPs}<50) /call selfheal statement still function if your in the waiting for mana loop?

Or should we make it

Rich (BB code):

Sub Wait
:loop 
/if (${Me.PctMana}>=90) /call Resume
/if (${Me.PctHPs}<50) /call selfheal
/goto :loop
/return

Would hate for someone to die cause they are waiting for 90% mana before they check to see if they need a heal or not

thez · Mar 10, 2006

The /return is always needed to end every sub. MQ requires it.

Learningcurve · Mar 10, 2006

ah ok cool thanks

code help please (1 Viewer)

motorsgt

New member

Siddin

Rikk-tikk-tikki-tikki-tchk!

motorsgt

New member

Siddin

Rikk-tikk-tikki-tikki-tchk!

Learningcurve

Member

thez

Well-known member

thez

Well-known member

motorsgt

New member

Learningcurve

Member

thez

Well-known member

Learningcurve

Member

Users who are viewing this thread