Yoko

All sides of Injection
It is currently 2024-03-29 06:45:28

All times are UTC+02:00




Post new topic  Reply to topic  [ 8 posts ] 
Author Message
PostPosted: 2014-10-20 09:24:39 
Offline

Joined: 2014-10-20 09:19:27
Posts: 4
Доброго времени суток,уважаемые.Потратил примерно минут 40 на поиски нужно скрипта,здесь у вас.Осилил темы только на русском языке,скрипта не нашел.
Пару лет назад видел скрипт на индиф отдельного мешка по ид(мб типу).Тоесть,указываешь ид мешка,он индифит все вещи находящиеся там.Если мужчины не особо вас затруднит,помогите - будьте любезны.Заранее благодарен.


Top
   
PostPosted: 2014-10-20 12:44:36 
Offline
User avatar

Joined: 2009-05-28 09:58:28
Posts: 2802
Location: Иваново
идентифицируемые вещи для опознания перекладывать в пакк персонажа?
Уже опознанные вещи скидывать в другую сумку, возвращать в мешок или чтото еще делать?
Подробнее алгоритм опиши - набросаем.

_________________
Image
YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"
Стрелялка для олдов.


Top
   
PostPosted: 2014-10-20 13:21:35 
Offline

Joined: 2014-10-20 09:19:27
Posts: 4
Mirage wrote:
идентифицируемые вещи для опознания перекладывать в пакк персонажа?
Уже опознанные вещи скидывать в другую сумку, возвращать в мешок или чтото еще делать?
Подробнее алгоритм опиши - набросаем.


Да нет,достаточно бы было просто: вписал ид сундука в котором 500 итемов(он проиндифил все что в этом сундуке и перекинулся на следующий).Просто с сос бутылок итемов слишком много,а сидеть вот так залипать индифить по 1 шмотке,долго очень)Был бы очень признателен)


Top
   
PostPosted: 2014-10-20 19:47:54 
Offline
User avatar

Joined: 2009-05-28 09:58:28
Posts: 2802
Location: Иваново
это просто для игрока на шарде. Я не уверен что тут есть кроме тебя игроки оттуда ;) А на разных шардах разные правила. Гдето идентифицировать можно только в паке, где то надо двигаться - меняя местоположение.
Ладно, набросаю - потестишь, если что в процессе подправим.

_________________
Image
YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"
Стрелялка для олдов.


Top
   
PostPosted: 2014-10-20 20:09:58 
Offline

Joined: 2014-10-20 09:19:27
Posts: 4
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


Top
   
PostPosted: 2014-10-20 21:34:14 
Offline

Joined: 2007-07-07 13:14:01
Posts: 90
дай я угадаю, там что-то вроде этого...


Code:
procedure OpenBag (IDBag : cardinal);
begin
  if LastContainer <> IDBag then
    begin
      repeat
        UseObject(IDBag);
        wait(1000);
      until LastContainer = IDBag;
    end;
end;


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


Top
   
PostPosted: 2014-10-20 22:10:54 
Offline

Joined: 2014-10-20 09:19:27
Posts: 4
я открываю в Stealth 4.0.0
инклюд - целое действие,тоесть
Инклюд ChekSave.inc

procedure CheckSave;
var Time : TDateTime;
begin
Time:= Now - (0.5 / 1440);
if InJournalBetweenTimes('Saving World State',Time,Now) >= 0 then Wait(30000)
end;

Сделал такой же,вставив то,что вы дали-
Получил:
[00:01:30:991] System: Select an object to identify.
[00:01:31:594] System: You are already know everethyng about this item...
Тоесть индифит ту вещь,которая уже проиндифлена.
Он индифит вещи не в указном ид сундука,а в главном.
Очистил главный мешок,положил туда индиф-
[00:06:01:586] System: Select an object to identify.
[00:06:02:223] System: It appears to be a Journeyman Blacksmith's Leather Boots
индиф сапогов-отлично
[00:06:11:687] You see: Journeyman Blacksmith's Leather Boots
вместо того что-бы индифить следующие он показывает что вышло,кликнув 1 раз,все бы волшебно-но
[00:06:12:118] System: Select an object to identify.
[00:06:12:394] System: You are already know everethyng about this item...
тоесть индифит опять их же...


Top
   
PostPosted: 2014-10-22 06:12:43 
Offline

Joined: 2007-07-07 13:14:01
Posts: 90
Я дал OpenBag, а там OpenBox. И если это незаметно... то у меня плохие новости.


Top
   
Display posts from previous:  Sort by  
Post new topic  Reply to topic  [ 8 posts ] 

All times are UTC+02:00


Who is online

Users browsing this forum: No registered users and 26 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
cron
Powered by phpBB® Forum Software © phpBB Limited