Vizit0r wrote:если трупов больше одного, то надо уже порезанные кидать в игнор, чтобы они не находились опять.

на подробнон разглядывание кода нет времени пока

Идея хорошая, подумаю над этим. До конца недели попробую баги поподправлять.

трупов на земле потенциально больше одного может быть? Не "может", их зачастую больше даже двух. Опытным путём обнаружил, что без нарезки трупов работает лучше. Точнее на нарезке затыкается и не собирает таки. Ещё нужно переобдумать алгоритм автооткрытия трупов, ибо из-за этого иногда во ...

Предварительно скрипт пришёл к вот такому виду: Program loot; var n:integer; i:array[0..3] of Word; {$Include 'all.inc'} procedure rezka; begin while not Dead do begin UseObject(FindType($0F51,backpack)); WaitTargetGround($2006); Wait(500); end; end; Procedure sbor_luta; begin i[0]:=$09F1; i[1]:=$0F...

С do - согласен, не оттуда, Then там должно быть.
begin-end, читал и видел. Приводил просто идею реализации нежели точный код.
Как домозгую полность - выложу на суд завтра, ок?

Спасибо за ответы. сейчас буду разбираться. По поводу процедуры резки кожи, подумал, что стоит изменить процедуру с нарезки последнего контейнера - на поиск трупов по типу на земле и в случае нахождения - резать. Что-то типа: Findtype (corpsetype, ground); If findtype > 0 do Useobject (dagertype, ba...

Выдаёт ошибку. ругается Compiler: [Error] (loot.sc at 25:17): Type mismatch Сам скрипт: Program loot; var n:integer; i:array[0..3] of Cardinal; {$Include 'all.inc'} procedure rezka; begin while not Dead do useobject(findtype($0F51, backpack)); waitfortarget(500); targettoobject(LastCorpse); wait(500...