(version 2)
(include "sci.sh")
(exports
    0 aHarami
    1 haramiTalker
    2 guardTalker
)
(use "GloryTalker")
(use "View")
(script 241)



(instance public aHarami of Prop
    (properties
        x 137
        y 132
        noun 9
        approachDist 35
        view 950
        loop 1
        cel 2
        signal $4000
        cycleSpeed 14
    )

    (method (init param1)
        (super:init(rest param1))
        (self:approachVerbs(2 27 28 29 24 40))
    )

)
(instance public haramiTalker of GloryTalker
    (properties
        x 10
        y 10
        view 951
        loop 1
        talkWidth 260
        back 57
        textX 15
        textY 150
        backColor 26
    )

    (method (init param1)
        (super:init(haramiBust haramiEyes haramiMouth rest param1))
    )

)
(instance haramiBust of View
    (properties
        nsTop 20
        nsLeft 23
        view 951
        loop 3
    )
)
(instance haramiMouth of Prop
    (properties
        nsTop 45
        nsLeft 26
        view 951
    )
)
(instance haramiEyes of Prop
    (properties
        nsTop 30
        nsLeft 24
        view 951
        loop 2
    )
)
(instance public guardTalker of GloryTalker
    (properties
        x 205
        y 2
        view 191
        loop 1
        talkWidth 260
        back 57
        textX -180
        textY 150
        backColor 14
    )

    (method (init param1)
        (super:init(guardBust guardEyes guardMouth rest param1))
    )

)
(instance guardMouth of Prop
    (properties
        nsTop 45
        nsLeft 43
        view 191
    )
)
(instance guardEyes of Prop
    (properties
        nsTop 35
        nsLeft 43
        view 191
        loop 2
    )
)
(instance guardBust of View
    (properties
        nsTop 24
        nsLeft 40
        view 191
        loop 3
    )
)
