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

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

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
Ответ
 
Опции темы Опции просмотра
Старый 16.01.2011, 01:54   #1
Местный
 
Аватар для J-Fobos
 
Регистрация: 09.06.2008
Сообщений: 867
Сказал Спасибо: 175
Имеет 468 спасибок в 259 сообщенях
J-Fobos пока неопределено
По умолчанию Анимация значка клана

Наткнулся случайно на этот скрипт. Довольно интересная реализация идеи с анимированным титулом.
Код:
//Crests are captured from RequestSetPledgeCrest and copied verbatim (minus the spaces)
//Set your char nick in 'name'
//Crest change delay should be set to at least 3000 (3s) to work
//Script is enabled/disabled (toggle) with /socialvictory in game
const
name='YOURNICK';
crestnr=2;
d = 3000;

crest1='0900010000444453207C000000071008001000000010000000800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000020000000040000004458543100000000000000000000000000000000000000000000000000000000000000000000000000000000FFFF000000000000FFFF000000000000FFFF000000000000FFFF00000000000000D9F0DE005040400099F0DE00050404E0A3000855E74DC7E0BC0000555E5654E0AE00991595959500D9E0A6045F0C7C00B9E0DE101510550081E0FF01010101008300003515255500510083040406000099E0DE1010500000D9E0DE01010500';
crest2='0900010000444453207C000000071008001000000010000000800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000020000000040000004458543100000000000000000000000000000000000000000000000000000000000000000000000000000000FFFF000000000000FFFF000000000000FFFF000000000000FFFF0000000000000000F7BD00004040DDFF0000555558600000FFFF00000824BCF7000055555B5CDEFF000095151535FFFF0842CF2737A7DDFF2000890509B37EEF000056555556BDF7000025255555DDFF0000C0DE5555F7BD000058565555F7BD000054575555';

var
y:integer;
c,t,stop: integer;
n:integer;

procedure Init; //will be called on script initialization
begin
  c:=0;
  t:=0;
  stop:=1;
  n:=0;
end;


function GetTickCount(): integer;
var
lib,res: integer;
begin
    lib := LoadLibrary('kernel32.dll');
    res := CallFunction(lib, 'GetTickCount', 0, [nil]);
    FreeLibrary(lib);
    result := res;
end;

//Primary part of dcript
//calls alltime when l2ph got new packet
begin
    if (FromClient) and (pck[1] = #$34) then
    begin
        y := ReadD(2);
        if (y = 3) then
        begin
            if (stop=0) then
            begin
             stop:=1;
             end
            else 
            begin 
            stop:=0;
            end;
            pck := ''; 
        end;
    end;
c := GetTickCount()-t;
if (stop = 0) and (c > d) then
begin
t := GetTickCount();
if (n=0) then
begin
buf:= Hstr(Crest1);
n:=1;
end

else if (n=1) then
begin
buf:= Hstr(Crest2);
n:=2;
end;
if (n=crestnr) then n:=0;

SendToServerEx(name);
end;    
end.
ps: прошу прощения что не указываю автора, я не знаю кто написал скрипт.
__________________

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

Переходим на протокол нового поколения jabber
J-Fobos вне форума   Ответить с цитированием
За это сообщение J-Fobos нажился спасибкой от:
Старый 16.01.2011, 09:26   #2
Местный
 
Аватар для supernewbie
 
Регистрация: 23.09.2009
Сообщений: 1,232
Сказал Спасибо: 119
Имеет 172 спасибок в 134 сообщенях
supernewbie пока неопределено
По умолчанию

интересно интересно)

тока блин, че он загрузку из файла то не дописал да и на какие хроники этот скрипт мать вашу, надо переделать...

интересно что передают в этом пакете, судя по всему размер и дескриптор бмпшки, только как его в стринг та перевести...
__________________
Начало.

Последний раз редактировалось supernewbie, 16.01.2011 в 10:18.
supernewbie вне форума   Ответить с цитированием
Старый 16.01.2011, 13:02   #3
Местный
 
Аватар для SeregaZ
 
Регистрация: 16.08.2009
Сообщений: 1,224
Сказал Спасибо: 4
Имеет 229 спасибок в 182 сообщенях
SeregaZ пока неопределено
По умолчанию

всмысле как перевести? ты когда будешь указывать значок клана смотри какой пакет шлет клиент серверу - в нем и должен быть этот твой дескритор бмпки.
__________________
хочу картинку в подпись!
SeregaZ вне форума   Ответить с цитированием
Старый 16.01.2011, 14:12   #4
Местный
 
Аватар для supernewbie
 
Регистрация: 23.09.2009
Сообщений: 1,232
Сказал Спасибо: 119
Имеет 172 спасибок в 134 сообщенях
supernewbie пока неопределено
По умолчанию

ну это то не круто) надо самому делать в скрипте это)
__________________
Начало.
supernewbie вне форума   Ответить с цитированием
Старый 16.01.2011, 22:03   #5
Местный
 
Регистрация: 04.11.2009
Адрес: Где-то в жопе европы
Сообщений: 316
Сказал Спасибо: 32
Имеет 42 спасибок в 39 сообщенях
wimax пока неопределено
По умолчанию

скрипт то кулл. лагать можит сильно иза него та и паливно )
wimax вне форума   Ответить с цитированием
Старый 16.01.2011, 22:05   #6
Пользователь
 
Аватар для Liiion911
 
Регистрация: 19.05.2009
Сообщений: 56
Сказал Спасибо: 4
Имеет 3 спасибок в 3 сообщенях
Liiion911 пока неопределено
По умолчанию

А почему лагать ?
наоборот, благодаря подгружаемой библиотеке и неиспользуемому таймеру скрипт шустрый , да и картинки даются уже в коде.

ИМХО, круто. автору спс )
Liiion911 вне форума   Ответить с цитированием
Старый 16.01.2011, 22:41   #7
Местный
 
Регистрация: 11.06.2010
Сообщений: 644
Сказал Спасибо: 119
Имеет 85 спасибок в 77 сообщенях
dyh9l пока неопределено
По умолчанию

да лан? эт че поди еще и не тока клиент видит такой шедевр но и весь сервер?
__________________
dyh9l вне форума   Ответить с цитированием
Старый 17.01.2011, 05:54   #8
Пользователь
 
Аватар для Liiion911
 
Регистрация: 19.05.2009
Сообщений: 56
Сказал Спасибо: 4
Имеет 3 спасибок в 3 сообщенях
Liiion911 пока неопределено
По умолчанию

Ага ) Правда бан можно словить мгновенно, на двигающийся титул я отмазываюсь, говоря Макрос, (и правда такой макрос имею, но пакетхаком веселей) ,а вот на мигающий значок клана такое не скажешь )
Liiion911 вне форума   Ответить с цитированием
Ответ

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



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

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


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

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

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