Combo Ue

Const
Leader='Hiho';//set the leader name.
KeyWord='attack!';//key word to triger ue casting.

procedure Event_Message(Channel: integer; Name, Text: String);
begin
If Name=Leader then 
If Pos(KeyWord, Text) <> 0 then
Self.Say('exevo gran mas vis');
end;

begin   
while not terminated do   
begin   
processEvents;   
sleep(100);   
end;   
end;