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



(instance public Droole of Talker
    (properties
        x 10
        y 25
        view 1004
        loop Droole
        talkWidth 150
        back 5
        textX 120
        textY 10
    )

    (method (init param1)
        = font gFont
        (drooleEyes:setLoop(Random(2 3)))
        (super:init(drooleBust drooleEyes drooleMouth rest param1))
    )


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

)
(instance drooleBust of Prop
    (properties
        view 1004
    )
)
(instance drooleEyes of Prop
    (properties
        nsTop 12
        nsLeft 50
        view 1004
        loop 2
    )
)
(instance drooleMouth of Prop
    (properties
        nsTop 32
        nsLeft 47
        view 1004
        loop 1
    )
)
