Combo UE

Const

Leader = 'Lidername'; //nome do lider do combo
KeyWord = 'exevo gran mas flam'; //UE que o lider usar
YourUESay = 'exevo gran mas frigo'; // UE que voce vai usar

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

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