(version 2)
(include "sci.sh")
(exports
    0 fruitVendor
    1 tFruitTalker
)
(use "Main")
(use "Vendor")
(use "GloryTalker")
(use "View")
(script 232)


(local
    theVendor

)
(instance public fruitVendor of Vendor
    (properties
        noun 4
    )

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


    (method (transact param1 param2)
        (switch (param1)
            (case 0
                = theVendor self
                proc47_3(param1 param2 theVendor)
                (send gOwner:get(19 param2))
                (send gQg3Messager:say(4 6 19 0 self))
            )
        )
    )


    (method (doBargain param1)
        (switch (param1)
            (case 1
                (send gQg3Messager:say(4 6 35 0 self))
            )
            (case 2
                (send gQg3Messager:say(4 6 39 0 self))
            )
            (case 3
                (send gQg3Messager:say(4 6 40 0 self))
            )
            (case 4
                (send gQg3Messager:say(4 6 41 0 self))
            )
            (case 5
                (send gQg3Messager:say(4 6 38 0 self))
            )
            (case 6
                (send gQg3Messager:say(4 6 37 0 self))
            )
            (default 
                (self:cue())
            )
        )
    )

)
(instance public tFruitTalker of GloryTalker
    (properties
        x 200
        y 2
        view 235
        loop 1
        talkWidth 260
        back 57
        textX -175
        textY 150
        backColor 28
    )

    (method (init param1)
        (super:init(fruitBust fruitEyes fruitMouth rest param1))
    )

)
(instance fruitBust of Prop
    (properties
        nsTop 38
        nsLeft 23
        view 235
        loop 3
    )
)
(instance fruitEyes of Prop
    (properties
        nsTop 47
        nsLeft 27
        view 235
        loop 2
    )
)
(instance fruitMouth of Prop
    (properties
        nsTop 62
        nsLeft 23
        view 235
    )
)
