(include "sci.sh")
(use "Main")
(use "Class_255_0")
(use "SQRoom")
(use "Class_950_0")
(use "n958")
(use "Sound")
(use "Cycle")
(use "User")
(use "PicView")
(use "Obj")
(script 330)



(instance public rm330 of SQRoom
    (properties
        picture 330
        style 41
    )

    (method (init)
        Load(rsVIEW 330)
        (send gLongSong:
            number(60)
            vol(127)
            loop(-1)
            flags(1)
        )
        proc958_0(132 126 133)
        (theArea:init())
        (super:init())
        (pillar:init())
        proc0_14(10)
        (guard:init())
        (sub:setScript(subScript))
    )

)
(instance subScript of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                proc0_3()
                (User:canControl(0))
                (send gIconBar:disable(0))
                (sub:
                    setCycle(Fwd)
                    init()
                    setMotion(MoveTo 106 101)
                )
                (subTop:
                    init()
                    setMotion(MoveTo 103 103 self)
                )
            )
            (case 1
                (send gLongSong2:stop())
                (soundFX:play())
                = seconds 3
            )
            (case 2
                (soundFX:
                    number(133)
                    play()
                )
                (hatch:
                    init()
                    setCycle(End self)
                )
            )
            (case 3
                = cycles 10
            )
            (case 4
                (send gEgo:
                    init()
                    normal(0)
                    view(321)
                    x(120)
                    y(109)
                    loop(8)
                    cel(0)
                    cycleSpeed(0)
                    setPri(6)
                    illegalBits(0)
                    setCycle(End self)
                )
            )
            (case 5
                (send gEgo:
                    normal(1)
                    view(0)
                    posn(134 104)
                    illegalBits(0)
                    setPri(6)
                    illegalBits(8000)
                    setCycle(Walk)
                    setMotion(MoveTo 202 91)
                )
                = cycles 20
            )
            (case 6
                (send gLongSong:
                    playBed()
                    hold(1)
                )
                (zondra:
                    init()
                    setCycle(End self)
                )
            )
            (case 7
                (zondra:
                    view(331)
                    setLoop(2)
                    setCycle(Walk)
                    setPri(6)
                    posn(137 99)
                    setMotion(MoveTo 205 87 self)
                )
                (send gEgo:setMotion(MoveTo 335 96))
            )
            (case 8
                (zondra:setMotion(MoveTo 340 96))
                (guard:
                    view(331)
                    setLoop(1)
                    setCycle(Walk)
                    setMotion(MoveTo 345 96 self)
                )
                = cycles 1
            )
            (case 9
                = cycles 25
            )
            (case 10
                (send global2:newRoom(335))
            )
        )
    )

)
(instance sub of Actor
    (properties
        x 65514
        y 101
        description "submarine"
        sightAngle 180
        lookStr "This is the submarine which you cruised in aboard."
        yStep 1
        view 330
        priority 3
        signal 18448
        xStep 2
    )
)
(instance subTop of Actor
    (properties
        x 65511
        y 103
        description "submarine"
        sightAngle 180
        lookStr "This is the submarine which you cruised in aboard."
        yStep 1
        view 330
        loop 1
        cel 4
        priority 3
        signal 22544
        xStep 2
    )
)
(instance hatch of Prop
    (properties
        x 125
        y 104
        description "hatch"
        sightAngle 180
        lookStr "It's a nifty entry/exit device."
        view 330
        loop 2
        priority 5
        signal 18448
        cycleSpeed 1
    )
)
(instance guard of Actor
    (properties
        x 227
        y 103
        description "latex babe"
        sightAngle 180
        lookStr "Hmm. You wonder if she has a boyfriend."
        yStep 3
        view 331
        priority 6
        xStep 4
    )

    (method (doVerb param1)
        (switch (param1)
            (case 2
                Print("You'd better not. She looks like she knows how to use that gun.")
            )
            (case 4
                Print("Talking isn't getting you anywhere with her.")
            )
            (case 10
                Print("Use and lose it buddy!")
            )
            (default 
                (super:doVerb(param1))
            )
        )
    )

)
(instance zondra of Actor
    (properties
        x 114
        y 85
        description "latex babe"
        sightAngle 180
        lookStr "What a babe!"
        yStep 3
        view 321
        loop 9
        priority 7
        signal 16
        xStep 4
    )

    (method (doVerb param1)
        (switch (param1)
            (case 2
                Print("That isn't a good idea, she seems to hate you with a passion for some strange reason.")
            )
            (case 4
                Print("Your efforts at conversation are rewarded with a hateful glare.")
            )
            (default 
                (super:doVerb(param1))
            )
        )
    )

)
(instance soundFX of Sound
    (properties
        number rm330
    )
)
(instance theArea of Feature
    (properties
        x 156
        y 10
        nsBottom 200
        nsRight 320
        description "sea cave"
        sightAngle 180
        lookStr "Wow. It looks like they have quite a fortress here."
    )

    (method (doVerb param1)
        (switch (param1)
            (case 11
                Print("There is a faint odor of perfume mixed with the salty sea air.")
            )
            (default 
                (super:doVerb(param1))
            )
        )
    )

)
(instance pillar of Feature
    (properties
        x 292
        y 110
        nsTop 28
        nsLeft 275
        nsBottom 125
        nsRight 319
        description "support beam"
        sightAngle 180
        lookStr "One of the many massive support pillars in the fortress."
    )

    (method (doVerb param1)
        (super:doVerb(param1))
    )

)
