hasMagery = Skill('Magery') > 100
hasChivalry = Skill('Chivalry') > 40
hasHealing = Skill('Healing') > 90

if not hasMagery and not hasChivalry and not hasHealing:
    SysMessage('no skills')
    Stop()

if not InRange('friend', 10):
    SysMessage('out of range')
    Stop()

if Murderer ('friend') and InRegion ('Guarded','friend'):
    HeadMsg ('Murderer in guards!', 'friend')
elif Criminal ('friend') and InRegion ('Guarded','friend'):
    HeadMsg ('Criminal in guards!', 'friend')
elif TargetExists ('Beneficial') and InRange ('friend',10):
    if not Dead ('friend') :
        Target ('friend')
        Stop()
    elif Dead ('friend') and InRange ('friend', 2):
        Target ('friend')
        Stop()
elif Dead('friend'):
    if hasMagery:
        Cast('Resurrection', 'self')
        Stop()
    elif hasHealing and InRange('friend', 2) and FindType(0xe21, -1, 'backpack'):
        UseObject('found')
        WaitForTarget(2000)
        Target('friend')
        Stop()
elif Paralyzed('friend'):
    if hasMagery:
        Cast('Clumsy', 'friend')
        Stop()
    elif hasChivalry:
        Cast('Remove Curse', 'friend')
        Stop()
elif YellowHits('friend'):
    HeadMsg('Mortaled', 'friend')
    if hasChivalry:
        Cast('Remove Curse', 'friend')
        Stop()
elif Poisoned('friend'):
    if hasMagery:
        Cast('Cure', 'friend')
        Stop()
    elif hasChivalry and InRange('friend', 2):
        Cast('Cleanse By Fire', 'friend')
        Stop()
    elif hasHealing and InRange('friend', 2) and FindType(0xe21, -1, 'backpack'):
        UseObject('found')
        WaitForTarget(2000)
        Target('friend')
        Stop()