Перевод этой темы:http://zhyk.ru/forum/showthread.php?t=82797
__________________________________________________ ____________
Привет всем,выкладываю вам видео о том как сделать скрипт на телепорт:
скрипт такой:
Код:
//******************************************************************************
{version 0.2 By SeRk How to make your own teleport
1.check the script
2.target yourself
3.teleport to every location you want
4.use one active skill (common craft,heal,etc)
5.Tested in L2DeathWhisper,L2Core,L2Evo
}
//******************************************************************************
//.adentower //your location name
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 location?');
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(' here your SAY2 PACKET ')) then //here your SAY2 PACKET FROM PACKET SNIFFER
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('HERE YOUR ACTION PACKEt '); // HERE YOUR ACTION PACKET FROM PACKET SNIFFER
SendToClient;
end;
end;
end.
видеогайд качаем отсюда :
[Ссылки могут видеть только зарегистрированные пользователи. ]
________________
[Ссылки могут видеть только зарегистрированные пользователи. ]