Просмотр полной версии : Маленький скрипт
Vklu4atel^^
19.03.2009, 05:26
Здраствуите нужен маленький скрипт имеем пакет на забратие пухи с ВХ 32 01 00 00 00 6B A2 14 10 01 00 00 00 и дествие Unvare 1B 08 00 00 00
можыте ли помоч со скриптом чтоб по нажатию Social Unware я забирал пуху с ВХ ? (очень нада спс):o
Здраствуите нужен маленький скрипт имеем пакет на забратие пухи с ВХ 32 01 00 00 00 6B A2 14 10 01 00 00 00 и дествие Unvare 1B 08 00 00 00
можыте ли помоч со скриптом чтоб по нажатию Social Unware я забирал пуху с ВХ ? (очень нада спс):o
const
Name='имя чара'; //сюда вписать имя чара для которого запускаем скрипт, с соблюдением регистра букв
procedure Init; //Вызывается при включении скрипта
begin
end;
procedure Free; //Вызывается при выключении скрипта
begin
end;
//************************************************** ***
// вызывается при приходе каждого пакета, если скрипт включен
//************************************************** ***
begin
//************************************************** ***
//не обрабатываем пустые пакеты
if pck='' then exit;
//*************************************************
if (ConnectName=Name) and FromClient then begin
case pck[1] of
#$1B: begin
case ReadD(2) of
//социальное действие Unaware
8: begin
buf:=HStr('32 01 00 00 00 6B A2 14 10 01 00 00 00');
SendToClientEx(Name);
//не передаем серверу социальное действие
pck:='';
end;
end;
end;
end; //case
end;
end.
Vklu4atel^^
19.03.2009, 16:48
if pck='' сюда деиствие??? if (ConnectName=Name) сюда ник??
if pck='' сюда деиствие??? if (ConnectName=Name) сюда ник??
Забыл. Перед процедурой INIT надо описание переменных вставить. Больше ничего не надо.
Я свой предыдущий пост поправил.
Vklu4atel^^
19.03.2009, 20:47
чтото нереагирует он и я невижу место корое отвечает за деиствие ну соцыал чтоб можно было сменить его?
чтото нереагирует он и я невижу место корое отвечает за деиствие ну соцыал чтоб можно было сменить его?
Может проблема в том, что требуется ObjectID?
Tип: 0x32 (SendWareHouseWithDrawList)
Pазмер: 13+2
0002 d Count: 1 (0x00000001)
[Начало повторяющегося блока 1/1]
0006 d ObjectID: 269787755
0010 d Count: 1
[Конец повторяющегося блока 1/1]
Социал дествие Unvare 1B 08 00 00 00
//социальное действие Unaware
8: begin
Вместо посылки пакета вставь вывод текстового сообщения и проверь работу скрипта
sendMSG('социальное действие Unaware');
vBulletin® v3.6.11, Copyright ©2000-2024, Jelsoft Enterprises Ltd. Перевод: zCarot