тп в любое место (бесплатно)

PATCH1 · 13.09.2009, 00:47

это дело можно провернуть с помощью l2Phx
,что надо сделать ,что бы провернуть такое
знать координаты места в которое хочеш попасть, их можно узнать с помощью команды /loc
1)запускаем l2phx запускаем клиент l2 пишем номер пакета для отправки
(22)
2)полученые координаты при помощи команды /loc переведем из DWORD в HEX
3)к примеру я хочу на 3тои вот координаты x_113192-DWORD (28 BA 01 00) -HEX Y_17576 ( A8 44 00 00 ) Z_-2126(B2 F7 FF FF)
4)в пакете незабываем так же указывать ID игрока (ObjectID его можно узнать словив пакет UserInfo (допустим мой ID_fd df e0 48)
5)в итоге создаем пакет 22 fd df e0 48 28 BA 01 00 A8 44 00 00 B2 F7 FF FF
(ID игрока ставим после номера пакета 22 потом пробел и пишем x-координаты y-координаты z-координаты)
6)отправляем полученый пакет клиенту ,а не серверу (знаю вы скажете ,что ток на клиенте показывает ,а вот нет я перейзашел и оказался на месте тп)
7)очень удобно на малых рейтах бесплатно сое в любую часть мира ла2 на пвп сервере можно узнать координаты ,а на малых рейтов делать туда тп (бесплатно и за долю секунды)
8)еще бывает что при таком тп ты тип падаеш и урон под 5к ну ет редко и ты неумреш чист пару мин будет писать урон и хп будет 0

~~z0mbie~~ · 13.09.2009, 07:50

ппц скрипт уже 5-6 месяцев назад реализован был, с помощью него даже из тюрьмы можно выйти,когда был реализовн сразу же проверил на lineage-game.ru все работает,на следующий день профиксли

как юзать написано

Код:

//Включить скрипт
//Взять себя в таргет
//ну и тп куда хочешь
//После того как тпшнулся нужна сделать какойто скилл..потому что ты для сервера еще на старом месте.                //Автор pmen       

{Команды скрипта}

//******************===ГОРОДА===********************************
//.gludio - телепорт в глудио
//.goddard - телепорт в годдард
//.aden   - телепорт в аден
//.giran - телепорт в гиран
//.rune - телепорт в Руну
//.oren - телепорт в орен
//.heine - телепорт в Хейн
//.dion - телепорт в дион
//.schuttgart - телепорт в шутгарт
//.gludin - телепорт в глудин

//******************===ЗАМКИ===*********************************
//.adencastle - Aden Замок (ТРОН)
//.runecastle - Rune Замок (ТРОН)
//.goddardcastle - Goddard Замок (ТРОН)
//.girancastle - Giran Замок (ТРОН)
//.orencastle - Oren Замок (ТРОН)
//.gludiocastle - Gludio Замок  (ТРОН)
//.dioncastle - Dion Замок  (ТРОН)
//.schuttgartcastle - Шутгарт Замок  (ТРОН)
//.innadrilcastle - Innadril Замок  (ТРОН)

//******************===ЛОКАЦИИ===*******************************
//.dino - телепорт на дино остров
//.vos - телепорт в Valey OF Saints
//.varka - телепорт в Varka
//.mos - телепорт в Monastery Of Silence
//.ketra - телепорт в Ketra Ork

//*****************===РЭЙД БОССЫ===*****************************
//.aq - телепорт к Ант Квин
//.zaken - телепорт к Закену
//.baium - телепорт к Баюму
//.antharas - телепорт к Антарасу
//.valakas - телепорт к Валакасу
//.frintezza - телепорт к Фринтеза

//*****************===ДРУГИЕ МЕСТА===*****************************
//.olympiad   - телепорт на арену
//.jail   - телепорт в тюрьму 
//.adencrest - телепорт на верхушку креста адена
//.vodopad  - телепорт на водопад 
//.coliseum - телепорт в колизей

//*****************===Noblesse Quest===*****************************
//.talien - Телепорт к Talien
//.gabrielle - Телепорт к Gabrielle
//.gilmore - Телепорт к Gilmore
//.baraham - Телепорт к Baraham
//.melodymaestro - Телепорт к MelodyMaestro
//.marluk - Телепорт в локацию (Marluk Succubus)
//.stedmiel - Телепорт к Stedmiel
//.virgil - Телепорт к Virgil ( Kasandra прямо рядом с ним)
//.rahorakti - Телепорт к Rahorakti
//.splinterstakato - Телепорт в локацию Crimson Moss
//.caradine - Телепорт к Caradine
//.noel - Телепорт к Noel
//.mdk - Телепорт к Mysterious Dark Knight
//.kalis - Телепорт к Kalis
//.matild - Телепорт к Matild
//.unicorn - Телепорт к Unicorn
//.jp Телепорт в локацию Judge & Pilgrim (ring and neklasse)
//.noblrb - телепорт к Ноблесс Рэйд Боссу
//.ladd - телепорт в Ivory Tower(К магистру Ladd)

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('Возьми себя в таргет');
b:=false;
end;
procedure SendMsc(msc:string);
begin
buf:=#$4A;
WriteD(0);
WriteD(10);
WriteS('');
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('Запомнен ObjectID = '+inttostr(a));
b:=true;
end;
end;
Begin
If fromclient and (pck=#$38#$2E#$00#$6F#$00#$6C#$00#$79#$00#$6D#$00#$70#$00#$69#$00#$61#$00#$64#$00#$00#$00#$00#$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 2E 00 67 00 6C 00 75 00 64 00 69 00 6F 00 00 00 00 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 2E 00 67 00 6F 00 64 00 64 00 61 00 72 00 64 00 00 00 00 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 2E 00 61 00 64 00 65 00 6E 00 00 00 00 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 2E 00 67 00 69 00 72 00 61 00 6E 00 00 00 00 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 2E 00 72 00 75 00 6E 00 65 00 00 00 00 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 2E 00 72 00 75 00 6E 00 65 00 63 00 61 00 73 00 74 00 6C 00 65 00 00 00 00 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 2E 00 61 00 64 00 65 00 6E 00 63 00 61 00 73 00 74 00 6C 00 65 00 00 00 00 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 2E 00 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 00 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 2E 00 67 00 69 00 72 00 61 00 6E 00 63 00 61 00 73 00 74 00 6C 00 65 00 00 00 00 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 2E 00 6F 00 72 00 65 00 6E 00 63 00 61 00 73 00 74 00 6C 00 65 00 00 00 00 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 2E 00 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 00 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 2E 00 64 00 69 00 6F 00 6E 00 63 00 61 00 73 00 74 00 6C 00 65 00 00 00 00 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 2E 00 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 00 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 2E 00 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 00 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 2E 00 6A 00 61 00 69 00 6C 00 00 00 00 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 2E 00 6F 00 72 00 65 00 6E 00 00 00 00 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 2E 00 68 00 65 00 69 00 6E 00 65 00 00 00 00 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 2E 00 64 00 69 00 6F 00 6E 00 00 00 00 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 2E 00 73 00 68 00 75 00 74 00 74 00 67 00 61 00 72 00 74 00 00 00 00 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 2E 00 67 00 6C 00 75 00 64 00 69 00 6E 00 00 00 00 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 2E 00 64 00 69 00 6E 00 6F 00 00 00 00 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 2E 00 61 00 64 00 65 00 6E 00 63 00 72 00 65 00 73 00 74 00 00 00 00 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 2E 00 76 00 6F 00 64 00 6F 00 70 00 61 00 64 00 00 00 00 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 2E 00 76 00 6F 00 73 00 00 00 00 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 2E 00 76 00 61 00 72 00 6B 00 61 00 00 00 00 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 2E 00 6D 00 6F 00 73 00 00 00 00 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 2E 00 6B 00 65 00 74 00 72 00 61 00 00 00 00 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 2E 00 63 00 6F 00 6C 00 69 00 73 00 65 00 75 00 6D 00 00 00 00 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 2E 00 61 00 71 00 00 00 00 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 2E 00 7A 00 61 00 6B 00 65 00 6E 00 00 00 00 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 2E 00 62 00 61 00 69 00 75 00 6D 00 00 00 00 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 2E 00 61 00 6E 00 74 00 68 00 61 00 72 00 61 00 73 00 00 00 00 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 2E 00 76 00 61 00 6C 00 61 00 6B 00 61 00 73 00 00 00 00 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 2E 00 66 00 72 00 69 00 6E 00 74 00 65 00 7A 00 7A 00 61 00 00 00 00 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 2E 00 74 00 61 00 6C 00 69 00 65 00 6E 00 00 00 00 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 2E 00 67 00 61 00 62 00 72 00 69 00 65 00 6C 00 6C 00 65 00 00 00 00 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 2E 00 67 00 69 00 6C 00 6D 00 6F 00 72 00 65 00 00 00 00 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 2E 00 62 00 61 00 72 00 61 00 68 00 61 00 6D 00 00 00 00 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 2E 00 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 00 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 2E 00 6D 00 61 00 72 00 6C 00 75 00 6B 00 00 00 00 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 2E 00 73 00 74 00 65 00 64 00 6D 00 69 00 65 00 6C 00 00 00 00 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 2E 00 76 00 69 00 72 00 67 00 69 00 6C 00 00 00 00 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 2E 00 72 00 61 00 68 00 6F 00 72 00 61 00 6B 00 74 00 69 00 00 00 00 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 2E 00 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 00 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 2E 00 63 00 61 00 72 00 61 00 64 00 69 00 6E 00 65 00 00 00 00 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 2E 00 6E 00 6F 00 65 00 6C 00 00 00 00 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 2E 00 6D 00 64 00 6B 00 00 00 00 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 2E 00 6B 00 61 00 6C 00 69 00 73 00 00 00 00 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 2E 00 6D 00 61 00 74 00 69 00 6C 00 64 00 00 00 00 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 2E 00 75 00 6E 00 69 00 63 00 6F 00 72 00 6E 00 00 00 00 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 2E 00 6A 00 70 00 00 00 00 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 2E 00 6E 00 6F 00 62 00 6C 00 72 00 62 00 00 00 00 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 2E 00 6C 00 61 00 64 00 64 00 00 00 00 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;
end.

З.Ы. кому нада для других хроник пишем в пм

~~smertoO~~ · 13.09.2009, 08:19

Было бы не плохо указывать авторство. или хотя бы сайт.

PATCH1 · 13.09.2009, 14:05

Цитата:

Сообщение от smertoO


	Было бы не плохо указывать авторство. или хотя бы сайт.

если ты про то откудо я взял ,то я ет сам нашел чист вот смотрю пакеты которые есть вижу пакет TeleportToLOcation вот думаю как же он используется, пошел к ГК в дионе тп сделал в plains of dion и мну показала этот пакет ,однако еще что я отправил пакет действия ,вот и думаю как один пакет действия может отвечать за все тп в мире ла2 ,а вот никак,вот и начел эксперементировать сначала взял TeleportTOlocation смотрю там написаны координаты по x y z и ID игрока я такие же координаты видел при прописке команды /loc решил попробовать...про писал команду /loc от бежал от места тп вижу координаты и решил их переобразовать в HEX и попробовать сначала отправлял пакет серверу не чего не происходило, а когда отправил клиенту меня мигом тпшнуло в локацию которую я указал ранее. ID игрока узнал при открытии и закрытии инвентаря если кому интересно.

Добавлено через 6 минут

Цитата:

Сообщение от z0mbie

ппц скрипт уже 5-6 месяцев назад реализован был, с помощью него даже из тюрьмы можно выйти,когда был реализовн сразу же проверил на lineage-game.ru все работает,на следующий день профиксли
как юзать написано

Код:

//Включить скрипт //Взять себя в таргет //ну и тп куда хочешь //После того как тпшнулся нужна сделать какойто скилл..потому что ты для сервера еще на старом месте. //Автор pmen {Команды скрипта} //******************===ГОРОДА===******************************** //.gludio - телепорт в глудио //.goddard - телепорт в годдард //.aden - телепорт в аден //.giran - телепорт в гиран //.rune - телепорт в Руну //.oren - телепорт в орен //.heine - телепорт в Хейн //.dion - телепорт в дион //.schuttgart - телепорт в шутгарт //.gludin - телепорт в глудин //******************===ЗАМКИ===********************************* //.adencastle - Aden Замок (ТРОН) //.runecastle - Rune Замок (ТРОН) //.goddardcastle - Goddard Замок (ТРОН) //.girancastle - Giran Замок (ТРОН) //.orencastle - Oren Замок (ТРОН) //.gludiocastle - Gludio Замок (ТРОН) //.dioncastle - Dion Замок (ТРОН) //.schuttgartcastle - Шутгарт Замок (ТРОН) //.innadrilcastle - Innadril Замок (ТРОН) //******************===ЛОКАЦИИ===******************************* //.dino - телепорт на дино остров //.vos - телепорт в Valey OF Saints //.varka - телепорт в Varka //.mos - телепорт в Monastery Of Silence //.ketra - телепорт в Ketra Ork //*****************===РЭЙД БОССЫ===***************************** //.aq - телепорт к Ант Квин //.zaken - телепорт к Закену //.baium - телепорт к Баюму //.antharas - телепорт к Антарасу //.valakas - телепорт к Валакасу //.frintezza - телепорт к Фринтеза //*****************===ДРУГИЕ МЕСТА===***************************** //.olympiad - телепорт на арену //.jail - телепорт в тюрьму //.adencrest - телепорт на верхушку креста адена //.vodopad - телепорт на водопад //.coliseum - телепорт в колизей //*****************===Noblesse Quest===***************************** //.talien - Телепорт к Talien //.gabrielle - Телепорт к Gabrielle //.gilmore - Телепорт к Gilmore //.baraham - Телепорт к Baraham //.melodymaestro - Телепорт к MelodyMaestro //.marluk - Телепорт в локацию (Marluk Succubus) //.stedmiel - Телепорт к Stedmiel //.virgil - Телепорт к Virgil ( Kasandra прямо рядом с ним) //.rahorakti - Телепорт к Rahorakti //.splinterstakato - Телепорт в локацию Crimson Moss //.caradine - Телепорт к Caradine //.noel - Телепорт к Noel //.mdk - Телепорт к Mysterious Dark Knight //.kalis - Телепорт к Kalis //.matild - Телепорт к Matild //.unicorn - Телепорт к Unicorn //.jp Телепорт в локацию Judge & Pilgrim (ring and neklasse) //.noblrb - телепорт к Ноблесс Рэйд Боссу //.ladd - телепорт в Ivory Tower(К магистру Ladd) 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('Возьми себя в таргет'); b:=false; end; procedure SendMsc(msc:string); begin buf:=#$4A; WriteD(0); WriteD(10); WriteS(''); 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('Запомнен ObjectID = '+inttostr(a)); b:=true; end; end; Begin If fromclient and (pck=#$38#$2E#$00#$6F#$00#$6C#$00#$79#$00#$6D#$00#$70#$00#$69#$00#$61#$00#$64#$00#$00#$00#$00#$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 2E 00 67 00 6C 00 75 00 64 00 69 00 6F 00 00 00 00 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 2E 00 67 00 6F 00 64 00 64 00 61 00 72 00 64 00 00 00 00 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 2E 00 61 00 64 00 65 00 6E 00 00 00 00 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 2E 00 67 00 69 00 72 00 61 00 6E 00 00 00 00 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 2E 00 72 00 75 00 6E 00 65 00 00 00 00 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 2E 00 72 00 75 00 6E 00 65 00 63 00 61 00 73 00 74 00 6C 00 65 00 00 00 00 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 2E 00 61 00 64 00 65 00 6E 00 63 00 61 00 73 00 74 00 6C 00 65 00 00 00 00 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 2E 00 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 00 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 2E 00 67 00 69 00 72 00 61 00 6E 00 63 00 61 00 73 00 74 00 6C 00 65 00 00 00 00 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 2E 00 6F 00 72 00 65 00 6E 00 63 00 61 00 73 00 74 00 6C 00 65 00 00 00 00 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 2E 00 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 00 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 2E 00 64 00 69 00 6F 00 6E 00 63 00 61 00 73 00 74 00 6C 00 65 00 00 00 00 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 2E 00 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 00 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 2E 00 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 00 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 2E 00 6A 00 61 00 69 00 6C 00 00 00 00 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 2E 00 6F 00 72 00 65 00 6E 00 00 00 00 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 2E 00 68 00 65 00 69 00 6E 00 65 00 00 00 00 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 2E 00 64 00 69 00 6F 00 6E 00 00 00 00 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 2E 00 73 00 68 00 75 00 74 00 74 00 67 00 61 00 72 00 74 00 00 00 00 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 2E 00 67 00 6C 00 75 00 64 00 69 00 6E 00 00 00 00 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 2E 00 64 00 69 00 6E 00 6F 00 00 00 00 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 2E 00 61 00 64 00 65 00 6E 00 63 00 72 00 65 00 73 00 74 00 00 00 00 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 2E 00 76 00 6F 00 64 00 6F 00 70 00 61 00 64 00 00 00 00 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 2E 00 76 00 6F 00 73 00 00 00 00 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 2E 00 76 00 61 00 72 00 6B 00 61 00 00 00 00 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 2E 00 6D 00 6F 00 73 00 00 00 00 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 2E 00 6B 00 65 00 74 00 72 00 61 00 00 00 00 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 2E 00 63 00 6F 00 6C 00 69 00 73 00 65 00 75 00 6D 00 00 00 00 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 2E 00 61 00 71 00 00 00 00 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 2E 00 7A 00 61 00 6B 00 65 00 6E 00 00 00 00 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 2E 00 62 00 61 00 69 00 75 00 6D 00 00 00 00 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 2E 00 61 00 6E 00 74 00 68 00 61 00 72 00 61 00 73 00 00 00 00 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 2E 00 76 00 61 00 6C 00 61 00 6B 00 61 00 73 00 00 00 00 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 2E 00 66 00 72 00 69 00 6E 00 74 00 65 00 7A 00 7A 00 61 00 00 00 00 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 2E 00 74 00 61 00 6C 00 69 00 65 00 6E 00 00 00 00 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 2E 00 67 00 61 00 62 00 72 00 69 00 65 00 6C 00 6C 00 65 00 00 00 00 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 2E 00 67 00 69 00 6C 00 6D 00 6F 00 72 00 65 00 00 00 00 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 2E 00 62 00 61 00 72 00 61 00 68 00 61 00 6D 00 00 00 00 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 2E 00 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 00 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 2E 00 6D 00 61 00 72 00 6C 00 75 00 6B 00 00 00 00 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 2E 00 73 00 74 00 65 00 64 00 6D 00 69 00 65 00 6C 00 00 00 00 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 2E 00 76 00 69 00 72 00 67 00 69 00 6C 00 00 00 00 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 2E 00 72 00 61 00 68 00 6F 00 72 00 61 00 6B 00 74 00 69 00 00 00 00 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 2E 00 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 00 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 2E 00 63 00 61 00 72 00 61 00 64 00 69 00 6E 00 65 00 00 00 00 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 2E 00 6E 00 6F 00 65 00 6C 00 00 00 00 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 2E 00 6D 00 64 00 6B 00 00 00 00 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 2E 00 6B 00 61 00 6C 00 69 00 73 00 00 00 00 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 2E 00 6D 00 61 00 74 00 69 00 6C 00 64 00 00 00 00 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 2E 00 75 00 6E 00 69 00 63 00 6F 00 72 00 6E 00 00 00 00 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 2E 00 6A 00 70 00 00 00 00 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 2E 00 6E 00 6F 00 62 00 6C 00 72 00 62 00 00 00 00 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 2E 00 6C 00 61 00 64 00 64 00 00 00 00 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; end.

З.Ы. кому нада для других хроник пишем в пм

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

Кстати кого не тпшит после выше перечисленого ,то мой совет проверьте 4)в пакете незабываем так же указывать ID игрока (ObjectID его можно узнать словив пакет UserInfo (допустим мой ID_fd df e0 48) а то на сервере де я играю меняетсо ID игрока

PATCH1 · 15.09.2009, 23:12

Цитата:

Сообщение от z0mbie

ппц скрипт уже 5-6 месяцев назад реализован был, с помощью него даже из тюрьмы можно выйти,когда был реализовн сразу же проверил на lineage-game.ru все работает,на следующий день профиксли
как юзать написано

Код:

//Включить скрипт //Взять себя в таргет //ну и тп куда хочешь //После того как тпшнулся нужна сделать какойто скилл..потому что ты для сервера еще на старом месте. //Автор pmen {Команды скрипта} //******************===ГОРОДА===******************************** //.gludio - телепорт в глудио //.goddard - телепорт в годдард //.aden - телепорт в аден //.giran - телепорт в гиран //.rune - телепорт в Руну //.oren - телепорт в орен //.heine - телепорт в Хейн //.dion - телепорт в дион //.schuttgart - телепорт в шутгарт //.gludin - телепорт в глудин //******************===ЗАМКИ===********************************* //.adencastle - Aden Замок (ТРОН) //.runecastle - Rune Замок (ТРОН) //.goddardcastle - Goddard Замок (ТРОН) //.girancastle - Giran Замок (ТРОН) //.orencastle - Oren Замок (ТРОН) //.gludiocastle - Gludio Замок (ТРОН) //.dioncastle - Dion Замок (ТРОН) //.schuttgartcastle - Шутгарт Замок (ТРОН) //.innadrilcastle - Innadril Замок (ТРОН) //******************===ЛОКАЦИИ===******************************* //.dino - телепорт на дино остров //.vos - телепорт в Valey OF Saints //.varka - телепорт в Varka //.mos - телепорт в Monastery Of Silence //.ketra - телепорт в Ketra Ork //*****************===РЭЙД БОССЫ===***************************** //.aq - телепорт к Ант Квин //.zaken - телепорт к Закену //.baium - телепорт к Баюму //.antharas - телепорт к Антарасу //.valakas - телепорт к Валакасу //.frintezza - телепорт к Фринтеза //*****************===ДРУГИЕ МЕСТА===***************************** //.olympiad - телепорт на арену //.jail - телепорт в тюрьму //.adencrest - телепорт на верхушку креста адена //.vodopad - телепорт на водопад //.coliseum - телепорт в колизей //*****************===Noblesse Quest===***************************** //.talien - Телепорт к Talien //.gabrielle - Телепорт к Gabrielle //.gilmore - Телепорт к Gilmore //.baraham - Телепорт к Baraham //.melodymaestro - Телепорт к MelodyMaestro //.marluk - Телепорт в локацию (Marluk Succubus) //.stedmiel - Телепорт к Stedmiel //.virgil - Телепорт к Virgil ( Kasandra прямо рядом с ним) //.rahorakti - Телепорт к Rahorakti //.splinterstakato - Телепорт в локацию Crimson Moss //.caradine - Телепорт к Caradine //.noel - Телепорт к Noel //.mdk - Телепорт к Mysterious Dark Knight //.kalis - Телепорт к Kalis //.matild - Телепорт к Matild //.unicorn - Телепорт к Unicorn //.jp Телепорт в локацию Judge & Pilgrim (ring and neklasse) //.noblrb - телепорт к Ноблесс Рэйд Боссу //.ladd - телепорт в Ivory Tower(К магистру Ladd) 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('Возьми себя в таргет'); b:=false; end; procedure SendMsc(msc:string); begin buf:=#$4A; WriteD(0); WriteD(10); WriteS(''); 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('Запомнен ObjectID = '+inttostr(a)); b:=true; end; end; Begin If fromclient and (pck=#$38#$2E#$00#$6F#$00#$6C#$00#$79#$00#$6D#$00#$70#$00#$69#$00#$61#$00#$64#$00#$00#$00#$00#$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 2E 00 67 00 6C 00 75 00 64 00 69 00 6F 00 00 00 00 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 2E 00 67 00 6F 00 64 00 64 00 61 00 72 00 64 00 00 00 00 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 2E 00 61 00 64 00 65 00 6E 00 00 00 00 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 2E 00 67 00 69 00 72 00 61 00 6E 00 00 00 00 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 2E 00 72 00 75 00 6E 00 65 00 00 00 00 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 2E 00 72 00 75 00 6E 00 65 00 63 00 61 00 73 00 74 00 6C 00 65 00 00 00 00 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 2E 00 61 00 64 00 65 00 6E 00 63 00 61 00 73 00 74 00 6C 00 65 00 00 00 00 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 2E 00 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 00 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 2E 00 67 00 69 00 72 00 61 00 6E 00 63 00 61 00 73 00 74 00 6C 00 65 00 00 00 00 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 2E 00 6F 00 72 00 65 00 6E 00 63 00 61 00 73 00 74 00 6C 00 65 00 00 00 00 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 2E 00 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 00 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 2E 00 64 00 69 00 6F 00 6E 00 63 00 61 00 73 00 74 00 6C 00 65 00 00 00 00 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 2E 00 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 00 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 2E 00 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 00 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 2E 00 6A 00 61 00 69 00 6C 00 00 00 00 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 2E 00 6F 00 72 00 65 00 6E 00 00 00 00 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 2E 00 68 00 65 00 69 00 6E 00 65 00 00 00 00 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 2E 00 64 00 69 00 6F 00 6E 00 00 00 00 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 2E 00 73 00 68 00 75 00 74 00 74 00 67 00 61 00 72 00 74 00 00 00 00 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 2E 00 67 00 6C 00 75 00 64 00 69 00 6E 00 00 00 00 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 2E 00 64 00 69 00 6E 00 6F 00 00 00 00 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 2E 00 61 00 64 00 65 00 6E 00 63 00 72 00 65 00 73 00 74 00 00 00 00 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 2E 00 76 00 6F 00 64 00 6F 00 70 00 61 00 64 00 00 00 00 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 2E 00 76 00 6F 00 73 00 00 00 00 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 2E 00 76 00 61 00 72 00 6B 00 61 00 00 00 00 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 2E 00 6D 00 6F 00 73 00 00 00 00 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 2E 00 6B 00 65 00 74 00 72 00 61 00 00 00 00 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 2E 00 63 00 6F 00 6C 00 69 00 73 00 65 00 75 00 6D 00 00 00 00 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 2E 00 61 00 71 00 00 00 00 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 2E 00 7A 00 61 00 6B 00 65 00 6E 00 00 00 00 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 2E 00 62 00 61 00 69 00 75 00 6D 00 00 00 00 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 2E 00 61 00 6E 00 74 00 68 00 61 00 72 00 61 00 73 00 00 00 00 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 2E 00 76 00 61 00 6C 00 61 00 6B 00 61 00 73 00 00 00 00 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 2E 00 66 00 72 00 69 00 6E 00 74 00 65 00 7A 00 7A 00 61 00 00 00 00 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 2E 00 74 00 61 00 6C 00 69 00 65 00 6E 00 00 00 00 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 2E 00 67 00 61 00 62 00 72 00 69 00 65 00 6C 00 6C 00 65 00 00 00 00 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 2E 00 67 00 69 00 6C 00 6D 00 6F 00 72 00 65 00 00 00 00 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 2E 00 62 00 61 00 72 00 61 00 68 00 61 00 6D 00 00 00 00 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 2E 00 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 00 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 2E 00 6D 00 61 00 72 00 6C 00 75 00 6B 00 00 00 00 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 2E 00 73 00 74 00 65 00 64 00 6D 00 69 00 65 00 6C 00 00 00 00 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 2E 00 76 00 69 00 72 00 67 00 69 00 6C 00 00 00 00 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 2E 00 72 00 61 00 68 00 6F 00 72 00 61 00 6B 00 74 00 69 00 00 00 00 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 2E 00 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 00 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 2E 00 63 00 61 00 72 00 61 00 64 00 69 00 6E 00 65 00 00 00 00 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 2E 00 6E 00 6F 00 65 00 6C 00 00 00 00 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 2E 00 6D 00 64 00 6B 00 00 00 00 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 2E 00 6B 00 61 00 6C 00 69 00 73 00 00 00 00 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 2E 00 6D 00 61 00 74 00 69 00 6C 00 64 00 00 00 00 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 2E 00 75 00 6E 00 69 00 63 00 6F 00 72 00 6E 00 00 00 00 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 2E 00 6A 00 70 00 00 00 00 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 2E 00 6E 00 6F 00 62 00 6C 00 72 00 62 00 00 00 00 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 2E 00 6C 00 61 00 64 00 64 00 00 00 00 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; end.

З.Ы. кому нада для других хроник пишем в пм

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

ATJIaHTuK · 15.09.2009, 23:40

проверял на парт 2., не работает(скрипт и пакеты). это походу на интерлюд

PATCH1 · 17.09.2009, 21:35

Цитата:

Сообщение от ATJIaHTuK


	проверял на парт 2., не работает(скрипт и пакеты). это походу на интерлюд

у меня на hellbound пашет

Denisovik · 18.09.2009, 20:03

Скрипт на тп 1оо% работает на [Ссылки могут видеть только зарегистрированные пользователи. ] проверил только что

полетал по всем эпикам, по квестам

(лоу сервер) на пвп не проверял

PATCH1 · 19.09.2009, 09:05

Цитата:

Сообщение от ATJIaHTuK


	проверял на парт 2., не работает(скрипт и пакеты). это походу на интерлюд

посмотри ID пакета TeleportToLocation в фильтре пакетов и отпиши

~~smertoO~~ · 19.09.2009, 09:09

Патч про копирайт я говорил зомбу, он с кодеркса ето содрал.

Alex-A · 20.09.2009, 18:16

Проверил на двух сервах интерлюдии и везьде одинаковый результат:телепортайию делает но когда оказываешся на месте пропадают все мобы и нпс.Скилами могу пользоваться но не могу сдвинуться с места.При релогине переносит в то место откуда делал тп.....

Суслиk · 20.09.2009, 18:25

Цитата:

Сообщение от Alex-A


	Проверил на двух сервах интерлюдии и везьде одинаковый результат:телепортайию делает но когда оказываешся на месте пропадают все мобы и нпс.Скилами могу пользоваться но не могу сдвинуться с места.При релогине переносит в то место откуда делал тп.....

Это называется "фикс"

Denisovik · 30.09.2009, 18:08

Цитата:

Сообщение от Alex-A


	Проверил на двух сервах интерлюдии и везьде одинаковый результат:телепортайию делает но когда оказываешся на месте пропадают все мобы и нпс.Скилами могу пользоваться но не могу сдвинуться с места.При релогине переносит в то место откуда делал тп.....

У меня такое было, когда в скрипте не пишеш свой ник, когда ты появляешься в l2phx приходит ошибка, жмёш ОК и появляются все нпс

Alex-A · 30.09.2009, 18:38

Цитата:

Сообщение от Denisovik


	У меня такое было, когда в скрипте не пишеш свой ник

Скрипт рриведённый в этом топике не имеет привязки к имени...

CrazyS · 07.10.2009, 00:14

Этот скрипт писал я...Zombie ты взял его с coderx

Он только для Интерлуд. Для того чтобы переправить его для других хроник нужно исправить на пакеты нужных хроник
( Выделено жирным шрифтом ) И так заменить каждую процедуру.

Цитата:


	Begin If fromclient and (pck=hstr('38 2E 00 67 00 6C 00 75 00 64 00 69 00 6F 00 00 00 00 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;

тп в любое место (бесплатно)

Баги и читы Lineage 2