Скрипт на антитаргет

B

bond2244

Guest
Код:
//Вызывается при включении скрипта
//Скриптн на антитаргет
//Для запуска нужно послать в основной чат ".on"
//Автор CrazyS по идее Pickwick
const
//======================================
Name='CrazyS'; //**<-----Ник Персонажа-=
//======================================
var
a:integer; b:boolean;
procedure Init;   
begin
SendMsc('Возьмя себя в таргет');
b:=false;
end;
procedure SendMsc(msc:string);
begin
buf:=#$4A;
WriteD(0);
WriteD(10);
WriteS('');
WriteS(msc);
SendToClientEX(Name);
end;
begin
begin
if FromClient and (ConnectName=Name) and (pck[1]=#$04)and (not b) then 
begin
a:=ReadD(2);
SendMsc('Запомнен ObjectID = '+inttostr(a));
b:=true;
end;
end;
begin
If Fromclient and (ConnectName=Name) and (pck=hstr('38 2E 00 6F 00 6E 00 00 00 00 00 00 00')) then
begin
buf:=#$9F;
WriteD(a);
buf:=buf+ hstr('01 00 00 00 05 4D 06 10 05 00 00 00');
SendToServerEX(Name);
end;
end;
end.
 
Сверху