(version 2)
(include "sci.sh")
(exports
    56 Penelope
)
(use "Main")
(use "Blink")
(use "View")
(script 1812)



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

    (method (init param1)
        = back gBack
        = font gFont
        (if (== gNumber 790)
            = x 190
            = y 80
            = textX -163
            = textY 10
            = talkWidth 135
        )(else
            (if (== gNumber 600)
                = x 200
                = y 76
                = textX -180
            )
        )
        (super:init(penelopeBust penelopeEyes penelopeMouth rest param1))
    )

)
(instance penelopeBust of Prop
    (properties
        view 1802
        loop 1
    )
)
(instance penelopeEyes of Prop
    (properties
        nsTop 40
        nsLeft 39
        view 1802
        loop 2
    )
)
(instance penelopeMouth of Prop
    (properties
        nsTop 50
        nsLeft 37
        view 1802
    )
)
