Перейти к публикации
Rincewind

Mining Шахта Минока.

Рекомендованные сообщения

Posted Image

 

Ходит рандомом. Бекоз фак лоджик. На адовых лагах в миноке глючит.

 

Но в целом примерный мальчик, хоть и балуется легкими наркотиками.

Кушает с пака. Отчитывается о проделанной работе в лог.

 

Запускать в шахте минока. Не принципиально где, всё равно чар покурит и уйдёт.

Скрипт пишет от количестве стеков и кирок. За этим надо следить. На ночь надо ~ 120 кирок и 50 стейков.

 

Выхлоп руды зависит от того, сколько удачи вы взяли себе при рождении =)

 

Enjoy!

 

P.s

Стелс с инклюдами настроенный на зхр. Кошерный.

 

 

Program mining;
// Crafted by Rincewind
{$Include 'all.inc'}
type LumbRecord = Record
   x,y,tt: integer;
   end;
var
k, x, y : Integer;
mn1, mf1, mf2, ms1 : Integer;
ctime : TDateTime;

const
Pickaxe1 = $0E85;		  
Pickaxe2 = $0E86;

function CheckPickaxe : Boolean;
   var tmpser : Cardinal;
   begin
	  Result := true;
	  if (ObjAtLayerEx(RhandLayer,self) = 0) then
	  begin
		 tmpser := findtype(Pickaxe1,backpack);
		 if tmpser = 0 then tmpser := findtype(Pickaxe2,backpack);
		 if tmpser = 0 then
		 begin
			Result := false;
			exit;
		 end;
		 if not equip(RhandLayer,tmpser) then
		 begin
			wait(1000);
			if not equip(RhandLayer,tmpser) then
			begin
			   Result := false;
			   exit;
			end;
		 end;
		 wait(500);
		 checksave;
	  end;
   end;
procedure MiningAround;
Begin
   for x := -2 to 2 do
   begin
	  for y := -2 to 2 do
	  begin
		 repeat
			waitconnection(5000);
			if not CheckPickaxe then
			begin
			   exit;
			end;
			if TargetPresent then CancelTarget;
			if WarMode = true then SetWarMode(false);
			ctime := Now;
			UseObject(ObjAtLayerEx(RhandLayer,self));
			WaitForTarget(5000);
			If TargetPresent then TargetToTile(1342, GetX(self)+x, GetY(self)+y, GetZ(self));
			k := 0;
			repeat
			   wait(100);
			   k := k + 1;
			   checksave;
			   mn1 := InJournalBetweenTimes('stop', ctime, Now);
			   mf1 := InJournalBetweenTimes('you can', ctime, Now);
			   mf2 := InJournalBetweenTimes('fail', ctime, Now);
			   ms1 := InJournalBetweenTimes('way', ctime, Now);
			until (mn1<>-1) or (mf1<>-1) or (mf2<>-1) or (ms1<>-1) or (k > 300);
		 until (mn1<>-1);
	  end;
   end;
End;

procedure DropMap;
begin
//Addtosystemjournal('Выбрасываю карты');
  repeat
	FindTypeEx($14ED,$ffff,backpack,False);
	if (findcount > 0) then Drop(finditem, 0, 0, 0, 0);;
		wait(100);
		checksave;
  until findcount = 0;
end;


procedure randomstep();
   var ld : Integer;
begin
	  ld := Random(4);
	
	  if (ld = 0) then
	  begin
	  Step(0,false);
	  Step(0,false);
	  end;
	
		if (ld = 1) then
	  begin
	  Step(2,false);
	  Step(2,false);
	  end;
	
		if (ld = 2) then
	  begin
	  Step(4,false);
	  Step(4,false);
	  end;
	
		if (ld = 3) then
	  begin
	  Step(6,false);
	  Step(6,false);
	  end;
  
end;

Begin
SetARStatus(true);
while (connected) do
begin
   while (true) do
   begin
		 FindTypeEx($0E85,$ffff,backpack,False);
  AddToSystemJournal(IntToStr(findcount) + ' - pickaxes');
		 FindTypeEx($097B,$ffff,backpack,False);
  AddToSystemJournal(IntToStr(FindFullQuantity) + ' - Стейков');
  Hungry(1,backpack);

	 randomstep;
  AddToSystemJournal('Ingot:'+IntToStr(CountEx($19B9,$0000,backpack))+' '+'Copper:'+IntToStr(CountEx($19B9,$0602,backpack))+' '+'BD:'+IntToStr(CountEx($19B9,$0455,backpack))+' '+'Pagan:'+IntToStr(CountEx($19B9,$0502,backpack))+' '+'Silver:'+IntToStr(CountEx($19B9,$03E9,backpack))+' '+'Spectral:'+IntToStr(CountEx($19B9,$0483 ,backpack))+' '+'Lava:'+IntToStr(CountEx($19B9,$0486,backpack))+' '+'Ice:'+IntToStr(CountEx($19B9,$0480,backpack))+' '+'Myt:'+IntToStr(CountEx($19B9,$0492,backpack))+' '+'Bas:'+IntToStr(CountEx($19B9,$0487,backpack))+' '+'Sun:'+IntToStr(CountEx($19B9,$0514 ,backpack))+' '+' Daed:'+IntToStr(CountEx($19B9,$0494,backpack))+' Doom:'+IntToStr(CountEx($19B9,$049F,backpack))+' Zulu:'+IntToStr(CountEx($19B9,$0488,backpack)));
	 FindDistance := 2;
	 MiningAround;
  DropMap;




  wait(3000);
   end;
end;
End.
Изменено пользователем Rincewind

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах

а это чудо,на песке будет работать ?

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах

некорректно отображает количество фишстейков. а так первая ночь полет нормальный)

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах

работает и на песке, одно число нужно заменить только

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах

Упс. Стейки починил. Прошу прощения.

 

upd.

 

Когда крафтите кирки - смотрите, чтобы небыло перфов. Они в руки не берутся. Или крафтите кирки из сложного материала.

Иначе скрипт зависнет и всё взорвётся.

Изменено пользователем Rincewind

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах

а как указать в скрипте, если кирки лежат в отдельной сумке?

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах

Упс. Стейки починил. Прошу прощения.

 

upd.

 

Когда крафтите кирки - смотрите, чтобы небыло перфов. Они в руки не берутся. Или крафтите кирки из сложного материала.

Иначе скрипт зависнет и всё взорвётся.

 

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

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах

после 12 дня копать в миноке вообще нереал( на лагах можно потерять не только персонажа но и голову..если она недостаточно хорошо привинчена к крафту...)

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах

Если брать сразу тинкера 50, кидать 500 железа, и добавить модуль изготовления кирок, то потом можно забыть на неделю.

Средство от выпадения и стопора, копание вокруг себя на 2 клетки. Копает меньше но зато не виснет, общий результат выше.

Единственное не все места в пещере хороши :) .. и в не которых виснет больше, чем в других.

Стейков тратится в сутки порядка 30. На неделю мне хватает 200.

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах

А что нужно изменить чтобы он делал не один шаг а скажем 3 расскажите нубасу

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах

по какойто причине чар стоит на месте,копает вокруг себя ?

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах

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

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах

Спасибо автору скрипта, ходит, копает, все гуд. Единственное, в отчет пишет только количество кирок, фишстейков, айрона, видимо нужно itemtype обновить на остальную руду.

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах

Спасибо автору скрипта, ходит, копает, все гуд. Единственное, в отчет пишет только количество кирок, фишстейков, айрона, видимо нужно itemtype обновить на остальную руду.

я исправлял поищи на форуме

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах

×
×
  • Создать...