(version 2)
(include "sci.sh")
(exports
    0 oilTalker
    1 oilVendor
)
(use "Main")
(use "Vendor")
(use "GloryTalker")
(use "View")
(script 248)


(local
    theVendor

)
(instance public oilTalker of GloryTalker
    (properties
        x 5
        y 25
        view 259
        loop 1
        talkWidth 260
        back 57
        textX 15
        textY 95
        backColor 29
    )

    (method (init param1)
        (super:init(oilBust oilEyes oilMouth rest param1))
    )

)
(instance oilBust of View
    (properties
        nsTop 27
        nsLeft 39
        view 259
        loop 3
    )
)
(instance oilMouth of Prop
    (properties
        nsTop 50
        nsLeft 37
        view 259
    )
)
(instance oilEyes of Prop
    (properties
        nsTop 39
        nsLeft 38
        view 259
        loop 2
    )
)
(instance public oilVendor of Vendor
    (properties
        noun 5
    )

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


    (method (transact param1 param2)
        = theVendor self
        (switch (param1)
            (case 0
                proc47_3(param1 param2 theVendor)
                (send gOwner:
                    solvePuzzle(223 5 4)
                    get(25 param2)
                )
                (send gQg3Messager:say(5 6 10 0 self))
            )
        )
    )


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

)
