скрипт на рес...

[LaCocaNostra]

Всем прет!) я хотел бы спросить не остался не у каго скрипт на рес...( ну при смерти берёшь себя в таргет нажимаешь тп в город и встаёшь на том-же месте где и откинулся) очень давно ищу этот скрипт помогите плз если у каго есть!) Заранее благодарен!

Добавлено через 21 час 0 минут
Мда.....помощников уйма!.........(

[QaK]

LaCocaNostra, типа все с криками "Алилуя!" с радостью бросились тебе помогать?

[Azury]

чек чар статус
если мертвый то переходим к лабелу рес, если живой то в начало скрипта
лабел (рес)
куррент локация х у з
тп в город
мов ту х у з
енд

[sinles]

и прямо таки "мув ту х у з" переместит тебя куда угодно..... и сервер еще и лвлап тебе подарит за это...

[null]

Возможно автор имел давнешний баг с авторессом при помощи правки опций пакета RequestRestartPosition, который был найден еще во времена С3 известным читером maddaemon`ом.

[LaCocaNostra]

да чё за бред этот скрипт валялся на форуме пахал замечательно на интр!!! как я понял работал по принципу что и скрипт на тп !!!

[David]

//Скрипт на возрождение на месте после смерти. 
//Включите скрипт,когда вы умерли возьмите себя в таргет и нажмите в город. 
//Вы встанете наместе. 
//Автор pmen    ICQ - 479917081 
//=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+= 
const 
//====================================== 
Name='omg'; //<-----Ник Персонажа 
//====================================== 
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]=#$04) 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('6D 00 00 00 00')) then 
    if FromClient and (ConnectName=Name) and (pck[1]=#$48) then ValidatePosition:=pck; 
    if FromServer and (ConnectName=Name) and (pck[1]=#$28) and (MyID= pck[2]+pck[3]+pck[4]+pck[5]) then 
   begin 
     pck:=''; //Убиваем стандартный пакет 
     buf:=ValidatePosition; //посылаем ValidatePosition 
   SendToServerEX(Name); 
     buf:=#$28; 
     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.

[Fer123]

что то не так в этом скрипте - эта строчка никогда не сработает:
if FromClient and (ConnectName=Name) and (pck=hstr('6D 00 00 00 00')) then
if FromClient and (ConnectName=Name) and (pck[1]=#$48) then ValidatePosition:=pck;

[David]

я бегал на интерлюдии и все пахало я вроде ниче не модифицировал, серв la2f.ru (кажись уже скопытился)

[QaK]

David, тебе пока устное предупреждение за развитие темы про баги...