Aionrulez- скрипты

[Julietta20122]

Вылаживаем сюда все работающие скрипты на aionrulez я начну Радар-//Script by Usilok
var
TargetID:integer;

procedure Msg(msg1:string);
begin
buf:=HStr('16 00 54 D5 FF 22 00 00 00 00 00 00 00 55 00 73 00 69 00 6C 00 6F 00 6B 00 37 00 37 00 3A 00 20 00 ');
WriteS(msg1);
SendToClient;
end;

begin

if FromClient and (ReadC(1)=$CE) then
TargetID:=readD(6);

if FromServer and (ReadC(1)=$62) then
begin
buf:=pck;
if(pck[10]=HStr('14')) or (pck[10]=HStr('54')) then
WriteC(2,10);
WriteC(2,11);
SendToClient;
if(ReadD(6)=TargetID) then
begin
buf:=HStr('CE 00 57 6D FF 00 00 00 00 00 ');
SendToServer;
end;
pck:='';

end;

if FromServer and (ReadC(1)=$1E) and ((ReadC(50)=$3C) or (ReadC(50)=$5B)) and (ReadC(51)=$00) then
begin
Msg('Внимание, рядом член Одминистрации!!!');
buf:=pck;
sendtoclient;
buf:=HStr('62 01 54 01 FE ');
WriteD(ReadD(18));
buf:=buf+HStr('02 02 00');
sendtoclient;
pck:='';
end;
end.

[aionmax]

вылаживаем=>выкладываем

Добавлено через 9 минут
работают все лавровские скрипты кроме дюпов их я не проверял

[Andrew123321]

дайте скрипты дюпов

Добавлено через 2 минуты
http://zhyk.ru/forum/showthread.php?t=367313 вот такая же тема!

[$maile]

Все скрипты робят... За исключением дюпа

Добавлено через 4 минуты

Цитата: Сообщение от Julietta20122 Вылаживаем сюда все работающие скрипты на aionrulez я начну Радар- PHP код: //Script by Usilok var TargetID:integer; procedure Msg(msg1:string); begin          buf:=HStr('16 00 54 D5 FF 22 00 00 00 00 00 00 00 55 00 73 00 69 00 6C 00 6F 00 6B 00 37 00 37 00 3A 00 20 00 ');          WriteS(msg1);          SendToClient; end; begin    if FromClient and (ReadC(1)=$CE) then        TargetID:=readD(6);     if FromServer and (ReadC(1)=$62) then     begin          buf:=pck;          if(pck[10]=HStr('14')) or (pck[10]=HStr('54')) then             WriteC(2,10);             WriteC(2,11);          SendToClient;          if(ReadD(6)=TargetID) then             begin                 buf:=HStr('CE 00 57 6D FF 00 00 00 00 00 ');                 SendToServer;             end;          pck:='';        end;         if FromServer and (ReadC(1)=$1E) and ((ReadC(50)=$3C) or (ReadC(50)=$5B)) and (ReadC(51)=$00) then    begin         Msg('Внимание, рядом член Одминистрации!!!');       buf:=pck;           sendtoclient;       buf:=HStr('62 01 54 01 FE ');       WriteD(ReadD(18));       buf:=buf+HStr('02 02 00');            sendtoclient;       pck:='';     end; end.

В код PHP делай

Добавлено через 9 минут

Цитата: Сообщение от aionmax вылаживаем=>выкладываем Добавлено через 9 минут работают все клавровские скрипты кроме дюпов их я не проверял

Добавлено через 11 минут

Цитата: Сообщение от Julietta20122 Вылаживаем

Ухаха, автору по большому невтерпеж