Каталог файлов

Program PoisoningDRW;

{$Include 'all.inc'} 

// (c) v26RuS (Galiano{ASTARTA} DRW)

Const

Sunduk=$4038340D;

Dagger=$403943F7;

kolvo=100;

var

PoisonFlag : Boolean;

time : TDateTime;

Begin

PoisonFlag:=true;

UseObject(Sunduk);

wait(1000);

repeat

 FindTypeEx($0F0E,$0998,backpack,false);

 if (GetQuantity(FindItem) < 1) then

  begin

  FindTypeEx($0F0E,$0998,Sunduk,false);

  if (GetQuantity(FindItem) < 1) then

  begin

   PoisonFlag:=false;

   AddToSystemJournal('Закончились бутылки пойзона');

  end;

  if (GetQuantity(FindItem) > 1) then

  begin

   grab(FindItem,kolvo);

   AddToSystemJournal('Взяли '+IntToStr(kolvo)+' бутылок');

  end;

 end;

 if PoisonFlag = true then

 begin

  time := now;

  useskill('Poisoning');

  wait(800);

  waitfortarget(5000);

  if targetpresent then 

  begin 

   targettoobject(Dagger);

  wait(1000);

 //  waitfortarget(5000); 

   if targetpresent then WaitTargetType($0F0E); 

 //  waitjournalline(time,'You fail to apply|You apply the poison',30000); 

   wait(3000); 

  end;

 end;

until (PoisonFlag=false) or (GetSkillValue('Poisoning') >= 100.0) or Dead;

End.