Искал прогу, для автоматической сдачи манора, на одном сайте нашёл что то вроде простейшего варианта, но я не очень в этом врубаюсь, мож для кого эти иероглифы понятны ?

-------------------------------------------------------

КРАТКАЯ АНОТАЦИЯ: почти везде в 20-00 приходит системное сообщение об начале олимпиады.. СКРИПТ включается вручную немного раньше него.. в момент прихода сообщения об начале ОЛИМПИАДЫ, скрипт- засекает системное время.. (ЭТО ПОЛЕЗНО ДЛЯ ТОГО ЧТОБЫ КАЖДЫЙ МОГ ИСПОЛЬЗОВАТЬ В СВОИХ СКРИПТАХ СИСТЕМНЫЕ ЧАСЫ и ТАЙМЕР) .
затем читер вручную пытается сдать манор.. но так как манор в данный момент выключен- получает что-то типа того : "В ДАННЫЙ МОМЕНТ МАНОР-СИСТЕМА ВЫКЛЮЧЕНА", при етом пакет на сдачу манора запоминается скриптом, спустя 5мин49сек (настраивается в скрипте) после начала олимпиаы, скрипт повторит попытку сдать манор- автоматически причем 30 раз подряд с заданным интервалом.. ту самую попытку которую раньше сдать- неудалось.. после умпешной попытки- юзер должен резко отключить скрипт галочкой.. чтоб повторы не проходили.. ну это мы рано или поздно поправим чтоб скрипт сам выключался и повторы не бил по серверу после успешной попытки..
ПРЕДУПРЕЖДЕНИЯ:1. многократные частые попытки сдать манор- караются на многих серверах БАНАНОМ. - подбирайте интервал попыток сдачи манора- разумный . 2.при попытке использовать (в данном случает сдать всход) айтема которого уже нету в инвенторе- автобан- но невезде.. ОТключайте скрипт сразу как манор сдался..

Ну вот и собственно сам скрипт (копируйте его в папку скриптс, в папке с l2phx) :

var
PaketManora: string;
timer1: TTimer;
StartTime: TDateTime;
EndTime: TDateTime;
x:integer;
procedure Init;
begin
timer1:=TTimer.Create(nil);
timer1.OnTimer:=@OnTimer;
timer1.enabled:=false;
timer1.interval:=400;
x:=0;
end;
procedure Free;
begin
timer1.Free;
end;
procedure OnTimer(Sender: TObject);
begin
if (time >= EndTime) and (x<30) then
begin
buf:=PaketManora;
SendToServer;
x:=x+1;
end;
end;
begin
if FromClient and (pck[1]=#$D0) and (pck[2]=#$09) and (pck[3]=#$00) then
begin
PaketManora:=pck;
end;
if FromServer and (pck[1]=#$64) and (pck[2]=#$69) and (pck[3]=#$06) then
begin
StartTime:=time;
EndTime:=StartTime + EncodeTime(0,5,49,0);
timer1.enabled:=true;
end;
end.