Mirage wrote:
это просто для игрока на шарде. Я не уверен что тут есть кроме тебя игроки оттуда
А на разных шардах разные правила. Гдето идентифицировать можно только в паке, где то надо двигаться - меняя местоположение.
Ладно, набросаю - потестишь, если что в процессе подправим.
Только стелс...(
Program ItemID;
{$Include 'all.inc'}
const
IDBag = $68DCF099; //Сумка с всякой х-нёй
var
IDCount:integer;
SubBag:cardinal;
procedure IdCurrItem(item:cardinal);
var TimeStart : TDateTime;
begin
if TargetPresent then CancelTarget;
CancelWaitTarget;
UseSkill('Item Identification');
wait(500)
waitfortarget(5000);
TimeStart := now;
WaitTargetObject(item);
WaitJournalLine(TimeStart,'item|object|not sure |It appears to be ', 12000);
wait(9400);
if InJournalBetweenTimes('not sure', TimeStart, now) > 0 then begin
exit;
end;
IDCount := IDCount + 1;
Ignore(item);
end;
begin
//checklag(10000);
OpenBox(IDBag);
checksave;
while FindTypeEx($FFFF, $FFFF, IDBag, False) <> 0 do
begin
IdCurrItem(FindItem);
ClickOnObject(FindItem);
if IsContainer(finditem) then begin
SubBag := finditem;
OpenBox(SubBag);
while FindTypeEx($FFFF, $FFFF, SubBag, False) <> 0 do begin
ClickOnObject(FindItem);
IdCurrItem(FindItem);
end;
drophere(SubBag);
end;
hungry(1, backpack);
AddToSystemJournal('Отиндифил '+ inttostr(IDCount));
end;
drophere(IDBag);
exit;
end.
Говорят рабочий,но инклюда как я понял нет...Как его замутить,я незнаю)
18:13:16:908 [INDIF]: Compiler: [Error] (!!Identify.sc at 35:3): Unknown identifier 'OpenBox'
18:13:16:996 [INDIF]: Compiling failed
18:13:17:000 [INDIF]: Script !!Identify.sc stopped successfuly