Code: Select all
Program Cartography;
var t:Integer;
trash:cardinal;
{$Include 'all.inc'}
Begin
trash := $500E294F; {Задаем ID треша}
Finddistance := 0; {Ограничиваем рабиус поиска карт}
SetARStatus(true); {Включаем реконектор}
AutoMenu('you','World'); {Задаем авто ответ на меню выбора карты}
UseObject(trash); {Открываем Треш}
While NOT Dead do
begin
if connected then
begin
for t:=1 to 10 do
begin
{Если нарис. карт много скидываем их в треш}
if (Count($14EC) > 30 then
MoveItems(BackPack, $14EC, -1, trash, 0, 0, 0, 500);
if getquantity(findtype($14EB,ground)) > 0 then {Если закончились карты скрипт сделает дисконект и отключит реконектор}
begin
CheckSave;
waittargetground($14EB);
useskill('Cartography');
Wait(15000);
end
else
begin
SetARStatus(false);
Disconnect;
end;
end;
hungry(1,backpack);
end;
end;
End.