MacroQuest64

Code: Select all

|Power Leveler Bot By: Ted
|--------------------------|
|Usage: Target the player you wish to buff/heal and start the macro (/mac pl)
|Some of the code was stolen from various macros
|It just covers the basiscs for powerleveling a lower lvl character. (Buffs/Heals)
|Hopeing to add some kind of INI support in the future and more features as my
|knowledge of the language increases.
|Requires spell_routines.inc by: Rusty

#Event  outdoor	"#*#outdoors#*#"
#Event  outdoor	"You can not summon a mount here."

#include spell_routines.inc

Sub Main
/echo Power Leveler Bot by: Ted
/echo Enjoy

|Begin Editing Here.

/declare SpellDS	outer "Shield of Thorns"
/declare SpellSkin	outer "Skin like Nature"
/declare SpellRgn	outer "Chloroplast"
/declare SpellStr	outer "Storm Strength"
| ## Heal Spell to Use on Person Being Powerleveled ##
/declare Spellheal	outer  "Superior Healing"
| ## Heal Spell to Use on YOU ##
/declare SpellHme	outer  "Nature's Infusion"
| ## Use Mount? 1=Yes 0=No ##
/declare usemnt	int	outer 0
| ## Name of Your Summon Mount Item ##
/declare Mount	outer "Black Rope Bridle"

| ## % HP at Which to Heal Yourself ##
/declare Healme	int	outer 40
| ## % HP at Which to Heal Person You Are PL'ing ##
/declare HealAt	int	outer 55
| ## % Mana to Med at ##
/declare Minmana	int	outer 10
| ## % Mana to Med to ##
/declare gtgman	int	outer 75

|End Editing

/declare Client		outer ${Target}
/declare outdoor	outer TRUE
/declare dsvar	int	outer 0
/declare skinvar	int	outer 0
/declare rgnvar	int	outer 0
/declare strvar	int	outer 0

  :Main

  /target ${Client}
  /if (${Target.PctHPs}<${HealAt}) /call heal
  /if (${Me.PctHPs}<${Healme}) /call healme
  /if (${Me.PctMana}<20) /call medup
  /if (${usemnt}==1 && !${Me.Mount.ID} && ${outdoor}) /call cast ${Mount} item 4s
  /if (${Me.Buff[${SpellDS}].ID} && ${dsvar}==1) {
	/tell ${Client} Incoming DS
	/varset dsvar 0
	/delay 2s
	/target ${Client}
	/call cast ${SpellDS}
	}
  /if (!${Me.Buff[${SpellDS}].ID} && ${dsvar}==0) {
	/varset dsvar 1
	/delay 2s
	/target ${Me}
	/call cast ${SpellDS}
	}
  /if (${Me.Buff[${SpellSkin}].ID} && ${skinvar}==1) {
	/tell ${Client} Incoming Skin
	/varset skinvar 0
	/delay 2s
	/target ${Client}
	/call cast ${SpellSkin}
	}
  /if (!${Me.Buff[${SpellSkin}].ID} && ${skinvar}==0) {
	/varset skinvar 1
	/delay 2s
	/target ${Me}
	/call cast ${SpellSkin}
	}
  /if (${Me.Buff[${SpellRgn}].ID} && ${rgnvar}==1) {
	/tell ${Client} Incoming Regen
	/varset rgnvar 0
	/delay 2s
	/target ${Client}
	/call cast ${SpellRgn}
	}
  /if (!${Me.Buff[${SpellRgn}].ID} && ${rgnvar}==0) {
	/varset rgnvar 1
	/delay 2s
	/target ${Me}
	/call cast ${SpellRgn}
	}
  /if (${Me.Buff[${SpellStr}].ID} && ${strvar}==1) {
	/tell ${Client} Incoming Strength
	/varset strvar 0
	/delay 2s
	/target ${Client}
	/call cast ${SpellStr}
	}
  /if (!${Me.Buff[${SpellStr}].ID} && ${strvar}==0) {
	/varset strvar 1
	/delay 2s
	/target ${Me}
	/call cast ${SpellStr}
	}
  /doevents
  
  /goto :Main


Sub medup

/tell ${Client} LOM! hold up a few
:medloop
  /if ( ${Me.State.Equal[Stand]} && !${Me.Mount.ID}) /sit
  /if ( ${Me.PctMana}<${gtgman}) /goto :medloop
  /tell ${Client} Ready to Roll
  /stand
/return

Sub heal

/target ${Client}
/call cast ${Spellheal} gem7
/return

Sub healme

/if(${Me.PctHPs}<20) /call cast ${SpellHme} gem8
/target ${Client}
/if(${Me.PctHPs}<${Healme} && ${Target.PctHPs}>=${HealAt}) {
/target ${Me}
/call cast ${SpellHme}
} else /call heal
/return

Sub Event_outdoor
  /echo Indoor Zone No mounts
  /varset outdoor FALSE
/return