(include "sci.sh")
(use "Main")
(use "SQRoom")
(use "MCyc")
(use "Class_950_0")
(use "n958")
(use "Cycle")
(use "User")
(use "PicView")
(use "Obj")
(script 329)


(local
    local0[21] = (0 0 164 122 0 1 166 120 0 2 168 118 0 0 170 116 0 1 172 114 32768 )
    local21[21] = (1 0 161 125 1 1 163 123 1 2 165 121 1 3 167 119 1 4 169 117 32768 )

)
(instance public rm329 of SQRoom
    (properties)

    (method (init)
        Load(rsPIC 803)
        UnLoad(129 803)
        (rm329:picture(329))
        Load(rsVIEW 330)
        proc958_0(132 127 128)
        (theArea:init())
        (send gLongSong:fade(0 2 1 1))
        (send gLongSong2:
            number(127)
            vol(1)
            loop(-1)
            play()
            fade(127 1 1 0)
        )
        (super:init())
        proc0_14(10)
        (self:setScript(rmScript))
    )

)
(instance rmScript of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (User:canControl(0))
                (send gIconBar:disable(0 3 2 4 5))
                (sub:
                    init()
                    setCycle(Fwd)
                    setMotion(MoveTo 164 122 self)
                )
            )
            (case 1
                (sub:setCycle(MCyc @local0))
                (send gLongSong2:
                    number(128)
                    vol(127)
                    hold(1)
                    play()
                )
                (subTop:
                    init()
                    setCycle(MCyc @local21 self)
                )
            )
            (case 2
                (sub:
                    setCycle(Fwd)
                    setMotion(MoveTo 345 114)
                )
                (subTop:setMotion(MoveTo 345 117 self))
            )
            (case 3
                = cycles 2
            )
            (case 4
                (if (gTheNewDialog)
                    (send gTheNewDialog:dispose())
                )
                (send global2:drawPic(803 41))
                (send global2:newRoom(330))
            )
        )
    )

)
(instance sub of Actor
    (properties
        x 11
        y 126
        description "submarine"
        lookStr "It's the sub you're in."
        yStep 1
        view 330
        priority 2
        signal 18432
        xStep 2
    )
)
(instance subTop of Actor
    (properties
        x 65511
        y 117
        description "Sub"
        lookStr "It's the sub you're in."
        yStep 1
        view 330
        loop 1
        cel 4
        priority 10
        signal 22544
        xStep 2
    )
)
(instance theArea of Feature
    (properties
        x 156
        y 88
        nsBottom 200
        nsRight 320
        description "sea cave."
        sightAngle 180
        lookStr "This is a sea cave."
    )

    (method (doVerb param1)
        (switch (param1)
            (case 2
            )
            (default 
                (super:doVerb(param1))
            )
        )
    )

)
