Jump to content
MaxCheaters Official Group on X
MaxCheaters Official Group on Discord
--> Place your ad text here <--

[PHX] Script Teleport [ Old @ Modded ]

mtixd

By mtixd
in Hacks & Cheats [English]

 Share

Recommended Posts

mtixd Newbie

mtixd

Posted
Posted

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 ]

Link to comment
Share on other sites
tiranous Newbie

tiranous

Posted
Posted

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:

 

i4emgi.jpg

 

 

Link to comment
Share on other sites
mtixd Newbie

mtixd

Posted
  • Author
Posted

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.

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
 Share
Go to topic listing


  • Posts

    • djvogans
      [L2OFF ]Lineage2DEX.com Autumn Season x25

      By djvogans · Posted

      ✅ **Episode 2 - Primeval Wars** ➡️ Event: "Medals Collecting" launch for 2 weeks. https://forum.lineage2dex.com/threads/16301/ ➡️ Fixed some problems with the respawn of monsters in imperial tomb (and some other areas). ➡️ Fixed the amount of B/A/S crystals needed to upgrade the body armor to MW version ➡️ Adjusted tvt points formula for support classes ➡️ Launch of a new 1x1 PVP Event Arena is postponed. More time is needed to fix possible bugs and polish the Event
    • Nefalem
      WIP Free Assasins Interface for Interlude

      By Nefalem · Posted

      a beautiful response from a liar who is not even a man to admit it, at least it is recorded here that you are nothing more than a thief, this is your character as a person, which I hope one day you will have the courage and apologize to whoever you stole from, which I don't even need to talk about anymore, you know very well who you stole each job from, here I end the attacks, because someone deserved to come here and unmask you to the l2 community.
    • Vraekar
      WIP Free Assasins Interface for Interlude

      By Vraekar · Posted

      Yes Sir. Of course Sir, you know everything, Sir. If you said so, Sir. What about asking your "friends" where they get it they patch from? Kappa
    • Nefalem
      WIP Free Assasins Interface for Interlude

      By Nefalem · Posted

      Let's make one thing clear here, you don't have a patch/rev, what you have is a complete theft of codes, and if you are a real man, admit it, because my BR friends know very well that you are known for being the so-called interface copy/paste, because you don't create anything, you take advantage of years of work from people and steal it and sell it and you have the courage to talk about my patch, be ashamed of yourself.
    • Vraekar
      WIP Free Assasins Interface for Interlude

      By Vraekar · Posted

      i dont know why im the topic here if this is not even my patch, it seems you love me, even know my whole story... xd but good old times when we would EXCHANGE stuff betwen our selfs to make interfaces to our usage and likening... never talked to much with OMGz, but seems like a good guy   good old times when was all just having fun and editing stuff and playing, today is all about clout and money, i have that u dont hahahah   they will never come back..   i already left anything beside long time ago idk why think on me too much, just want to enjoy my free time to play some games and have fun.. but looks like somehow find a way to relate me to something, maybe you think on me to much idk, kinda weird.. unfortunately, you are looking at this code thinking that  "oh it has his name and abreviation, its from him" but i must say its not... i dont need to stay here saying that this and that happened, because i know very well that you know exactly what happened... peace for all PS: and.. my main language is pt br, not spanish like in the src...

  • Topics

×
×
  • Create New...