(include "sci.sh")
(use "Main")
(use "rmnScript")
(use "SQRoom")
(use "ForwardCounter")
(use "Sound")
(use "Cycle")
(use "PicView")
(script 555)



(instance public rm555 of SQRoom
    (properties
        picture 555
    )

    (method (init)
        (super:init())
        (holo:init())
        (self:setScript(realyStupidScript))
    )

)
(instance realyStupidScript of rmnScript
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                proc0_2()
                (holo:setCycle(End))
                = cycles 1
            )
            (case 1
                (hair:
                    init()
                    setCycle(ForwardCounter 40)
                )
                = cycles 2
            )
            (case 2
                (aSound:
                    init()
                    number(813)
                    loop(1)
                    play()
                )
                (self:save1(proc0_12("\"This is my mother and your wife. Her name was Beatrice, Beatrice Wankmeister. She was quite beautiful, wasn't she.\"" 67 5 20 28 global150 29 gColor 30 1 70 125)))
                = seconds 10
            )
            (case 4
                (self:save1(proc0_12("\"What do you mean, WAS quite beautiful'? What are you saying.\"" 67 5 20 28 global140 29 gColor 30 1 70 125)))
                = seconds 10
            )
            (case 6
                (self:save1(proc0_12("\"I'm so sorry! I shouldn't have said that! Please, I can't tell you any more.\"" 67 5 20 28 global150 29 gColor 30 1 70 125)))
                = seconds 10
            )
            (case 7
                (send global2:newRoom(556))
            )
            (default 
                (self:restore())
                = cycles 1
            )
        )
    )

)
(instance hair of Prop
    (properties
        x 176
        y 32
        description "holo of Rogers future wife."
        sightAngle 180
        lookStr "Her golden hair blows in the breeze, and you wonder how you could get so lucky."
        view 557
        loop 1
        priority 7
        signal 16400
    )
)
(instance holo of Prop
    (properties
        x 167
        y 120
        description "Holo of your future wife."
        sightAngle 180
        lookStr "You gaze at the beautiful woman in the holo and look forward to the day that you finally meet her."
        view 557
        priority 6
        signal 16400
    )
)
(instance aSound of Sound
    (properties
        number 813
    )
)
