(version 2)
(include "sci.sh")
(exports
    42 PHBalance
)
(use "Main")
(use "Blink")
(use "View")
(script 1819)



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

    (method (init param1)
        = back gBack
        = font gFont
        (if (== gNumber 400)
            = x 200
            = y 76
            = textX -185
        )
        (super:init(phBalanceBust phBalanceEyes phBalanceMouth rest param1))
    )

)
(instance phBalanceBust of Prop
    (properties
        view 1807
        loop 1
    )
)
(instance phBalanceEyes of Prop
    (properties
        nsTop 26
        nsLeft 36
        view 1807
        loop 2
    )
)
(instance phBalanceMouth of Prop
    (properties
        nsTop 36
        nsLeft 30
        view 1807
    )
)
