Jump to content
MaxCheaters Official Group on Discord
-> Place your ad text here <-
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 Collaborator

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

cyperex Newbie

cyperex

Posted
Posted

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

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.

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share
Go to topic listing


  • Posts

    • Poziomeczka
      L2Kings

      By Poziomeczka · Posted

      L2 Kings    Stage 1 – The Awakening Dynasty and Moirai Level Cap: 83 Gear: Dynasty -Moirai & Weapons (Shop for Adena + Drop from mobs/instances ) Masterwork System: Available (Neolithics S required with neolithics u can do armor parts foundation aswell) Class Cloaks: Level 1 - Masterwork sets such us moirai/dynasty stats are boosted also vesper(stage 2) Olf T-Shirt: +6 (fails don’t reset) safe is +2 Dolls: Level 1 Belts: Low & Medium Enchant: Safe +3 / Max +8 / Attribution Easy in Moirai-Dynasty . Main Zones: Varka Outpost: Easy farm, Adena, EXP for new players = > 80- 100kk hour Dragon Valley: Main farm zone — , 100–120kk/hour Weapon Weakness System active (all classes can farm efficiently) Archers get vampiric auto-hits vs mobs Dragon Valley Center: Main Party Zone — boosted drops (Blessed enchants, Neolithics chance) => farm like 150-200kk per hour. Dragon Valley North: Spoil Zone (Asofe + crafting materials for MW) Primeval Isle: Safe autofarm zone (low adena for casual players) ==> 50kk per hour Forge of the Gods & Imperial Tomb: Available from Stage 1 (lower Adena reward in compare with Dragon Valley) Hellbound also avaliable from stage 1 In few words all zones opened but MAIN farm zone with boosted adena and drops is Dragon valley also has more mobs Instances: Zaken (24h Reuse) → Instead of Vespers drop Moirai , 100% chance to drop 1 of 9 dolls lvl 1, Zaken 7-Day Jewelry Raid Bosses (7 RBs): Drop Moirai Parts + Neolithic S grade instead of Vespers parts that has 7 Rb Quest give Icarus Weapons Special Feature 7rb bosses level up soul crystals aswell. Closed Areas : Monaster of SIlence, LOA, ( It wont have mobs) / Mahum Quest/Lizardmen off) Grand Epics: Unlocked on Day 4 of Stage 1 → Antharas, Valakas, Baium, AQ, etc ================================================================================= Stage 2 – Rise of Vespers Level Cap: 85 Gear: Moirai Armors (Adena GM SHOP / Craft/ Drop) Weapons: Icarus Cloaks: Level 2 Olf: +8 Dolls: Level 2 Belts: High & Top Enchant: Safe +3 / Max +8 Masterwork can be with Neolithics S84 aswell but higher so craft will be usefull aswell. 7 Raid Boss Quest Updated: Now works retail give vesper weapons 7rb Bosses Drops : Vespers Instances: Zaken : Drops to retail vespers + the dolls and the extra items that we added on stage 1 New Freya Instance: Added — drops vespers and instead of mid s84 weapons will drop vespers . Extra drops Blessed Bottle of Freya - drops 100% chance 1 of 9 dolls. Farm Areas Dragon Valley remains main farm New Zone : Lair of Antharas (mobs nerfed and added drop Noble stone so solo players can farm too) New Party Zone : LOA Circle   ============================================================================   Stage 3 – The Vorpal ERA Gear: Vorpal Unclock Cloaks: Level 3 Olf: +10 (max cap) Dolls: Level 3 Enchant: Safe +3 / Max +12 Farm Zones : Dragon Valley Center Scorpions becomes a normal solo zone (no longer party zone) Drops:   LOA & Knorik → Mid Weapons avaliable in drop New Party Zone Kariks Instances: Easy Freya Drops Mid Weapons Frintezza Release =================================================================================     Stage 4 – Elegia Era (Final Stage) Elegia Unlock Gear: Elegia Weapons: Elegia TOP s84 ( farmed via H-Freya/ Drops ) Cloaks: Level 5 Dolls: Level 3 (final bonuses) Enchant: Safe +6 / Max +16 Instances: Hard Freya → Drops Elegia Weapons + => The Instance will drop 2-3 parts for sure and also will be able to Join with 7 people . Party Zone will have also drop chances for elegia armor parts and weapons but small   Events (Hourly): Win: 50 Event Medals + 3 GCM + morewards Lose: 25 Medals + 1 GCM + more rewards Tie: 30 Medals + 2 GCM + more rewards   ================================================================================ Epic Fragments Currency Participating in Daily Bosses mass rewarding all players Participating in Instances (zaken freya frintezza etc) all players get reward ================================================================================ Adena - Main server currency (all items in gm shop require adena ) Event Medals (Festival Adena) - Event shop currency Donation coins you can buy with them dressme,cosmetics and premium account Epic Fragments you can buy with them fake epic jewels Olympiad Tokens you can buy many items from olympiad shop (Hero Coin even items that are on next stages) Olympiad Win = 1000 Tokens / Lose = 500 Tokens ================================================================================= Offline Autofarm Allows limited Offline farming requires offline autofarm ticket that you get by voting etc ================================================================================= Grand Epics have Specific Custom NPC that can spawn Epics EU/LATIN TIME ZONE ================================================================================= First Olympiad Day 19 December First Heroes 22 December ( 21 December Last day of 1st Period) After that olympiad will be weekly. ================================================================================= Item price and economy Since adena is main coin of server and NOT donation coins we will always add new items in gm shop with adena in order to burn the adena of server and not be inflation . =================================================================================        
    • MonkZe
      Custom NPC title color

      By MonkZe · Posted

      Hello, I'd like to change a title color for custom npc.  I created custom NPC, cloned existing. I put unique id for it in npcname-e, npcgrp and database. I have "0" to serverSideName in db, so that it would use npcname-e, but instead it has "NoNameNPC"and no title color change.
    • maxicroma
      [WTS] Light mode Complete website template for lineage 2

      By maxicroma · Posted

      Trusted Guy 100% ,  I asked him for some work and he did it right away.
    • VPSLab
      — VPSLAB — Fast & Private RDP/VPS | 100% Instant Setup

      By VPSLab · Posted

      Active & Taking Orders!
    • EliteZ1
      Need .dat editor for c5

      By EliteZ1 · Posted

      up

  • Topics

×
×
  • 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