Jump to content
--> Place your ad text here <--
Get Free Banners - Giveaway MaxCheaters.com
We're Rebuilding – Join Our Staff Team

[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 ]

mjst Enthusiast

mjst

Posted
Posted

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

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

 

 

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.

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


×
×
  • Create New...

AdBlock Extension Detected!

Our website is made possible by displaying online advertisements to our members.

Please disable AdBlock browser extension first, to be able to use our community.

I've Disabled AdBlock