IF
    Detect([PC])
THEN
    RESPONSE #100
        ForceSpell(Myself,SWOOSH_GONE)
        DisplayStringHead(Myself,54063) // GUARDS!!  GUARDS!!
        CreateCreatureObjectDoor("lhGRDZ1",Player1,2,0,0)
        CreateCreatureObjectDoor("lhGRDZ1",Player1,2,0,0)
        CreateCreatureObjectDoor("lhGRDZ1",Player1,2,0,0)
        CreateCreatureObjectDoor("lhGRDZ1",Player1,2,0,0)
        CreateCreatureObjectDoor("lhGRDZ1",Player1,2,0,0)
        CreateCreatureObjectDoor("lhGRDZ1",Player1,2,0,0)
        CreateCreatureObjectDoor("lhCLRZ",Player1,2,0,0)
END

IF
    Global("Noble","AR1000",0)
THEN
    RESPONSE #100
        PlaySound("lhMIS12a")
        MoveToPoint([2510.374])
        SetGlobal("Noble","AR1000",1)
END

IF
    Global("Noble","AR1000",1)
THEN
    RESPONSE #100
        PlaySound("lhMIS12b")
        MoveToPoint([3062.1053])
        SetGlobal("Noble","AR1000",2)
END

IF
    Global("Noble","AR1000",2)
THEN
    RESPONSE #100
        PlaySound("lhMIS12a")
        MoveToPoint([2348.1571])
        SetGlobal("Noble","AR1000",3)
END

IF
    Global("Noble","AR1000",3)
THEN
    RESPONSE #100
        PlaySound("lhMIS12b")
        MoveToPoint([1956.1265])
        SetGlobal("Noble","AR1000",4)
END

IF
    Global("Noble","AR1000",4)
THEN
    RESPONSE #100
        PlaySound("lhMIS12a")
        MoveToPoint([2346.1002])
        SetGlobal("Noble","AR1000",5)
END

IF
    Global("Noble","AR1000",5)
THEN
    RESPONSE #100
        PlaySound("lhMIS12b")
        MoveToPoint([3112.1570])
        SetGlobal("Noble","AR1000",6)
END

IF
    Global("Noble","AR1000",6)
THEN
    RESPONSE #100
        PlaySound("lhMIS12a")
        MoveToPoint([3574.1267])
        SetGlobal("Noble","AR1000",0)
END


