(include "sci.sh")
(use "Main")
(use "Sound")
(use "Game")
(script 601)



(instance public regDwarfHouse of Rgn
    (properties)

    (method (init)
        (if (initialized)
            return 
        )
        (super:init())
        Load(rsVIEW 290)
        Load(rsSOUND 62)
        = global189 (= keep 1)
        (theSound:init())
    )


    (method (dispose)
        (if (not keep)
            = global189 0
            (theSound:keep(0))
            (send gSounds:eachElementDo(172))
            (super:dispose())
        )
    )


    (method (notify param1)
        (if (param1)
            (theSound:play())
        )(else
            (theSound:dispose())
        )
    )

)
(instance theSound of Sound
    (properties
        number 62
        loop -1
        keep 1
    )
)
