Регистрация Главная Пользователи Все разделы прочитаны
Сообщения за день Справка Регистрация
Навигация
Zhyk.org LIVE! Реклама на Zhyk.org Правила Форума Награды и достижения Доска "почета"

[Перевод] Скрипт на Телепорт (Старые @ Моды)

-

Подполье Lineage 2 (0 уровень)

- Темы, перенесенные из Подполья 1 уровня (архивные за 2008-2015). Отличная основа для поиска новых уязвимостей.

Ответ
 
Опции темы
Старый 18.02.2010, 19:58   #1
Заблокирован
 Капитан
Аватар для Underwhy
 
Underwhy у всех на слухуUnderwhy у всех на слухуUnderwhy у всех на слухуUnderwhy у всех на слухуUnderwhy у всех на слухуUnderwhy у всех на слухуUnderwhy у всех на слухуUnderwhy у всех на слухуUnderwhy у всех на слухуUnderwhy у всех на слуху
Регистрация: 22.08.2009
Сообщений: 277
Популярность: 1328
Сказал(а) спасибо: 194
Поблагодарили 472 раз(а) в 220 сообщениях
 
По умолчанию [Перевод] Скрипт на Телепорт (Старые @ Моды)

Привет! Сегодня я расскажу вам о Пакете Телепортации. Старая версия, которую можно найти на этом форуме (не помню автора)

Какие изменения я внёс?:

Добавил больше мест
Добавил больше мест замков [обелиск осады. Таким образом вы получаете 99% шанс захватить замок]
Добавлен Саб НПЦ и РБ [Полностью 1-ая часть НПЦ и РБ в ТоИ ; Некоторые НПЦ из 2-ой части ; Локация добычи "Blood Fire" и так далее]
Добавлено ещё одно местоположении олимпа
Сменена команда [в старой версии .location], но я играю на сервере где команды через " . " блокируются, новая команда
%location [да, я знаю косяк, про то что герои могут использовать это]


Код:
//TeleportScrypt @ Pozwala Teleportowac sie do danej lokacji z kazdego miejsca, Wystarczy w Chacie wpisac ex.%giran  
//Jest to specjalna edycja ;^ 
//Gl @ Hf =D   

{Miejsca Do ktorych da sie Portnac}

//******************===Towns/Miasta===********************************
//%gludio 
//%goddard 
//%aden   
//%giran 
//%rune 
//%oren 
//%heine 
//%dion 
//%schuttgart 
//%gludin 

//******************===Zamki===*********************************
//%adencastle 
//%runecastle 
//%goddardcastle 
//%girancastle 
//%orencastle 
//%gludiocastle 
//%dioncastle 
//%schuttgartcastle 
//%innadrilcastle 

//******************===Lokacje-Lepsze===*******************************
//%dino 
//%vos 
//%varka  
//%mos 
//%ketra 

//*****************===Bossy.[Epic]===*****************************
//%aq 
//%zaken 
//%baium 
//%antharas 
//%valakas 
//%frintezza 
//*****************===SzalonexD===*****************************
//%olympiad     <-  Rozjebalo sie @ niedziala.
//%jail         <- jail ?
//%adencrest    <-  Aden zamek @ ^ 
//%vodopad  
//%coliseum     <- Coloseum
//%Mithril 1-3  <- ( %mithril <- Srodek Placu | %mithril2 <- Na rusztowaniu | %mithril3 <- Nad Weapon shopem! )
//%oly1         <- Stadion @ Nad Wszystkim.

//*****************===Noblesse Quest===*****************************
//%talien 
//%gabrielle 
//%gilmore 
//%baraham 
//%melodymaestro 
//%marluk 
//%stedmiel 
//%virgil 
//%rahorakti 
//%splinterstakato 
//%caradine 
//%noel 
//%mdk 
//%kalis 
//%matild 
//%unicorn  <- konik [ nobl ]
//%jp       <- Ring @ naclece [ noblese ]
//%noblrb   <-    Barakiel
//%ladd 
//*****************===Suba Part [1] Quest===*****************************
//%reorin  <- Npc Gdzie zaczyna sie Questa @ Krasnal
//%cabrio  <- Rb do suby @      Cabrio
//%toi3    <- Rb do suby @ Toi 3
//%toi8    <- Rb do suby @ Toi 8
//%toi11   <- Rb Do suby @ Toi 11
//*****************===Suba Part [2] Quest===*****************************
//%bloodfire     <- Serce Loa [ kolo Portalu do antharasa]
//%chimerapiece  <- Bez komentarza
//%zenkin     <- Oren Shop
//%hardin     <- Pipe Knife
//%wesley     <- Quest na Farme ;^
//%mms 0-5  <- Monostone Farma ! 

//*****************===Dodatkowe!===*****************************
//%mithril  0-3
//%mordor
//%gondor
//%wh     <- Zbunkrowany !
//%pony   <- z drugiej Strony ]![
//%mordorrb1  <- 1 rb w mordorze  [ Patrzac od wejscia ]
//%mordorrb2  <- 2 rd w mordorze  [ Patrzac od wejscia ]


//*****************===Mega Kozaki!===*****************************
//%adencastle1          
//%girancastle1
//%dioncastle1
//%orencastle1
//%gludiocastle1
var
ValidatePosition:string; c:integer; e:integer; n:integer; r:boolean;     
a:integer; b:boolean;  d:integer; f:integer; v:integer;
procedure Init;
begin
SendMsc('Aby aktywowac wez target na siebie!');
b:=false;
end;
procedure SendMsc(msc:string);
begin
buf:=#$4A;
WriteD(0);
WriteD(18);
WriteS('Aby Aktywowac Wez Target Na Swoja Postac!');
WriteS(msc);
SendToClient;
end;
Begin
begin
if FromClient and (pck[1]=#$04)and (not b) then 
begin
a:=ReadD(2); c:=ReadD(6);
d:=ReadD(10); e:=ReadD(14);
f:=ReadC(18);
SendMsc('Uzbroiles Teleport Scrypta @ MTi.');
b:=true;
end;
end;
Begin
If fromclient and (pck=#$38#$67#$00#$6C#$00#$00#$00#$11#$00#$00#$00) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ #$F0#$29#$FE#$FF#$C9#$90#$FC#$FF#$02#$F3#$FF#$FF;
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 67 00 6C 00 75 00 64 00 69 00 6F 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ #$8E#$CE#$FF#$FF#$99#$DF#$01#$00#$D9#$F3#$FF#$FF;
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 67 00 6F 00 64 00 64 00 61 00 72 00 64 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('CE 41 02 00 0E 28 FF FF 57 F5 FF FF');
SendToClient;
end;
end;

Begin
If fromclient and (pck=hstr('38 64 00 75 00 70 00 61 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('48 75 CB 01 00 7F 35 02 00 AB F5 FF FF B8 3B 00 00 00 00 00 00');
SendToClient;
end;
end; 


Begin
If fromclient and (pck=hstr('38 61 00 64 00 65 00 6E 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('89 3B 02 00 B0 64 00 00 23 F8 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 67 00 69 00 72 00 61 00 6E 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('0A 43 01 00 9E 44 02 00 74 F2 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 72 00 75 00 6E 00 65 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('2A AB 00 00 7E 45 FF FF E7 FC FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 72 00 75 00 6E 00 65 00 63 00 61 00 73 00 74 00 6C 00 65 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('11 28 00 00 12 40 FF FF ED FE FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 61 00 64 00 65 00 6E 00 63 00 61 00 73 00 74 00 6C 00 65 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('F6 3F 02 00 2C 12 00 00 B1 FE FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 67 00 6F 00 64 00 64 00 61 00 72 00 64 00 63 00 61 00 73 00 74 00 6C 00 65 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('04 40 02 00 6E 43 FF FF 21 F7 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 67 00 69 00 72 00 61 00 6E 00 63 00 61 00 73 00 74 00 6C 00 65 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('1B C7 01 00 C7 36 02 00 02 F6 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 6F 00 72 00 65 00 6E 00 63 00 61 00 73 00 74 00 6C 00 65 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('90 42 01 00 45 91 00 00 13 F7 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 67 00 6C 00 75 00 64 00 69 00 6F 00 63 00 61 00 73 00 74 00 6C 00 65 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('40 B9 FF FF 65 AB 01 00 45 F6 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 64 00 69 00 6F 00 6E 00 63 00 61 00 73 00 74 00 6C 00 65 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('3A 56 00 00 60 72 02 00 83 F5 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 73 00 63 00 68 00 75 00 74 00 74 00 67 00 61 00 72 00 74 00 63 00 61 00 73 00 74 00 6C 00 65 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('E0 2E 01 00 31 A9 FD FF 80 FE FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 69 00 6E 00 6E 00 61 00 64 00 72 00 69 00 6C 00 63 00 61 00 73 00 74 00 6C 00 65 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('39 C5 01 00 09 CD 03 00 F2 FC FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 6A 00 61 00 69 00 6C 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('E2 40 FE FF ED 30 FC FF 5B F4 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 6F 00 72 00 65 00 6E 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('91 41 01 00 63 D7 00 00 0C FA FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 68 00 65 00 69 00 6E 00 65 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('0B B2 01 00 89 57 03 00 2A F2 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 64 00 69 00 6F 00 6E 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('3C 49 00 00 1D 38 02 00 C9 F3 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 73 00 68 00 75 00 74 00 74 00 67 00 61 00 72 00 74 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('3E 55 01 00 62 D5 FD FF C8 FA FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 67 00 6C 00 75 00 64 00 69 00 6E 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('89 BB FE FF 07 4D 02 00 C8 F3 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 64 00 69 00 6E 00 6F 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('E4 28 00 00 07 A0 FF FF C3 F1 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 61 00 64 00 65 00 6E 00 63 00 72 00 65 00 73 00 74 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('FF 41 02 00 A5 0F 00 00 FC 11 00 00');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 76 00 6F 00 64 00 6F 00 70 00 61 00 64 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('12 A9 02 00 93 62 01 00 33 07 00 00');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 76 00 6F 00 73 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('D6 18 01 00 39 96 FE FF 74 FA FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 76 00 61 00 72 00 6B 00 61 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('59 EA 01 00 18 60 FF FF 79 F1 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 6D 00 6F 00 73 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('9D 9F 01 00 0E A9 FE FF 9D F4 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 6B 00 65 00 74 00 72 00 61 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('0A 3E 02 00 C4 F8 FE FF B9 F1 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 63 00 6F 00 6C 00 69 00 73 00 65 00 75 00 6D 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('46 4A 02 00 8D B6 00 00 B1 F2 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 61 00 71 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('96 AB FF FF 5A C5 02 00 9F E9 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 7A 00 61 00 6B 00 65 00 6E 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('10 D8 00 00 20 58 03 00 6E F3 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 62 00 61 00 69 00 75 00 6D 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('0D C2 01 00 EF 40 00 00 65 27 00 00');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 61 00 6E 00 74 00 68 00 61 00 72 00 61 00 73 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('6C D5 02 00 7A BE 01 00 E8 DF FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 76 00 61 00 6C 00 61 00 6B 00 61 00 73 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('88 43 03 00 14 3D FE FF 99 F9 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 66 00 72 00 69 00 6E 00 74 00 65 00 7A 00 7A 00 61 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('9E A8 02 00 44 A2 FE FF BD EB FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 74 00 61 00 6C 00 69 00 65 00 6E 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('1F 41 02 00 FA 66 00 00 A4 F7 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 67 00 61 00 62 00 72 00 69 00 65 00 6C 00 6C 00 65 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('89 3D 01 00 CF 48 02 00 74 F2 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 67 00 69 00 6C 00 6D 00 6F 00 72 00 65 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('DA 1D 01 00 DD CE 01 00 92 F1 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 62 00 61 00 72 00 61 00 68 00 61 00 6D 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('1F 53 00 00 70 D0 02 00 F5 F2 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 6D 00 65 00 6C 00 6F 00 64 00 79 00 6D 00 61 00 65 00 73 00 74 00 72 00 6F 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('DC A1 01 00 8D 4F 03 00 F5 F1 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 6D 00 61 00 72 00 6C 00 75 00 6B 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('F5 D1 01 00 DD C7 01 00 63 F1 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 73 00 74 00 65 00 64 00 6D 00 69 00 65 00 6C 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('44 D4 01 00 D4 2D 01 00 3D F7 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 76 00 69 00 72 00 67 00 69 00 6C 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('DA 80 00 00 9D 43 FF FF F5 06 00 00');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 72 00 61 00 68 00 6F 00 72 00 61 00 6B 00 74 00 69 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('B6 95 00 00 91 3F FF FF 98 FB FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 73 00 70 00 6C 00 69 00 6E 00 74 00 65 00 72 00 73 00 74 00 61 00 6B 00 61 00 74 00 6F 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('BD 24 01 00 AD 4A FF FF 63 F3 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 63 00 61 00 72 00 61 00 64 00 69 00 6E 00 65 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('7F 4A 02 00 D6 1D FF FF 5C F4 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 6E 00 6F 00 65 00 6C 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('20 3C 02 00 45 1A FF FF 64 F4 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 6D 00 64 00 6B 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('03 7B 01 00 F1 14 FF FF 5C F6 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 6B 00 61 00 6C 00 69 00 73 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('63 74 01 00 AE 56 00 00 C0 F4 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 6D 00 61 00 74 00 69 00 6C 00 64 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('D4 10 01 00 AF 46 00 00 B4 F1 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 75 00 6E 00 69 00 63 00 6F 00 72 00 6E 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('7D 4F 01 00 0E D5 FE FF 6E F2 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 6A 00 70 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('B0 47 01 00 10 C7 FE FF 4A F2 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 6E 00 6F 00 62 00 6C 00 72 00 62 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('62 65 01 00 52 AF FE FF 66 F5 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 6C 00 61 00 64 00 64 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('1D 4C 01 00 89 3E 00 00 0E F9 FF FF');
SendToClient;
end;
end;



Begin
If fromclient and (pck=hstr('38 6D 00 73 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('28 A6 01 00 1C 57 FD FF 67 FE FF FF');
SendToClient;
end;
end;

Begin
If fromclient and (pck=hstr('38 6D 00 6F 00 72 00 64 00 6F 00 72 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('3C D2 02 00 B7 CB FE FF 55 F5 FF FF');
SendToClient;
end;
end;

Begin
If fromclient and (pck=hstr('38 67 00 6F 00 6E 00 64 00 6F 00 72 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('5E 96 00 00 A9 31 FF FF 46 FC FF FF');
SendToClient;
end;
end;


Begin
If fromclient and (pck=hstr('38 77 00 68 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('34 35 01 00 44 48 02 00 F4 F1 FF FF');
SendToClient;
end;
end;

Begin
If fromclient and (pck=hstr('38 72 00 65 00 6F 00 72 00 69 00 6E 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('7F 6A 01 00 DF D8 00 00 D8 F2 FF FF');
SendToClient;
end;
end;


Begin
If fromclient and (pck=hstr('38 63 00 61 00 62 00 72 00 69 00 6F 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('C5 BE 02 00 02 32 00 00 6D F5 FF FF');
SendToClient;
end;
end;


Begin
If fromclient and (pck=hstr('38 74 00 6F 00 69 00 33 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('6A BB 01 00 81 43 00 00 B2 F7 FF FF');
SendToClient;
end;
end;

Begin
If fromclient and (pck=hstr('38 74 00 6F 00 69 00 38 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('5C BA 01 00 38 40 00 00 80 0F 00 00');
SendToClient;
end;
end;

Begin
If fromclient and (pck=hstr('38 74 00 6F 00 69 00 31 00 31 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('15 C8 01 00 63 3C 00 00 56 1B 00 00');
SendToClient;
end;
end;

Begin
If fromclient and (pck=hstr('38 6D 00 69 00 74 00 68 00 72 00 69 00 6C 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('9F A6 01 00 8E 57 FD FF 67 FE FF FF');
SendToClient;
end;
end;

Begin
If fromclient and (pck=hstr('38 70 00 6F 00 6E 00 79 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('13 83 01 00 48 14 FF FF 18 F5 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 6D 00 6F 00 72 00 64 00 6F 00 72 00 72 00 62 00 31 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('B7 C3 02 00 38 C4 FE FF 55 F5 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 6D 00 6F 00 72 00 64 00 6F 00 72 00 72 00 62 00 32 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('F9 B8 02 00 98 DE FE FF 55 F5 FF FF');
SendToClient;
end;
end;


Begin
If fromclient and (pck=hstr('38 61 00 64 00 65 00 6E 00 63 00 61 00 73 00 74 00 6C 00 65 00 31 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('09 40 02 00 FA 05 00 00 8B FE FF FF');
SendToClient;
end;
end;


Begin
If fromclient and (pck=hstr('38 64 00 69 00 6F 00 6E 00 63 00 61 00 73 00 74 00 6C 00 65 00 31 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('44 56 00 00 EE 77 02 00 8B F5 FF FF');
SendToClient;
end;
end;


Begin
If fromclient and (pck=hstr('38 67 00 69 00 72 00 61 00 6E 00 63 00 61 00 73 00 74 00 6C 00 65 00 31 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('BB CC 01 00 BF 36 02 00 0A F6 FF FF');
SendToClient;
end;
end;



Begin
If fromclient and (pck=hstr('38 68 00 65 00 69 00 6E 00 65 00 63 00 61 00 73 00 74 00 6C 00 65 00 31 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('3F C5 01 00 BA D2 03 00 FB FC FF FF');
SendToClient;
end;
end;

Begin
If fromclient and (pck=hstr('38 6F 00 72 00 65 00 6E 00 63 00 61 00 73 00 74 00 6C 00 65 00 31 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('37 48 01 00 3F 91 00 00 1B F7 FF FF');
SendToClient;
end;
end;

Begin
If fromclient and (pck=hstr('38 67 00 6C 00 75 00 64 00 69 00 6F 00 63 00 61 00 73 00 74 00 6C 00 65 00 31 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('3B B9 FF FF C8 A5 01 00 4D F6 FF FF');
SendToClient;
end;
end;

Begin
If fromclient and (pck=hstr('38 6D 00 6D 00 73 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('B9 5D 02 00 6B A5 FF FF 58 00 00 00');
SendToClient;
end;
end;

Begin
If fromclient and (pck=hstr('38 6D 00 6D 00 73 00 31 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('D3 48 02 00 34 A2 FF FF CD F2 FF FF');
SendToClient;
end;
end;

Begin
If fromclient and (pck=hstr('38 6D 00 6D 00 73 00 33 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('3E 32 02 00 32 A0 FF FF 33 F8 FF FF');
SendToClient;
end;
end;


Begin
If fromclient and (pck=hstr('38 6D 00 6D 00 73 00 34 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('E2 46 02 00 E5 B3 FF FF 02 F4 FF FF');
SendToClient;
end;
end;

Begin
If fromclient and (pck=hstr('38 6D 00 6D 00 73 00 35 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('6C 5B 02 00 A6 B3 FF FF 75 F9 FF FF');
SendToClient;
end;
end;

Begin
If fromclient and (pck=hstr('38 63 00 68 00 69 00 6D 00 65 00 72 00 61 00 70 00 69 00 65 00 63 00 65 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('15 AE 02 00 12 CE 00 00 2A E9 FF FF');
SendToClient;
end;
end;

Begin
If fromclient and (pck=hstr('38 62 00 6C 00 6F 00 6F 00 64 00 66 00 69 00 72 00 65 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('35 5A 02 00 91 DA 01 00 65 F1 FF FF');
SendToClient;
end;
end;

Begin
If fromclient and (pck=hstr('38 7A 00 65 00 6E 00 6B 00 69 00 6E 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('59 35 01 00 71 D1 00 00 F6 F9 FF FF');
SendToClient;
end;
end;

Begin
If fromclient and (pck=hstr('38 68 00 61 00 72 00 64 00 69 00 6E 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('C9 99 01 00 2A BA 01 00 8A F3 FF FF');
SendToClient;
end;
end;

Begin
If fromclient and (pck=hstr('38 6D 00 69 00 74 00 68 00 72 00 69 00 6C 00 31 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('F2 A4 01 00 93 5E FD FF 4B 04 00 00');
SendToClient;
end;
end;

Begin
If fromclient and (pck=hstr('38 6D 00 69 00 74 00 68 00 72 00 69 00 6C 00 33 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('5E A7 01 00 68 59 FD FF 29 FF FF FF');
SendToClient;
end;
end;

Begin
If fromclient and (pck=hstr('38 77 00 65 00 73 00 6C 00 65 00 79 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('80 4E 01 00 29 41 00 00 4E EF FF FF');
SendToClient;
end;
end;



Begin
If fromclient and (pck=hstr('38 6F 00 6C 00 79 00 31 00 00 00 11 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('EB A2 FE FF 2B 11 FC FF 77 F5 FF FF');
SendToClient;
end;
end;
end.
Тестировалось на l2 knight [ l2j interlude ]

Последний раз редактировалось Underwhy; 18.02.2010 в 21:59.
  Ответить с цитированием
2 пользователя(ей) сказали cпасибо:
GraNIT (18.02.2010), m0nk (18.02.2010)
Ответ

Опции темы

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

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

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Телепорт xJETAVx Общение и обсуждение Aion 5 28.02.2010 22:55
[Руководство] [Перевод] Как сделать скрипт на телепорт! ExxtanzO Подполье Lineage 2 (0 уровень) 4 19.02.2010 12:23
Steam запускает моды NewsMaster Игровые новости, анонсы и обзоры 3 29.01.2010 23:18
баг с банкамии на мп (мини телепорт) Comb Архив 11 05.10.2008 22:43

Заявление об ответственности / Список мошенников

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

Пишите нам: [email protected]
Copyright © 2024 vBulletin Solutions, Inc.
Translate: zCarot. Webdesign by DevArt (Fox)
G-gaMe! Team production | Since 2008
Hosted by GShost.net