NG Phorum

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 := 4; // tutaj dajemy od ile ma wypowiedzieć exana pox
  while not Terminated do
  begin
    ProcessEvents;
    Sleep(100);
  end;
end; [/hide]