Жесткий скриптингРаздел для обсуждения готовых и тестируемых скриптов
Внимание! В разделе введена жесткая модерация, темы и сообщения публикуются только после проверки модераторами
Я немного неправильно написал мануал. Вот часть с исправлениями.
delphi Код:
Готовим маршруты движения:
1) Становимся у фишермэна, выбираем в комбобоксе MestoLovli1, REC, побежали на первое место ловли, добежали, SAVE, бросили что ни будь для ориентира.
2) Выбираем в комбобоксе Reposition1, REC, отбежали немного и снова вернулись на место ловли, SAVE.
3) Выбираем в комбобоксе MestoLovli1, жмем BACK, в автомате возвращаемся к фишермэну.
4) Выбираем в комбобоксе MestoLovli2, REC, побежали на второе место ловли, добежали, SAVE, бросили что ни будь для ориентира.
5) Выбираем в комбобоксе Reposition2, REC, отбежали немного и снова вернулись на место ловли, SAVE.
6) Выбираем в комбобоксе MestoLovli2, жмем BACK, в автомате возвращаемся к фишермэну.
7) Выбираем в комбобоксе MestoLovli3, REC, побежали на третье место ловли, добежали, SAVE, бросили что ни будь для ориентира.
8) Выбираем в комбобоксе Reposition3, REC, отбежали немного и снова вернулись на место ловли, SAVE.
9) Выбираем в комбобоксе MenayemMesto1, REC, побежали на первое место ловли (на ориентир), добежали, SAVE.
10) Выбираем в комбобоксе MenayemMesto2, REC, побежали на второе место ловли (на ориентир), добежали, SAVE.
11) Выбираем в комбобоксе MenayemMesto3, REC, побежали на третье место ловли (на ориентир), добежали, SAVE.
12) SOE, выбираем в комбобоксе AfterDeath, REC, побежали к фишермэну, добежали, SAVE.
13) Все! Маршруты готовы.
14) Лучше почаще кликать, так как каждые (настраиваемо) секунд, возврат на предыдущую точку, для предотвращения остановки при движении по маршруту.
Небольшие улучшения в "самоопределении" позиции чара
Респектище тебе NLObP!
Я попробовал рыбачить через бота L2Jes, выявилось, что полностю полагаться на пакет клинета 48 ValidatePosition нельзя, поэтому я поставил дополнительную коррекцию координат чара на пакет сервера 01 МoveBackwardToLocation. Думаю эта проверка не повредит и для реального клиента.
Это кусок (с обрамляющим кодом) который я добавил в обработку серверных пакетов:
delphi Код:
//****************************************************************************if(ConnectName=Name)and FromServer thenbegincase pck[1] of
#$01: begin// MoveBackwardToLocationif ReadD(2) = MyOID thenbegin
MyX := ReadD(18);
MyY := ReadD(22);
MyZ := ReadD(26);
end;
end;
//***************************************************************
#$04: begin//пакет с инфой о моём чаре//msg.Lines.Add('S>Пакет UserInfo #$04');
UserInfo;