Vizit0r wrote:надо, чтобы были в радиусе 18 тайлов животные для тайминга, вот и всё.

спасибо,попробую изменить,хотя у нас на шарде,целые фермы зверей,полюбому в радиусе 18 тайлов кто то есть...

Скрипт выполняется один раз,после этого чар просто стоит,подскажите пожалуйста,что поправить,чтобы скрипт выполнялся пстоянно? program tamingKill; var k : integer; ctime : TDateTime; const animal =$00ED; // Hind {$Include 'all.inc'} Begin FindDistance := 13; repeat while FindTypeEx(animal, $FFFF, gr...

гдето он всё равно тормозит,при выборе пустой бутылки

repeat {ждать пока в паке найдеться кег или пройдет 3000 сек} wait(500); m := m + 1; until (findtype($1940,backpack) > 0) or (m > 20) собственно автором там все написано, только ждетпока пройдет 10сек, а не 3. исправил,не помогло,впринципе я из-за того,что он ждет так долго и исправил на 3 секунды,...

подробнее в деталях - что надо сделать чтобы получить эту надпись? берет полную кегу из сундука , наливает из неё в бутылку яд,и тут начинает спрашивать это:Select a potion or bottle. если ему указать на пустую бутылку нальет яду,еслина полную сольет в кегу,а должен дагер отравить по идеи.Если ниче...

поправить,так,чтобы не висело целую минуту.

Код: Program Poisoning; var syndyk1,syndyk2,orywie :cardinal; me,time : TDateTime; e,o,b,t,n,m,q,w,h : Integer; {$Include 'all.inc'} Begin SetARStatus(true); Hungry(1,ground); {=Требуется настройка ! ! !=} syndyk1 := $4A71B44B; {Указать ID сундука с полными кегами} syndyk2 := $4AB71C92; {Указать ID...