[Перевод] Полное руководство, Видео и скрипт как легко взять замок
1. Вот скрипт для телепортации в то место которое вы хотите
Испытовалось в :l2Deathwhisper,l2core,l2Evo
Код:
//******************************************************************************
{version 0.1 By SeRk How to Take easy Castles
1.check the script
2.target yourself
3.teleport to Pray location you want
4.use one active skill (common craft,heal,etc)
5.Tested in L2DeathWhisper,L2Core,L2Evo
}
//******************************************************************************
//.giranpray
//.adenpray
//.runepray
//.orenpray
//.dionpray
//.gludiopray
//.innadrilpray
//.goddardpray1
//.goddardpray2
//.schuttgartpray1
//.schuttgartpray2
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('Teleport to pray?');
b:=false;
end;
procedure SendMsc(msc:string);
begin
buf:=#$4A;
WriteD(0);
WriteD(10);
WriteS('');
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('Remember ObjectID = '+inttostr(a));
b:=true;
end;
end;
Begin
If 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')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('26 CC 01 00 BE 36 02 00 2C F6 FF FF ');
SendToClient;
end;
end;
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('???????? ObjectID = '+inttostr(a));
b:=true;
end;
end;
Begin
If 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')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('0A 40 02 00 7E 06 00 00 AD FE FF FF ');
SendToClient;
end;
end;
Begin
If 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')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('07 23 00 00 08 40 FF FF 27 04 00 00 ');
SendToClient;
end;
end;
Begin
If 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')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('A6 47 01 00 49 91 00 00 3D F7 FF FF ');
SendToClient;
end;
end;
Begin
If 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')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('42 56 00 00 6C 77 02 00 AD F5 FF FF ');
SendToClient;
end;
end;
Begin
If 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')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('3A B9 FF FF 45 A6 01 00 6F F6 FF FF ');
SendToClient;
end;
end;
Begin
If 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')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('3A C5 01 00 32 D2 03 00 1D FD FF FF ');
SendToClient;
end;
end;
Begin
If 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')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('FA 43 02 00 EB 3A FF FF 1C FA FF FF ');
SendToClient;
end;
end;
Begin
If 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')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('2C 3C 02 00 FD 3A FF FF 1B FA FF FF ');
SendToClient;
end;
end;
Begin
If 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')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('DF 32 01 00 6C A4 FD FF E3 00 00 00 ');
SendToClient;
end;
end;
Begin
If 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')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('42 2B 01 00 68 A4 FD FF E3 00 00 00 ');
SendToClient;
end;
end;
end.
2. Если скрипт не работает на вашем сервере используйте руководство из видео ( скрипт для открытие дверей и анти лаг патч поможет вам )
используйте в режиме палета f1 01 00 00 (отправить его в клиенте) для полета над воротами дверьми и f1 01 для возврата из режима полета
Этот ролик от Schuttgart Castle вы можете использовать пакет полета и для других замков.
[Ссылки могут видеть только зарегистрированные пользователи. ]
3. И если вы хотите сохранить замок используте овердос сервера