IF
	HP(Myself,1)
THEN
	RESPONSE #100
		CreateVisualEffectObject("SPUNHOLY",Myself)
		Kill(Myself)
END

IF
        !AreaCheck("RU6800")
        !AreaCheck("RU6801")
THEN
	RESPONSE #100
		CreateVisualEffectObject("SPUNHOLY",Myself)
                DisplayStringHead(Myself,@143)
		DestroySelf()
END

IF
        NumTimesTalkedTo(1)
        Global("RUMASTCRSTARTCOMBAT","LOCALS",0)
        OR(2)
        AreaCheck("RU6800")
        AreaCheck("RU6801")
THEN
	RESPONSE #100
                SetGlobal("RUMASTCRSTARTCOMBAT","LOCALS",1)
                DisplayStringHead(Myself,@123)
                Enemy()
                Continue()
END

IF
	InParty(Myself)
THEN
	RESPONSE #100
                DisplayStringHead(Myself,@126)
		CreateVisualEffectObject("SPUNHOLY",Myself)
                DestroyItem("rumashel")
                DestroyItem("rumaspla")
                DestroyItem("BRAC21")
                DestroyItem("AMUL20")
                DestroyItem("BELT03")
                DestroyItem("BOOT05")
                DestroyItem("RUMASTSW")
                DestroyItem("CLCK03")
                LeaveParty()
                ChangeAIScript("",DEFAULT)
		DestroySelf()
END

IF
        HaveSpell(CLERIC_HEAL)
        HPLT(Myself, 60)
	!HP(Myself,1)
        !Dead("rumastcr")
        Global("ArcheTeleportEscape","LOCALS",0)
THEN
	RESPONSE #50
                SetGlobal("ArcheTeleportEscape","LOCALS",1)
                ReallyForceSpellPointRES("SPWI402",[664.394])
                Spell(Myself,CLERIC_HEAL)
	RESPONSE #50
                SetGlobal("ArcheTeleportEscape","LOCALS",2)
                ReallyForceSpellPointRES("SPWI402",[245.397])
                Spell(Myself,CLERIC_HEAL)
END

IF
        HaveSpell(CLERIC_HEAL)
        HPLT(Myself, 60)
	!HP(Myself,1)
        !Dead("rumastcr")
        Global("ArcheTeleportEscape","LOCALS",1)
THEN
	RESPONSE #50
                SetGlobal("ArcheTeleportEscape","LOCALS",0)
                ReallyForceSpellPointRES("SPWI402",[415.247])
                Spell(Myself,CLERIC_HEAL)
	RESPONSE #50
                SetGlobal("ArcheTeleportEscape","LOCALS",2)
                ReallyForceSpellPointRES("SPWI402",[245.397])
                Spell(Myself,CLERIC_HEAL)
END

IF
        HaveSpell(CLERIC_HEAL)
        HPLT(Myself, 60)
	!HP(Myself,1)
        !Dead("rumastcr")
        Global("ArcheTeleportEscape","LOCALS",2)
THEN
	RESPONSE #50
                SetGlobal("ArcheTeleportEscape","LOCALS",0)
                ReallyForceSpellPointRES("SPWI402",[415.247])
                Spell(Myself,CLERIC_HEAL)
	RESPONSE #50
                SetGlobal("ArcheTeleportEscape","LOCALS",1)
                ReallyForceSpellPointRES("SPWI402",[664.394])
                Spell(Myself,CLERIC_HEAL)
END

IF
        HaveSpell(CLERIC_CURE_CRITICAL_WOUNDS)
        HPLT(Myself, 150)
	!HP(Myself,1)
        !Dead("rumastcr")
        Global("ArcheTeleportEscape","LOCALS",0)
THEN
	RESPONSE #50
                SetGlobal("ArcheTeleportEscape","LOCALS",1)
                ReallyForceSpellPointRES("SPWI402",[664.394])
                Spell(Myself,CLERIC_CURE_CRITICAL_WOUNDS)
	RESPONSE #50
                SetGlobal("ArcheTeleportEscape","LOCALS",2)
                ReallyForceSpellPointRES("SPWI402",[245.397])
                Spell(Myself,CLERIC_CURE_CRITICAL_WOUNDS)
END

IF
        HaveSpell(CLERIC_CURE_CRITICAL_WOUNDS)
        HPLT(Myself, 150)
	!HP(Myself,1)
        !Dead("rumastcr")
        Global("ArcheTeleportEscape","LOCALS",1)
THEN
	RESPONSE #50
                SetGlobal("ArcheTeleportEscape","LOCALS",0)
                ReallyForceSpellPointRES("SPWI402",[415.247])
                Spell(Myself,CLERIC_CURE_CRITICAL_WOUNDS)
	RESPONSE #50
                SetGlobal("ArcheTeleportEscape","LOCALS",2)
                ReallyForceSpellPointRES("SPWI402",[245.397])
                Spell(Myself,CLERIC_CURE_CRITICAL_WOUNDS)
END

IF
        HaveSpell(CLERIC_CURE_CRITICAL_WOUNDS)
        HPLT(Myself, 150)
	!HP(Myself,1)
        !Dead("rumastcr")
        Global("ArcheTeleportEscape","LOCALS",2)
THEN
	RESPONSE #50
                SetGlobal("ArcheTeleportEscape","LOCALS",0)
                ReallyForceSpellPointRES("SPWI402",[415.247])
                Spell(Myself,CLERIC_CURE_CRITICAL_WOUNDS)
	RESPONSE #50
                SetGlobal("ArcheTeleportEscape","LOCALS",1)
                ReallyForceSpellPointRES("SPWI402",[664.394])
                Spell(Myself,CLERIC_CURE_CRITICAL_WOUNDS)
END

IF
        HaveSpell(CLERIC_CURE_SERIOUS_WOUNDS)
        HPLT(Myself, 300)
	!HP(Myself,1)
        !Dead("rumastcr")
        Global("ArcheTeleportEscape","LOCALS",0)
THEN
	RESPONSE #50
                SetGlobal("ArcheTeleportEscape","LOCALS",1)
                ReallyForceSpellPointRES("SPWI402",[664.394])
                Spell(Myself,CLERIC_CURE_SERIOUS_WOUNDS)
	RESPONSE #50
                SetGlobal("ArcheTeleportEscape","LOCALS",2)
                ReallyForceSpellPointRES("SPWI402",[245.397])
                Spell(Myself,CLERIC_CURE_SERIOUS_WOUNDS)
END

IF
        HaveSpell(CLERIC_CURE_SERIOUS_WOUNDS)
        HPLT(Myself, 300)
	!HP(Myself,1)
        !Dead("rumastcr")
        Global("ArcheTeleportEscape","LOCALS",1)
THEN
	RESPONSE #50
                SetGlobal("ArcheTeleportEscape","LOCALS",0)
                ReallyForceSpellPointRES("SPWI402",[415.247])
                Spell(Myself,CLERIC_CURE_SERIOUS_WOUNDS)
	RESPONSE #50
                SetGlobal("ArcheTeleportEscape","LOCALS",2)
                ReallyForceSpellPointRES("SPWI402",[245.397])
                Spell(Myself,CLERIC_CURE_SERIOUS_WOUNDS)
END

IF
        HaveSpell(CLERIC_CURE_SERIOUS_WOUNDS)
        HPLT(Myself, 300)
	!HP(Myself,1)
        !Dead("rumastcr")
        Global("ArcheTeleportEscape","LOCALS",2)
THEN
	RESPONSE #50
                SetGlobal("ArcheTeleportEscape","LOCALS",0)
                ReallyForceSpellPointRES("SPWI402",[415.247])
                Spell(Myself,CLERIC_CURE_SERIOUS_WOUNDS)
	RESPONSE #50
                SetGlobal("ArcheTeleportEscape","LOCALS",1)
                ReallyForceSpellPointRES("SPWI402",[664.394])
                Spell(Myself,CLERIC_CURE_SERIOUS_WOUNDS)
END

IF
        HaveSpell(CLERIC_CURE_MEDIUM_WOUNDS)
        HPLT(Myself, 400)
	!HP(Myself,1)
        !Dead("rumastcr")
        Global("ArcheTeleportEscape","LOCALS",0)
THEN
	RESPONSE #50
                SetGlobal("ArcheTeleportEscape","LOCALS",1)
                ReallyForceSpellPointRES("SPWI402",[664.394])
                Spell(Myself,CLERIC_CURE_MEDIUM_WOUNDS)
	RESPONSE #50
                SetGlobal("ArcheTeleportEscape","LOCALS",2)
                ReallyForceSpellPointRES("SPWI402",[245.397])
                Spell(Myself,CLERIC_CURE_MEDIUM_WOUNDS)
END

IF
        HaveSpell(CLERIC_CURE_MEDIUM_WOUNDS)
        HPLT(Myself, 400)
	!HP(Myself,1)
        !Dead("rumastcr")
        Global("ArcheTeleportEscape","LOCALS",1)
THEN
	RESPONSE #50
                SetGlobal("ArcheTeleportEscape","LOCALS",0)
                ReallyForceSpellPointRES("SPWI402",[415.247])
                Spell(Myself,CLERIC_CURE_MEDIUM_WOUNDS)
	RESPONSE #50
                SetGlobal("ArcheTeleportEscape","LOCALS",2)
                ReallyForceSpellPointRES("SPWI402",[245.397])
                Spell(Myself,CLERIC_CURE_MEDIUM_WOUNDS)
END

IF
        HaveSpell(CLERIC_CURE_MEDIUM_WOUNDS)
        HPLT(Myself, 400)
	!HP(Myself,1)
        !Dead("rumastcr")
        Global("ArcheTeleportEscape","LOCALS",2)
THEN
	RESPONSE #50
                SetGlobal("ArcheTeleportEscape","LOCALS",0)
                ReallyForceSpellPointRES("SPWI402",[415.247])
                Spell(Myself,CLERIC_CURE_MEDIUM_WOUNDS)
	RESPONSE #50
                SetGlobal("ArcheTeleportEscape","LOCALS",1)
                ReallyForceSpellPointRES("SPWI402",[664.394])
                Spell(Myself,CLERIC_CURE_MEDIUM_WOUNDS)
END

IF
        !GlobalTimerNotExpired("BLACKHOLE","LOCALS")
        See(NearestEnemyOf(Myself))
        !InMyGroup(LastSeenBy(Myself))
THEN
	RESPONSE #100
                SetGlobalTimer("BLACKHOLE","LOCALS",24)
                CreateVisualEffectObject("SPFLSRIN",Myself)
                DisplayStringHead(Myself,@124)
                ForceSpellRES("rumblach",LastSeenBy(Myself))
END

IF
        See(NearestEnemyOf(Myself))
        !HasItem("rumplans",Myself)
THEN
	RESPONSE #100
                CreateVisualEffectObject("SPFLSRIN",Myself)
                DisplayStringHead(Myself,@124)
                ForceSpellRES("rumplans",Myself)
END

IF
        !GlobalTimerNotExpired("WHIRLWIND","LOCALS")
	See(NearestEnemyOf(Myself))
THEN
	RESPONSE #100
                SetGlobalTimer("WHIRLWIND","LOCALS",6)
                ReallyForceSpellRES("SPCL901",Myself)
                Continue()
END

IF
        HasItem("rumplans",Myself)
	See(NearestEnemyOf(Myself))
	!Range(LastSeenBy(Myself),4)
        !InMyGroup(LastSeenBy(Myself))
THEN
	RESPONSE #100
		ReallyForceSpellRES("rumwalks",LastSeenBy(Myself))
                SmallWait(10)
                ReallyForceSpellRES("rumsonic",NearestEnemyOf(Myself))
                ReallyForceSpellRES("rumplanw",NearestEnemyOf(Myself))
		ScreenShake([20.20],2)
                ReallyForceSpellRES("SPCL901",Myself)
		AttackReevaluate(NearestEnemyOf(Myself),2)

END

IF
        HasItem("rumplans",Myself)
	See(NearestEnemyOf(Myself))
	Range(NearestEnemyOf(Myself),6)
THEN
	RESPONSE #100
                ReallyForceSpellRES("SPCL901",Myself)
		AttackReevaluate(NearestEnemyOf(Myself),6)
END

IF
        !InActiveArea(Myself)
        !See(NearestEnemyOf(Myself))
THEN
	RESPONSE #100
                DisplayStringHead(Myself,@141)
                DestroyItem("rumplans")
		CreateVisualEffectObject("SPUNHOLY",Myself)
                DestroySelf()

END

IF
        Global("RUMASTCRSTARTCOMBAT","LOCALS",1)
        !See(NearestEnemyOf(Myself))
        Global("ArcheTeleportEscape","LOCALS",0)
THEN
	RESPONSE #50
                SetGlobal("ArcheTeleportEscape","LOCALS",1)
                ReallyForceSpellPointRES("SPWI402",[664.394])
	RESPONSE #50
                SetGlobal("ArcheTeleportEscape","LOCALS",2)
                ReallyForceSpellPointRES("SPWI402",[245.397])
END

IF
        Global("RUMASTCRSTARTCOMBAT","LOCALS",1)
        !See(NearestEnemyOf(Myself))
        Global("ArcheTeleportEscape","LOCALS",1)
THEN
	RESPONSE #50
                SetGlobal("ArcheTeleportEscape","LOCALS",0)
                ReallyForceSpellPointRES("SPWI402",[415.247])
	RESPONSE #50
                SetGlobal("ArcheTeleportEscape","LOCALS",2)
                ReallyForceSpellPointRES("SPWI402",[245.397])
END

IF
        Global("RUMASTCRSTARTCOMBAT","LOCALS",1)
        !See(NearestEnemyOf(Myself))
        Global("ArcheTeleportEscape","LOCALS",2)
THEN
	RESPONSE #50
                SetGlobal("ArcheTeleportEscape","LOCALS",0)
                ReallyForceSpellPointRES("SPWI402",[415.247])
	RESPONSE #50
                SetGlobal("ArcheTeleportEscape","LOCALS",1)
                ReallyForceSpellPointRES("SPWI402",[664.394])
END