Mining DRW

[Islam]

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

[Incognitos]

Вот смотрю и удевляюсь , вот если ктото хочет научится писать скрипты он не поймёт всего этого , я за то чтоб ктото написал скрипт на мининг такой , чтоб можно было работать над скриптом ... Пускай чар просто встанет в инвиз и будет копать вокруг себя все клетки, когда один цикл пройдёт , т.е. выкопает 25 клеток, чтоб пауза началась ну минуты на 3-4 и заного начал копать пока веса не будет максисум + чтоб конектился при дисконекте ... =) ... давайте Энштейный )

[YogurtST]

Вот смотрю и удевляюсь , вот если ктото хочет научится писать скрипты он не поймёт всего этого , я за то чтоб ктото написал скрипт на мининг такой , чтоб можно было работать над скриптом ... Пускай чар просто встанет в инвиз и будет копать вокруг себя все клетки, когда один цикл пройдёт , т.е. выкопает 25 клеток, чтоб пауза началась ну минуты на 3-4 и заного начал копать пока веса не будет максисум + чтоб конектился при дисконекте ... =) ... давайте Энштейный )

omg...kill yourself

[important]

Спасибо за скрипт.

У меня такая проблема.
Вроде чар полетел в шахту, всё обкопал, полетел домой выгрузился.
Я отходил от компа, пришёл - чар использовал все 500 зарядов в рунбуке хотя сделал 1 обкоп (максимум 2), в log'e стелса очень много раз виден Kal Ort Por.

Что я не правильно делаю?

[Maruk]

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

[WladL]

Шибко смахивает на недовыгруз руды,проверьте вес чара после "выгрузки" и полетом обратно в шахту.
Если действительно недовыгруз, то проверяйте доступность сундука в момент выгрузки, ID сундука, ну и все что с этим связано.

[important]

Шибко смахивает на недовыгруз руды,проверьте вес чара после "выгрузки" и полетом обратно в шахту.
Если действительно недовыгруз, то проверяйте доступность сундука в момент выгрузки, ID сундука, ну и все что с этим связано.

Выкладывает абсолютно всю руду.
Блин...

[WladL]

тут лежат разные скрипты , какой у Вас?

[grundick]

А мне думается что в вашем скрипте кривоватая функция реколла ).
Больше похоже на идущий один за другим физлы изза недостаточной задержки между кастами. То есть чар катует реколл, не успевая улететь снова кастует, и снова, и снова ... И так пока не кончатся заряды. Хотя я не в курсе как у вас там устроено...

[Maruk]

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

[WladL]

Что значит "затем" ? Прилетел в пещеру и продолжает пытаться реколится?
журналы выложи

[WladL]

разбор полетов )

Code: Select all

procedure recal_rb(rune : integer); 
var tmpr : Integer; 
mx, my, k, Res : Integer; 
begin 
repeat 
	Res := 0; 
	CheckDead; 
	AddToSystemJournal('Пытаемся рекольнуться'); 
	tmpr := rune; 
	waitgump(IntToStr(tmpr)); 
	wait(1000) 
	UseObject(runebook); 
	***** 
	  запомнили координаты
	mx := GetX(self); 
	my := GetY(self); 
	k := 0; 
	*****
	  10с. отпущено чару на изменение координат(реколл)
	repeat
		wait(500) 
		k := k + 1; 
	until (mx<>GetX(self)) or (my<>GetY(self)) or Dead or (k = 20)
	*****
	  Если через 10с. чар остался на тех-же координатах, он начнет реколится заново!!!! 
	if (mx<>GetX(self)) or (my<>GetY(self)) then Res := 1;<==Выход из цикла реколов только если именились координаты
until Res = 1; 
end;

Если запустить эту процедуру стоя на точке куда должен будет прилететь чар, то бесконечный цикл обеспечен, потому как координаты не изменятся никогда!!!

[important]

Что значит "затем" ? Прилетел в пещеру и продолжает пытаться реколится?
журналы выложи

"Затем" значит, что чар первый раз реколится, обкапывает, летит домой. После выгрузки, летит в пещеру и там до бесконечности реколл...

Используем скрипт из первого поста.

[WladL]

Удалите строку в конце скрипта.

Code: Select all

 ...
        until flag1 = true; 
   recal_rb(r_cave); <====================Удалить строку 
      end; 
      CheckDead; 
   until false; 
End.

[Maruk]

Спасибо все работает, единственное не понимаю для чего:

Code: Select all

RuneHome=$4001E531;       // Rune to fast recall
Recall=$1F4C;            // Type Recall scrolls 

Хотелось бы чтобы он просто пил инвизку и по рунбуке портировался

Code: Select all

vxcol=$FFFF;           // Цвет скрола вортекса
vacol=$FFFF;           // Цвет скрола мас диспела 

Тут наверно тип надо указать ?