MacroQuest64

Code: Select all

|inc.mac 
|Incoming Macro for pullers. 
|Version 1.2
|Date:04/27/2004

#turbo 40
Sub main()
/declare Index int outer
/declare Casters int outer
/declare NPCID int outer
/declare Incoming int outer
/declare ChatIn string global
/declare ChatInChannel global
/varset Index 0
/varset Incoming 1
/varset Casters 0

/if (${Defined[Param1]}) /varset ChatIn ${Param1}
/if (${Defined[Param2]}) /varset ChatInChannel ${Param2}

/call Chatout ${ChatIn}, "[${Int[${Incoming}]}] - Incoming -> [${Target.Level} ${Target.Class}] ${Target.CleanName} Cons ${Target.ConColor} <-- TARGET"


:mainloop
/varcalc Index ${Math.Calc[${Index}+1]}
/if (${String[${Target.NearestSpawn[${Index},npc radius ${Param0}].ID}].Equal[NULL]}) /goto :end
/varcalc NPCID ${Target.NearestSpawn[${Index},npc radius ${Param0}].ID}
/if (${Spawn[${NPCID}].Speed}>114.29) {
/varcalc Incoming ${Math.Calc[${Incoming}+1]}
/call ChatOut ${ChatIn}, "[${Int[${Incoming}]}] - Incoming -> [${Spawn[${NPCID}].Level} ${Spawn[${NPCID}].Class}] ${Spawn[${NPCID}].CleanName} Cons ${Spawn[${NPCID}].ConColor}"
}
/goto :mainloop


:end
/call ChatOut ${ChatIn}, "Total Incoming: ${Int[${Incoming}]} mob(s)."

/deletevar ChatIn
/deletevar ChatInChannel
/endmacro

Sub ChatOut(string ChatTarget,string ChatText)
   /if (${ChatTarget.Equal[GROUP]}) { 
      /g ${ChatText} 
      /return 
   } 
   /if (${ChatIn.Equal[tell]}) { 
      /tell ${ChatTarget} ${ChatText} 
   } else /if (${ChatIn.Equal[Group]}) { 
      /g ${ChatText} 
   } else /if (${ChatIn.Equal[Raid]}) { 
      /rs ${ChatText} 
   } else /if (${ChatIn.Equal[Say]}) { 
      /say ${ChatText} 
   } else /if (${ChatIn.Equal[Channel]}) { 
      /chat #${ChatInChannel} ${ChatText} 
   } else /if (${ChatIn.Equal[IRC]}) { 
      /irc ${ChatText} 
   } 
/return