(include "sci.sh")
(use "Main")
(use "Blink")
(use "View")
(use "Obj")
(script 1886)



(instance public Flo of Talker
    (properties
        x 175
        y 5
        view 1008
        talkWidth 85
        back 5
        textX 65426
    )

    (method (init param1)
        = font gFont
        = gSq5Win gSq5Win_2
        (if (proc999_5(gModNum 200))
            (self:
                view(1005)
                setLoop(3)
                x(215)
                y(20)
                textX(65426)
                talkWidth(110)
            )
            (floBust:
                view(1005)
                loop(0)
            )
            (floEyes:
                view(1005)
                nsLeft(19)
                nsTop(31)
            )
            (floMouth:
                view(1005)
                nsLeft(19)
                nsTop(45)
            )
        )
        (super:init(floBust floEyes floMouth rest param1))
    )


    (method (dispose param1)
        = gSq5Win gSq5Win_2
        (super:dispose(rest param1))
    )

)
(instance floBust of Prop
    (properties
        view 1008
    )
)
(instance floEyes of Prop
    (properties
        nsTop 33
        nsLeft 39
        view 1008
        loop 2
        signal 16384
    )
)
(instance floMouth of Prop
    (properties
        nsTop 43
        nsLeft 45
        view 1008
        loop 1
        signal 16384
    )
)
