2shinma
спасибо огромное

function MoveItems(ИД сумки где взять итем , какой у итема тип, какой у итема цвет,ИД сумки куда положить итем , 0,0,0, задержка Мс);

program pesok; const Shovel = $0F39; procedure stack(ObjType, Color : word); var PackItem, GroundItem : Cardinal; begin PackItem := 0; GroundItem := 0; Findtype(ObjType,backpack); IF FindFullQuantity > 0 then PackItem := finditem; Findtype(ObjType,ground); IF FindFullQuantity > 0 then IgnoreReset; ...

может у кого есть инскрипт
юзает чернила (реагенты без надобности)
тык бланк скролы
мана кончилась медитирует
и все сначала

:) cпасибо вот что у меня получилось program MiningAround; var ctime : TDateTime; x, y, k, mn1, mf1, mf2, mf3, ms1 : Integer; Begin for x := -2 to 2 do begin for y := -2 to 2 do begin repeat if TargetPresent then CancelTarget; if WarMode = true then SetWarMode(false); ctime := Now; UseObject(ObjAtLa...

народ плз
что именно нужно оставить в этом скрипте чтобы он просто на месте стоял и копал
выкопал круг и остановился скрипт