(version 2)
(include "sci.sh")
(exports
    0 grabloc
)
(use "Main")
(use "Class_255_0")
(use "Game")
(script 703)



(instance public grabloc of Locale
    (properties)

    (method (handleEvent pEvent)
        (super:handleEvent(pEvent))
        (if ((<> (send pEvent:type) 128) or (send pEvent:claimed))
            return 
        )
        (if ((> global132 3) and (Said('look/grabber,control,device') or Said('look/button<claw,grabber,device')))
            proc255_0(703 0)
        )(else
            (if (Said('expectorate'))
                proc255_0(703 1)
            )(else
                (if (Said('ass/hosebag'))
                    proc255_0(703 2)
                )(else
                    (if (Said('kiss'))
                        proc255_0(703 3)
                    )(else
                        (if (Said('use/cable'))
                            (if ((send gEgo:has(1)))
                                proc255_0(703 4)
                            )(else
                                proc255_0(703 5)
                            )
                        )(else
                            (if (Said('tie'))
                                proc255_0(703 6)
                            )(else
                                (if (Said('holler,whistle,laugh[<out]'))
                                    proc255_0(703 7)
                                )(else
                                    (if (Said('listen'))
                                        proc255_0(703 8)
                                    )(else
                                        (if (Said('cry[<out]'))
                                            proc255_0(703 9)
                                        )(else
                                            (if (Said('clean'))
                                                proc255_0(703 10)
                                            )(else
                                                (if (Said('write'))
                                                    proc255_0(703 11)
                                                )(else
                                                    (if (Said('climb[<up,down]/banister,beam[<iron]'))
                                                        proc255_0(703 12)
                                                    )(else
                                                        (if (Said('use,climb,stand,erect,lean/ladder'))
                                                            (if ((send gEgo:has(2)))
                                                                proc255_0(703 13)
                                                            )(else
                                                                proc0_9()
                                                            )
                                                        )(else
                                                            (if (Said('beat'))
                                                                proc255_0(703 14)
                                                            )(else
                                                                (if (Said('hang<from/banister,beam[<iron]'))
                                                                    proc255_0(703 15)
                                                                )(else
                                                                    (if (Said('climb<down[/*]'))
                                                                        proc255_0(703 16)
                                                                    )(else
                                                                        (if (Said('look>'))
                                                                            (if (Said('[<down,below,at]/dirt,deck') or Said('<down,below,at[/dirt,deck]'))
                                                                                proc255_0(703 17)
                                                                            )(else
                                                                                (if (Said('/appendage,head,leg,body,self'))
                                                                                    proc255_0(703 18)
                                                                                )(else
                                                                                    (if (Said('/iron,scrap,debris,heap,garbage,ass'))
                                                                                        proc255_0(703 19)
                                                                                    )(else
                                                                                        (if (Said('/conduit'))
                                                                                            proc255_0(703 20)
                                                                                        )(else
                                                                                            (if (Said('[<up,above,at]/ceiling') or Said('<up,above,at[/ceiling]'))
                                                                                                proc255_0(703 21)
                                                                                            )(else
                                                                                                (if (Said('/claw[<grabber]'))
                                                                                                    (if ((== global132 4) or (== global132 5))
                                                                                                        proc255_0(703 22)
                                                                                                    )(else
                                                                                                        (send pEvent:claimed(0))
                                                                                                    )
                                                                                                )(else
                                                                                                    (if (Said('/motivator'))
                                                                                                        (if (== global135 3)
                                                                                                            (if ((== global132 4) or (== global132 5))
                                                                                                                proc255_0(703 22)
                                                                                                            )(else
                                                                                                                (if (== global11 13)
                                                                                                                    proc255_0(703 23)
                                                                                                                )(else
                                                                                                                    proc255_0(703 24)
                                                                                                                )
                                                                                                            )
                                                                                                        )(else
                                                                                                            proc255_0(703 24)
                                                                                                        )
                                                                                                    )(else
                                                                                                        (if (Said('/partition,console[<w,north,leech,w]'))
                                                                                                            proc255_0(703 25)
                                                                                                        )(else
                                                                                                            (if (Said('/banister,banister,beam[<iron]'))
                                                                                                                (if (< global132 4)
                                                                                                                    proc255_0(703 26)
                                                                                                                )(else
                                                                                                                    proc255_0(703 27)
                                                                                                                )
                                                                                                            )(else
                                                                                                                (if (Said('/lamp'))
                                                                                                                    proc255_0(703 28)
                                                                                                                )(else
                                                                                                                    (if (Said('/grate'))
                                                                                                                        proc255_0(703 29)
                                                                                                                    )
                                                                                                                )
                                                                                                            )
                                                                                                        )
                                                                                                    )
                                                                                                )
                                                                                            )
                                                                                        )
                                                                                    )
                                                                                )
                                                                            )
                                                                        )(else
                                                                            (if (Said('drop,hold[<in]/crystal/mouth'))
                                                                                proc255_0(703 30)
                                                                            )(else
                                                                                (if (Said('consume,break/crystal[<glowing]'))
                                                                                    proc255_0(703 31)
                                                                                )(else
                                                                                    (if (Said('sit,crawl,(get<off)[<down,on]/banister,banister,beam,conduit,bar'))
                                                                                        proc255_0(703 32)
                                                                                    )(else
                                                                                        (if (Said('use,get/motivator<motivator'))
                                                                                            (if (== global135 3)
                                                                                                proc255_0(703 33)
                                                                                            )(else
                                                                                                proc255_0(703 34)
                                                                                            )
                                                                                        )(else
                                                                                            (if (Said('nap,(lie<down)[/deck]'))
                                                                                                proc255_0(703 35)
                                                                                            )(else
                                                                                                (if ((== global132 4) or (== global132 5))
                                                                                                    (if (Said('look/chair[<grabber,device]'))
                                                                                                        proc255_0(703 36)
                                                                                                    )(else
                                                                                                        (if (Said('(stand[<up]),(get<up,out,off)'))
                                                                                                            proc255_0(703 37)
                                                                                                        )(else
                                                                                                            (if (Said('look/button[<claw]'))
                                                                                                                proc255_0(703 38)
                                                                                                            )(else
                                                                                                                (if (Said('get[<up]/motivator'))
                                                                                                                    (if (== global135 3)
                                                                                                                        proc255_0(703 39)
                                                                                                                    )(else
                                                                                                                        proc255_0(703 40)
                                                                                                                    )
                                                                                                                )(else
                                                                                                                    (if (Said('look/control,console[<device,grabber]'))
                                                                                                                        proc255_0(703 41)
                                                                                                                    )(else
                                                                                                                        (if (Said('drag,press,use,manipulate,go[<forward,backward,back][/stick,throttle,control,knob]') or Said('begin,manipulate,drive[<forward,backward,back]/grabber,device'))
                                                                                                                            proc255_0(703 42)
                                                                                                                        )(else
                                                                                                                            (if (Said('release[/throttle,stick,control]'))
                                                                                                                                proc255_0(703 43)
                                                                                                                            )(else
                                                                                                                                (if (Said('look/claw[<grabber,device]'))
                                                                                                                                    proc255_0(703 22)
                                                                                                                                )(else
                                                                                                                                    (if (Said('climb'))
                                                                                                                                        proc255_0(703 44)
                                                                                                                                    )(else
                                                                                                                                        (if (Said('get,climb[<onto,on,to]/banister,beam') or Said('get<up,on/banister,beam'))
                                                                                                                                            proc255_0(703 45)
                                                                                                                                        )(else
                                                                                                                                            (if (Said('get,jump,leap,climb[<onto,on,to]/conduit,bar'))
                                                                                                                                                proc255_0(703 46)
                                                                                                                                            )(else
                                                                                                                                                (if (Said('stand,climb,get[<up,onto,off,down,on,out]/grabber,device,claw,banister,beam'))
                                                                                                                                                    proc255_0(703 47)
                                                                                                                                                )(else
                                                                                                                                                    (if (Said('open/grate'))
                                                                                                                                                        proc255_0(703 48)
                                                                                                                                                    )(else
                                                                                                                                                        (if (Said('jump/craft'))
                                                                                                                                                            proc255_0(703 49)
                                                                                                                                                        )(else
                                                                                                                                                            (if (Said('jump[<down,up]'))
                                                                                                                                                                proc255_0(703 50)
                                                                                                                                                            )
                                                                                                                                                        )
                                                                                                                                                    )
                                                                                                                                                )
                                                                                                                                            )
                                                                                                                                        )
                                                                                                                                    )
                                                                                                                                )
                                                                                                                            )
                                                                                                                        )
                                                                                                                    )
                                                                                                                )
                                                                                                            )
                                                                                                        )
                                                                                                    )
                                                                                                )
                                                                                            )
                                                                                        )
                                                                                    )
                                                                                )
                                                                            )
                                                                        )
                                                                    )
                                                                )
                                                            )
                                                        )
                                                    )
                                                )
                                            )
                                        )
                                    )
                                )
                            )
                        )
                    )
                )
            )
        )
    )

)
