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



(instance public tkrWD40 of Talker
    (properties
        x 10
        y 25
        view 1006
        talkWidth 150
        back 5
        textX 125
        textY 10
    )

    (method (init param1)
        = font gFont
        (super:init(wd40Bust wd40Eyes wd40Mouth rest param1))
    )

)
(instance wd40Bust of Prop
    (properties
        view 1006
    )
)
(instance wd40Eyes of Prop
    (properties
        nsTop 22
        nsLeft 60
        view 1006
        loop 2
    )
)
(instance wd40Mouth of Prop
    (properties
        nsTop 33
        nsLeft 48
        view 1006
        loop 1
    )
)
