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



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

    (method (init param1)
        = font gFont
        (rogEyes:setLoop(Random(2 3)))
        (super:init(rogBust rogEyes rogMouth rest param1))
    )


    (method (dispose param1)
        (super:dispose(rest param1))
    )

)
(instance rogBust of Prop
    (properties
        view 1000
    )
)
(instance rogEyes of Prop
    (properties
        nsTop 21
        nsLeft 47
        view 1000
        loop 2
    )
)
(instance rogMouth of Prop
    (properties
        nsTop 35
        nsLeft 44
        view 1000
        loop 1
    )
)
