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

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

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
Ответ
 
Опции темы Опции просмотра
Старый 10.06.2009, 20:28   #1
Пользователь
 
Регистрация: 22.04.2009
Сообщений: 72
Сказал Спасибо: 25
Имеет 19 спасибок в 9 сообщенях
Lynx пока неопределено
По умолчанию Нeвидимocть+cкилы

Скрипт для мага. Тот же самый скрипт на нeвидимoсть, но с возможностью
использовать скилы.
Код:
//Invisible Mode
var 
  pck48:string;
  hidden:boolean;
  i,x,y,targetid:integer;
 t2:ttimer;
procedure Init; 
begin 
  hidden:=false; 
  pck48:=''; 
  randomize; 
t2:=TTimer.Create(nil);
t2.OnTimer:=@OnTimer2; //
t2.enabled:=false; //
t2.interval:=3250;

end; 
procedure inshadow;
begin
  if pck48='' then exit;
        
        hidden:=true; 
        pck:=pck48; 
        i:=2; 
        x:=ReadD(i); 
        y:=ReadD(i); 
        x:=x+1000+round(random*200)-100; 
        y:=y+1000+round(random*200)-100; 
        buf:=pck; 
        WriteD(x,2); 
        WriteD(y,6); 
        SendToServer;
end;
procedure outshadow;
begin
         buf:=#$30;
        SendToServer;
        hidden:=false; 
        buf:=hstr('04 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  00');
        WriteD(targetid,2);
        SendToServer;
end;
procedure Free; //Вызывается при выключении скрипта
begin

end;
procedure OnTimer(Sender: TObject);
begin


  end;
procedure OnTimer2(Sender: TObject);
begin
outshadow;
t2.enabled:=false;
end;



 begin
if FromServer then begin

case ord(pck[1]) of
$28:pck:=#$48;
$64: if pck[2]=#$23 then inshadow;
$12:if hidden=true then pck:=#$48;
    $2A:if hidden=true then pck:=#$48;
$6d: begin t2.interval:=(readd(6)-850);   
 t2.enabled:=true;
end;
$06: if hidden=true then begin
buf:=hstr('12 00 00 00 00 00 00 00 00');
writed(readd(2),2);
sendtoserver;
end;
end;
end;
if FromServer then exit;
  case ord(pck[1]) of 
    $04:targetid:=ReadD(2);
    $2F:if not(pck[2]=#$7f) then begin
outshadow;
    buf:=pck;
    SendToServer;
    inshadow;
     end;
    $1B:case ord(pck[2]) of
      $05:outshadow;
      $06:inshadow;
    end; 
    $48:pck48:=pck; 
    $30:if hidden then pck:=''; 
    end;
end.
Lynx вне форума   Ответить с цитированием
За это сообщение Lynx нажился 4 спасибками от:
Старый 10.06.2009, 20:58   #2
Местный
 
Аватар для pmen
 
Регистрация: 16.05.2009
Сообщений: 129
Сказал Спасибо: 66
Имеет 62 спасибок в 34 сообщенях
pmen пока неопределено
По умолчанию

Спасибо! Благодаря скрипту вдобавок на оли не тпшит =))) А это круто)
__________________
Работа программиста и шамана имеет много общего - оба бормочут непонятные слова, совершают непонятные действия и не могут объяснить, как оно работает
__________________________________________________ _____________
Родители частенько вышибали из меня дурь, но я знал где достать еще
__________________________________________________ _____________
Я живу напротив кладбища. БУДЕШЬ выпендриваться - будешь жить напротив меня!!!

Если помог скажи СПАСИБО =)
pmen вне форума   Ответить с цитированием
Старый 10.06.2009, 21:55   #3
Новичок
 
Регистрация: 18.05.2009
Сообщений: 17
Сказал Спасибо: 9
Имеет 1 спасибку в 1 сообщении
i-bell пока неопределено
По умолчанию

Это на ИЛ скрипт? Для С4 его юзать мона?
i-bell вне форума   Ответить с цитированием
Старый 10.06.2009, 22:48   #4
Местный
 
Аватар для pmen
 
Регистрация: 16.05.2009
Сообщений: 129
Сказал Спасибо: 66
Имеет 62 спасибок в 34 сообщенях
pmen пока неопределено
По умолчанию

Это как раз для с4! Но и под ИТ
__________________
Работа программиста и шамана имеет много общего - оба бормочут непонятные слова, совершают непонятные действия и не могут объяснить, как оно работает
__________________________________________________ _____________
Родители частенько вышибали из меня дурь, но я знал где достать еще
__________________________________________________ _____________
Я живу напротив кладбища. БУДЕШЬ выпендриваться - будешь жить напротив меня!!!

Если помог скажи СПАСИБО =)
pmen вне форума   Ответить с цитированием
За это сообщение pmen нажился спасибкой от:
Старый 11.06.2009, 00:13   #5
Пользователь
 
Аватар для HORSE
 
Регистрация: 06.06.2009
Сообщений: 92
Сказал Спасибо: 31
Имеет 9 спасибок в 8 сообщенях
HORSE пока неопределено
По умолчанию

а можно попросить переделать под Грацию???....ато щас уже мало сервов С6 а особенно С4....шас все на Финал кинулись=(((
Сделайте скрипт хотя бы под Грации Парт 2...я думаю он и под Камаель потянет...и Парт 1...
HORSE вне форума   Ответить с цитированием
Старый 11.06.2009, 11:03   #6
Новичок
 
Регистрация: 18.05.2009
Сообщений: 17
Сказал Спасибо: 9
Имеет 1 спасибку в 1 сообщении
i-bell пока неопределено
По умолчанию

Цитата:
Сообщение от pmen Посмотреть сообщение
Это как раз для с4!
...угум, ок.
Че то с первого раза не прошло, ща еще поковыряю )
Спс
i-bell вне форума   Ответить с цитированием
Старый 11.06.2009, 11:57   #7
Пользователь
 
Регистрация: 22.04.2009
Сообщений: 72
Сказал Спасибо: 25
Имеет 19 спасибок в 9 сообщенях
Lynx пока неопределено
По умолчанию

Если с первого раза не пошло, скорее всего фикс. Но поковыряй, полезно=)
Lynx вне форума   Ответить с цитированием
Старый 08.08.2009, 02:38   #8
Новичок
 
Регистрация: 11.06.2009
Сообщений: 5
Сказал Спасибо: 4
Имеет 1 спасибку в 1 сообщении
He3eMHou пока неопределено
По умолчанию

Парни Скрипт ток для Магов? или без разницы... если без разницы.. то подскажите как его запустить а то я нажимаю на него и все по 0!!! не чего нет не сообщения не Инвиза.. нечего.... СпС зарания... играю на ИТ!!
He3eMHou вне форума   Ответить с цитированием
Старый 08.08.2009, 08:16   #9
Рыцарь
 
Аватар для TAMBIK
 
Регистрация: 03.03.2009
Сообщений: 773
Сказал Спасибо: 361
Имеет 300 спасибок в 168 сообщенях
TAMBIK на пути к лучшему
По умолчанию

Цитата:
Сообщение от He3eMHou Посмотреть сообщение
Парни Скрипт ток для Магов? или без разницы... если без разницы.. то подскажите как его запустить а то я нажимаю на него и все по 0!!! не чего нет не сообщения не Инвиза.. нечего.... СпС зарания... играю на ИТ!!
Описания нет так и будут вопросы.

Вроде так:
1.Береш себя в таргет
2.для запуска нажать соцдействие ДА
3.для отмены соцдействие НЕТ
__________________
Тут не форум гадалок, если ты делаешь все правильно и по пунктам - то все должно работать
TAMBIK вне форума   Ответить с цитированием
За это сообщение TAMBIK нажился спасибкой от:
Старый 21.08.2009, 20:34   #10
Новичок
 
Регистрация: 21.08.2009
Сообщений: 2
Сказал Спасибо: 0
Имеет 0 спасибок в 0 сообщенях
tarrrik пока неопределено
По умолчанию

Lynx, напиши пожалуйста мне в аську, есть розговоор 392 988 284
tarrrik вне форума   Ответить с цитированием
Ответ

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


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

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

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


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

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

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