(version 2)
(include "sci.sh")
(exports
    47 Madame
)
(use "Main")
(use "Blink")
(use "View")
(script 1817)



(instance public Madame of Talker
    (properties
        x 5
        y 5
        view 1803
        loop 3
        disposeWhenDone 2
        talkWidth 150
        textX 133
        textY 12
    )

    (method (init param1)
        = back gBack
        = font gFont
        (if (== gNumber 790)
            = x 208
            = y 65
            = textX -163
            = textY 40
            = talkWidth 135
            (super:init(madameBust madameEyes madameMouth rest param1))
        )(else
            (if (== gNumber 420)
                = y (= x 0)
                = textX 10
                = textY 140
                = talkWidth 290
                (super:init(madameCloseBust madameCloseEyes madameCloseMouth rest param1))
            )(else
                (if (== gNumber 600)
                    = x 208
                    = y 65
                    = textX -180
                    (super:init(madameBust madameEyes madameMouth rest param1))
                )(else
                    (super:init(madameBust madameEyes madameMouth rest param1))
                )
            )
        )
    )

)
(instance madameCloseBust of Prop
    (properties
        view 1843
    )
)
(instance madameCloseEyes of Prop
    (properties
        nsTop 80
        nsLeft 114
        view 420
    )
)
(instance madameCloseMouth of Prop
    (properties
        nsTop 96
        nsLeft 106
        view 420
        loop 1
    )
)
(instance madameBust of Prop
    (properties
        view 1803
        loop 1
    )
)
(instance madameEyes of Prop
    (properties
        nsTop 48
        nsLeft 41
        view 1803
        loop 2
    )
)
(instance madameMouth of Prop
    (properties
        nsTop 64
        nsLeft 42
        view 1803
    )
)
