Stealth Client Forum

Spinorog wrote:Товарищи,я в ступоре.. Написал себе скрипт на майнинг... Точнее переработал на стелс свой инжовый скрипт.. Проблема следующая: есть голова - Program - она читает координаты и решает куда идти копать, из неё вызывается процедура Mine, в ней чар копает и отслеживает вес и другие навороты, из этой процедуры вызываются все остальные, как то: пойти домой, разгрузиться, починиться. В начале процедуры Mine я написал такую строчку:

Kirka:=ObjAtLayer(RHandLayer);

и потом с киркой общаюсь через эту переменную. На первом прогоне до ремонта всё окей. Потом чар идет ремонтиться. Среди прочих действий берет из бэкпака молоток в руки, перед этим локально себе запоминает кирку(ну не сделал глобально - некрасиво, но не приступно) такой же строчкой:
pickaxe:=objatlayer(RhandLayer);
Дальше после прочей лабутни одевает молоток:
equip(RhandLayer, HammerID);
Чинит кирку и потом одевает:
useobject(pickaxe);

Идет копать, при этом функция Mine возобновляется с одной лишь целью - встать на предыдущие координаты, а дальше через основное тело Program вызывается по новой. Так вот и в этот момент, когда чар с киркой в руках(!!!) стоит и хочет копать, он вместо кирки одевает молоток... Ну вот объясните мне, как такое возможно???

Мне кажется я упомянул все важные моменты, чтобы не грузить вас своим кодом, но если он нужен - нет проблем.. а то я чувствую себя идиётом...

 function UseType(ObjType : Word;Color : Word) : Cardinal;

Spinorog wrote:Ох дырявая голова - забыл приложить процедуру ремонта - обратно в ней берется кирка!

Code: Select all

procedure Remont();
   
	
	var
     pickaxe : Cardinal;	
     cTime : TDateTime;
     
	begin
       
	   AddToSystemJournal('Ремонтируюсь');
	   pickaxe:=objatlayer(RhandLayer);
	   
	   useobject(CraftChest);
	   wait(500);
	   useobject(RemontBag);  
       wait(500);
	   repeat   
		  FindTypeEx(ironingot,$0000,RemontBag,false);
		  wait(500);
		  grab(finditem, 650);
		  FindType(ironingot,backpack);
	   until FindCount>0;   
       
       wait(1000);
       MoveItem(ArmRing, 0, backpack, 0,0,0)
	   wait(1000);
	   MoveItem(ArmNeck, 0, backpack, 0,0,0)
	   wait(1000);
	   MoveItem(ArmEar, 0, backpack, 0,0,0)
	   wait(1000);
	   
	   
		  equip(RhandLayer, $406722A0);
		  wait(500);

	  
	   useobject(ArmRing);
	   wait(500);
	   useobject(ArmNeck);
	   wait(500);
	   useobject(ArmEar);
	   wait(500);        
       
	   
	   repeat
       cTime := Now;
	   useskill('Arms Lore');
	   waittargettype($0E85);                         
       wait(500);
       until InJournalBetweenTimes('Unexpected|target|info', cTime, Now)<0;

	   WaitJournalLine(now, 'Вещь в идеальном|Идеальное',0);
	   
	   {useobject(MinRing);
	   wait(500);
	   useobject(MinNeck);
	   wait(500);
	   useobject(MinEar);
	   wait(500);}
	   moveitem(ArmRing,0, RemontBag,0,0,0);
	   wait(1000);
	   moveitem(ArmNeck,0, RemontBag,0,0,0);
	   wait(1000);
	   moveitem(ArmEar,0, RemontBag,0,0,0);
	   wait(1000);
	   FindType(ironingot, backpack);
	   wait(500);
	   moveitem(finditem,0, RemontBag,0,0,0);
	   wait(500);
	   checklag(6000);
	   useobject(pickaxe);
	   
	end;

drabadan wrote:

Spinorog wrote:Ох дырявая голова - забыл приложить процедуру ремонта - обратно в ней берется кирка!

Code: Select all

procedure Remont();
   
	
	var
     pickaxe : Cardinal;	
     cTime : TDateTime;
     
	begin
       
	   AddToSystemJournal('Ремонтируюсь');
	   pickaxe:=objatlayer(RhandLayer);
	   
	   useobject(CraftChest);
	   wait(500);
	   useobject(RemontBag);  
       wait(500);
	   repeat   
		  FindTypeEx(ironingot,$0000,RemontBag,false);
		  wait(500);
		  grab(finditem, 650);
		  FindType(ironingot,backpack);
	   until FindCount>0;   
       
       wait(1000);
       MoveItem(ArmRing, 0, backpack, 0,0,0)
	   wait(1000);
	   MoveItem(ArmNeck, 0, backpack, 0,0,0)
	   wait(1000);
	   MoveItem(ArmEar, 0, backpack, 0,0,0)
	   wait(1000);
	   
	   
		  equip(RhandLayer, $406722A0);
		  wait(500);

	  
	   useobject(ArmRing);
	   wait(500);
	   useobject(ArmNeck);
	   wait(500);
	   useobject(ArmEar);
	   wait(500);        
       
	   
	   repeat
       cTime := Now;
	   useskill('Arms Lore');
	   waittargettype($0E85);                         
       wait(500);
       until InJournalBetweenTimes('Unexpected|target|info', cTime, Now)<0;

	   WaitJournalLine(now, 'Вещь в идеальном|Идеальное',0);
	   
	   {useobject(MinRing);
	   wait(500);
	   useobject(MinNeck);
	   wait(500);
	   useobject(MinEar);
	   wait(500);}
	   moveitem(ArmRing,0, RemontBag,0,0,0);
	   wait(1000);
	   moveitem(ArmNeck,0, RemontBag,0,0,0);
	   wait(1000);
	   moveitem(ArmEar,0, RemontBag,0,0,0);
	   wait(1000);
	   FindType(ironingot, backpack);
	   wait(500);
	   moveitem(finditem,0, RemontBag,0,0,0);
	   wait(500);
	   checklag(6000);
	   useobject(pickaxe);
	   
	end;

длинные куски кода лучше засовывать в спойлер, чтоб людям потом удобочитаемей было.

По теме - ну хз, может где-то что-то самопереписывается. У меня похожие проблемы были, но используя ЮзТайп я от них полностью на 100% ушел.

Vizit0r wrote:ну я не знаю, что сказать. за всю историю стрелса на ObjAtLayer никто не жаловался.

Если ты уверен, что вопрос в стелсе - давай в личку чара в нужном месте с киркой + скрипт из пары строк, демонстрирующий "баг".