(include "sci.sh")
(use "Main")
(use "Sounds")
(use "Obj")
(script 505)



(class sbar of Rgn
    (properties
        script 0
        number 0
        modNum -1
        noun 0
        timer 0
        keep 0
        initialized 0
        state 0
    )

    (method (init param1)
        (super:init(rest param1))
    )


    (method (doit param1)
        (super:doit(rest param1))
        (if (proc0_1(54) and not (self:script))
            (self:setScript(sWarningTimer))
        )
    )


    (method (newRoom param1)
        = keep proc999_5(param1 500 510 520 530)
        = initialized 0
        (super:newRoom(param1))
    )

)
(instance sWarningTimer of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (= seconds 100  )
            )
            (case 1
                ((send gTestMessager:say(1 0 0 1 self 501))  )
            )
            (case 2
                (= seconds 50  )
            )
            (case 3
                ((send gTestMessager:say(1 0 0 2 self 501))  )
            )
            (case 4
                (= seconds 50  )
            )
            (case 5
                ((send gTestMessager:say(1 0 0 3 self 501))  )
            )
            (case 6
                (= seconds 50  )
            )
            (case 7
                ((send gRoom:newRoom(550)) )
            )
        )
    )

)
