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

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

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
Ответ
 
Опции темы Опции просмотра
Старый 17.07.2009, 13:32   #11
Местный
 
Аватар для Yegor
 
Регистрация: 05.04.2009
Сообщений: 1,436
Сказал Спасибо: 306
Имеет 122 спасибок в 98 сообщенях
Yegor пока неопределено
По умолчанию

Doberman, мистика однако. Я понимаю что оно не здавало бы, но вот почему оно зависает?
Попробуй сделать для проверки следующее.
Перехвати пакет на покупку и сразу же его отошли, проверим зависнет или нет. Ты в скрипте точно больше ничего не менял? Такое ощущение, что то ты намудрил с таймером. Приведи финальный вариант твоего скрипта.
//QaK:если скрипт большой - сделай вложением.

Последний раз редактировалось QaK, 17.07.2009 в 13:52.
Yegor вне форума   Ответить с цитированием
Старый 17.07.2009, 14:12   #12
Пользователь
 
Аватар для Doberman
 
Регистрация: 29.06.2009
Сообщений: 48
Сказал Спасибо: 10
Имеет 3 спасибок в 2 сообщенях
Doberman пока неопределено
По умолчанию

Так,вот скрипт в своём орегинале(им задаю манор)
Цитата:
var
PaketManora: string; //Пакет на сдачу манора, который мы отправим серваку зараннее с помощью клиента
// и запомним его для того чтобы вручную не формировать его кодом.
//важно что оправлять его нужно после после объявления об олимпиаде.
//так как в пакете манора используются ИД сессии, которые изменяются
//каждый ровный час.

timer1: TTimer; //таймер контролирующий системное время

StartTime: TDateTime;
EndTime: TDateTime;


x:integer;

procedure Init; //Вызывается при включении скрипта
begin
timer1:=TTimer.Create(nil);
timer1.OnTimer:=@OnTimer; //
timer1.enabled:=false; // таймер по умолчанию выключен
timer1.interval:=300; // через каждые 0,3сек будем засекать контрольное время сдачи манора

x:=0;
end;

procedure Free; //Вызывается при выключении скрипта
begin
timer1.Free; //освобождаем занимаемую память таймером
end;

//вызывается при срабатывании таймера
procedure OnTimer(Sender: TObject);
begin
//если наступило время сдавать манор и скрипт пока еще не отправил 10 попыток его сдать то
if (time >= EndTime) and (x<11) then
begin
//пишем сами себе в чат - что "ПОПЫТКА"
buf:=hstr('4A AB F6 A0 48 02 00 00 00 2D 00 3E 00 56 00 4F 00 52 00 4F 00 4E 00 37 00 00 00 3F 04 3E 04 3F 04 4B 04 42 04 3A 04 30 04 20 00 41 04 34 04 30 04 42 04 4C 04 00 00');
SendToClient;
// отправляем пакет на сдачу манора.
buf:=PaketManora;
SendToServer;
//счетчик попыток
x:=x+1;
end;
end;


begin

//если перехвачен пакет на сдачу манора то
if FromClient and (pck[1]=#$D0) and (pck[2]=#$09) and (pck[3]=#$00) then
begin
//запоминаем его полностью
PaketManora:=pck;
end;

//если получен пакет об начале олимпиады то
if FromServer and (pck[1]=#$64) and (pck[2]=#$69) and (pck[3]=#$06) then
begin
//засекаем текущее время
StartTime:=time;
//вычисляем время сдачи манора (прибавляем нужное время которое нужно засеч после получения сообщения об илимпиаде)
EndTime:=StartTime + EncodeTime(0,5,52,0); // изменяем и корректируем ето число в формате (ЧЧ,ММ,СС,МС)
//активируем таймер
timer1.enabled:=true;
//а ето- отправка сам себе сообщения о том что ВРЕМЯ ПОШЛО
buf:=hstr('4A AB F6 A0 48 02 00 00 00 2D 00 3E 00 56 00 4F 00 52 00 4F 00 4E 00 37 00 00 00 32 04 40 04 35 04 3C 04 4F 04 20 00 3F 04 3E 04 48 04 3B 04 3E 04 00 00');
SendToClient;
end;

end.
в нём заменил строчку
//если перехвачен пакет на сдачу манора то
if FromClient and (pck[1]=#$D0) and (pck[2]=#$09) and (pck[3]=#$00) then
begin
//запоминаем его полностью
PaketManora:=pck;
end;

на
//если перехвачен пакет на покупку семян то
if FromClient and (ConnectName = 'NAME') and (pck[1]=#$C4) then
begin
//запоминаем его полностью
PaketManora:=pck;
end;

И бльше ничего нетрогал

Последний раз редактировалось Doberman, 17.07.2009 в 14:15.
Doberman вне форума   Ответить с цитированием
Старый 17.07.2009, 15:37   #13
Местный
 
Аватар для Yegor
 
Регистрация: 05.04.2009
Сообщений: 1,436
Сказал Спасибо: 306
Имеет 122 спасибок в 98 сообщенях
Yegor пока неопределено
По умолчанию

Doberman, понятно почему зависает, твое условие:
if FromClient and (ConnectName = 'NAME') and (pck[1]=#$C4) никогда не выполняется, и когда приходит время программа пытается отправить переменную PaketManora в котрой хз что сейчас находиться. Ты бы добавил:
//если перехвачен пакет на покупку семян то
if FromClient and (ConnectName = 'NAME') and (pck[1]=#$C4) then
begin
//запоминаем его полностью
PaketManora:=pck;
// отправляем клиенту что пакет запомнен
buf:=hstr('4A AB F6 A0 48 02 00 00 00 2D 00 3E 00 56 00 4F 00 52 00 4F 00 4E 00 37 00 00);
writes(buf, 'пакет на покупку запомнен!);
SendToClient;
end;

И ты точно не забыл вместо 'NAME' поставить имя твоего чара?

Последний раз редактировалось Yegor, 17.07.2009 в 15:39.
Yegor вне форума   Ответить с цитированием
За это сообщение Yegor нажился спасибкой от:
Старый 23.07.2009, 02:23   #14
Пользователь
 
Аватар для Doberman
 
Регистрация: 29.06.2009
Сообщений: 48
Сказал Спасибо: 10
Имеет 3 спасибок в 2 сообщенях
Doberman пока неопределено
По умолчанию

Оки, попробую)
Doberman вне форума   Ответить с цитированием
Старый 23.07.2009, 09:41   #15
Местный
 
Аватар для Breadfan
 
Регистрация: 29.04.2008
Сообщений: 830
Сказал Спасибо: 80
Имеет 230 спасибок в 169 сообщенях
Breadfan пока неопределено
По умолчанию

PHP код:
const
bufer='';

var
PaketManorastring

timer1TTimer;

StartTimeTDateTime;
EndTimeTDateTime;

x:integer;

procedure Init;
begin
timer1
:=TTimer.Create(nil);
timer1.OnTimer:=@OnTimer
timer1.enabled:=false
timer1.interval:=100;

x:=0;
end;

procedure Free;
begin
timer1
.Free;
end;

procedure OnTimer(SenderTObject);
begin

if (time >= EndTime) and (x<600then
begin
//пишем сами себе в чат - что "ПОПЫТКА"
buf:=hstr('4A AB F6 A0 48 02 00 00 00 2D 00 3E 00 56 00 4F 00 52 00 4F 00 4E 00 37 00 00 00 3F 04 3E 04 3F 04 4B 04 42 04 3A 04 30 04 20 00 41 04 34 04 30 04 42 04 4C 04 00 00');
SendToClientex(bufer);

buf:=PaketManora;
SendToServerex(bufer);

x:=x+1;
end;
end;

begin

if FromClient and (ConnectName=bufer) and (pck[1]=#$C4) then
    
begin

    PaketManora
:=pck;
    
end;

if 
FromServer and (ConnectName=bufer) and (pck[1]=#$64) and (pck[2]=#$69) and (pck[3]=#$06) then
begin

StartTime
:=time;

EndTime:=StartTime EncodeTime(0,5,40,0); 

timer1.enabled:=true;

buf:=hstr('4A AB F6 A0 48 02 00 00 00 2D 00 3E 00 56 00 4F 00 52 00 4F 00 4E 00 37 00 00 00 32 04 40 04 35 04 3C 04 4F 04 20 00 3F 04 3E 04 48 04 3B 04 3E 04 00 00');
SendToClientex(bufer);
end;

end
Вот такой у меня работал когда-то, сделанный на базе скрипта от Voron
__________________
На фразы в аську типа "слух карочь 1)как точить 2)как раскачаться за 5 мин" - игнор. ИМХО идиотизм
Дай голодному рыбу - он будет один день сыт. Покажи ему, как удить рыбу - он пошлёт тебя и скажет, что у него есть более интересные занятия, чем забрасывать снасти в воду
David Kastrup @ de.comp.text.tex.
"Приобретенные навыки общения с маленькими детьми - сильно упрощают взаимопонимание на форумах..."

А вы знаете, что для качественной сварки - место шва нужно протереть спиртом?
Breadfan вне форума   Ответить с цитированием
Ответ

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



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

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


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

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

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