(version 2)
(include "sci.sh")
(exports
    0 honeyTalker
    1 honeyVendor
)
(use "Main")
(use "Vendor")
(use "GloryTalker")
(use "View")
(script 247)


(local
    theVendor

)
(instance public honeyTalker of GloryTalker
    (properties
        x 10
        y 15
        view 255
        loop 1
        talkWidth 260
        back 57
        textX 15
        textY 95
        backColor 12
    )

    (method (init param1)
        (super:init(honeyBust honeyEyes honeyMouth rest param1))
    )

)
(instance honeyBust of View
    (properties
        nsTop 21
        nsLeft 28
        view 255
        loop 3
    )
)
(instance honeyMouth of Prop
    (properties
        nsTop 52
        nsLeft 31
        view 255
    )
)
(instance honeyEyes of Prop
    (properties
        nsTop 40
        nsLeft 35
        view 255
        loop 2
    )
)
(instance public honeyVendor of Vendor
    (properties
        noun 4
    )

    (method (dispose param1)
        = goods 0
        (super:dispose(rest param1))
    )


    (method (transact param1 param2)
        = theVendor self
        (switch (param1)
            (case 0
                proc47_3(param1 param2 theVendor)
                (send gOwner:
                    solvePuzzle(224 2)
                    get(29 param2)
                )
                (send gQg3Messager:say(4 6 10 0 self))
            )
        )
    )


    (method (doBargain param1)
        (switch (param1)
            (case 1
                (send gQg3Messager:say(4 6 11 0 self))
            )
            (case 2
                (send gQg3Messager:say(4 6 14 0 self))
            )
            (case 3
                (send gQg3Messager:say(4 6 15 0 self))
            )
            (case 4
                (send gQg3Messager:say(4 6 16 0 self))
            )
            (case 5
                (send gQg3Messager:say(4 6 12 0 self))
            )
            (case 6
                (send gQg3Messager:say(4 6 13 0 self))
            )
            (default 
                (self:cue())
            )
        )
    )

)
