[PHX] Script Teleport [ Old @ Modded ]

mtixd · February 8, 2010

Hello. Today i'll share my Script Pack. Its a old version what u can find in that Forum [ i dont remember Author ]

But its a mooded version.

What i've changed ? :

Added more locations.

Added Safe Castle location [ is a siege obelisk, so u have 99% chance u got the castle ]

Added Sub Npc @ Rb [ All 1 Part Npc's and Toi rb @ Some Npc form 2 Part @ blood fire etc ] ( MMS Farm )

Added Other Olympiad Spawn Location.

Changed a Comand key, [ in old version its a .location ] but i've played on server where comand " . " its blocked and u get DC. so from now its a %location [ yes i know hero cant ue that :P ]

Here is that :

//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.

Hf @ Tested in l2 knight [ l2j interlude ]

mjst · February 8, 2010

what is this? [Hidden post: You need reply to this topic to see it.] ???

[PHX] Script Teleport

Edit: i see now :P

%location good idea :P

Caccolino · February 8, 2010

Reply to see?

lol ??? xD

Raule · February 8, 2010

Not needed the reply to see since we have the topic with all new exploits from here.

Great job.

mtixd · February 9, 2010

Sorry for that Hide method but i dont know hot to hite it better ; D :^

@ Ty ;]

cyperex · February 9, 2010

Does this one actually work? Cuz i remember last time i tried this on another post and it didnt work at all... any confirmations?

mtixd · February 11, 2010

its work in low % of servers [ il ] for example (-l2 knight ) <- search in hop zone ; P

abf21 · February 11, 2010

Can this work also in l2 gracia?

Raule · February 11, 2010

SendToClient;

It's client side, right ?

tiranous · February 11, 2010

well... mine teleport script is bigger with more locations :D but its nice try for a begginer :D

Does this one actually work? Cuz i remember last time i tried this on another post and it didnt work at all... any confirmations?

it work on some server ....

Can this work also in l2 gracia?

hmm no .. I have tryed it to many Gracias server's but ... epiC fail

Sorry for that Hide method but i dont know hot to hite it better ; D :^

@ Ty ;]

modify your topiC and pres at Additional Options and then at post and then the number check the photo:

abf21 · February 11, 2010

Yeh same for me.. Is not working on gracia =) but anyway ty for this script..!

mtixd · February 14, 2010

thx for the "" hide guidei "" @ its a Client siede, buf in some % of servers, when u send to " client " that packets, then u'll se that location but dont see Mobs / npc / Players [ here is the magic ] use then a Magic / Active Skill and Npc / Players / Mobs should spawn if not, its dosent work i you'r server.

Sujer · February 15, 2010

I cannot see the link

CriticalError · February 15, 2010

really cool ofc xaxa thanks a lot for Exploit i try test it work soon ;)

[PHX] Script Teleport [ Old @ Modded ]

Recommended Posts

mtixd

mjst

Caccolino

Raule

mtixd

cyperex

mtixd

abf21

Raule

tiranous

abf21

mtixd

Sujer

CriticalError

Create an account or sign in to comment

Create an account

Sign in

Posts

Topics

Browse

Activity

Store