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

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

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
Ответ
 
Опции темы Опции просмотра
Старый 17.07.2009, 17:54   #1
Рыцарь
 
Аватар для TAMBIK
 
Регистрация: 03.03.2009
Сообщений: 773
Сказал Спасибо: 361
Имеет 300 спасибок в 168 сообщенях
TAMBIK на пути к лучшему
По умолчанию Cкрипт для изготовление ключей

delphi Код: Код:
//ХБ // запуск соцдействие ДА var timer1: TTimer; Bypass:string; x,i:integer; const HTML='<html><body><center>'+ '<img src="L2UI_CH3.herotower_deco width=256 height=32>'+ '<img src="L2UI.SquareWhite" width=260 height=1>'+ '<img src="L2UI.SquareBlank" width=260 height=4><br>'+ '<font color="04fbfb">Cкрипт изготовление ключей</font><br>'+ '<font color="04fbfb"> Уровень Скила </font><br>'+ '<button value="= 1 =" action="bypass -h 1" width=80 height=15 back="sek.cbui94" fore="sek.cbui92">'+ '<button value="= 2 =" action="bypass -h 2" width=80 height=15 back="sek.cbui94" fore="sek.cbui92">'+ '<img src="L2UI.SquareWhite" width=260 height=1>'+ '<img src="L2UI.SquareBlank" width=260 height=4><br>'+ '<button value="ПУСК" action="bypass -h pusk" width=100 height=15 back="sek.cbui94" fore="sek.cbui92">'+ '<button value="СТОП" action="bypass -h stop" width=100 height=15 back="sek.cbui94" fore="sek.cbui92">'+ '<img src="L2UI.SquareWhite" width=260 height=1>'+ '<img src="L2UI.SquareBlank" width=260 height=4><br>'+ '<font color="04fbfb">Автор ТАМБИК</font><br>'+ '</center></body></html>'; procedure SendMsg2(msg:string); begin   buf:=#$4A;   WriteD(0);   WriteD(10);   WriteS('');   WriteS(msg);   SendToClient; end; Procedure ShowHTML( _html : string ); begin    buf:=#$19;    WriteD(5);    WriteS(_HTML);    SendToClient; end; procedure OnTimer1(Sender: TObject); begin  buf:=hstr('39 A3 01 00 00 00 00 00 00 00' );  SendToServer;  end; procedure Init; begin   timer1:=TTimer.Create(nil);   timer1.OnTimer:=@OnTimer1;   timer1.enabled:=false;   timer1.interval:=0;   x:=0; end; procedure Free; begin timer1.free; end; begin  if FromClient and (pck[1]=#$34) and (pck[2]=#$06) then begin   ShowHTML(HTML); SendMsg2('Выберите Уровень скила'); pck:='';  exit; end; begin  if FromClient and (pck[1]=#$23) then   begin      Bypass:=ReadS(2);      case Bypass of '1': begin x:=1;  timer1.interval:=1300000;//интервал  SendMsg2('Уровень скила=1');  ShowHTML(HTML); end; '2': begin x:=1;  timer1.interval:=1700000;//интервал  SendMsg2('Уровень скила=2');  ShowHTML(HTML); end; 'pusk':  begin if (x=0) then begin SendMsg2('НЕ ВЫБРАН  Уровень скила');        end; if (x=1) then begin   buf:=hstr('39 A3 01 00 00 00 00 00 00 00' );   SendToServer;   timer1.enabled:=true;   SendMsg2('ПУСК');   ShowHTML(HTML); end; end; 'stop': begin x:=0; timer1.enabled:=false; SendMsg2('СТОП'); ShowHTML(HTML); timer1.interval:=0;//интервал end; end; end; end; end.

Последний раз редактировалось TAMBIK, 25.07.2009 в 10:08.
TAMBIK вне форума   Ответить с цитированием
За это сообщение TAMBIK нажился спасибкой от:
Старый 17.07.2009, 18:38   #2
Местный
 
Регистрация: 27.01.2009
Сообщений: 154
Сказал Спасибо: 23
Имеет 26 спасибок в 19 сообщенях
guplen пока неопределено
По умолчанию

А можно сделать чтобы этот скрипт работал без клиента? Т.е. запустил скрипт, вырубил клиент и все...
guplen вне форума   Ответить с цитированием
Старый 17.07.2009, 19:22   #3
Местный
 
Аватар для 8tomat8
 
Регистрация: 17.01.2009
Сообщений: 282
Сказал Спасибо: 64
Имеет 81 спасибок в 63 сообщенях
8tomat8 пока неопределено
По умолчанию

guplen, это називается ОГ бот... l2phx такого не может...пока что)
__________________
помог?СКАЖИ СПАСИБО!)

Мастерство программиста не в том, чтобы писать программы, работающие без ошибок, а в том, чтобы писать программы, работающие при любом количестве ошибок.
Цитата:
[10-06, 14:15] efreet Заплачу за настройку l2px
[11-06, 09:25] xkor не плач)
Цитата:
Сообщение от Psih Посмотреть сообщение
Вот еще один вопрос:Вот вчера было све нормально
8tomat8 вне форума   Ответить с цитированием
Старый 18.07.2009, 01:16   #4
Местный
 
Регистрация: 11.10.2007
Сообщений: 144
Сказал Спасибо: 44
Имеет 7 спасибок в 7 сообщенях
Amorality
По умолчанию

8tomat8,
Почему? В ПНХ же есть ф-ции отключения клиента.


guplen,
Можно, но тогда придется не закрывать ПНХ и комп не вырубать).

Добавлено через 1 минуту
DELPHI Код:
const name = 'НИК ВАШЕГО ЧАРА'; var   NetPing: string;   LogOutOk: boolean; begin   if (ConnectName=name) and FromServer then begin     case pck[1] of       #$D3: begin         if LogOutOk then begin           buf:=NetPing;           SendToServerEx(name);         end;       end;     end;   end;   //****************************************************   if (ConnectName=name) and FromClient then begin     case pck[1] of       #$09: begin         NoFreeOnClientDisconnect;         NoFreeOnServerDisconnect;         pck:='';         buf:=#$7E;         SendToClientEx(name);         LogOutOk:=true;       end;       #$A8: begin                NetPing:=pck;         pck:='';       end;     end;   end; end.

А вот собсно сам скрипт на отключение клиента.

Последний раз редактировалось Amorality, 18.07.2009 в 01:16. Причина: Добавлено сообщение
Amorality вне форума   Ответить с цитированием
За это сообщение Amorality нажился спасибкой от:
Старый 18.07.2009, 01:51   #5
Рыцарь
 
Аватар для QaK
 
Регистрация: 28.09.2007
Сообщений: 1,558
Сказал Спасибо: 71
Имеет 351 спасибок в 244 сообщенях
QaK пока неопределено
По умолчанию

Amorality, ответ на нет пинг вроде длиннее, чем приходит от сервера. хотя, где-то может быть и не актуально...
QaK вне форума   Ответить с цитированием
Старый 18.07.2009, 02:05   #6
Местный
 
Регистрация: 11.10.2007
Сообщений: 144
Сказал Спасибо: 44
Имеет 7 спасибок в 7 сообщенях
Amorality
По умолчанию

QaK,
На гфш нетпинг имхо вообще не проверяется.. по крайней мере даже на абусе у мну работало чуть ли не 2 дня.
Amorality вне форума   Ответить с цитированием
Ответ

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



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

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


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

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

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