Exana Pox com X de Poison

var
MaxPoison: integer;

procedure Event_Notice(Text: string);
var
PoisonAmount: string;
begin
UpdateWorld;
if Self.Mana < 30 then Exit; if not Self.Poisoned then Exit; if Pos('You lose ', Text) = 0 then Exit; if Pos(' hitpoints.', Text) = 0 then Exit; PoisonAmount := Text; Delete(PoisonAmount, 1, 9); PoisonAmount := Copy(PoisonAmount, 1, Pos(' ', PoisonAmount) - 1); if IntToStr(PoisonAmount) > MaxPoison then Self.Say('exana pox');
end;

begin
MaxPoison := 5;
while not Terminated do
begin
ProcessEvents;
Sleep(100);
end;
end;