(version 2)
(include "sci.sh")
(exports
    0 rm79
)
(use "Main")
(use "Class_255_0")
(use "NewFeature")
(use "Feature")
(use "n958")
(use "RFeature")
(use "Cycle")
(use "Game")
(use "PicView")
(use "Obj")
(script 79)


(local
    local0
    local1
    local2

)
(procedure (localproc_1e22)
    proc255_0(79 66)
)


(instance public rm79 of Rm
    (properties
        picture 79
    )

    (method (init)
        (self:style(6))
        proc958_0(132 8 32)
        proc958_0(128 181 180 279)
        (if ((send gEgo:has(7)))
            Load(rsVIEW 35)
        )
        (if ((proc0_12(113) and not (send gEgo:has(17))) or (send gEgo:has(7)))
            Load(rsVIEW 1)
        )
        (super:init())
        proc0_1()
        (send gEgo:
            posn(116 160)
            loop(3)
            init()
        )
        (cupboard:init())
        (fireplace1:init())
        (fireplace2:init())
        (fireplace3:init())
        (fireplace4:init())
        (nightstand:init())
        (table1:init())
        (table2:init())
        (table3:init())
        (table4:init())
        (table5:init())
        (rug1:init())
        (bed1:init())
        (bed2:init())
        (bed3:init())
        (bed4:init())
        (bed5:init())
        (if (not proc0_12(114))
            (fiddle:
                init()
                stopUpd()
            )
        )
        (body:
            ignoreActors()
            setPri(8)
            init()
            priority(8)
            stopUpd()
        )
        (tableStuff:priority(8))
        (head:
            init()
            cycleSpeed(1)
            stopUpd()
        )
        (send gAddToPics:
            add(tableStuff)
            eachElementDo(#init)
            doit()
        )
        (fire:
            init()
            stopUpd()
        )
        (if (>= global101 1)
            (fire:
                cycleSpeed(1)
                setCycle(Fwd)
            )
        )
        (wife:
            init()
            stopUpd()
        )
        (if (not proc0_12(1))
            = local2 1
            (send global2:setScript(welcome))
        )
    )


    (method (doit)
        (var temp0)
        (if (script)
            (send script:doit())
        )(else
            (if (== (send gEgo:onControl(1)) 16384)
                (self:newRoom(44))
            )
        )
    )


    (method (dispose param1)
        proc0_10(8)
        (super:dispose(rest param1))
    )


    (method (handleEvent pEvent)
        (var temp0)
        (if ((send pEvent:claimed))
            return 
        )(else
            (if ((super:handleEvent(pEvent)))
            )(else
                (if (Said('open,open,(look,look<in)/cabinet,cabinet'))
                    proc255_0(79 0 67 -1 130 70 280 30 1)
                )(else
                    (if (Said('remove/ring') or Said('get<off/ring'))
                        (if (not (send gEgo:has(5)))
                            proc0_6()
                        )(else
                            (if (not proc0_12(17))
                                (send pEvent:claimed(0))
                            )(else
                                proc0_11(1)
                                proc0_11(17)
                                proc0_1()
                                (send gEgo:startUpd())
                                (if (== local2 1)
                                    proc255_0(79 1 67 -1 130 70 280 30 1)
                                )(else
                                    proc255_0(79 2 67 -1 130 70 280 30 1)
                                    = local2 1
                                    (send global2:setScript(welcome))
                                )
                            )
                        )
                    )(else
                        (if (Said('aid/man,fairy,husband,husband,fairy'))
                            (if (proc0_12(113))
                                proc255_0(79 3 67 -1 130 70 280 30 1)
                            )(else
                                proc255_0(79 4 67 -1 130 70 280 30 1)
                            )
                        )(else
                            (if (Said('look,look>'))
                                (if (Said('[<at,around][/room]'))
                                    (if (proc0_12(113) and (== (body:loop) 4))
                                        proc255_0(79 5 67 -1 20 70 280)
                                    )(else
                                        (if (proc0_12(113))
                                            proc255_0(79 6 67 -1 20 70 280)
                                        )(else
                                            proc255_0(79 7 67 -1 130 70 280 30 1)
                                        )
                                    )
                                )(else
                                    (if (Said('building,room'))
                                        proc255_0(79 8)
                                    )(else
                                        (if (Said('<on/endtable') or Said('<on/table<little'))
                                            proc255_0(79 9)
                                        )(else
                                            (if (Said('<at/endtable') or Said('<at/table<little'))
                                                proc255_0(79 10)
                                            )
                                        )
                                    )
                                )
                            )(else
                                (if (Said('open,open/endtable,(table<little)'))
                                    proc255_0(79 11)
                                )(else
                                    (if (Said('get/endtable,(table<little)'))
                                        proc255_0(79 12)
                                    )(else
                                        (if (Said('move,move/endtable,(table<little)'))
                                            proc255_0(79 13)
                                        )(else
                                            (if (Said('stand<on/endtable,(table<little)'))
                                                proc255_0(79 14)
                                            )(else
                                                (if (Said('enter,(get,get,go<in)/bed'))
                                                    proc255_0(79 15)
                                                )(else
                                                    (if (Said('get,get/fiddle'))
                                                        (if ((send global2:script))
                                                            proc0_22()
                                                        )(else
                                                            (if ((send gEgo:has(17)))
                                                                proc255_0(79 16 67 -1 130 70 280 30 1)
                                                            )(else
                                                                (if (not proc0_12(113))
                                                                    proc255_0(79 17 67 -1 130 70 280 30 1)
                                                                )(else
                                                                    (if (proc0_12(1))
                                                                        localproc_1e22()
                                                                    )(else
                                                                        (if (<= GetDistance((send gEgo:x) (send gEgo:y) (fiddle:x) (fiddle:y) 60) 50)
                                                                            (send global2:setScript(getFiddle))
                                                                        )(else
                                                                            proc0_4()
                                                                        )
                                                                    )
                                                                )
                                                            )
                                                        )
                                                    )(else
                                                        (if (Said('get,get/!*'))
                                                            (if (proc0_12(113))
                                                                proc255_0(79 18 67 -1 20 70 280)
                                                            )(else
                                                                proc255_0(79 17 67 -1 130 70 280 30 1)
                                                            )
                                                        )(else
                                                            (if (Said('talk,speak/fairy'))
                                                                (if (proc0_12(113) and (== (body:loop) 4))
                                                                    proc255_0(79 19 67 -1 130 70 280 30 1)
                                                                )(else
                                                                    (if (proc0_12(113))
                                                                        proc255_0(79 20)
                                                                    )(else
                                                                        proc255_0(79 21 67 -1 130 70 280 30 1)
                                                                    )
                                                                )
                                                            )(else
                                                                (if (Said('talk,speak/man,husband') or Said('/hello'))
                                                                    (if ((send global2:script))
                                                                        proc0_22()
                                                                    )(else
                                                                        (if (proc0_12(1))
                                                                            proc255_0(79 22 67 -1 130 70 280 30 1)
                                                                        )(else
                                                                            (if (proc0_12(113) and not (send gEgo:has(17)))
                                                                                proc255_0(79 23 67 -1 20 70 280)
                                                                            )(else
                                                                                (if (proc0_12(113))
                                                                                    proc255_0(79 24 67 -1 20 70 280)
                                                                                )(else
                                                                                    proc255_0(79 25 67 -1 130 70 280 30 1)
                                                                                )
                                                                            )
                                                                        )
                                                                    )
                                                                )(else
                                                                    (if (Said('talk,speak/*'))
                                                                        proc255_0(79 26 67 -1 130 70 280 30 1)
                                                                    )(else
                                                                        (if (Said('talk,speak'))
                                                                            proc255_0(79 27 67 -1 130 70 280 30 1)
                                                                        )(else
                                                                            (if (Said('give[/*]/fairy'))
                                                                                proc255_0(79 28)
                                                                            )(else
                                                                                (if (Said('give/soup'))
                                                                                    (if (not proc0_12(112) or proc0_12(34))
                                                                                        proc255_0(79 29 67 -1 130 70 280 30 1)
                                                                                    )(else
                                                                                        (if (proc0_12(1))
                                                                                            localproc_1e22()
                                                                                        )(else
                                                                                            (if ((send global2:script))
                                                                                                proc0_22()
                                                                                            )(else
                                                                                                (if (== (send gEgo:onControl(1)) 8192)
                                                                                                    proc255_0(79 30)
                                                                                                )(else
                                                                                                    (if (not (send gEgo:has(7)))
                                                                                                        proc0_6()
                                                                                                    )(else
                                                                                                        (send global2:setScript(fullBowl))
                                                                                                    )
                                                                                                )
                                                                                            )
                                                                                        )
                                                                                    )
                                                                                )(else
                                                                                    (if (Said('give/bowl'))
                                                                                        (if (proc0_12(1))
                                                                                            localproc_1e22()
                                                                                        )(else
                                                                                            (if ((send global2:script))
                                                                                                proc0_22()
                                                                                            )(else
                                                                                                (if (== (send gEgo:onControl(1)) 8192)
                                                                                                    proc255_0(79 30)
                                                                                                )(else
                                                                                                    (if (not (send gEgo:has(7)))
                                                                                                        proc0_6()
                                                                                                    )(else
                                                                                                        (if (proc0_12(112) and not proc0_12(34))
                                                                                                            (send global2:setScript(fullBowl))
                                                                                                        )(else
                                                                                                            (send global2:setScript(emptyBowl))
                                                                                                        )
                                                                                                    )
                                                                                                )
                                                                                            )
                                                                                        )
                                                                                    )(else
                                                                                        (if ((proc0_12(112) and not proc0_12(34)) and Said('eat,consume/soup'))
                                                                                            (if (proc0_12(1))
                                                                                                localproc_1e22()
                                                                                            )(else
                                                                                                (if (proc0_12(113))
                                                                                                    proc255_0(79 31 67 -1 20 70 280)
                                                                                                )(else
                                                                                                    proc255_0(79 32 67 -1 20 70 280)
                                                                                                )
                                                                                            )
                                                                                        )(else
                                                                                            (if (Said('give>') and (= temp0 (send gInv:firstTrue(#saidMe))))
                                                                                                = local0 (send gInv:indexOf(temp0))
                                                                                                = local1 0
                                                                                                (if (not (send temp0:ownedBy(gEgo)))
                                                                                                    proc255_0(79 33 67 -1 130 70 280 30 1)
                                                                                                )(else
                                                                                                    (if ((send global2:script))
                                                                                                        proc0_22()
                                                                                                    )(else
                                                                                                        (if (== (send gEgo:onControl(1)) 8192)
                                                                                                            proc0_4()
                                                                                                        )(else
                                                                                                            (if (proc0_12(113))
                                                                                                                proc255_0(79 34 67 -1 20 70 280)
                                                                                                            )(else
                                                                                                                (if (
                                                                                                                (switch (local0)
                                                                                                                    (case 1
                                                                                                                        (send gGame:changeScore(-8))
                                                                                                                        = local1 1
                                                                                                                        (send global2:setScript(acceptIt))
                                                                                                                    )
                                                                                                                    (case 2
                                                                                                                        proc0_11(64)
                                                                                                                        (send gGame:changeScore(-2))
                                                                                                                        (send global2:setScript(acceptIt))
                                                                                                                    )
                                                                                                                    (case 11
                                                                                                                        (send gGame:changeScore(-3))
                                                                                                                        = local1 1
                                                                                                                        (send global2:setScript(acceptIt))
                                                                                                                    )
                                                                                                                    (case 12
                                                                                                                        (send gGame:changeScore(-6))
                                                                                                                        = local1 1
                                                                                                                        (send global2:setScript(acceptIt))
                                                                                                                    )
                                                                                                                    (case 13
                                                                                                                        (send gGame:changeScore(-2))
                                                                                                                        (send global2:setScript(acceptIt))
                                                                                                                    )
                                                                                                                    (case 14
                                                                                                                        (send gGame:changeScore(-8))
                                                                                                                        = local1 1
                                                                                                                        (send global2:setScript(acceptIt))
                                                                                                                    )
                                                                                                                    (case 15
                                                                                                                        (send gGame:changeScore(-6))
                                                                                                                        = local1 1
                                                                                                                        (send global2:setScript(acceptIt))
                                                                                                                    )
                                                                                                                    (case 16
                                                                                                                        (send gGame:changeScore(-8))
                                                                                                                        = local1 1
                                                                                                                        (send global2:setScript(acceptIt))
                                                                                                                    )
                                                                                                                    (case 17
                                                                                                                        proc255_0(79 35 67 -1 130 70 280 30 1)
                                                                                                                    )
                                                                                                                    (case 18
                                                                                                                        (send gGame:changeScore(-3))
                                                                                                                        proc0_11(66)
                                                                                                                        (if (proc0_12(67))
                                                                                                                            (send gGame:changeScore(-3))
                                                                                                                            = local1 1
                                                                                                                            (send global2:setScript(acceptIt))
                                                                                                                        )(else
                                                                                                                            proc255_0(79 36 67 -1 130 70 280 30 1)
                                                                                                                            proc0_8(local0)
                                                                                                                        )
                                                                                                                    )
                                                                                                                    (case 20
                                                                                                                        (send gGame:changeScore(-4))
                                                                                                                        (send global2:setScript(acceptIt))
                                                                                                                    )
                                                                                                                    (default 
                                                                                                                        proc255_0(79 37 67 -1 130 70 280 30 1)
                                                                                                                    )
                                                                                                                )
)
                                                                                                                )(else
                                                                                                                    0
                                                                                                                )
                                                                                                            )
                                                                                                        )
                                                                                                    )
                                                                                                )
                                                                                            )(else
                                                                                                (if (Said('kill/husband,man,fairy,fairy'))
                                                                                                    proc255_0(79 38)
                                                                                                )
                                                                                            )
                                                                                        )
                                                                                    )
                                                                                )
                                                                            )
                                                                        )
                                                                    )
                                                                )
                                                            )
                                                        )
                                                    )
                                                )
                                            )
                                        )
                                    )
                                )
                            )
                        )
                    )
                )
            )
        )
    )

)
(instance wife of Prop
    (properties
        x 180
        y 116
        description 8259
        view 181
    )

    (method (handleEvent pEvent)
        (if ((send pEvent:claimed))
            return 
        )(else
            (if (Said('look,look/fairy,fairy') or proc255_5(self pEvent 3))
                (if (proc0_12(113) and (== (body:loop) 4))
                    proc255_0(79 39 67 -1 130 70 280 30 1)
                )(else
                    (if (proc0_12(113))
                        proc255_0(79 40 67 -1 130 70 280 30 1)
                    )(else
                        proc255_0(79 41 67 -1 20 70 280)
                    )
                )
                (send pEvent:claimed(1))
            )(else
                (super:handleEvent(pEvent))
            )
        )
    )

)
(instance body of Prop
    (properties
        x 163
        y 139
        description 8282
        view 180
    )

    (method (handleEvent pEvent)
        (if ((send pEvent:claimed))
            return 
        )(else
            (if (proc255_5(self pEvent 3))
                (send pEvent:claimed(1))
                proc255_0(79 42 67 -1 20 70 280)
            )(else
                (if (Said('look,look/bowl'))
                    (if ((((== loop 0) and (== cel 1)) or (== loop 3)) or (== loop 4))
                        proc255_0(79 43)
                    )(else
                        (send pEvent:claimed(0))
                    )
                )(else
                    (super:handleEvent(pEvent))
                )
            )
        )
    )

)
(instance head of Prop
    (properties
        x 160
        y 101
        description 8282
        view 180
        loop 1
    )

    (method (handleEvent pEvent)
        (if ((send pEvent:claimed))
            return 
        )(else
            (if (Said('look,look/man,husband,husband') or proc255_5(self pEvent 3))
                (send pEvent:claimed(1))
                proc255_0(79 42 67 -1 20 70 280)
            )(else
                (super:handleEvent(pEvent))
            )
        )
    )

)
(instance fiddle of View
    (properties
        x 178
        y 161
        z 15
        view 279
        loop 1
        cel 1
        priority 12
        signal $0010
    )

    (method (handleEvent pEvent)
        (if ((send pEvent:claimed))
            return 
        )(else
            (if (proc255_5(self pEvent 3) or Said('look,look/fiddle'))
                proc255_0(79 44 67 -1 20 70 280)
                (send pEvent:claimed(1))
            )(else
                (super:handleEvent(pEvent))
            )
        )
    )

)
(instance fire of Prop
    (properties
        x 248
        y 141
        noun 8140
        view 279
    )

    (method (handleEvent pEvent)
        (if ((send pEvent:claimed))
            return 
        )(else
            (if (Said('look,look/fireplace,fire') or proc255_5(self pEvent 3))
                proc255_0(79 45 67 -1 20 70 280)
            )(else
                (super:handleEvent(pEvent))
            )
        )
    )

)
(instance tableStuff of RPicView
    (properties
        x 70
        y 119
        noun 8159
        description 8315
        view 279
        loop 1
    )

    (method (handleEvent pEvent)
        (if ((send pEvent:claimed))
            return 
        )(else
            (if ((proc255_5(self pEvent 3) or Said('look,look/pitcher')) or Said('look,look/table[<little,little]'))
                proc255_0(79 46 67 -1 20 70 280)
                (send pEvent:claimed(1))
            )(else
                (if (Said('look,look<in/pitcher'))
                    proc255_0(79 47)
                )(else
                    (super:handleEvent(pEvent))
                )
            )
        )
    )

)
(instance ceramicBowl of Prop
    (properties
        x 163
        y 119
        z -15
        view 35
        loop 1
    )

    (method (handleEvent pEvent)
        (if ((send pEvent:claimed))
            return 
        )(else
            (if (proc255_5(self pEvent 3))
                proc255_0(79 48 67 -1 130 70 280 30 1)
            )(else
                (super:handleEvent(pEvent))
            )
        )
    )

)
(instance welcome of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                proc0_2()
                (head:setCycle(End self))
                (if (not proc0_12(113))
                    (send (ScriptID(0 23)):
                        number(8)
                        loop(-1)
                        play()
                    )
                )
                (if (proc0_12(113))
                    (wife:loop(1))
                )
            )
            (case 1
                (head:
                    loop(2)
                    cel(0)
                    setCycle(End self)
                )
            )
            (case 2
                (if (proc0_12(113))
                    proc255_0(79 49 67 -1 20 70 280)
                    proc255_0(79 50 67 -1 20 70 280)
                )(else
                    (if (proc0_12(8))
                        proc255_0(79 51 67 -1 20 70 280)
                        proc255_0(79 52 67 -1 20 70 280)
                    )(else
                        proc255_0(79 53 67 -1 20 70 280)
                        proc255_0(79 54 67 -1 20 70 280)
                    )
                )
                (head:setCycle(Beg self))
            )
            (case 3
                (head:
                    loop(1)
                    cel(3)
                    setCycle(Beg self)
                )
            )
            (case 4
                (head:stopUpd())
                proc0_3()
                (self:dispose())
            )
        )
    )

)
(instance emptyBowl of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                proc0_2()
                (send gEgo:
                    illegalBits(0)
                    ignoreActors()
                    setMotion(MoveTo 139 140 self)
                )
            )
            (case 1
                (body:
                    hide()
                    stopUpd()
                )
                (head:
                    hide()
                    stopUpd()
                )
                (send gEgo:
                    view(35)
                    loop(0)
                    cel(0)
                    posn(163 139)
                    cycleSpeed(2)
                    setCycle(End self)
                )
            )
            (case 2
                (head:
                    loop(2)
                    cel(0)
                    show()
                    setCycle(End self)
                )
            )
            (case 3
                proc255_0(79 55 67 -1 130 70 280 30 1)
                (head:
                    setPri(11)
                    setCycle(Beg self)
                )
            )
            (case 4
                (head:
                    hide()
                    stopUpd()
                )
                (send gEgo:setCycle(Beg self))
            )
            (case 5
                proc0_1()
                (send gEgo:
                    posn(139 140)
                    loop(0)
                    stopUpd()
                )
                (head:
                    show()
                    loop(1)
                    cel(3)
                    setCycle(Beg self)
                )
                (body:show())
            )
            (case 6
                (head:
                    setPri(-1)
                    stopUpd()
                )
                proc0_3()
                (self:dispose())
            )
        )
    )

)
(instance fullBowl of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                proc0_2()
                (send (ScriptID(0 23)):stop())
                (send (ScriptID(0 21)):
                    number(32)
                    init()
                    play()
                )
                (send gEgo:
                    illegalBits(0)
                    ignoreActors()
                    setMotion(MoveTo 139 140 self)
                )
            )
            (case 1
                (body:
                    hide()
                    stopUpd()
                )
                (head:
                    hide()
                    stopUpd()
                )
                (send gEgo:
                    view(35)
                    loop(0)
                    cel(0)
                    posn(163 139)
                    cycleSpeed(2)
                    setCycle(End self)
                )
                proc0_8(7)
            )
            (case 2
                proc0_1()
                (send gEgo:
                    posn(139 140)
                    loop(0)
                    stopUpd()
                )
                (body:
                    loop(0)
                    cel(1)
                    show()
                )
                (head:
                    show()
                    loop(2)
                    cel(0)
                    setCycle(End self)
                )
            )
            (case 3
                proc0_19(113 3)
                proc255_0(79 56 67 -1 20 70 280)
                proc255_0(79 57 67 -1 20 70 280)
                (head:
                    setPri(11)
                    setCycle(Beg self)
                )
            )
            (case 4
                (head:
                    hide()
                    stopUpd()
                )
                (wife:
                    loop(1)
                    forceUpd()
                    stopUpd()
                )
                (body:
                    loop(4)
                    cel(0)
                    cycleSpeed(2)
                    setCycle(Fwd)
                )
                = cycles 62
            )
            (case 5
                (body:
                    loop(0)
                    cel(1)
                    setCycle(0)
                )
                (head:
                    show()
                    setCycle(End self)
                )
            )
            (case 6
                proc255_0(79 58 67 -1 20 70 280)
                (head:
                    hide()
                    stopUpd()
                )
                (body:
                    loop(3)
                    cycleSpeed(2)
                    setCycle(End self)
                )
            )
            (case 7
                = seconds 3
            )
            (case 8
                (body:
                    loop(4)
                    setPri(8)
                    setCycle(Fwd)
                )
                proc0_3()
                proc0_10(113)
                (self:dispose())
            )
        )
    )

)
(instance getFiddle of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                proc0_2()
                (send gEgo:loop(2))
                = cycles 2
            )
            (case 1
                (send (ScriptID(0 21)):
                    number(105)
                    loop(1)
                    init()
                    play()
                )
                proc0_19(114 3)
                (send gEgo:get(17))
                (fiddle:dispose())
                = cycles 8
            )
            (case 2
                proc0_1()
                proc0_3()
                (self:dispose())
            )
        )
    )

)
(instance acceptIt of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                proc0_2()
                (send gEgo:
                    illegalBits(0)
                    ignoreActors()
                    setMotion(MoveTo 139 140 self)
                )
            )
            (case 1
                proc0_15(gEgo body)
                (if (local1)
                    proc255_0(79 59 67 -1 130 70 280 30 1)
                )(else
                    proc255_0(79 60 67 -1 130 70 280 30 1)
                )
                (head:
                    loop(2)
                    cel(0)
                    setCycle(End self)
                )
                proc0_8(local0)
            )
            (case 2
                (send gEgo:stopUpd())
                (if (local1)
                    proc255_0(79 61 67 -1 20 70 280)
                )(else
                    proc255_0(79 62 67 -1 130 70 280 30 1)
                )
                (head:
                    setPri(11)
                    setCycle(Beg self)
                )
            )
            (case 3
                proc0_1()
                (send gEgo:
                    posn(139 140)
                    loop(0)
                )
                (head:
                    show()
                    loop(1)
                    cel(3)
                    setCycle(Beg self)
                )
                (body:
                    show()
                    stopUpd()
                )
                (ceramicBowl:dispose())
            )
            (case 4
                (head:
                    setPri(-1)
                    stopUpd()
                )
                proc0_3()
                (self:dispose())
            )
        )
    )

)
(instance cupboard of NewFeature
    (properties
        x 68
        y 91
        noun 8201
        nsTop 82
        nsLeft 55
        nsBottom 101
        nsRight 81
        description 8392
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 8401
    )
)
(instance fireplace1 of NewFeature
    (properties
        x 251
        y 46
        noun 8208
        nsTop 5
        nsLeft 241
        nsBottom 88
        nsRight 262
        description 8446
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 8454
    )
)
(instance fireplace2 of NewFeature
    (properties
        x 251
        y 99
        noun 8208
        nsTop 88
        nsLeft 236
        nsBottom 110
        nsRight 266
        description 8559
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 8454
    )
)
(instance fireplace3 of NewFeature
    (properties
        x 234
        y 116
        noun 8208
        nsTop 98
        nsLeft 228
        nsBottom 135
        nsRight 241
        description 8559
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 8454
    )
)
(instance fireplace4 of NewFeature
    (properties
        x 266
        y 121
        noun 8208
        nsTop 102
        nsLeft 257
        nsBottom 141
        nsRight 275
        description 8559
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 8454
    )
)
(instance table1 of NewFeature
    (properties
        x 147
        y 144
        noun 8215
        nsTop 139
        nsLeft 143
        nsBottom 150
        nsRight 151
        description 8602
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
    )

    (method (doLook)
        (if ((send ((send gInv:at(17))):ownedBy(gNumber)))
            proc255_0(79 63)
        )(else
            proc255_0(79 64)
        )
    )

)
(instance table2 of NewFeature
    (properties
        x 158
        y 145
        noun 8215
        nsTop 138
        nsLeft 151
        nsBottom 153
        nsRight 165
        description 8602
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
    )

    (method (doLook)
        (if ((send ((send gInv:at(17))):ownedBy(gNumber)))
            proc255_0(79 63)
        )(else
            proc255_0(79 64)
        )
    )

)
(instance table3 of NewFeature
    (properties
        x 176
        y 144
        noun 8215
        nsTop 135
        nsLeft 165
        nsBottom 154
        nsRight 188
        description 8602
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
    )

    (method (doLook)
        (if ((send ((send gInv:at(17))):ownedBy(gNumber)))
            proc255_0(79 63)
        )(else
            proc255_0(79 64)
        )
    )

)
(instance table4 of NewFeature
    (properties
        x 197
        y 143
        noun 8215
        nsTop 136
        nsLeft 188
        nsBottom 150
        nsRight 206
        description 8602
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
    )

    (method (doLook)
        (if ((send ((send gInv:at(17))):ownedBy(gNumber)))
            proc255_0(79 63)
        )(else
            proc255_0(79 64)
        )
    )

)
(instance table5 of NewFeature
    (properties
        x 211
        y 144
        noun 8215
        nsTop 141
        nsLeft 206
        nsBottom 148
        nsRight 216
        description 8602
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
    )

    (method (doLook)
        (if ((send ((send gInv:at(17))):ownedBy(gNumber)))
            proc255_0(79 63)
        )(else
            proc255_0(79 64)
        )
    )

)
(instance rug1 of NewFeature
    (properties
        x 123
        y 148
        noun 8227
        nsTop 138
        nsLeft 103
        nsBottom 158
        nsRight 143
        description 8643
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        contClick 371
        lookStr 8647
    )
)
(instance bed1 of Feature
    (properties
        x 112
        y 117
        noun 8234
        nsTop 103
        nsLeft 94
        nsBottom 132
        nsRight 130
        description 8702
        sightAngle 360
        closeRangeDist 320
        longRangeDist 320
    )

    (method (doVerb theVerb)
        (switch (theVerb)
            (case 1
                proc255_0(79 65)
            )
            (default 
                (super:doVerb(theVerb))
            )
        )
    )

)
(instance bed2 of Feature
    (properties
        x 96
        y 94
        nsTop 87
        nsLeft 93
        nsBottom 102
        nsRight 99
        description 8702
        sightAngle 360
        closeRangeDist 320
        longRangeDist 320
    )

    (method (doVerb theVerb)
        (bed1:doVerb(theVerb))
    )

)
(instance bed3 of Feature
    (properties
        x 173
        y 118
        nsTop 107
        nsLeft 131
        nsBottom 129
        nsRight 215
        description 8702
        sightAngle 360
        closeRangeDist 320
        longRangeDist 320
    )

    (method (doVerb theVerb)
        (bed1:doVerb(theVerb))
    )

)
(instance bed4 of Feature
    (properties
        x 146
        y 133
        nsTop 129
        nsLeft 131
        nsBottom 137
        nsRight 162
        description 8702
        sightAngle 360
        closeRangeDist 320
        longRangeDist 320
    )

    (method (doVerb theVerb)
        (bed1:doVerb(theVerb))
    )

)
(instance bed5 of Feature
    (properties
        x 194
        y 94
        nsTop 82
        nsLeft 172
        nsBottom 106
        nsRight 216
        description 8702
        sightAngle 360
        closeRangeDist 320
        longRangeDist 320
    )

    (method (doVerb theVerb)
        (bed1:doVerb(theVerb))
    )

)
(instance nightstand of NewFeature
    (properties
        x 71
        y 123
        noun 8238
        nsTop 113
        nsLeft 46
        nsBottom 134
        nsRight 96
        description 8731
        sightAngle 360
        getableDist 320
        seeableDist 320
        shiftClick 369
        lookStr 8742
    )
)
