(version 2)
(include "sci.sh")
(exports
    0 sanfordTalker
    1 sonTalker
    2 sanfordVendor
)
(use "Main")
(use "Vendor")
(use "GloryTalker")
(use "View")
(script 246)


(local
    theVendor

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

    (method (init param1)
        (super:init(sanfordBust sanfordEyes sanfordMouth rest param1))
    )

)
(instance sanfordBust of View
    (properties
        view 243
        loop 1
    )
)
(instance sanfordMouth of Prop
    (properties
        nsTop 52
        nsLeft 42
        view 243
    )
)
(instance sanfordEyes of Prop
    (properties
        nsTop 38
        nsLeft 43
        view 243
        loop 2
    )
)
(instance public sonTalker of GloryTalker
    (properties
        x 10
        y 15
        view 245
        loop 1
        talkWidth 260
        back 57
        textX 15
        textY 95
        backColor 10
    )

    (method (init param1)
        (super:init(sonBust sonEyes sonMouth rest param1))
    )

)
(instance sonBust of View
    (properties
        view 245
        loop 1
    )
)
(instance sonMouth of Prop
    (properties
        nsTop 49
        nsLeft 42
        view 245
    )
)
(instance sonEyes of Prop
    (properties
        nsTop 35
        nsLeft 39
        view 245
        loop 2
    )
)
(instance public sanfordVendor of Vendor
    (properties
        noun 7
    )

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


    (method (transact param1 param2)
        = theVendor self
        (switch (param1)
            (case 0
                proc47_3(param1 param2 theVendor)
                (send gOwner:
                    solvePuzzle(225 3)
                    get(9 param2)
                )
                (send gQg3Messager:say(7 6 10 0 self))
            )
            (case 1
                proc47_3(param1 param2 theVendor)
                (send gOwner:
                    solvePuzzle(226 5 4)
                    get(33 param2)
                )
                proc0_4(147)
                (send gQg3Messager:say(6 6 10 0 self))
            )
        )
    )


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

)
