Passar sobre Poison e usar Exana Pox

Const

Exana_Pox = 1 // 1- usa o exana pox, 0 nao usa.

Procedure Event_Notice(Text:String);
begin
UpdateWorld;
if Text = 'There is no way.' then
Begin
UpdateWorld;
X := Self.X;
Y := Self.Y;
Z := Self.Z;
repeat
if (Self.X <> X) or (Self.Y <> Y) then exit;
Self.MoveRight;
sleep(1000);
UpdateWorld;
if (Self.X <> X) or (Self.Y <> Y) then exit;
Self.MoveUp;
Sleep(1000);
UpdateWorld;
if (Self.X <> X) or (Self.Y <> Y) then exit;
Self.MoveLeft;
Sleep(1000);
UpdateWorld;
if (Self.X <> X) or (Self.Y <> Y) then exit;
Self.MoveDown;
Sleep(1000);
UpdateWorld;
until (Self.X <> X) or (Self.Y <> Y);
end;
end;

While not terminated do
begin
UpdateWorld;
ProcessEvents;
Sleep(100);
if Self.Poisoned then
if Exana_Pox then
begin
Self.Say('exana pox');
Sleep(3000);
end;
end;