Вернуться   CoderX :: Forums > Lineage II > L2PacketHack > Скриптинг
Войти через OpenID

Скриптинг Форум посвещенный созданию скриптов для L2PacketHack

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
Ответ
 
Опции темы Опции просмотра
Старый 05.02.2010, 12:17   #611
Пользователь
 
Регистрация: 03.09.2009
Сообщений: 63
Сказал Спасибо: 19
Имеет 5 спасибок в 3 сообщенях
tiranosaur пока неопределено
По умолчанию

бот локомотив проверка TypeID моба

delphi Код:
function proverka : boolean;  var i:integer;         begin     for i:=1 to MobsLastIndex do     begin     result:=false;     if (TargetID = MobsObjID[i]) and NpcTypeID1=MobsNpcTypeID[i] then result:=true;     end;  end;
в локомотиве изменил только это. где я не прав?
либо как узнать typeID цели?

Последний раз редактировалось NLObP, 07.02.2010 в 23:31.
tiranosaur вне форума   Ответить с цитированием
Старый 05.02.2010, 12:35   #612
Рыцарь
 
Аватар для alexteam
 
Регистрация: 07.03.2009
Сообщений: 9,139
Сказал Спасибо: 70
Имеет 2,820 спасибок в 1,735 сообщенях
alexteam на пути к лучшему
По умолчанию

Код:
if (TargetID = MobsObjID[i]) and (NpcTypeID1=MobsNpcTypeID[i]) then 
  begin
    result:=true;
    break;
  end;
__________________
L2Ext - project closed.
alexteam вне форума   Ответить с цитированием
За это сообщение alexteam нажился спасибкой от:
Старый 05.02.2010, 15:44   #613
Пользователь
 
Регистрация: 03.09.2009
Сообщений: 63
Сказал Спасибо: 19
Имеет 5 спасибок в 3 сообщенях
tiranosaur пока неопределено
По умолчанию

вставил проверку спойла
delphi Код:
if TargetID > 0 then           // если в прицеле есть моб, то    begin                                  // валим вражину     if ((AttackCycle mod 5) = 0) then      begin       if Spoil and (not Spoiled) and (MobsNpcTypeID[i]=1021173)  then RequestMagicSkillUse(254)   // заспойлим моба если опция включена       else PhisicalAttack;            end;
выдает ошибку: Variant of safe array index out of bounds
оТДЕЛЬНОЙ ПРОЦЕДУРОЙ ТА ЖЕ ФИГНЯ((( помогите пжл

Добавлено через 1 час 32 минуты
УРААААААААААААА ПОЛУЧИЛОСЬ!!!!!!!!!!!!!!!!! вот кусок:

delphi Код:
function proverka : boolean;        // функция проверяет, атакует ли меня кто-нибудь или нет  var   i: integer;  begin     for i:=1 to MobsLastIndex do   if (TargetID = MobsObjID[i]) and (MobsNpcTypeID[i]=1021173) then  // ищем первого попавшегося моба, который нас атакует    begin     result:= true;                                      // возвращаем его индекс по БД     break;    end else result:=false;  end; procedure OnTimerCombat (Sender: TObject);         // боевой таймер, вся логика поведения бота находится именно здесь!!!  var   Agro, MinDistID, i: integer;  begin   if TargetID > 0 then           // если в прицеле есть моб, то    begin                                  // валим вражину     if ((AttackCycle mod 5) = 0) then      begin             if Spoil and (not Spoiled) and proverka   then RequestMagicSkillUse(254)   // заспойлим моба если опция включена       else PhisicalAttack;

Последний раз редактировалось NLObP, 07.02.2010 в 23:31. Причина: Красным писать нельзя! Добавил тег DELPHI
tiranosaur вне форума   Ответить с цитированием
Старый 07.02.2010, 21:24   #614
Новичок
 
Регистрация: 23.01.2010
Сообщений: 7
Сказал Спасибо: 3
Имеет 0 спасибок в 0 сообщенях
xeno пока неопределено
По умолчанию

помогите пожалуста реализовать скрипт который будет блочить пакет от сервера спаунитем и дропитем адены/костей/стрел и тд.
нужно для того чтобы не лагал клиент, когда кто-то спамит этими итемами.
в скриптинге не силен написал пока для адены вот такой скрипт, но мне кажется он не очень правильный, и хотя работает, но очень криво
Код:
begin
if fromserver and (pck[1]=#$16) then
begin if fromserver and (pck[10]=#$39) then
begin
SendToClient;
pck:='';
end;
end;
if fromserver and (pck[1]=#$05) then
begin if fromserver and (pck[6]=#$39) then
begin
SendToClient;
pck:='';
end;
end;
end.
через пару минут работы скрипта, пакетхак выдает list index of bounds.
xeno вне форума   Ответить с цитированием
Старый 08.02.2010, 00:12   #615
Пользователь
 
Регистрация: 03.09.2009
Сообщений: 63
Сказал Спасибо: 19
Имеет 5 спасибок в 3 сообщенях
tiranosaur пока неопределено
По умолчанию

Дык если убьешь эти пакеты дроп не видно будет. Кстати это ошибка вроде не из-за этого.

Последний раз редактировалось tiranosaur, 08.02.2010 в 00:15.
tiranosaur вне форума   Ответить с цитированием
Старый 08.02.2010, 00:16   #616
Новичок
 
Регистрация: 23.01.2010
Сообщений: 7
Сказал Спасибо: 3
Имеет 0 спасибок в 0 сообщенях
xeno пока неопределено
По умолчанию

Цитата:
Сообщение от tiranosaur Посмотреть сообщение
Дык если убьешь эти пакеты дроп не видно будет. Кстати это ошибка вроде не из-за этого.
в этом то и идея, у нас на серве локации закидывают аденой, так что в лаге можно простоять до рестарта.
xeno вне форума   Ответить с цитированием
Старый 08.02.2010, 00:18   #617
Пользователь
 
Регистрация: 03.09.2009
Сообщений: 63
Сказал Спасибо: 19
Имеет 5 спасибок в 3 сообщенях
tiranosaur пока неопределено
По умолчанию

))) отключи клиент и будет тебе щастье))) щас подправлю. сек
tiranosaur вне форума   Ответить с цитированием
Старый 08.02.2010, 00:24   #618
Новичок
 
Регистрация: 23.01.2010
Сообщений: 7
Сказал Спасибо: 3
Имеет 0 спасибок в 0 сообщенях
xeno пока неопределено
По умолчанию

вот так тоже можно или нет, правда я непонимаю что дает case pck of #$xx ?
Код:
begin
if fromserver and (pck[1]=#$05) then
begin
case pck[6] of #$39 : pck:='';
end;
end;
end.
xeno вне форума   Ответить с цитированием
Старый 08.02.2010, 00:30   #619
Пользователь
 
Регистрация: 03.09.2009
Сообщений: 63
Сказал Спасибо: 19
Имеет 5 спасибок в 3 сообщенях
tiranosaur пока неопределено
По умолчанию

посмотри итем ид костей и адены и какие хроны

Последний раз редактировалось tiranosaur, 08.02.2010 в 00:33.
tiranosaur вне форума   Ответить с цитированием
Старый 08.02.2010, 00:37   #620
Новичок
 
Регистрация: 23.01.2010
Сообщений: 7
Сказал Спасибо: 3
Имеет 0 спасибок в 0 сообщенях
xeno пока неопределено
По умолчанию

адена - 57
кости - 2508
камаель хелбаунд.

можешь сделать по типу шаблона, чтоб можно было просто ид подставлять?
xeno вне форума   Ответить с цитированием
Ответ

  CoderX :: Forums > Lineage II > L2PacketHack > Скриптинг


Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Часовой пояс GMT +4, время: 12:31.

vBulletin style designed by MSC Team.
Powered by vBulletin® Version 3.6.11
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. Перевод: zCarot
Locations of visitors to this page
Rambler's Top100

Вы хотите чувствовать себя в безопасности? чоп Белган обеспечит её!