Скрипт

[pmen]

Вот для Парт 2

//Скрипт на возрождение на месте после смерти.
//Включите скрипт,когда вы умерли возьмите себя в таргет и нажмите в город.
//Вы встанете наместе.
//Автор pmen    ICQ - 479917081
//=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=
const
//======================================
Name='Qwertyuio'; //<-----Ник Персонажа
//======================================
var                
a:integer;x:integer;MyID:string;
y:integer;z:integer;
b:boolean;ValidatePosition:string;
   procedure Init;    //Вызывается при включении скрпта
begin
SendMsc('Возьми себя в таргет');  //Системное сообщение
b:=false; //Условие b первоночально False
end;
   procedure SendMsc(msc:string);
begin
buf:=#$4A;
WriteD(0);
WriteD(10);
WriteS('');
WriteS(msc);
SendToClient;
end;
begin
//Нечитаем пустые пакеты
if pck='' then exit;
//Если Имя соединения Name
//И Пакет Action от клиента то  
   if FromClient and (ConnectName=Name) and (pck[1]=#$1F) then 
begin
//Сохраняем мой Обжект Ид
MyID:= pck[2]+pck[3]+pck[4]+pck[5];  
a:=ReadD(2); x:=ReadD(6); //Читаем и запоминаем данные
y:=ReadD(10); z:=ReadD(14);
   SendMsc('Все данные сохранены!'); //Оповещаем о том что все прошло успешно
b:=true;
end;
begin 
   if pck='' then exit; //Не читаем пустые пакеты
//Если от Клиента пакет RequestRestartPoint
//Запоминаем ValidatePosition до revive
//Посылаем клиенту TeleportToLocation
   if FromClient and (ConnectName=Name) and (pck=hstr('7D 00 00 00 00')) then
   if FromClient and (ConnectName=Name) and (pck[1]=#$59) then ValidatePosition:=pck;
   if FromServer and (ConnectName=Name) and (pck[1]=#$22) and (MyID= pck[2]+pck[3]+pck[4]+pck[5]) then
  begin
    pck:=''; //Убиваем стандартный пакет
    buf:=ValidatePosition; //посылаем ValidatePosition
  SendToServerEX(Name);
    buf:=#$22;
    WriteD(A);        //Obj.ID
    WriteD(X);       //Coord.X
    WriteD(Y);       //Coord.Y
    WriteD(Z);       //Coord.Z
    SendtoclientEX(Name);
    buf:=ValidatePosition;  //посылаем ValidatePosition
  SendToServerEX(Name);
  end;
end;
end.

Долго может быть в первый раз...а так дальше норм =)