Scriptname AAAErscheinungsscript extends ObjectReference  

ObjectReference Property LichtHorror Auto
ObjectReference Property XMarker Auto
ObjectReference Property Rock1 Auto
ObjectReference Property Rock2 Auto
Sound Property HSound Auto
Quest Property Silber Auto


Event OnDeath(Actor killer)
        HSound.Play(self)
        LichtHorror.Enable(True)

        Rock1.Enable()
        Rock2.Enable()
Utility.Wait(6)
        NewProperty.Moveto(XMarker)
        Silber.SetObjectiveDisplayed(100)
        Silber.SetStage(100)
        Silber.SetObjectiveCompleted(0)
        Silber.SetObjectiveCompleted(60)
        Silber.SetObjectiveCompleted(90)

Utility.Wait(3)

        Debug.MessageBox("成功了！ 混乱之石已经被破坏，它已经不能再控制人。如今矿井已经被掩埋......它来自哪里，为什么只在矿井出现，这可能会成为一个永远的谜。")
        NewProperty.Additem(Seelenstein)

EndEvent
Actor Property NewProperty  Auto  


SoulGem Property Seelenstein  Auto  
