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



(instance public Quirk of Talker
    (properties
        x 0
        y 25
        view 1002
        talkWidth 150
        back 5
        textX 150
        textY 10
    )

    (method (init param1)
        = font gFont
        (if (== gModNum 1040)
            (Quirk:
                view(1009)
                x(16)
                y(27)
                textX(128)
            )
            (quirkBust:view(1009))
            (quirkEyes:
                view(1009)
                nsLeft(69)
                nsTop(11)
            )
            (quirkMouth:
                view(1009)
                nsLeft(51)
                nsTop(29)
            )
        )(else
            (quirkEyes:setLoop(Random(2 3)))
        )
        (super:init(quirkBust quirkEyes quirkMouth rest param1))
    )


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

)
(instance quirkBust of Prop
    (properties
        view 1002
    )
)
(instance quirkEyes of Prop
    (properties
        nsTop 22
        nsLeft 77
        view 1002
        loop 2
    )
)
(instance quirkMouth of Prop
    (properties
        nsTop 50
        nsLeft 74
        view 1002
        loop 1
    )
)
