(include "sci.sh")
(use "Main")
(use "Class_255_0")
(use "mall")
(use "rmnScript")
(use "SQRoom")
(use "Osc")
(use "PolyPath")
(use "Polygon")
(use "Class_950_0")
(use "ForwardCounter")
(use "n958")
(use "StopWalk")
(use "Sound")
(use "Cycle")
(use "User")
(use "PicView")
(use "Obj")
(script 371)


(local
    local0 = 1
    local1
    local2
    local3
    local4[50]

)
(procedure (localproc_21fe)
    (var temp0)
    return 
        (if (< (= temp0 Random(0 10)) 4)
            0
        )(else
            (if (< temp0 8)
                1
            )(else
                (if (== (send global2:script) rogerDance)
                    Random(0 1)
                )(else
                    temp0
                )
            )
        )
)


(procedure (localproc_223e)
    (switch (Random(0 7))
        (case 0
            "\"Trying to weasel out of paying, huh?\""
        )
        (case 1
            "\"Cut the chit chat and hand over the cash.\""
        )
        (case 2
            "\"It really is nice weather, but then this is an artificial computer controlled climate. Now how about some cash?\""
        )
        (case 3
            "\"I think you're cute too, but looks won't pay for those designer duds.\""
        )
        (case 4
            "\"We don't haggle over prices here hon, either pay up or put the dress back!\""
        )
        (case 5
            "\"I don't want to have to throw you out, but if you don't hand over the cash, I'll have no choice.\""
        )
        (case 6
            "\"Stop wasting my time, you sickos are all the same, now pay up!"
        )
        (case 7
            "\"Listen, you twerp, the dress is 60 buckazoids, now hand over the cash or the dress!\""
        )
    )
)


(class Mannequin of View
    (properties
        x 0
        y 0
        z 0
        heading 0
        noun 0
        nsTop 0
        nsLeft 0
        nsBottom 0
        nsRight 0
        description 0
        sightAngle 26505
        actions 26505
        onMeCheck 26505
        lookStr 0
        yStep 2
        view 0
        loop 0
        cel 0
        priority 0
        underBits 0
        signal 257
        lsTop 0
        lsLeft 0
        lsBottom 0
        lsRight 0
        brTop 0
        brLeft 0
        brBottom 0
        brRight 0
        palette 0
        direct 0
        lastcel 0
        dummyTime 0
        detail 0
    )

    (method (dance)
        (if (dummyTime)
            --dummyTime
        )(else
            = dummyTime Random(0 4)
            = direct localproc_21fe()
        )
        (if (== cel lastcel)
            = direct 0
        )(else
            (if (not cel)
                = direct 1
            )
        )
        (if (>= (send global1:detailLevel) detail)
            (switch (direct)
                (case 0
                    (self:setCel((- cel 1)))
                )
                (case 1
                    (self:setCel((+ cel 1)))
                )
                (default 
                    0
                )
            )
        )(else
            (self:stopUpd())
        )
    )

)
(instance public rm371 of SQRoom
    (properties
        picture 371
        style 30
    )

    (method (init)
        proc958_0(128 0 4 402 371 372 373 374)
        proc958_0(135 68 69)
        (send gLongSong:
            number(0)
            stop()
        )
        (send gLongSong2:
            vol(127)
            changeState()
        )
        (send global2:addObstacle((send ((Polygon:new())):
                type(2)
                init(0 0 319 0 321 70 296 70 291 70 273 69 230 60 58 60 42 74 25 75 4 90 76 118 64 152 0 189)
                yourself()
            )
 (send ((Polygon:new())):
                type(2)
                init(319 189 155 189 153 176 161 159 193 153 274 120 304 91 296 87 295 81 299 73 321 73)
                yourself()
            )
 (send ((Polygon:new())):
                type(2)
                init(87 70 125 82 157 78 188 84 227 77 268 79 292 93 229 116 189 102 154 113 123 101 87 115 20 89)
                yourself()
            )
 (send ((Polygon:new())):
                type(2)
                init(61 158 182 113 197 112 208 116 199 139 95 182 67 184 55 172)
                yourself()
            )
))
        (send gEgo:
            posn(130 230)
            setHeading(0)
            ignoreActors(1)
            init()
        )
        (send global2:setScript(enterScript))
        (dummy1:init())
        (dummy2:init())
        (dummy3:init())
        (dummy4:init())
        (model1:init())
        (model2:init())
        (super:init())
        (rmnProp:init())
        (if (== (send gEgo:view) 402)
            (mall:rFlag3((| (mall:rFlag3) $0008)))
        )(else
            (mall:rFlag3((& (mall:rFlag3) $fff7)))
        )
        (wig:init())
        (clerk:
            init()
            posn(268 157)
            setCycle(Walk)
        )
        (arm:
            init()
            x(+ (clerk:x) 2)
            y(- (clerk:y) 28)
        )
        (send global32:
            add(wall theRack theRack1 theRack2 theArea changeRoom wigs wigs2)
            eachElementDo(102)
            doit()
        )
        (self:setRegions(700))
    )


    (method (doit)
        (var temp0)
        (if ((send gLongSong2:prevSignal))
            (send gLongSong2:prevSignal(0))
            (dummy1:dance())
            (dummy3:dance())
            (dummy4:dance())
            (dummy2:dance())
            (if (== (send global2:script) rogerDance)
                (roger:dance())
            )
        )
        (if ((proc999_5((send gEgo:view) 0 4) and proc0_6(29)) and proc700_3(ScriptID(700 0) 511 16))
            proc0_11(50 3)
        )
        (if (script)
            (send script:doit())
        )(else
            (if ((proc999_5((send gEgo:view) 373 374) and (<> (clerk:script) firstTimeScript)) and (>= (send gEgo:x) 310))
                (send global2:setScript(changeScript))
            )(else
                (if ((proc700_3(ScriptID(700 0) 511 16) and (<> (clerk:script) firstTimeScript)) and (>= (send gEgo:x) 310))
                    (send global2:setScript(changeScript))
                )(else
                    (if ((proc700_3(ScriptID(700 0) 511 4) and (<> (clerk:script) firstTimeScript)) and (>= (send gEgo:x) 310))
                        (send global2:setScript(changeScript))
                    )(else
                        (if (== (send gEgo:edgeHit) 3)
                            (send global2:setScript(exitScript))
                        )(else
                            (if (== (send gEgo:edgeHit) 2)
                                (send gEgo:
                                    setMotion(0)
                                    posn(317 (send gEgo:y))
                                )
                            )
                        )
                    )
                )
            )
        )
        (super:doit())
    )


    (method (dispose)
        (if (local1 and local0)
            (mall:rFlag1((| (mall:rFlag1) $0080)))
        )
        (if ((not proc700_3(ScriptID(700 0) 511 2) and proc700_3(ScriptID(700 0) 511 1)) and proc700_3(ScriptID(700 0) 509 128))
            (mall:rFlag3((| (mall:rFlag3) $0002)))
        )
        (if (not proc700_3(ScriptID(700 0) 511 1) and proc700_3(ScriptID(700 0) 509 128))
            (mall:rFlag3((| (mall:rFlag3) $0001)))
        )
        (send gEgo:ignoreActors(0))
        (if (== local0 0)
            (mall:rFlag3((| (mall:rFlag3) $0004)))
        )
        (super:dispose())
    )

)
(instance enterScript of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                proc0_2()
                (send gEgo:setMotion(MoveTo 130 185 self))
            )
            (case 1
                (self:dispose())
                proc0_3()
            )
        )
    )

)
(instance changeScript of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                proc0_2()
                (send gEgo:setMotion(PolyPath 317 75 self))
            )
            (case 1
                (if (== (send gEgo:view) 373)
                    (if (proc700_3(ScriptID(700 0) 511 4))
                        Print("You quickly change your clothes while thinking to yourself that, even dressed in drag, you still have that animal magnetism... or is that just failed deodorant?")
                        (if (proc700_3(ScriptID(700 0) 511 8))
                            proc0_1(2 402 14)
                            proc0_9(14)
                        )(else
                            proc0_1(2 0 4)
                            proc0_9(4)
                        )
                        = cycles 10
                    )(else
                        Print("Quickly changing your clothes you emerge in your space guy regalia.")
                        = local1 0
                        (if (proc700_3(ScriptID(700 0) 511 8))
                            proc0_1(2 402 14)
                            proc0_9(14)
                        )(else
                            proc0_1(2 0 4)
                            proc0_9(4)
                        )
                        = cycles 10
                    )
                    (mall:rFlag3((| (mall:rFlag3) $0010)))
                )(else
                    Print("You're becoming a whiz at putting on women's clothing. In a flash you emerge looking swank as ever. For a split second you believe that you might be enjoying this just a little too much.")
                    (send gEgo:
                        view(373)
                        setCycle(StopWalk 374)
                    )
                    = local1 1
                    proc0_9(374)
                    (mall:rFlag3((& (mall:rFlag3) $ffef)))
                    = cycles 3
                )
            )
            (case 2
                (send gEgo:setMotion(MoveTo 285 72 self))
            )
            (case 3
                proc0_3()
                (self:dispose())
            )
        )
    )

)
(instance shopScript of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (User:canControl(0))
                (send gIconBar:disable(0))
                (send gEgo:setMotion(PolyPath 195 175 self))
            )
            (case 1
                proc0_13(gEgo clerk)
                (if (proc0_6(33))
                    (clerk:setScript(firstTimeScript))
                )(else
                    (clerk:setScript(introScript))
                )
                (self:dispose())
            )
        )
    )

)
(instance introScript of rmnScript
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (if (proc700_3(ScriptID(700 0) 511 32) and proc700_3(ScriptID(700 0) 511 64))
                    Print("She ignores you. She said she was busy.")
                    proc0_3()
                    (self:dispose())
                )(else
                    = cycles 1
                )
            )
            (case 1
                (if (proc700_3(ScriptID(700 0) 511 32) and not proc700_3(ScriptID(700 0) 511 64))
                    (self:save1(proc0_12("\"Listen hon, I got work to do here. You run along now. Maybe you could bring back your girl sometime. Bye now.\"" 67 1 1 28 global132 29 global129 30 1 70 310)))
                    = state 7
                    (mall:rFlag3((| (mall:rFlag3) $0040)))
                    = seconds 10
                )(else
                    = cycles 1
                )
            )
            (case 3
                (self:save1(proc0_12("\"Are you sure you got the right store, hon?\"" 67 1 1 28 global132 29 global129 30 1 70 310)))
                = seconds 10
            )
            (case 5
                (self:save1(proc0_12("\"I'm not sure, I think I'll just look around for a bit.\"" 67 1 1 28 global140 29 global129 30 1 70 310)))
                = seconds 10
            )
            (case 7
                (self:save1(proc0_12("\"Let us know if we can help.\"" 67 1 1 28 global132 29 global129 30 1 70 310)))
                (mall:rFlag3((| (mall:rFlag3) $0020)))
                = seconds 10
            )
            (case 9
                proc0_3()
                (self:dispose())
            )
            (default 
                (self:restore())
                = cycles 1
            )
        )
    )

)
(instance exitScript of rmnScript
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                proc0_2()
                (if ((== local1 1) and (== local0 1))
                    (self:changeState(6))
                )(else
                    = cycles 1
                )
            )
            (case 1
                (if ((clerk:script))
                    (send ((clerk:script)):dispose())
                )
                (send gEgo:setMotion(MoveTo (send gEgo:x) (+ (send gEgo:y) 10) self))
            )
            (case 2
                proc0_13(gEgo clerk self)
            )
            (case 3
                (self:save1(proc0_12("\"Thanks for shopping at Sacks!\"" 67 1 1 28 global132 29 global129 30 1 70 310)))
                = seconds 3
            )
            (case 4
                (self:restore())
                = cycles 1
            )
            (case 5
                (send gEgo:setMotion(MoveTo (send gEgo:x) 240 self))
            )
            (case 6
                (send global2:newRoom(370))
                (self:dispose())
            )
        )
    )

)
(instance firstTimeScript of rmnScript
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (if (proc700_3(ScriptID(700 0) 511 1))
                    (self:setScript(secondTalk self))
                )(else
                    (self:setScript(firstTalk self))
                )
            )
            (case 1
                (clerk:setMotion(MoveTo 344 185 self))
                (arm:dispose())
                (clerkSFX:
                    init()
                    play()
                )
            )
            (case 2
                (clerk:
                    x(322)
                    y(72)
                    setPri(-1)
                    setMotion(PolyPath 95 148 self)
                )
            )
            (case 4
                (clerk:
                    setLoop(9)
                    setCycle(0)
                    setMotion(PolyPath 196 114 self)
                )
            )
            (case 5
                (clerkSFX:stop())
                (self:save1(proc0_12("\"I'm sure this will suit that 'special someone's needs'. It's all the rage.\" " 67 1 1 28 global132 29 global129 30 1 70 310)))
                = seconds 10
            )
            (case 7
                (clerk:
                    setLoop(9)
                    setCycle(0)
                    setMotion(PolyPath 281 75 self)
                )
                (clerkSFX:play())
            )
            (case 8
                (clerkSFX:stop())
                (self:save1(proc0_12("\"I suppose you'll want to try it on now. Here, use this dressing room.\" " 67 1 1 28 global132 29 global129 30 1 70 310)))
                = seconds 10
            )
            (case 10
                (clerk:setMotion(PolyPath 317 75 self))
                (send gEgo:setMotion(PolyPath 317 75 self))
                (clerkSFX:play())
            )
            (case 11
                (clerkSFX:stop())
            )
            (case 13
                (clerk:
                    setLoop(1)
                    ignoreActors()
                    setMotion(PolyPath 273 74 self)
                )
                (clerkSFX:play())
            )
            (case 14
                (clerkSFX:stop())
                (clerk:
                    setLoop(0)
                    setCel(2)
                )
                (self:save1(proc0_12("\"And honey, if your 'special someone' needs a wig, this one should look pretty good on you.\"" 67 1 1 28 global132 29 global129 30 1 70 310)))
                = seconds 10
            )
            (case 16
                (wig:dispose())
                (clerk:setMotion(PolyPath 317 75 self))
                (clerkSFX:play())
            )
            (case 17
                (clerkSFX:stop())
                = cycles 40
            )
            (case 18
                (clerk:
                    setLoop(3)
                    setCycle(Walk)
                    x(344)
                    y(185)
                    setPri(13)
                    setMotion(MoveTo 268 157 self)
                )
                (clerkSFX:play())
            )
            (case 19
                (clerkSFX:stop())
                (clerk:setLoop(5))
                (arm:
                    init()
                    x(+ (clerk:x) 2)
                    y(- (clerk:y) 28)
                )
                = cycles 1
            )
            (case 20
                (send gEgo:
                    view(373)
                    sightAngle(180)
                    setCycle(StopWalk 374)
                    setMotion(PolyPath 185 160 self)
                )
                proc0_9(374)
            )
            (case 21
                proc0_13(gEgo clerk)
                (arm:setCycle(ForwardCounter Random(1 3)))
                (self:save1(proc0_12("\"Very lovely, honey, it's made for you. Would you like us to wrap it up, or would that 'special someone' prefer you to wear it home?\"" 67 1 1 28 global132 29 global129 30 1 70 310)))
                = seconds 10
            )
            (case 23
                (self:save1(proc0_12("\"I think I'll wear it home.\"" 67 1 1 28 global140 29 global129 30 1 70 310)))
                = seconds 10
            )
            (case 25
                (arm:setCycle(ForwardCounter Random(1 3)))
                (self:save1(proc0_12("\"Just what we thought. That will be 60 buckazoids, sicko.\"" 67 1 1 28 global132 29 global129 30 1 70 310)))
                = local1 1
                = seconds 10
            )
            (case 26
                (self:restore())
                = cycles 1
            )
            (case 27
                proc0_3()
                (clerk:setScript(bogusScript))
            )
            (default 
                (self:restore())
                = cycles 1
            )
        )
    )

)
(instance firstTalk of rmnScript
    (properties)

    (method (init param1)
        (super:init(rest param1))
        (arm:
            init()
            x(+ (clerk:x) 2)
            y(- (clerk:y) 28)
        )
    )


    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (clerk:setLoop(5))
                (arm:setCycle(ForwardCounter Random(1 3)))
                (self:save1(proc0_12("\"Hiya, hon. I'm Maebot, fashion consultant to the cosmos. What can we do with ya today?\" " 67 1 1 28 global132 29 global129 30 1 70 310)))
                = seconds 10
            )
            (case 2
                (User:canControl(0))
                (send gIconBar:disable(0))
                (self:save1(proc0_12("\"Well, uh, this is kinda hard to explain...\"" 67 1 1 28 global140 29 global129 30 1 70 310)))
                = seconds 10
            )
            (case 4
                (arm:setCycle(ForwardCounter Random(1 3)))
                (self:save1(proc0_12("\"Oh, let me guess. You want something for someone very special, somebody who'd die to get the latest in high-galactic fashion.\"" 67 1 1 28 global132 29 global129 30 1 70 310)))
                = seconds 10
            )
            (case 6
                (self:save1(proc0_12("\"Are we right or are we right?\"" 67 1 1 28 global132 29 global129 30 1 70 310)))
                = seconds 10
            )
            (case 8
                (self:save1(proc0_12("\"Uh...we're right.\"" 67 1 1 28 global140 29 global129 30 1 70 310)))
                = seconds 10
            )
            (case 10
                (arm:setCycle(ForwardCounter Random(1 3)))
                (self:save1(proc0_12("\"Okay, what size does she take?\"" 67 1 1 28 global132 29 global129 30 1 70 310)))
                = seconds 10
            )
            (case 12
                (self:save1(proc0_12("\"38.\"" 67 1 1 28 global140 29 global129 30 1 70 310)))
                = seconds 10
            )
            (case 14
                (arm:setCycle(ForwardCounter Random(1 3)))
                (self:save1(proc0_12("\"Ooh, I don't think we're right about that.\"" 67 1 1 28 global132 29 global129 30 1 70 310)))
                = seconds 10
            )
            (case 16
                (self:save1(proc0_12("\"Um, I'm...uh...I'm not sure, but she's, um, built about like me.\"" 67 1 1 28 global140 29 global129 30 1 70 310)))
                = seconds 10
            )
            (case 18
                (arm:setCycle(ForwardCounter Random(1 3)))
                (self:save1(proc0_12("\"Is she? A likely story. Good thing for you I can keep a secret, sweetie.\"" 67 1 1 28 global132 29 global129 30 1 70 310)))
                = seconds 10
            )
            (case 20
                (arm:dispose())
                (clerk:setLoop(-1))
                (self:dispose())
            )
            (default 
                (self:restore())
                = cycles 1
            )
        )
    )

)
(instance secondTalk of rmnScript
    (properties)

    (method (init param1)
        (super:init(rest param1))
        (arm:
            init()
            x(+ (clerk:x) 2)
            y(- (clerk:y) 28)
        )
    )


    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (if (proc700_3(ScriptID(700 0) 511 2))
                    = state 1
                    (self:save1(proc0_12("\"Oh, it's you again, would you stop wasting my time?\"" 67 1 1 28 global132 29 global129 30 1 70 310)))
                )(else
                    (self:save1(proc0_12("\"Oh, it's you again. What do you want?\"" 67 1 1 28 global132 29 global129 30 1 70 310)))
                )
                (arm:setCycle(ForwardCounter Random(1 3)))
                = seconds 30
            )
            (case 2
                (User:canInput(1))
            )
            (case 3
                (User:canControl(0))
                (send gIconBar:disable(0))
                (self:save1(proc0_12("\"I would still like to buy that dress, I'm terribly sorry about the misunderstanding.\"" 67 1 1 28 global140 29 global129 30 1 70 310)))
                = seconds 30
            )
            (case 5
                (arm:setCycle(ForwardCounter Random(1 3)))
                (self:save1(proc0_12("\"Well, okay, but don't try that again. If you have to be weird, fine, but we don't appreciate shoplifters, dear.\"" 67 1 1 28 global132 29 global129 30 1 70 310)))
                = seconds 30
            )
            (case 7
                (arm:dispose())
                (self:dispose())
            )
            (default 
                (self:restore())
                = cycles 1
            )
        )
    )

)
(instance talkScript of rmnScript
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (self:restore())
                = cycles 1
            )
            (case 1
                (self:save1(proc0_12(localproc_223e() 67 1 1 28 global132 29 global129 30 1 70 320)))
                = seconds 10
            )
            (case 1
                (self:restore())
            )
        )
    )

)
(instance bogusScript of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                0
            )
        )
    )

)
(instance clerkHead of Prop
    (properties
        x 50
        y 50
        z 64536
        view 372
        loop 6
    )
)
(instance arm of Prop
    (properties
        x 50
        y 50
        view 372
        loop 8
        priority 14
        signal 16400
    )
)
(instance dummy1 of Mannequin
    (properties)

    (method (doVerb param1)
        (switch (param1)
            (case 2
                Print("Hmmm.. they can't be real. No living thing can resist my charm.")
            )
            (case 10
                Print("Nah. You've never had a taste for stripes.")
            )
            (case 11
                Print("Aromatic metals, lubricants, and synthetic materials emanate from its general vicinity.")
            )
            (case 4
                Print("Hopefully, you ask her to dance but get no response. Shot down again.")
            )
            (default 
                (super:doVerb(param1))
            )
        )
    )

)
(instance dummy2 of Mannequin
    (properties)

    (method (doVerb param1)
        (switch (param1)
            (case 2
                Print("Hmmm.., they can't be real. No living thing can resist my charm.")
            )
            (case 10
                Print("Despite your love for Synthoskin, you decide that wouldn't be gentlemanly.")
            )
            (case 11
                Print("Closet mannequin whiffer, eh?")
            )
            (case 4
                Print("Although just an animated mannequin, it's not intelligent enough to converse with even you.")
            )
            (default 
                (super:doVerb(param1))
            )
        )
    )

)
(instance dummy3 of Mannequin
    (properties)

    (method (doVerb param1)
        (switch (param1)
            (case 2
                Print("Must be phoney. You know you're a babe magnet.")
            )
            (case 10
                Print("OUCH! You almost got a sliver in your tongue!")
            )
            (case 11
                Print("Technosmell emanates from it.")
            )
            (case 4
                Print("Although just an animated mannequin, it's not intelligent enough to converse with even you.")
            )
            (default 
                (super:doVerb(param1))
            )
        )
    )

)
(instance dummy4 of Mannequin
    (properties)

    (method (doVerb param1)
        (switch (param1)
            (case 2
                (if ((not (clerk:script) and not (send global2:script)) and proc999_5((send gEgo:view) 373 374))
                    (send global2:setScript(rogerDance))
                )(else
                    Print("Keep your hands to yourself!")
                )
            )
            (case 10
                Print("This doesn't look like your favorite flavor mannequin.")
            )
            (case 11
                Print("Yep. Smells robotic.")
            )
            (case 4
                Print("Don't bother. You don't need dummies making you look stupid, too!")
            )
            (default 
                (super:doVerb(param1))
            )
        )
    )

)
(instance verbUseScript of rmnScript
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 1
                (switch (register)
                    (case 0
                        (if (((< global159 local2) and local1) and local0)
                            (self:save1(proc0_12(Format(@local4 "\"Are you in need of an auditory exam or what? I said it will be %3d buckazoids please.\"" local2) 67 1 1 28 global132 29 global129 30 1 70 310)))
                        )(else
                            (if (local1 and local0)
                                (self:save1(proc0_12("\"Appreciate it, hon.\"" 67 1 1 28 global132 29 global129 30 1 70 310)))
                                (if (< (= global159 (- global159 local2)) 1)
                                    (send gEgo:put(0))
                                )
                                proc0_11(49 5)
                                = local0 0
                            )
                        )
                    )
                    (default 
                        (self:restore())
                        (self:dispose())
                    )
                )
                = seconds 5
            )
            (case 3
                (self:restore())
                (self:dispose())
            )
            (default 
                (self:restore())
                = cycles 1
            )
        )
    )

)
(instance clerk of Actor
    (properties
        x 322
        y 72
        description "sales clerk"
        sightAngle 500
        lookStr "You check out the clerk. She's a burnished silver beauty if you ever saw one. You've always had a thing for women with antennae."
        view 372
        loop 5
        priority 13
        signal 16400
    )

    (method (init param1)
        (super:init(rest param1))
        (if (proc700_3(ScriptID(700 0) 511 1))
            (self:posn(275 116))
            (arm:
                init()
                x(+ (clerk:x) 2)
                y(- (clerk:y) 28)
            )
        )
    )


    (method (doVerb param1 param2 param3)
        (switch (param1)
            (case 3
                (switch (param2)
                    (case 0
                        (if ((<> (rmnProp:script) verbUseScript) and (<> (clerk:script) firstTimeScript))
                            (rmnProp:setScript(verbUseScript 0 param2))
                        )
                    )
                    (default 
                        (super:doVerb(param1 param2 rest param3))
                    )
                )
            )
            (case 4
                (if (proc700_3(ScriptID(700 0) 511 4))
                    Print("Having already purchased the lovely dress, you decide to stick with men's clothes from now on... even though it was quite enjoyable... almost too enjoyable.")
                )(else
                    (if ((not (clerk:script) and not (send global2:script)) and not proc700_3(ScriptID(700 0) 511 4))
                        (self:setScript(shopScript))
                    )(else
                        (if ((send ((self:script)):script) and (User:canInput()))
                            (send ((send ((clerk:script)):script)):cue())
                        )(else
                            (if (((((not proc700_3(ScriptID(700 0) 511 4) and (<> (rmnProp:script) verbUseScript)) and (<> (clerk:script) firstTimeScript)) and local1) and local0) and proc999_5((send gEgo:view) 373 374))
                                (self:setScript(talkScript))
                            )(else
                                0
                            )
                        )
                    )
                )
            )
            (case 2
                Print("Although it seems darn tempting, you realize that duty calls and this will have to wait. Maybe after the game is over and all these players have gone to bed, you could cruise back by.")
            )
            (case 10
                Print("Augh! It tastes like Tarnex(tm)! Well, at least you can rest assured knowing that your tongue is tarnish free.")
            )
            (case 11
                Print("Uhmm! The rich smell of robotic lubricants wafts through your smell buds.")
            )
            (default 
                (super:doVerb(param1))
            )
        )
    )

)
(instance clerkSFX of Sound
    (properties
        number 834
        loop -1
    )
)
(instance rmnProp of Prop
    (properties
        x 65516
        y 65516
    )
)
(instance wig of Prop
    (properties
        x 277
        y 44
        sightAngle 500
        lookStr "It's a deep pile wig."
        view 372
        loop 10
        signal 16384
    )

    (method (doVerb param1)
        (switch (param1)
            (case 2
                Print("Nah. I'd rather not. You never know where it's been.")
            )
            (case 11
                Print("Whew!! From what type of beast was this rendered?")
            )
            (case 10
                Print("You lick the wig and almost immediately cough up a fur ball.")
            )
            (default 
                (super:doVerb(param1))
            )
        )
    )

)
(instance theRack of Feature
    (properties
        x 100
        y 139
        nsTop 115
        nsLeft 81
        nsBottom 163
        nsRight 120
        description "fashion rack"
        sightAngle 180
        lookStr "The latest in swank fashion displayed in a number of horrifying colors."
    )

    (method (doVerb param1)
        (switch (param1)
            (case 2
                Print("While enjoying this banquet o' fashion you wonder what you might look like in one of these cute little frocks.")
                Print("Hey! What kind of thing is that for a studly guy like you to be thinking? Get ahold of yourself, fella!")
            )
            (case 11
                Print("AAAhh! The smell of brand new simulated fabric!")
            )
            (case 10
                Print("That's not a very clean habit.")
            )
            (default 
                (super:doVerb(param1))
            )
        )
    )

)
(instance theRack1 of Feature
    (properties
        x 137
        y 125
        nsTop 107
        nsLeft 115
        nsBottom 154
        nsRight 159
        description "fashion rack"
        sightAngle 180
        lookStr "The latest in swank fashion displayed in a number of horrifying colors."
    )

    (method (doVerb param1)
        (switch (param1)
            (case 2
                Print("While enjoying this banquet o' fashion you wonder what you might look like in one of these cute little frocks.")
                Print("Hey! What kind of thing is that for a studly guy like you to be thinking! Get ahold of yourself, fella!")
            )
            (case 11
                Print("AAAhh! The smell of brand new simulated fabric!")
            )
            (case 10
                Print("That's not a very clean habit.")
            )
            (default 
                (super:doVerb(param1))
            )
        )
    )

)
(instance theRack2 of Feature
    (properties
        x 177
        y 116
        nsTop 98
        nsLeft 153
        nsBottom 134
        nsRight 196
        description "fashion stand"
        sightAngle 180
        lookStr "The latest in swank fashion displayed in a number of horrifying colors."
    )

    (method (doVerb param1)
        (switch (param1)
            (case 2
                Print("While enjoying this banquet o' fashion you wonder what you might look like in one of these cute little frocks.")
                Print("Hey! What kind of thing is that for a studly guy like you to be thinking! Get ahold of yourself, fella!")
            )
            (case 11
                Print("AAAhh! The smell of brand new simulated fabric!")
            )
            (case 10
                Print("That's not a very clean habit.")
            )
            (default 
                (super:doVerb(param1))
            )
        )
    )

)
(instance theArea of Feature
    (properties
        nsBottom 200
        nsRight 320
        description "area"
        sightAngle 180
        lookStr "All the best-dressed bipedal female fashion slaves shop here at Sack's. The dazzling decor is just eye-numbing enough to make the price tags hard to read. \"Wow\", you think to yourself, \"this place is fancier than Frederick's of Uranus!\""
    )

    (method (doVerb param1)
        (switch (param1)
            (case 11
                Print("The air is thick with the smell of synthetics.")
            )
            (default 
                (super:doVerb(param1))
            )
        )
    )

)
(instance model1 of Feature
    (properties
        x 99
        y 27
        nsTop 6
        nsLeft 89
        nsBottom 49
        nsRight 110
        description "mannequin"
        sightAngle 180
        lookStr "It's a nice outfit, but you're not sure you have the midriff for it."
    )

    (method (doVerb param1)
        (switch (param1)
            (case 2
                Print("Oooooh! Real plastic!")
            )
            (case 11
                Print("It doesn't smell great, but it at least smells better than you.")
            )
            (case 10
                Print("You tongue the mannequin and find that it doesn't please your palate.")
            )
            (case 4
                Print("Although just a mannequin, it's not intelligent enough to converse with even you.")
            )
            (default 
                (super:doVerb(param1))
            )
        )
    )

)
(instance model2 of Feature
    (properties
        x 208
        y 27
        nsTop 6
        nsLeft 197
        nsBottom 49
        nsRight 219
        description "mannequin"
        sightAngle 180
        lookStr "The skin color and cape make a statement - the kind taken in police stations!"
    )

    (method (doVerb param1)
        (switch (param1)
            (case 2
                Print("Wow! Genuine Zynthion leather.")
            )
            (case 11
                Print("Whoaa, baby! Where have you been? Eau de Water Buffalo went out of style epochs ago.")
            )
            (case 10
                Print("Yechh! Seriously gross!")
            )
            (case 4
                Print("Sorry. No brain.")
            )
            (default 
                (super:doVerb(param1))
            )
        )
    )

)
(instance rogerDance of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                proc0_2()
                (send gEgo:setMotion(PolyPath 112 113 self))
            )
            (case 1
                (send gEgo:setHeading(180 self))
            )
            (case 2
                Print("Let's boogie, girls!")
                (roger:init())
                (send gEgo:y(1000))
                (arm:setCycle(Osc))
                = cycles 1
            )
            (case 3
                = seconds 45
            )
            (case 4
                (send gEgo:y(113))
                (roger:dispose())
                (arm:setCycle(0))
                = cycles 3
            )
            (case 5
                Print("I sure know how to bust a move!")
                proc0_3()
                (self:dispose())
            )
        )
    )

)
(instance roger of Mannequin
    (properties
        x 112
        y 113
        view 371
        loop 4
        signal 16384
        lastcel 7
    )
)
(instance wigs of Feature
    (properties
        x 265
        y 58
        nsTop 30
        nsLeft 250
        nsBottom 46
        nsRight 281
        description "wigs"
        sightAngle 180
        lookStr "These wigs are the latest fashion if you have a conehead or like the purple haze look."
    )

    (method (doVerb param1)
        (switch (param1)
            (case 2
                Print("Yep. It's synthetic hair.")
            )
            (case 10
                Print("Dragging your tongue across the fine strands of of synthetic hair is almost as enjoyable as running it through a french fry slicer.")
            )
            (case 11
                Print("No smell.")
            )
            (default 
                (super:doVerb(param1))
            )
        )
    )

)
(instance wall of Feature
    (properties
        x 312
        y 76
        nsTop 10
        nsLeft 306
        nsBottom 85
        nsRight 320
        description "wall"
        sightAngle 180
        lookStr "Nice walls!"
    )
)
(instance changeRoom of Feature
    (properties
        x 297
        y 49
        nsTop 18
        nsLeft 289
        nsBottom 81
        nsRight 305
        description "dressing room"
        sightAngle 180
        lookStr "It's the dressing room door."
    )
)
(instance wigs2 of Feature
    (properties
        x 55
        y 55
        nsTop 25
        nsLeft 45
        nsBottom 38
        nsRight 66
        description "wigs"
        sightAngle 180
        lookStr "These are some darn attractive wigs. If you want a head like an ax, or you've wanted to capture that Ed Grimly look, they're just the thing."
    )

    (method (doVerb param1)
        (switch (param1)
            (case 2
                Print("Yep. It's synthetic hair all right.")
            )
            (case 10
                Print("Dragging your tongue across the fine strands of of synthetic hair is almost as enjoyable as running it through a french fry slicer.")
            )
            (case 11
                Print("No smell.")
            )
            (default 
                (super:doVerb(param1))
            )
        )
    )

)
