This code also auto checks your mana after you cast CH, if it is less then 60% it will check your HP. If your HP is less then 50% it will bitch at your group for not healing you, other wise it uses a modrod from inventory slot 5, if none there it gets another one ;p then tells your group to heal you
Code: Select all
| cch.mac
| cleric compleat heal chain macro
| written by Digitalxero
| Usage: /macro cch.mac <fast> <slow> <pre1> <pre2> <post1> <post2> <assist>
#chat guild
#Event slain "has been slain by"
#Event died "died."
Sub Main
/varset v1 $p0 |Fast Chain
/varset v2 $p1 |Slow Chain
/varset v3 $p2 |Caller 1
/varset v4 $p3 |Caller 2
/varset v5 $p4 |You Call 1
/varset v6 $p5 |You Call 2
/varset v7 $p7 |Tank Targeter
/varset v10 $v4 |Current Caller
/varset v11 $v5 |Current You call
/varset v12 $v1 |Current Pause
:chkevent
/doevents
/goto :chkevent
/return
Sub Event_slain
/if $arg(1,"$p0")=="$v3" {
/gu $v3 DOWN
/goto ordercheck
} else /if $arg(1,"$p0")=="$v4" {
/gu $v4 DOWN
/goto ordercheck
} else /if $arg(1,"$p0")=="$v5" {
/gu $v5 DOWN
/goto ordercheck
} else /if $arg(1,"$p0")=="$v6" {
/gu $v6 DOWN
/goto ordercheck
}
:ordercheck
/if $arg(1,"$p0")=="$v10" {
/varset v10 $v3
} else /if $arg(1,"$p0")=="$v11" {
/varset v11 $v6
}
/return
Sub Event_died
/if $arg(1,"$p0")=="$v3" {
/gu $v3 DOWN
/goto ordercheck
} else /if $arg(1,"$p0")=="$v4" {
/gu $v4 DOWN
/goto ordercheck
} else /if $arg(1,"$p0")=="$v5" {
/gu $v5 DOWN
/goto ordercheck
} else /if $arg(1,"$p0")=="$v6" {
/gu $v6 DOWN
/goto ordercheck
}
:ordercheck
/if $arg(1,"$p0")=="$v10" {
/varset v10 $v3
} else /if $arg(1,"$p0")=="$v11" {
/varset v11 $v6
}
/return
Sub Event_Chat
/varset v8 $p2 |Text String
/varset v9 $p1 |Text Sender
|Check the current /delay time
/if "$V9"~~"SLOW CHAIN" {
/varset v12 $v2
} else /if "$V9"~~"Slow chain" {
/varset v12 $v2
} else /if "$V9"~~"$v2" {
/varset v12 $v2
}
|See if You should Cast
/if $v9==$v10 {
/goto castcheck
}
:castcheck
/if "$v8"~~"GO" {
/call CCH
} else /if "$v8"~~"Go" {
/call CCH
} else /if "$v8"~~"Now" {
/call CCH
} else /if "$v8"~~"NOW" {
/call CCH
}
/return
Sub CCH
/cast "Complete Heal"
/gu >>> CH on %t <<< ($v12) [$v11 next]
/delay $v12
/gu >>> $v11 GO NOW on %t <<<
/delay 90
/goto checkmana
:checkmana
/press F1
/if $char(mana,pct) < "60" {
/goto modrod
} else {
/assist $v7
}
:modrod
/if $char(hp,pct) < "50" {
/g Someone Heal me So I can ModRod NOW!!!
/assist $v7
} else /if $item(inv,5,name) != "Rod of Mystical Trasnvergence" {
/itemtarget "Rod of Mystical Trasnvergence"
/face item
/mouseto item
/click left
/mouseto inv 5
/click left
/assist $v7
} else /if $item(inv,5,name) == "Rod of Mystical Trasnvergence" {
/click right
/delay 1
/click right
/delay 1
/click right
/g Heal me I just Tried to Kill myself with a ModRod!
/itemtarget "Rod of Mystical Trasnvergence"
/face item
/mouseto item
/click left
/mouseto inv 5
/click left
/assist $v7
}
/return
-- Complete and Tried.