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

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

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
Ответ
 
Опции темы Опции просмотра
Старый 27.09.2011, 19:09   #21
Местный
 
Аватар для Pinko
 
Регистрация: 31.05.2011
Сообщений: 130
Сказал Спасибо: 287
Имеет 23 спасибок в 22 сообщенях
Pinko пока неопределено
По умолчанию

Код:
const
name = 'AntBuf';  

begin
  if FromServer and (pck[1]=#$39) then begin   //от сервера получен пакет $39 
    if ReadS(2) = ('Пиротехник') or ('Пиротyехник') then   //проверяем от кого       
       buf:=hstr('43 01 00 00 00'); // принять пати
                SendToServerEx(name);//  от имени name = 'AntBuf';  
                              //Отправляем его на сервер
  end; 
  
    
end.
посмотри может пригодится
http://coderx.ru/showthread.php?t=2080

Последний раз редактировалось Pinko, 27.09.2011 в 22:54.
Pinko вне форума   Ответить с цитированием
За это сообщение Pinko нажился спасибкой от:
Старый 28.09.2011, 01:57   #22
Пользователь
 
Регистрация: 01.08.2010
Сообщений: 82
Сказал Спасибо: 49
Имеет 5 спасибок в 4 сообщенях
semiromid пока неопределено
По умолчанию

Подскажите почему где ошибка ?
Я хочу что бы когда приходил пакет 39
копирывалось с него вторая строчка , и заменяла в 49 пакете 4 строку
Код:
const
 Name='Вива'; 
var  
Paname: String;

begin
  if FromClient and (pck[1] = #$39) then  //Отлавливаем от клиента пакет XX
begin
     Paname:=ReadS(2);
     buf:=#$49#$3E#$04#$3E#$04#$00#$00#$02#$00#$00#$00#$12#$04#$38#$04#$32#$04#$30#$04#$00#$00; 
    
    WriteS(Paname),4);
    SendToServerEx(name);
  

  end;  
  
 
end.
semiromid вне форума   Ответить с цитированием
Старый 28.09.2011, 08:55   #23
Местный
 
Аватар для Nickers
 
Регистрация: 23.11.2009
Сообщений: 574
Сказал Спасибо: 134
Имеет 117 спасибок в 82 сообщенях
Nickers пока неопределено
По умолчанию

Так, секунду. Вопрос странный. Ты что сейчас пытаешься сделать? Как ты хочешь заменить там 4ю строчку оО
Код:
(49) (3E 04 3E 04) (00 00 02 00) (00 00 12 04) (38 04 32 04) (30 04 00 00);
delphi Код:
WriteS(Paname),4); //Вряд ли так можно...  

Добавлено через 10 минут
delphi Код:
// Составление пакета: begin    buf:=#$45;    WriteD(64);    WriteC(1);    buf:=buf+#$33#$32;    SendToHell; end;
Пакет, который мы отправили в АД:
Цитата:
45 40 00 00 00 01 00 33 32
__________________
Пишу что думаю, но ничего не знаю...
[LameGuard|Скрипты l2phx]

Последний раз редактировалось Nickers, 28.09.2011 в 08:58. Причина: Добавлено сообщение
Nickers вне форума   Ответить с цитированием
Старый 28.09.2011, 10:12   #24
Местный
 
Аватар для Pinko
 
Регистрация: 31.05.2011
Сообщений: 130
Сказал Спасибо: 287
Имеет 23 спасибок в 22 сообщенях
Pinko пока неопределено
По умолчанию Результаты поиска

http://coderx.ru/search.php?searchid=499805
Pinko вне форума   Ответить с цитированием
Старый 28.09.2011, 17:53   #25
Местный
 
Аватар для Nickers
 
Регистрация: 23.11.2009
Сообщений: 574
Сказал Спасибо: 134
Имеет 117 спасибок в 82 сообщенях
Nickers пока неопределено
По умолчанию

Pinko, нет совпадений.
__________________
Пишу что думаю, но ничего не знаю...
[LameGuard|Скрипты l2phx]
Nickers вне форума   Ответить с цитированием
Старый 29.09.2011, 02:38   #26
Местный
 
Аватар для Pinko
 
Регистрация: 31.05.2011
Сообщений: 130
Сказал Спасибо: 287
Имеет 23 спасибок в 22 сообщенях
Pinko пока неопределено
По умолчанию

Tип: 0x49 (Say2)
Pазмер: 21+2
Время прихода: 00:52:35:950
0002 s Text: оо
0008 d Type: 2 (0x00000002)
0012 s Target: Вива

Код:
const
 Name='Вива'; 
var  
Paname: String;

begin
  if FromClient and (pck[1] = #$39) then  //Отлавливаем от клиента пакет XX
begin
   Paname:=ReadS(2);
   buf:=#$49;
  WriteS('оо');
  WriteD(2);
  WriteS(Paname);
  SendToServerEx(name);
  end;  
  end.
Pinko вне форума   Ответить с цитированием
Старый 29.09.2011, 02:38   #27
Пользователь
 
Регистрация: 01.08.2010
Сообщений: 82
Сказал Спасибо: 49
Имеет 5 спасибок в 4 сообщенях
semiromid пока неопределено
По умолчанию

if FromServer and (ConnectName=Name) and (pck[1]=#$39) then begin
mana:= ReadS(2);
buf:=Hstr('49 21 04 3F 04 30 04 41 04 38 04 31 04 3E 04 20 00 37 04 30 04 20 00 3C 04 30 04 3D 04 43 04 20 00 3D 00 29 00 00 00 02 00 00 00');
WriteS(mana);
buf := buf + HStr('');
SendToServer;
end;
end.
semiromid вне форума   Ответить с цитированием
Старый 29.09.2011, 08:17   #28
Местный
 
Аватар для Nickers
 
Регистрация: 23.11.2009
Сообщений: 574
Сказал Спасибо: 134
Имеет 117 спасибок в 82 сообщенях
Nickers пока неопределено
По умолчанию

semiromid, Вопрос хотяб задайте, как вам помочь?))

Добавлено через 30 секунд
delphi Код:
buf := buf + HStr('');
Не уверен, что это верно. То есть смысла не вижу.
__________________
Пишу что думаю, но ничего не знаю...
[LameGuard|Скрипты l2phx]

Последний раз редактировалось Nickers, 29.09.2011 в 08:18. Причина: Добавлено сообщение
Nickers вне форума   Ответить с цитированием
За это сообщение Nickers нажился спасибкой от:
Старый 29.09.2011, 16:08   #29
Пользователь
 
Регистрация: 29.09.2010
Сообщений: 45
Сказал Спасибо: 1
Имеет 9 спасибок в 6 сообщенях
Санчес пока неопределено
По умолчанию

Здравствуйте уважаемые читеры. чтобы не создавать новую тему, попрошу совета тут. В дельфи не секу, сейчас юзаю поиск.
Необходимо, чтобы клиент посылал серверу два строго определенных пакета с интервалом 0.5 сек.
Выражаясь языком Asi надо сделать скрипт
Цитата:
Label (123) //начало цикла
послать пакет 1
delay 500
послать пакет 2
delay 500
jmp(123) //вернуться в начало цикла.
Пожалуйста, помогите.
з.ы. я знаю что есть функция отправить пакет на сервер, но мне надо отправлять несколько пакетов с заданным интервалом, иначе часть из них просто не успеет обработаться.
Вот пример скрипта. (если от серва пакет 1, то отправить пакет 2.)

begin
if FromClient and (pck=HStr('FE 58 00 01 00 00 00')) then begin
buf:=HStr('D0 26 00 C0 00 23 40');
SendToServer;
end;
end.

что не так? в 4ой строчке чего то не хватает. подскажите плиз. и как добавить второй пакет с делеем 500 в отправку

Последний раз редактировалось Санчес, 29.09.2011 в 16:42.
Санчес вне форума   Ответить с цитированием
Старый 29.09.2011, 21:58   #30
Местный
 
Аватар для Pinko
 
Регистрация: 31.05.2011
Сообщений: 130
Сказал Спасибо: 287
Имеет 23 спасибок в 22 сообщенях
Pinko пока неопределено
По умолчанию

Санчес,
поиск на что ??
хотя бы
http://coderx.ru/showpost.php?p=149439&postcount=9
http://coderx.ru/showthread.php?t=80...EA%E5%F2%EE%E2
Pinko вне форума   Ответить с цитированием
Ответ

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



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

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


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

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

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