i tried this
Code: Select all
| Feedme.mac
| /macro twitch.mac
| Thank you to the people who wrote these macros some have parts of more then one in them
#turbo
#include spellcast
#chat tell
#define MANA_SIT 30
#define MANA_CAST 90
Sub Main
/echo Feedme.mac has started
/echo A tell "feed me" starts feeding, a tell"FM" ends feeding
:MainLoop
/doevents
/goto :MainLoop
/return
Sub Event_Chat(ChatType,Sender,ChatText)
/if "@ChatText"~~"feed me" {
/pause 2s
/target "@Sender"
/sit off
/delay 1s
:CastLoop
/call Cast "sedulous subversion"
/delay 13s
/call Cast "Covetous Subversion"
/delay 13s
/if (n $char(mana,pct)<MANA_SIT && $char(state)=="STAND" && $char(casting)=="FALSE") /sit
/if ($char(state)=="SIT" && n $char(mana,pct)<MANA_CAST) /goto :MainLoop
/goto :CastLoop
}
/if "@ChatText"~~"FM" {
/goto :MainLoop }
/if ($char(state)=="SIT" && n $char(mana,pct)<MANA_CAST) /goto :MainLoop
/return
Code: Select all
| Call this macro after defining targetted skill levels and appropriate spells
|
| Will iterate through all skills and raise them to requested levels in order
| The macro will auto end if the character moves.
|
| IMPORTANT NOTE: If you're casting a summoning spell and an item with "Summoned:"
| exists on your cursor it will be DESTROYED.
#define MANA_SIT 30 |% mana to sit and regain mana
#define MANA_CAST 90 |% mana to stand and resume casting
sub Main
/declare loc_x global |x loc
/declare loc_y global |y loc
|record loc of character
/varset loc_x $char(x)
/varset loc_y $char(y)
/Call "Sedulous Subversion"
/Call "Covetous Subversion"
|===================================================================================
sub RaiseSkill(skill,level,spell)
|general notification
/echo - Raising @skill to @level with '@spell'
/echo Macro will AUTO STOP if movement is detected.
|return if spell not in book
/if $char(book,"@spell")==NULL {
/echo Spell '@spell' not in spellbook.
/return
}
:loop
|insert short semi-random delay
/delay $calc(5+$rand(5))
|exit if character movement detected
/if (n @loc_x!=$char(x) || n @loc_y!=$char(y)) {
/echo Movement detected! Ending macro.
/endmacro
}
|if casting a summoning spell and a summoned item on cursor, destroy it
/if ("@spell"~~"Summon" && "$cursor(name)"~~"Summoned:") /destroy
|return if this skill at desired level
/if n $char(skill,"@skill")>=@level {
/echo @skill at $char(skill,"@skill")
/return
}
|insure spell memorized
/if n $char(gem,"@spell")==0 {
/memspell 8 "@spell"
/delay 10s
}
|sit if not casting/medding and mana dropped to MANA_SIT value
/if (n $char(mana,pct)<MANA_SIT && $char(state)=="STAND" && $char(casting)=="FALSE") /sit
|if medding and mana not yet up to MANA_CAST, continue to med
/if ($char(state)=="SIT" && n $char(mana,pct)<MANA_CAST) /goto :loop
|cast if the spell has refreshed
/if n $char(gem,"@spell")>0 {
/if $char(state)=="SIT" /stand
/if n $target(id)!=$char(id) /target "@Sender"
/cast "@spell"
}
|loop
/goto :loop
/return
tehnec
