Тема: Скрипт
Показать сообщение отдельно
Старый 08.06.2009, 21:52   #7
Местный
 
Аватар для pmen
 
Регистрация: 16.05.2009
Сообщений: 129
Сказал Спасибо: 66
Имеет 62 спасибок в 34 сообщенях
pmen пока неопределено
По умолчанию

Вот для Парт 2
DELPHI Код:
//Скрипт на возрождение на месте после смерти. //Включите скрипт,когда вы умерли возьмите себя в таргет и нажмите в город. //Вы встанете наместе. //Автор 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.



Долго может быть в первый раз...а так дальше норм =)
__________________
Работа программиста и шамана имеет много общего - оба бормочут непонятные слова, совершают непонятные действия и не могут объяснить, как оно работает
__________________________________________________ _____________
Родители частенько вышибали из меня дурь, но я знал где достать еще
__________________________________________________ _____________
Я живу напротив кладбища. БУДЕШЬ выпендриваться - будешь жить напротив меня!!!

Если помог скажи СПАСИБО =)
pmen вне форума   Ответить с цитированием
За это сообщение pmen нажился 4 спасибками от: