Uses spell_routines.inc by rusty
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
