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

Мининг по шахтам

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

Нашёл тут на форуме скрипт на мининг с телепортом по шатам, но вот проблема он не телепортируется в шахты, как правельно руны из рунбуки в скрипте прописать.

program mining;
// ZuluHotel 3
//Mining s rekolom domoy
//Rekolits9 pri nahojdenii tipov man,woman,explojen,prichki
//pri previshenii vesa 1000
//dobor kirok, zariajaet RB
//resaets9 cheresz .rescue
//
// crafted by bahoho   1.04
const
pickaxe = $0E85;
sunduk = $4BD5CD8F; //Sunduk dl9 scroll recall, jarenoy ribi, kirok <Need Setup>
sunduk2 = $4BD5CDD1; // Sunduk dl9 sbrosa rudi  <Need Setup>
RB = $45F668E1; // Roone book  <Need Setup>
RunaHome = 8; // Nomer runi domoy [1-16] <Need Setup>
Xhome = 1894; // Koordinata X  v dome  <Need Setup>
trash = $4968D387; // pomoyka dl9 sbrosa mapov <Need Setup>
Moving = 1; // esli 1 s hodilkoy, esli drugoe 4islo to bez
MaxWeight = 60; 

var x,y,i,t,k,p,r:integer;
ctime:TDateTime;
Enemy : array[1..5] of cardinal;
Ruda : array[1..8] of cardinal;
Runa : array[1..4] of integer;

{$Include 'all.inc'}

procedure Recall;
begin
Runa[1] := 12; // Nomera run v RB po shahtam [1-16] <Need Setup>
Runa[2] := 13; //esli netu stolko run prosto povtorit' neskolko odinakovih 
Runa[3] := 12;
Runa[4] := 13;
UseObject(RB);
WaitGump(IntToStr(15 + Runa[r]));
wait(4000);
r:=r+1;
if (r > 4) then r:=1;
end;

procedure Home;
begin
repeat
checksave;
disarm;
wait(200);
UseObject(RB);  
WaitGump(IntToStr(15 + RunaHome));
wait(3000);
if (GetX(self) <> Xhome) then
	begin
	Raw_move(Random(7), true);
	wait(250);
	Raw_move(GetDirection(self), true);
	wait(500);
	end;
until (GetX(self) = Xhome) or dead
end;

 function CheckPickaxe : Boolean; 
   var tmpser : Cardinal; 
   begin 
	  Result := true; 
	  if (ObjAtLayer(RhandLayer) = 0) then 
	  begin 
		tmpser := findtype(pickaxe,backpack); 
		if tmpser = 0 then 
		 begin 
			Result := false; 
			exit; 
		 end; 
		 wait(500); 
		 checksave; 
	  end; 
   end;

function CheckEnemy : Boolean;
begin
Result := false;
for  p:=1  to 5  do
	begin 
	findtype(Enemy[p],ground)
	if (findcount > 0) then 
		begin
		Result := true;
		Addtosystemjournal('Vragi, suka, ne sp9t!!!');
		exit;
		end;
	wait(100)
	checksave;
	end;
end;

procedure move;
begin 
x:=GetX(self);
y:=GetY(self);
t:=1;
if (GetDirection(self) = 0) then k:= 4;
if (GetDirection(self) = 1) then k:= 5;
if (GetDirection(self) = 2) then k:= 6;
if (GetDirection(self) = 3) then k:= 7;
if (GetDirection(self) = 4) then k:= 0;
if (GetDirection(self) = 5) then k:= 1;
if (GetDirection(self) = 6) then k:= 2;
if (GetDirection(self) = 7) then k:= 3;
repeat
if (ObjAtLayer(RHandLayer) = 0) then equipt(RHandLayer,pickaxe);
ctime:=now;
UseObject(ObjAtLayer(RHandLayer)); 
WaitForTarget(2000);
If TargetPresent then TargetToTile(0,GetX(self),GetY(self), GetZ(self));
wait(2000);
k := InJournalBetweenTimes('start', ctime, Now);
if (k <> -1) then
	begin
	if (t = 1) then
		begin
		Raw_move(GetDirection(self), true);
		t:= t+1;
		end
	else
		begin
		Raw_move(Random(7), true);
		t:=1;
		end;
	end
else
	begin
	Raw_move(k, true);
	end;
wait(1000);
until (GetX(self) <> x) or (GetY(self) <> y) or dead
end;

function timer(var acttimer:integer;actafter:integer):boolean;
begin
   result:=false;
   acttimer:=acttimer+1;
   if acttimer>=actafter then
   begin
	  acttimer:=0;
	  result:=true;	   
   end;
end;

procedure Min;
begin
while (connected) do
begin 
	if (ObjAtLayer(RHandLayer) = 0) then equipt(RHandLayer,pickaxe);
	UOSay(' ')
	for x := -2 to 2 do
	begin 
		for y := -2 to 2 do
		begin 
		wait(1000);
		if (weight > MaxWeight) then
			begin
			wait(1000);
			home;
			exit;
			end;		
		ctime := Now; 
		UseObject(ObjAtLayer(RHandLayer)); 
		WaitForTarget(5000); 
		checksave;
		If TargetPresent then TargetToTile(0, GetX(self)+x, GetY(self)+y, GetZ(self));
			k:=0
			repeat 
			if (CheckEnemy) then
				begin
				uosay('.guards')
				Raw_move(GetDirection(self), true);
				wait(1000);
				home;
				exit;
				end;
			checksave;
			wait(100); 
			k:= k+1;
			i := InJournalBetweenTimes('stop|anything', ctime, Now); 
			until (i<>-1) or ( k > 600);
			wait(1000);
			if (ObjAtLayer(RHandLayer) = 0) then 
				begin
				if (not CheckPickaxe) then exit;
				equipt(RHandLayer,pickaxe);
				end;
			end; 
		end;
	if (Moving = 1) then move;
end;
end;

BEGIN
r:=1;
Ruda[1] := $19B9;
Ruda[2] := $0F30;
Ruda[3] := $0F2D;
Ruda[4] := $0F25;
Ruda[5] := $0EED;
Ruda[6] := $0F21;
Ruda[7] := $0F25;
Ruda[8] := $1BE9;
Enemy[1] := $0191;
Enemy[2] := $0190;
Enemy[3] := $0F0D;
Enemy[4] := $0005;
Enemy[5] := $0006;
ignore(self);
finddistance := 20;
if (not dead) then home;
SetARStatus(true);

while true do
begin 
	while Connected do
	begin
	if (GetX(self) = Xhome) and not dead then
		begin
		Addtosystemjournal('Home, sweet home');
		wait(1000);
		MoveItems(backpack, $14ED, $FFFF, trash, 0, 0, 0, 50)
		wait(1000);
		useobject(sunduk2);
		wait(1000);
		for k := 1 to 8 do
			begin 
			repeat
				findtype(Ruda[k],BackPack);
				if (findcount > 0) then MoveItems(backpack, Ruda[k], $FFFF, sunduk2, 0, 0, 0, 50);
				wait(100);
				checksave;
			until findcount = 0;
			end;
		wait(1000);
		useobject(sunduk);
		wait(1000);
		Hungry(1,sunduk);
		wait(1000);
		checksave;
		findtype($1F4C,sunduk);
		if (findcount > 0) then MoveItems(sunduk, $1F4C, $FFFF, RB, 0, 0, 0, 500)
		else
			begin
			Addtosystemjournal('KoH4uJIuCb scrool recall');
			exit;
			end;
		wait(1000);
		checksave;
		MoveItems(Backpack, $1F4C, $FFFF, sunduk, 0, 0, 0, 500);
		wait(1000);
		checksave;
		wait(1000);
		if (not CheckPickaxe) then 
			begin 
			findtype($0E85,sunduk);
			if findcount > 0 then
				MoveItem(FindItem, 1, BackPack, 0, 0, 0)
			else
				Addtosystemjournal('KoH4uJIuCb Kupku');
				checksave;
			end;
		 wait(1000);
		disarm;
		recall;
		end;

	if CheckPickaxe and (not dead) then Min
		else
		begin
		if dead then 
			begin
			wait(1000);
			uosay('.rescue');
			wait(3000);
			Addtosystemjournal('y6uJIu!!!');
			home;
			end;
		end;
	end;
wait(100);
end;
END.

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


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

вообщем тут мининг на 2 точки а потом домой летит на сброс.

 

12 и 13 руны в шахты.

 

вот тут они забиты

 

Runa[1] := 12; // Nomera run v RB po shahtam [1-16] <Need Setup>

Runa[2] := 13; //esli netu stolko run prosto povtorit' neskolko odinakovih

Runa[3] := 12;

Runa[4] := 13;

 

скрипт переделывался я думаю не один раз.

можеш тут забить нужные четыре руны.

 

и тут проверь

RB = $45F668E1; // Roone book <Need Setup> айди рбшки

RunaHome = 8; и номер руны домой

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


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

вообщем тут мининг на 2 точки а потом домой летит на сброс.

 

12 и 13 руны в шахты.

 

вот тут они забиты

 

Runa[1] := 12; // Nomera run v RB po shahtam [1-16] <Need Setup>

Runa[2] := 13; //esli netu stolko run prosto povtorit' neskolko odinakovih

Runa[3] := 12;

Runa[4] := 13;

 

скрипт переделывался я думаю не один раз.

можеш тут забить нужные четыре руны.

 

и тут проверь

RB = $45F668E1; // Roone book <Need Setup> айди рбшки

RunaHome = 8; и номер руны домой

 

как я понял рунбука у него полная, т.к. номера проставлены от 1-16, если у тебя не забита она, то либо забей до конца и так чтобы 12 и 13 были шахтами ну или же нужные тебе номера, либо через инфогамп впиши номера своих рун. Хотя я могу и ошибаться. Изменено пользователем долби

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


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

жмешь load и выбираешь мининг, потом run function, и дальше опять load и остальные подгружаешь

в списке у тебя будет 3 запущенных скрипта

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


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

непойму как туда руны прописать ниче неполучается кто может подскажите нежмитесь

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


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

непойму как туда руны прописать ниче неполучается кто может подскажите нежмитесь

 

попробуй заменить строку

WaitGump(IntToStr(15 + RunaHome));
на:

WaitGump(IntToStr(1024 + RunaHome));

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


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

не работает в доме все заряды выщелкал и все((

 

тут скорее всего писан он для старенького стелса. Ибо мы с друганом тестили его, тут леталка битая, копалка тоже кривая. Пришлось другой писать. Но видел что ктото подобным пользуется. Вырезать варкой их не вариант под скриптом. Я магом щелках.

Кстати кто владелец крафтеров КОКО и ДОДО ? Они и летают на нем.

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


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

Вырезать варкой их не вариант под скриптом. Я магом щелках.

Кстати кто владелец крафтеров КОКО и ДОДО ? Они и летают на нем.

 

додо и коко это мои кореша!) с них руды набил уже - дом можно построить !) а щелкать я и варкой неплохо справляюсь) главное махалку побыстрее чтобы каст збивала)

 

P.s. любителей курам перышки повышипывать тоже касается :D

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

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


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

Я еще раз повторяю, я не заморачивался на писанину такого глупого и очень расходного скрипта. У меня он проще, намного. Но в нем все продумано до мелочей. Им только привлекать внимание. Я же сказал у кого есть такой скрипт, у него и спрашиваите.

Я знаю все шахты в которых летают крафты эти, кстати этот скрипт можно сбивать. Если в обоих шахтах по которым тпшится поставить по фишке, то он летает пока не закончатся рекалы. У него нет проверки на рекал, и заряжается он только когда летит домой.

dima твои крафты ? )) Коко и додо ? и еще 1 ник уже не помню =)

Изменено пользователем долби

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


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

Коко и додо ? и еще 1 ник уже не помню =)

 

99% - gop ))

 

долби а твой наверное крафт - копаи ?) долби и копай !))) :D

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


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

да мои додо коко кики гоп)) да норм копают

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

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


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

да мои додо коко кики гоп)) да норм копают

 

Копаи мой мешает ? )) я чет не могу сделать чтобы твой додо не палил меня, радиус и так уменьшил, а всеравно бегает слишком широко :D Затратно же рисовать рекалы. И зачем так много тебе руды ? БС прокачать не так уж и сложно до 130. Врубаешь скрипт чтобы делал платмаилы, и сразу сделанные переплавлял, дак 10к железа хватает очень даже на долго =) Кстати теилоринг до 130 на коврах задрачивать или до 130 прийдется еще и со шкурками помудить ?

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


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

на коврах а руда штоб перфы ковать

 

Ахахаха че прописал исключение для моего крафта? Чтобы коко не улетал ? )))

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


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

до 140 мининг качался нормально, как и другие скилы, т.е. качается только на желтых или оранжевых доступных для данного уровня скила рудах. Потом все стало тяжелее, скил стал подниматься даже на оражевом цвете раза с 5ой руды, а потом вообще с где-то с 10й, в данным момент еще стало реже. А я качаю еще инжнерию, нужна руда выше и мне приходится терять время сидеть на 4-5 кучах руды, которая респится раз в 10 минут да еще на ней не поднимается скил. ГМы пофиксите скил мининг, чтобы скил поднимался на оранжевом и желтом цвете.

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


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

Присоединяйтесь к обсуждению

Вы можете опубликовать сообщение сейчас, а зарегистрироваться позже. Если у вас есть аккаунт, войдите в него для написания от своего имени.

Гость
Ответить в тему...

×   Вставлено в виде отформатированного текста.   Вставить в виде обычного текста

  Разрешено не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отобразить как ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставить изображения напрямую. Загрузите или вставьте изображения по ссылке.

Загрузка...

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