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

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

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

В общем из кусков разных скриптов собрал свой, идея в том что бы он автоматически перебирал все значения внутри заданного промежутка и проверял их на сервере.
В итоге скрипт запускается, но если начать его выполнять то вылетает критическая ошибка phx.
Код:
var 
i,g:integer;
start:Boolean;
Timer: TTimer;
Stream:TFileStream;
procedure Init; 
begin;
Timer:=TTimer.Create(nil); 
Timer.OnTimer:=@OnTimer; 
Timer.enabled:=false; 
start:=false;
i:=9000;
g:=10000;
try
Stream := TFileStream.Create('D:\GoodId.txt', fmOpenReadWrite);
except
Stream := TFileStream.Create('D:\GoodId.txt', fmCreate);
end;
end;
procedure Free;
begin 
    Timer.free;
    Stream.free; 
end;
procedure OnTimer(Sender: TObject); 
begin
    if start and (i<g) then   begin
i:=i+1;
buf:=#$23;
Writes('_bbsmultisell:'+inttostr(i)+';_bbspage:shop');
sendtoserver;
end;
    if (pck[1]+pck[6]=#$D0#$01) then
Stream.Write(inttostr(Readd(2))+' ',10);
end;


begin
if FromClient and (pck[1]=#$56) and (start=false) then begin
start:=true;      
Timer.enabled:=true;
timer.interval:=2000;
end;
end.
Добрые люди нужна ваша помощь=)

Добавлено через 10 часов 23 минуты
В общем нашел решение моей проблемы.
Скрипт не буду удалять, вдруг кому-нибудь захочется поковыряться.
В нем 2 ошибки.
Дополнял и правил по статьям:
http://coderx.ru/showthread.php?t=8895
http://coderx.ru/showthread.php?t=119
Всем удачи, поиск правды занял день

Последний раз редактировалось slavez, 14.11.2013 в 01:17. Причина: Добавлено сообщение
slavez вне форума   Ответить с цитированием
 

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


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

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

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


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

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

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