WM Scripts

if !matchre("%low.weapon", "%ranged") then gosub summoning
else gosub wield $weapon.%low.weapon

summoning:
eval sumweapon replace("%low.weapon", "_", " ")
if "%low.weapon" = "Light_Thrown" then var sumweapon Small Blunt
if "%low.weapon" = "Heavy_Thrown" then var sumweapon Twohanded Blunt
if matchre("$righthand|$lefthand", "scimitar|broadsword|marauder blade|mallet|hara|maul|quaterstaff|lance") then goto shape
else goto summon

shape:
if matchre("$summon.%low.weapon", "$righthand") then return
send shape weapon to %sumweapon
pause 0.5
pause 0.5
return

summon:
send summon weapon %sumweapon
pause 0.5
pause 0.5
send push $summon.%low.weapon
pause 0.5
pause 0.5
send push $summon.%low.weapon
pause 0.5
pause 0.5
return

put #var summon.Small_Edged scimitar
put #var summon.Large_Edged broadsword
put #var summon.Twohanded_Edged marauder blade
put #var summon.Small_Blunt mallet
put #var summon.Large_Blunt hara
put #var summon.Twohanded_Blunt maul
put #var summon.Staves quaterstaff
put #var summon.Polearms lance
put #var summon.Light_Thrown mallet
put #var summon.Heavy_Thrown maul

put #var buffspells AegisOfGranite|SureFooting|SwirlingWinds|TailWind|YntrelSechra|MantleofFlame
put #var buffabbrev AEG|SUF|SW|TW|YS|MOF
put #var ritualspells AEG|MOF
buffcheck:
eval buffcount count("$buffspells", "|")
counter set 0
buffcheck_1:
if %c > %buffcount then return
if $SpellTimer.$buffspells < 2 then gosub BUFF
counter add 1
goto buffcheck_1

BUFF:
gosub PREPARE $buffabbrev(%c) $buffabbrev(%c).mana
if matchre("$buffabbrev(%c)", "$ritualspells") then gosub staff
gosub charge my $camb1 $buffabbrev(%c).cambmana
gosub invoke my $camb1
gosub SPELL_CAST
return

STAFF:
gosub HOLD Staff
send invoke staff
pause 0.5
pause 0.5
gosub STOW staff
return

discern:
action totalmana $1 when for a total of (\d+) streams
eval discerncount count ("$buffabbrev", "|"
counter set 0
discern_1:
if %c > %discerncount then goto exit
send discern $buffabbrev(%c)
pause 0.5
pause 0.5
if matchre("$buffabbrev(%c)", "$ritualspells") then evalmath totalmana (%totalmana * .13)
else evalmath totalmana (%totalmana * .9)
evalmath $buffabbrev(%c).mana (%totalmana / 2)
var $buffabbrev(%c).cambmana $buffabrev(%c).mana
counter add 1
goto discern_1