IF
    Global("Jester1","AR0087",0)
THEN
    RESPONSE #100
        SetGlobal("Jester1","AR0087",1)
        Wait(5)
        ForceSpellPoint([508.398],MUSHROOM_FIRE)
        CreateCreatureImpassable("lhJST1",[508.398],6)
END

IF
    Global("Jester1","AR0087",2)
    CombatCounter(0)
THEN
    RESPONSE #100
        Wait(5)
        CreateCreatureObjectDoor("lhEMI1",Player1,0,0,0)
        SetGlobal("Jester1","AR0087",3)
END

IF
    Global("Jester1","AR0087",4)
THEN
    RESPONSE #100
        Wait(3)
        ClearAllActions()
        StartCutSceneMode()
        StartCutScene("lh0087a")
END


