(version 2)
(include "sci.sh")
(exports
    0 haramiATalker
    1 Harami
)
(use "Main")
(use "TargFeature")
(use "GloryTalker")
(use "View")
(use "Obj")
(script 40)



(instance public Harami of TargActor
    (properties
        noun 1
        view 950
    )

    (method (doVerb theVerb)
        (var temp0)
        (if (proc999_5(theVerb 24 29 40 28 27))
            = temp0 
                (switch (theVerb)
                    (case 24
                        14
                    )
                    (case 29
                        19
                    )
                    (case 40
                        29
                    )
                    (case 28
                        18
                    )
                    (case 27
                        17
                    )
                )
            (send gOwner:drop(temp0 1))
            proc0_4(113)
            (send gOwner:addHonor(10))
        )(else
            (super:doVerb(theVerb))
        )
    )

)
(instance public haramiATalker of GloryTalker
    (properties
        x 185
        y 10
        view 951
        loop 1
        talkWidth 260
        back 57
        textX -161
        textY 100
        backColor 26
    )

    (method (init param1)
        (super:init(haramiABust haramiAEyes haramiAMouth rest param1))
    )

)
(instance haramiAMouth of Prop
    (properties
        nsTop 45
        nsLeft 26
        view 951
    )
)
(instance haramiAEyes of Prop
    (properties
        nsTop 30
        nsLeft 24
        view 951
        loop 2
    )
)
(instance haramiABust of View
    (properties
        nsTop 20
        nsLeft 23
        view 951
        loop 3
    )
)
