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

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

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
Ответ
 
Опции темы Опции просмотра
Старый 13.02.2011, 23:04   #11
Новичок
 
Регистрация: 13.02.2011
Сообщений: 17
Сказал Спасибо: 2
Имеет 0 спасибок в 0 сообщенях
ПомогитеПожалуйста пока неопределено
По умолчанию

Цитата:
Сообщение от J-Fobos Посмотреть сообщение
Только пакеты у вас разные почему-то) У дреда 23, а у помогите CF
Два разных примера. 23 - это нужное нам действие. А CF - это я юзанул рандомный скилл. Не было возможности 23 юзать.
ПомогитеПожалуйста вне форума   Ответить с цитированием
Старый 13.02.2011, 23:12   #12
Местный
 
Аватар для J-Fobos
 
Регистрация: 09.06.2008
Сообщений: 867
Сказал Спасибо: 175
Имеет 468 спасибок в 259 сообщенях
J-Fobos пока неопределено
По умолчанию

Цитата:
Сообщение от BioDread Посмотреть сообщение
В аионе всё не так просто там не считываются имена чаров.
Тоесть получится SendToServerEx(name); изменить на
SendToServerEx; или SendToServer; ?
И ещё у меня получается не FromServer а FromClient это ж ничего не меняет?
В данном случаи FromClient будет правильно, я просто скопировал и не обратил внимания, хорошо что вы поправили )
А вот использование SendToServerEx крайне желательно. На вкладке "выполнить" (в главном окне, там где список пакетов и оправка пакетов) запустите на выполнение следующий скрипт:
Код:
begin
SetName('asdasd')
end.
Он задаст нужное имя для соединения и можно будет использовать функцию SendToServerEx. Скрипт надо будет выполнять при каждом открытии соединения.
__________________

В любом из нас спит гений. И с каждым днем все крепче.

Переходим на протокол нового поколения jabber
J-Fobos вне форума   Ответить с цитированием
Старый 13.02.2011, 23:16   #13
Пользователь
 
Аватар для BioDread
 
Регистрация: 06.02.2010
Сообщений: 42
Сказал Спасибо: 20
Имеет 2 спасибок в 2 сообщенях
BioDread пока неопределено
По умолчанию

А можно по такому способу?
begin
if FromClient and (pck[1]=#$23) and (ConnectName=name) then
for i:=1 to 50 do
buf:=pck;
SendToServerEx(name);

end;
end.

Так думаю будет лучше ибо в нашем случае чем быстрее будут посылатся пакеты тем лучше
Имя я укажу.

Кстати А можно сделать так чтобы пакеты посылались очень быстро до получения пакета на клиент "Моб умер"?

Последний раз редактировалось BioDread, 13.02.2011 в 23:21.
BioDread вне форума   Ответить с цитированием
Старый 13.02.2011, 23:22   #14
Местный
 
Аватар для J-Fobos
 
Регистрация: 09.06.2008
Сообщений: 867
Сказал Спасибо: 175
Имеет 468 спасибок в 259 сообщенях
J-Fobos пока неопределено
По умолчанию

Циклом будет проще, но не лучше. Задержки между отправкой пакетов не будет, скорее всего чар будет кикнут за спам пакетами, в линейдже на некоторых серверах за такое банят.
__________________

В любом из нас спит гений. И с каждым днем все крепче.

Переходим на протокол нового поколения jabber
J-Fobos вне форума   Ответить с цитированием
Старый 13.02.2011, 23:23   #15
Новичок
 
Регистрация: 13.02.2011
Сообщений: 17
Сказал Спасибо: 2
Имеет 0 спасибок в 0 сообщенях
ПомогитеПожалуйста пока неопределено
По умолчанию

Нет, в айоне не кикнут. Мы-же тестили это просто пакетами, с минимальным таймером, без скрипта. Скрипт нужен для автоматизации. Поэтому чем быстрее - тем лучше.
ПомогитеПожалуйста вне форума   Ответить с цитированием
Старый 13.02.2011, 23:32   #16
Местный
 
Аватар для J-Fobos
 
Регистрация: 09.06.2008
Сообщений: 867
Сказал Спасибо: 175
Имеет 468 спасибок в 259 сообщенях
J-Fobos пока неопределено
По умолчанию

Быстрее всего будет так, но все же я считаю что лучше организовать таймер с небольшой задержкой
Код:
begin 
if FromClient and (pck[1]=#$23) and (ConnectName=name) then
begin
buf:=pck;
for i:=1 to 50 do
SendToServerEx(name);
end;
end.
__________________

В любом из нас спит гений. И с каждым днем все крепче.

Переходим на протокол нового поколения jabber
J-Fobos вне форума   Ответить с цитированием
Старый 13.02.2011, 23:46   #17
Новичок
 
Регистрация: 13.02.2011
Сообщений: 17
Сказал Спасибо: 2
Имеет 0 спасибок в 0 сообщенях
ПомогитеПожалуйста пока неопределено
По умолчанию

А можно пожалуйста немного больше информации про таймер? В частности, можно-ли сделать так, что после смерти моба таймер обнулялся? Иначе придётся ждать, пока все пакеты будут отправлены.
ПомогитеПожалуйста вне форума   Ответить с цитированием
Старый 13.02.2011, 23:51   #18
Местный
 
Аватар для J-Fobos
 
Регистрация: 09.06.2008
Сообщений: 867
Сказал Спасибо: 175
Имеет 468 спасибок в 259 сообщенях
J-Fobos пока неопределено
По умолчанию

http://coderx.ru/showpost.php?p=30293&postcount=404
Если полазить по форуму можно найти много примеров
__________________

В любом из нас спит гений. И с каждым днем все крепче.

Переходим на протокол нового поколения jabber

Последний раз редактировалось J-Fobos, 13.02.2011 в 23:53.
J-Fobos вне форума   Ответить с цитированием
Старый 14.02.2011, 00:12   #19
Пользователь
 
Аватар для BioDread
 
Регистрация: 06.02.2010
Сообщений: 42
Сказал Спасибо: 20
Имеет 2 спасибок в 2 сообщенях
BioDread пока неопределено
По умолчанию

Ну вот чтото получилось только не знаем как его запустить при условии (pck[1]=#$23) и остановить при условии pck[1]=#$xx) (xx-тип пакета на смерть моба)
куда вставлять условие? "if FromClient and (pck[1]=#$23) and (ConnectName='name') then"


const
name = 'IhelpYou';
interval = 100; //в мс
var
TimerEnchant:TTimer;



procedure Init;
begin
TimerEnchant:=TTimer.Create(nil);
TimerEnchant.OnTimer:=@enchant;
TimerEnchant.enabled:=true;
TimerEnchant.interval:=interval;
end;


procedure Free;
begin
TimerEnchant.free;
end;

procedure enchant;
begin
buf:=pck;
SendToServerEx(name);
end;

begin
end.
BioDread вне форума   Ответить с цитированием
Старый 14.02.2011, 00:39   #20
Местный
 
Аватар для J-Fobos
 
Регистрация: 09.06.2008
Сообщений: 867
Сказал Спасибо: 175
Имеет 468 спасибок в 259 сообщенях
J-Fobos пока неопределено
По умолчанию

Ну вот, все правильно сделали, молодцы. С включением будет выглядить так:
Код:
const
name = 'IhelpYou';
interval = 100; //в мс
var
TimerEnchant:TTimer;



procedure Init;
begin
TimerEnchant:=TTimer.Create(nil);
TimerEnchant.OnTimer:=@enchant;
TimerEnchant.enabled:=false;
TimerEnchant.interval:=interval;
end;


procedure Free;
begin
TimerEnchant.free;
end;

procedure enchant;
begin
SendToServerEx(name);
end;

begin
if FromClient and (pck[1]=#$23) and (ConnectName=name) then
begin
buf:=pck;
TimerEnchant.enabled:=true;
end;

end.
Ну а выключение я думаю сумеете дописать
__________________

В любом из нас спит гений. И с каждым днем все крепче.

Переходим на протокол нового поколения jabber
J-Fobos вне форума   Ответить с цитированием
Ответ

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



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

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


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

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

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