IF
    Detect([PC])
    Global("ToChpl1","GLOBAL",0)
THEN
    RESPONSE #100
        ClearAllActions()
        MoveViewObject(Myself,INSTANT)
        StartDialog("lhLRD90",Player1)
        SetGlobal("ToChpl1","GLOBAL",1)
END

IF
    Detect([PC])
    Global("ToChpl1","GLOBAL",1)
THEN
    RESPONSE #100
        ClearAllActions()
        MoveViewObject(Myself,INSTANT)
        SetGlobal("ToChpl1","GLOBAL",2)
        FadeToColor([20.0],0)
        ClearAllActions()
        TextScreen("SCENE01")
        Wait(2)
        ApplySpell(Player2,CLERIC_RESURRECTION)
        ApplySpell(Player3,CLERIC_RESURRECTION)
        ApplySpell(Player4,CLERIC_RESURRECTION)
        ApplySpell(Player5,CLERIC_RESURRECTION)
        ApplySpell(Player6,CLERIC_RESURRECTION)
        ApplySpell(Player1,GENIE_LIMITED_WISH_HEAL_ALL)
        ApplySpell(Player1,0)
        ApplySpell(Player2,0)
        ApplySpell(Player3,0)
        ApplySpell(Player4,0)
        ApplySpell(Player5,0)
        ApplySpell(Player6,0)
        Wait(1)
        ActionOverride(Player1,LeaveAreaLUAPanic("AR0512","",[328.329],8))
        ActionOverride(Player1,LeaveAreaLUA("AR0512","",[328.329],8))
        ActionOverride(Player2,LeaveAreaLUA("AR0512","",[222.414],10))
        ActionOverride(Player3,LeaveAreaLUA("AR0512","",[420.415],6))
        ActionOverride(Player4,LeaveAreaLUA("AR0512","",[569.228],4))
        ActionOverride(Player5,LeaveAreaLUA("AR0512","",[365.233],12))
        ActionOverride(Player6,LeaveAreaLUA("AR0512","",[616.87],0))
        Face(8)
        ActionOverride(Player1,Face(8))
        ActionOverride(Player2,Face(10))
        ActionOverride(Player3,Face(6))
        ActionOverride(Player4,Face(4))
        ActionOverride(Player5,Face(12))
        ActionOverride(Player6,Face(0))
        Wait(1)
        FadeFromColor([20.0],0)
        EndCutSceneMode()
END


