Скрипт

[pmen]

Скрипт

[HORSE]

у меня не пашет...Сервер Грация Парт 2...
Там по ходу какие то системный сообщения должны приходить в игру???
И может что то ещё надо вписывать кроме ника чара??

[pmen]

Для грации парт 2 нужно изменить пакеты


#$04
#$28
#$48
6D 00 00 00 00

[HORSE]

а де их взять?
или как посмотреть?

[pmen]

Щас тебе перепишу для грации парт 2

[8tomat8]

pmen, за скрипт спасибо, конечно долго будет но лучше чем заново топать)

[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.

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

[guplen]

Попробувал на шоке, вроде бы не пашет... или это для самых наикривейших яв?

[HORSE]

скрипт сработал но...сначало Пакетник выдал ошибку,затем Л2 щависла и выдала крит...-(((

[HORSE]

нее....не пашет скрипт у меня....выдает ошибку пакетника и Тпшит в город...