Code: Select all
Program Snooping;
var t : Integer;
enemy : Cardinal;
{$Include 'all.inc'}
Begin
Enemy := $41616F7F; {Ид пака}
SetARStatus(true);
clearjournal;
while not Dead do
begin
if Connected then
begin
for t := 0 to 10 do
begin
CheckSave;
UseObject(Enemy);
Wait(5000);
end;
end;
end;
End.
пробавал, ни тот ни етот не работают, в моем варианте пишет :
Code: Select all
11:20:32: UseObject error: Object not finded.