take castle with packets.

[streamsss]

Code: Select all

 //******************************************************************************{version 0.1 By SeRk How to Take easy Castles 1.check the script2.target yourself3.teleport to Pray location you want4.use one active skill (common craft,heal,etc)5.Tested in L2DeathWhisper,L2Core,L2Evo}//******************************************************************************//.giranpray//.adenpray//.runepray//.orenpray//.dionpray//.gludiopray//.innadrilpray//.goddardpray1//.goddardpray2//.schuttgartpray1//.schuttgartpray2var//ValidatePosition:string; c:integer; e:integer; n:integer; r:boolean;a:integer; b:boolean; d:integer; f:integer; v:integer;procedure Init;beginSendMsc('Teleport to pray?');b:=false;end;procedure SendMsc(msc:string);beginbuf:=#$4A;WriteD(0);WriteD(10);WriteS('');WriteS(msc);SendToClient;end;Beginbeginif FromClient and (pck[1]=#$04)and (not b) thenbegina:=ReadD(2); c:=ReadD(6);d:=ReadD(10); e:=ReadD(14);f:=ReadC(18);SendMsc('Remember ObjectID = '+inttostr(a));b:=true;end;end;BeginIf fromclient and (pck=hstr('38 2E 00 67 00 69 00 72 00 61 00 6E 00 70 00 72 00 61 00 79 00 00 00 00 00 00 00')) thenbeginbuf:=#$28;WriteD(a);buf:=buf+ hstr('26 CC 01 00 BE 36 02 00 2C F6 FF FF ');SendToClient;end;end;beginif FromClient and (pck[1]=#$04)and (not b) thenbegina:=ReadD(2); c:=ReadD(6);d:=ReadD(10); e:=ReadD(14);f:=ReadC(18);SendMsc('???????? ObjectID = '+inttostr(a));b:=true;end;end;BeginIf fromclient and (pck=hstr('38 2E 00 61 00 64 00 65 00 6E 00 70 00 72 00 61 00 79 00 00 00 00 00 00 00')) thenbeginbuf:=#$28;WriteD(a);buf:=buf+ hstr('0A 40 02 00 7E 06 00 00 AD FE FF FF ');SendToClient;end;end;BeginIf fromclient and (pck=hstr('38 2E 00 72 00 75 00 6E 00 65 00 70 00 72 00 61 00 79 00 00 00 00 00 00 00')) thenbeginbuf:=#$28;WriteD(a);buf:=buf+ hstr('07 23 00 00 08 40 FF FF 27 04 00 00 ');SendToClient;end;end;BeginIf fromclient and (pck=hstr('38 2E 00 6F 00 72 00 65 00 6E 00 70 00 72 00 61 00 79 00 00 00 00 00 00 00')) thenbeginbuf:=#$28;WriteD(a);buf:=buf+ hstr('A6 47 01 00 49 91 00 00 3D F7 FF FF ');SendToClient;end;end;BeginIf fromclient and (pck=hstr('38 2E 00 64 00 69 00 6F 00 6E 00 70 00 72 00 61 00 79 00 00 00 00 00 00 00')) thenbeginbuf:=#$28;WriteD(a);buf:=buf+ hstr('42 56 00 00 6C 77 02 00 AD F5 FF FF ');SendToClient;end;end;BeginIf fromclient and (pck=hstr('38 2E 00 67 00 6C 00 75 00 64 00 69 00 6F 00 70 00 72 00 61 00 79 00 00 00 00 00 00 00')) thenbeginbuf:=#$28;WriteD(a);buf:=buf+ hstr('3A B9 FF FF 45 A6 01 00 6F F6 FF FF ');SendToClient;end;end;BeginIf fromclient and (pck=hstr('38 2E 00 69 00 6E 00 6E 00 61 00 64 00 72 00 69 00 6C 00 70 00 72 00 61 00 79 00 00 00 00 00 00 00')) thenbeginbuf:=#$28;WriteD(a);buf:=buf+ hstr('3A C5 01 00 32 D2 03 00 1D FD FF FF ');SendToClient;end;end;BeginIf fromclient and (pck=hstr('38 2E 00 67 00 6F 00 64 00 64 00 61 00 72 00 64 00 70 00 72 00 61 00 79 00 31 00 00 00 00 00 00 00')) thenbeginbuf:=#$28;WriteD(a);buf:=buf+ hstr('FA 43 02 00 EB 3A FF FF 1C FA FF FF ');SendToClient;end;end;BeginIf fromclient and (pck=hstr('38 2E 00 67 00 6F 00 64 00 64 00 61 00 72 00 64 00 70 00 72 00 61 00 79 00 32 00 00 00 00 00 00 00')) thenbeginbuf:=#$28;WriteD(a);buf:=buf+ hstr('2C 3C 02 00 FD 3A FF FF 1B FA FF FF ');SendToClient;end;end;BeginIf fromclient and (pck=hstr('38 2E 00 73 00 63 00 68 00 75 00 74 00 74 00 67 00 61 00 72 00 74 00 70 00 72 00 61 00 79 00 31 00 00 00 00 00 00 00')) thenbeginbuf:=#$28;WriteD(a);buf:=buf+ hstr('DF 32 01 00 6C A4 FD FF E3 00 00 00 ');SendToClient;end;end;BeginIf fromclient and (pck=hstr('38 2E 00 73 00 63 00 68 00 75 00 74 00 74 00 67 00 61 00 72 00 74 00 70 00 72 00 61 00 79 00 31 00 00 00 00 00 00 00')) thenbeginbuf:=#$28;WriteD(a);buf:=buf+ hstr('42 2B 01 00 68 A4 FD FF E3 00 00 00 ');SendToClient;end;end;end. 

if the script dont work in your server you play use the guide from video(script for open doors and anti lag patch y can help you)
use the fly mode f1 01 00 00 (send it in the client)to fly over gate/doors and the pack f1 01 to return from the fly mode

use l2phx
maybe anybody tested this for l2jsrver?
and maybe it's exploit..
sorry for my bad english.
video:http://depositfiles.com/ru/files/ru389y4cd

[JIV]

no.