Вернуться   CoderX :: Forums > Основные форумы > Курилка > Пепельница
Войти через OpenID

Пепельница Для тем - мусора...

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

Я бы хотел чтоб вы помогли мне в написании скрипта который бы при написании определённой команды отсылал пакеты.
Вот пример написаный моим другом, вводим в чат //le и у нас отправляется пакет, в данном случае пакет Action (1F 00 00).
Код:
const
Socket='ToniRelaX';
begin
if FromClient and (pck[2]=#$6C) and (pck[4]=#$65) then
begin
buf:=Hstr('1F 00 00');      
SendToServerEx(Socket);
end;
end.
И как мне указывать комманду в скрипте? Как я понял за команду отвечает:
Код:
if FromClient and (pck[2]=#$6C) and (pck[4]=#$65) then
И как мне разобрать что он означает, как в него всунута комманда //le ?
Если говорить прямо мне нужен скрипт который при вводе //kill отправляло нужный пакет... но я хочю узнать как оно устроено.
__________________
www.l2rx.com
GM PvP:
-=^][*TonI*][^=-
-=*~^Ton[i]^~*=-
~(l2)[Owner]?
.:[Stop^Me]:.
-={fastik.GM}=-
l2Console
cjStone

Последний раз редактировалось ToniRelaX, 10.08.2012 в 01:14.
ToniRelaX вне форума   Ответить с цитированием
Старый 10.08.2012, 04:48   #2
Местный
 
Аватар для SeregaZ
 
Регистрация: 16.08.2009
Сообщений: 1,224
Сказал Спасибо: 4
Имеет 229 спасибок в 182 сообщенях
SeregaZ пока неопределено
По умолчанию

у меня вот был где-то скрипт на тему "баф" в пати чате и понивод давал коняшный баф. система аналогичная. сам подправишь под свои хроники.
PHP код:
var
a:integer;

j:integer;
nick:string;
text:string;

procedure Init//Вызывается при включении скрипта
begin
 useforconnectname 
:= 'PonyVod';
 
//useforconnectname := 'SVPONIVOD';
end;

procedure Free//Вызывается при выключении скрипта
begin

end
;

//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin

  
if FromServer and (pck[1]=#$4A) and (pck[6]=#$03) and   //пати чат просят баф
  
then begin
     j
:=10;                 // j - стартовая позиция указателя
     //CharOID:=ReadD(j);   // -- OID перса
     //TextType:=ReadD(j); //-- индекс чата в котором пишется текст
     
nick:=ReadS(j);    //-- считывается ник, и, одновременно, указатель байта сдвигается на его длинну, т.е после выполнения команды будет j:=j+(длинна_блока_оканчивающегося "00 00")
     
text:=ReadS(j);    //-- считываем текст сообщения
     
if (text='баф') or (text='аф'then begin

        
// пакет на запуск бафа пони
        
buf:=HStr('45 F3 03 00 00 00 00 00 00 00');
        
SendToServer;

     
end;
  
end;  
end
__________________
хочу картинку в подпись!
SeregaZ вне форума   Ответить с цитированием
Старый 12.08.2012, 23:40   #3
Местный
 
Аватар для Pinko
 
Регистрация: 31.05.2011
Сообщений: 130
Сказал Спасибо: 287
Имеет 23 спасибок в 22 сообщенях
Pinko пока неопределено
По умолчанию

http://coderx.ru/showthread.php?t=14
ПРОЧИТАТЬ !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
__________________
Никого нельзя ничему научить,
но всему можно научиться

народная мудрость

"Если любишь в жизни риск - форматируй жесткий диск!"
Pinko вне форума   Ответить с цитированием
Старый 13.08.2012, 04:03   #4
Местный
 
Аватар для SeregaZ
 
Регистрация: 16.08.2009
Сообщений: 1,224
Сказал Спасибо: 4
Имеет 229 спасибок в 182 сообщенях
SeregaZ пока неопределено
По умолчанию

гмы мануалы не читают.
__________________
хочу картинку в подпись!
SeregaZ вне форума   Ответить с цитированием
Старый 14.08.2012, 00:48   #5
Новичок
 
Регистрация: 10.08.2012
Сообщений: 2
Сказал Спасибо: 0
Имеет 0 спасибок в 0 сообщенях
ToniRelaX пока неопределено
По умолчанию

Я не умею делать под хроники сделай плиз под Gracia Final...

Добавлено через 2 минуты
Цитата:
Сообщение от SeregaZ Посмотреть сообщение
у меня вот был где-то скрипт на тему "баф" в пати чате и понивод давал коняшный баф. система аналогичная. сам подправишь под свои хроники.
PHP код:
var
a:integer;

j:integer;
nick:string;
text:string;

procedure Init//Вызывается при включении скрипта
begin
 useforconnectname 
:= 'PonyVod';
 
//useforconnectname := 'SVPONIVOD';
end;

procedure Free//Вызывается при выключении скрипта
begin

end
;

//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin

  
if FromServer and (pck[1]=#$4A) and (pck[6]=#$03) and   //пати чат просят баф
  
then begin
     j
:=10;                 // j - стартовая позиция указателя
     //CharOID:=ReadD(j);   // -- OID перса
     //TextType:=ReadD(j); //-- индекс чата в котором пишется текст
     
nick:=ReadS(j);    //-- считывается ник, и, одновременно, указатель байта сдвигается на его длинну, т.е после выполнения команды будет j:=j+(длинна_блока_оканчивающегося "00 00")
     
text:=ReadS(j);    //-- считываем текст сообщения
     
if (text='баф') or (text='аф'then begin

        
// пакет на запуск бафа пони
        
buf:=HStr('45 F3 03 00 00 00 00 00 00 00');
        
SendToServer;

     
end;
  
end;  
end
Сделай плиз под Gracia Final...
__________________
www.l2rx.com
GM PvP:
-=^][*TonI*][^=-
-=*~^Ton[i]^~*=-
~(l2)[Owner]?
.:[Stop^Me]:.
-={fastik.GM}=-
l2Console
cjStone

Последний раз редактировалось ToniRelaX, 14.08.2012 в 00:48. Причина: Добавлено сообщение
ToniRelaX вне форума   Ответить с цитированием
Старый 15.08.2012, 13:00   #6
Местный
 
Регистрация: 13.12.2007
Сообщений: 126
Сказал Спасибо: 10
Имеет 39 спасибок в 32 сообщенях
Zergatul
По умолчанию

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

И в результате тема улетает в пепельницу ))
__________________

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

Переходим на протокол нового поколения jabber
J-Fobos вне форума   Ответить с цитированием
Старый 16.08.2012, 02:28   #8
Местный
 
Аватар для SeregaZ
 
Регистрация: 16.08.2009
Сообщений: 1,224
Сказал Спасибо: 4
Имеет 229 спасибок в 182 сообщенях
SeregaZ пока неопределено
По умолчанию

там уже вторая тема создалася
__________________
хочу картинку в подпись!
SeregaZ вне форума   Ответить с цитированием
Старый 16.08.2012, 11:02   #9
Местный
 
Аватар для J-Fobos
 
Регистрация: 09.06.2008
Сообщений: 867
Сказал Спасибо: 175
Имеет 468 спасибок в 259 сообщенях
J-Fobos пока неопределено
По умолчанию

Удалил. Будет 3-я вбаню)
__________________

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

Переходим на протокол нового поколения jabber
J-Fobos вне форума   Ответить с цитированием
Старый 18.08.2012, 00:37   #10
Местный
 
Аватар для Pinko
 
Регистрация: 31.05.2011
Сообщений: 130
Сказал Спасибо: 287
Имеет 23 спасибок в 22 сообщенях
Pinko пока неопределено
По умолчанию

Цитата:
Сообщение от J-Fobos Посмотреть сообщение
Удалил. Будет 3-я вбаню)
УГУ ! а я навечно !11111111111111111
__________________
Никого нельзя ничему научить,
но всему можно научиться

народная мудрость

"Если любишь в жизни риск - форматируй жесткий диск!"
Pinko вне форума   Ответить с цитированием
Ответ

  CoderX :: Forums > Основные форумы > Курилка > Пепельница


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

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

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


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

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

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