Попробуй.Ошибки могуть быть, сам исправишь :) Program Stealing; // made by -=JoKeR=- © // for Forest Wars Shard {$Include 'all.inc'} Const Doll = $00085882; // ID чара, у которого воруем Gloves = $400C3CB8; // ID перчаток Deelz = $0F7A; // тип предмета, который воруем Var STime: TDateTime; procedure...

Суть: На стелсе стоит чар ,который через заданный промежуток времени сканирует местность на наличие других игроков. Хочу написать приложение, которое будет обрабатывать эту информацию. Соотвественно вопрос- каким образом инфу из стелса передавать этому приложению? Через текстовые файлы почему то не ...

program TrainMagery; Const Sunduk=$401DABDE; // ID сундука с найтшейдом... Steak=$097B; // Type еды, которую может кушать... VAR Stime,StartCheckTime:TDateTime; procedure CheckLag; var starttimeCL : TDateTime; begin repeat starttimeCL := Now; ClickOnObject(backpack); wait(100); WaitJournalLine(star...

Да, но этот чекстеп не рабоает.Точнее он на каждом тайле пишет пассабл...

Мне кажется ты опспешил выкладывать...

Дык чуть выше (Sticky: Ходилка с обходом препятствий) всё есть.Эхх, выложили б пока релиз с проверкой тайлов на проходимость... :

Чутка поправил. Теперь правильно считается расстояние и ходит по прямой(Спасиб Beyonderu ). // написал Somebody. ICQ: 475728522 e-mail: somebody@krovatka.su // Реализация алгоритма "надёжной трассировки" // http://pmg.org.ru/ai/stout.htm#robust_trace const FMoveArrMax = 300; // ставь здесь...

Не совсем к стелсу относится, но всё же спрошу. На рисунке http://www.rapidshare.ru/614478 черные клетки- непроходимые тайлы, белые -проходимые. Красной стрелочкой указан ход чара.На нашем сервере такой ход не получается, то есть придется заменять его на два ортогональных.Типа чар цепляется за угол ...

Может до тайла не дотягивается? Или координата Z неверно указана? Он вокруг себя рыбачит или как? Зачем координаты забывать в массив? Судя по координатам в прямоугольнике 3Х10...Не лудше ли в циклы загнать? и вместо Z попробуй GetZ(self)...

Да, одевает перчатки когда скилл достигает 30%.Иначе скилл не растет.Перчатки дают +к резисту, потом он их снимает.Вырезал, это роли не играет.Вот кастер: program Resist_Mage; {$Include 'all.inc'} Const ReagsChest=$40028EC0; FFType=$3996; Procedure CastFF; Var STime: TDateTime; Begin FindType(FFType...

Как скажешь, белый хозяин... Program Resist; {$Include 'GotoXY.inc'} {$Include 'all.inc'} Var xxMage,yyMage: integer; x0,x1,x2,y: integer; Const Gloves=$13C6; Procedure InitCoord; Begin repeat AddToSystemJournal('Считываем координаты мага ...'); xxMage:=myStrToInt(GetGlobal('stealth','xMage')); yyMa...

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

Вообщем так.Запускаю чара, который кастует ФФ. ФФ он кастует в соответсвии со своими кординатами.Он в глобалку кидает свои координаты. Запускаю чара, который бегает по ФФ. Он читает координаты, соответствующим образом обрабатывает.Определяет две точки, между которыми он и бегает. В общем то проблема...

Координаты чара ,естественно.ФФ кидаю на тайл, находящийся в строго заданных относительно кастующего координатах.Наблюдая за процессом, заметил ,что чар часто начинает бегать параллельно ФФ,причем то с одной, то с другой стороны.Стал смотреть координаты на закладке Main.И понял, что в таких ситуация...

Качал резист, бегая голыми пятками по фаерфильду и обратил внимание, что в стелсе координаты определяются с ошибкой +-1 тайл.Спасал только постоянный ресинк.Теперь в скрипте на мининг с кучкой маршрутов изза этого возникают проблемы в узких проходах.То есть частенько залезает куда не нужно.Ставить р...