Скрипт на рыбалку

[Breadfan]

По поводу скрипта: играю на ява камаель серве и так была такая беда - если перс был атакован мобом во время рыбалки то просто тупо стоял и втыкался как моб его бьет. Если попадался глупый моб который начал атаковать его в тот момент когда бот еще не начал закидывать удочку то вот тут то скрипт и срабатывал как ему необходимо...По причине багов серва, чаще всего моб, после его вытягивания, какоето время сидит в воде, и лишь потом выпрыгивает к персу, а может так и задуманно изначально. В общем в моем случае это вылечилось небольшой модификацией процедуры использования хеликов

procedure OnShowInfo(Sender: TObject); //выводим в форму
begin
  ShowInfo;
  if (MyHP<but) and HPuse1 then begin //если разрешено использование бутылок, то используем
    if (iii>=5) and (colvohp>0) then begin
      UseItem(HPOID); //проверка количества бутылок
      iii:=0; //счетчик для личилок, чтобы не спамить
      giveweapon;
      TargetAttacker(AttackerOID);
      underattack:=true;
      end else inc(iii)
  end;
end;