Вопрос почему таймер с сквозным проходом не роботает мб я не так понел его функцию хотелосьбы узать по подробней
delphi Код:
//Почта под freya
Const
rich=''; //кому шлем
itemid = 6392; // ид чего шлем
Name=''; //от кого
interval = 10; //интервал перед послыкой
var
Invertory:array[0..100,1..3] of integer;
i:word;
ObjId:integer;
countId:integer;
tick: Integer;
procedure Init;
begin
buf:=#$14;
SendToServerEx(Name);
end;
procedure ItemList;
begin
for i:=0 to 100 do
begin
Invertory[i,1]:=0;
Invertory[i,2]:=0;
Invertory[i,3]:=0;
end;
for i:=0 to 100 do
begin
Invertory[i,1]:=ReadD(i*68+6);
Invertory[i,2]:=ReadD(i*68+10);
if Invertory[i,2]=itemid then ObjId:=Invertory[i,1];
end;
for i:=0 to 100 do
begin
Invertory[i,3]:=ReadQ(i*68+18);
Invertory[i,2]:=ReadD(i*68+10);
if Invertory[i,2]=itemid then countId:=Invertory[i,3];
end;
end;
procedure sendmoney;
begin
buf := HStr('D0 66 00');
WriteS(rich);
WriteD(0);
WriteS(rich);
WriteS(rich);
WriteD(1);
WriteD(ObjId);
WriteQ(countId);
WriteQ(0);
SendToServerEx(Name);
end;
function Wait(var tick: integer; Timewait: Integer): Boolean; // сквозная проверка без остановки скрипта
var
t: integer;
begin
result:=false;
t:=Round(Time*86400);
if t>(tick+Timewait) then begin
if tick>0 then result:=true;
tick:=t;
end;
end;
begin
if FromServer and (ConnectName=Name) then
case pck[1] of
#$11: ItemList;
#$62:
begin
if (readd(2)=924) and (ConnectName=Name) and Wait(tick, interval) then
begin
sendmoney;
end;
end;
end;
end.