(include "sci.sh")
(use "Main")
(use "SQRoom")
(use "Class_950_0")
(use "Cycle")
(use "PicView")
(script 298)


(local
    local0
    local1

)
(instance public rm298 of SQRoom
    (properties
        picture 298
    )

    (method (init)
        (var temp0[50])
        = global34 0
        proc0_3()
        Load(rsVIEW 298)
        Load(rsVIEW 299)
        (self:setRegions(703))
        (super:init())
        (eyes:init())
        (hair:
            init()
            setCycle(Fwd)
        )
        (bird:init())
        (Roger:init())
        (nest:init())
        (theView:init())
    )

)
(instance hair of Prop
    (properties
        x 174
        y 61
        description "your hair"
        lookStr "Your hair is the last thing on your mind right now (even though it is on top of your head)!"
        view 298
        priority 6
        signal 16
    )
)
(instance eyes of Prop
    (properties
        x 198
        y 83
        view 298
        loop 1
        priority 5
        signal 16
    )

    (method (init param1)
        = local1 Random(10 20)
        (super:init(rest param1))
        (self:doit())
    )


    (method (doit)
        (super:doit())
        (if (== --local1 0)
            = local1 Random(10 20)
            (self:setCel(Random(0 2)))
        )
    )

)
(instance nest of View
    (properties)

    (method (init param1)
        = local0 0
        (super:init(rest param1))
        (self:doit())
    )


    (method (doit)
        (super:doit())
        (if ((<= x 130) or (<= y 252))
            (self:
                x(+ x {--UNKNOWN-PROP-NAME--})
                y(+ y yStep)
            )
        )(else
            (if (>= ++local0 30)
                (send global2:newRoom(297))
            )
        )
    )

)
(instance bird of Feature
    (properties
        nsBottom 189
        nsRight 319
        description "bird"
        onMeCheck rm298
        lookStr "Wow! This bird could use some skin lotion on those talons."
    )
)
(instance Roger of Feature
    (properties
        nsBottom 189
        nsRight 319
        description "roger"
        onMeCheck 16
        lookStr "You look pretty pathetic hanging under the pterodactyl."
    )
)
(instance theView of Feature
    (properties
        x 159
        z 65442
        nsBottom 189
        nsRight 319
        description "view"
        sightAngle 90
        lookStr "Wow what an incredible view!"
    )
)
