use uo;
use os;
include "include/eventid";
include ":guildstone:resign";

program bp_hearspeech(bp)

var ev, mob, elem;

if (!bp)
  return;
endif

var master_ser:=CInt(GetObjProperty(bp,"master_ser"));
if (!master_ser)
  return;
endif

RegisterForSpeechEvents(bp,0,0);
EnableEvents( EVID_SPEECH, 0);

SetObjProperty(bp, "bp_pid", getpid());

while (bp)
        if (CInt(GetObjProperty(bp, "bp_pid")) != getpid())
           return;
        endif
           ev := wait_for_event(30);
           if (ev)
               elem := ev.text;
 	       elem := lower(elem);
               mob := ev.source;
               if (mob.serial == master_ser)
                 if(elem["guards"])
            	    var start := start_script( ":guards:callguards", mob );
                    if( start.errortext )
		       SysLog("unable to start script ->"+start.errortext);
	            endif
                 endif
	       endif
          endif
          clear_event_queue();
          ev:=0;
endwhile
endprogram