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

[LaCocaNostra]

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

Добавлено через 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, тебе пока устное предупреждение за развитие темы про баги...

[David]

Это никакой не баг, а переделанный скрипт на телерепорт.