Скрипт на добычу.

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
Mirage
Posts: 2802
Joined: 2009-05-28 09:58:28
Location: Иваново
Contact:
Contact Mirage

Скрипт на добычу.

Post by Mirage »

Руда, дрова, рыба. Модуль добычи всего до чего чар сможет дотянуться.
Берем инструменты, идем туда где чтото есть (пещера, лес, водоем) и запускаем соответствующую процедуру.

Не зависим от поворота инструмента. Отмечает тайлы пола и воды чтобы визуально было заметно где скрипт уже прошел. Автоматом определяет инструмент для добычи который находится в рюкзаке. Останавливается если ресурсоносных тайлов нет в пределах досягаемости, либо чар перегружен. Если чар атакован то берет оружие и пытается дать сдачи. Большой список сообщений в журнале - солянка с 4 разных типов серверов.

Требуется протестировать и определить глюки скрипта.
Так же пишите критику и предложения.

Code: Select all

VAR 	Shovel1	= '0x0F39'
VAR 	Shovel2	= '0x0F3A'
VAR 	Pickaxe1	= '0x0E85'
VAR 	Pickaxe2	= '0x0E86'
VAR 	axe1		= '0x0F43'
VAR 	axe2		= '0x0F44'
VAR 	FPole1	= '0x0DBF'
VAR 	FPole2	= '0x0DC0'
VAR 	log		= '0x1BDD'
VAR 	knife		= '0x0F51'
VAR 	Steak		= '0x097A'
var 	weapon	= '0x1404'
var 	Enemy	= '0x00000000'
VAR MaxVes = 550, printcolour = '1069'
VAR delay1 = 100 , delay2 = 300, delay3 = 700
VAR MaxRangeMining = 2, MaxRangeLumber = 3, MaxRangeFishing = 6
VAR X, Y, Z, i, Tiles, Lasttimer, MaxRange, action, timemove
VAR allmsg = 'в черте города|table|attacking you|%|destroyed|broke|useable|put the|is nothing here to mine|Wthere do you|have no line|mining elsewhere|too far away|so close to yourself|Logs|nothing|ou hack at the tree|no logs|no ore|ou can|reach this|hat is too far away|do much|t appears immune to your blow|cannot|fishing elsewhere|too far away|pull out|anything|no fish|0xAD00|0xA867|0xA2DE|0xAD03|0x5DE0|0x5DE1|0x5DE2|0x5DE3|0x5DE4|0x5DE5|0x5DE6|0x5DE7|выкопали|Вы положили|Вам не удалось|У вас нет|ничего|Тут ничего|Попробуйте|атакует|положили|древесина кончилась|дрова|ударили по дереву|ут нечего рубить|ы не можете до этого достать|ерево слишком далеко|то кажется свободным для вашего удара|поймали|не получилось|нету рыбы|месте|далеко|вытащили удочку'
VAR endmsg = 'в черте города|%|destroyed|is nothing here to mine|have no line|Try mining elsewhere|too far away|so close to yourself|nothing|no logs|no ore|ou can|cannot|fishing elsewhere|no fish|0xAD00|0xA867|0xA2DE|Тут ничего|нет руды|У вас нет|Попробуйте|древесина кончилась|ут нечего рубить|ы не можете до этого достать|ерево слишком далеко|свободным для вашего удара|нету рыбы|в другом месте|далеко|вытащили удочку'
VAR mX = UO.GetX('self'), mY = UO.GetY('self'), mZ = UO.GetZ('self')

sub Mining()
	UO.SetGlobal('action','1')
	UO.SetGlobal('MaxRange','2')
	uo.mfgi( 'resend' )
	extraction()
end sub
sub Lumber()
	UO.SetGlobal('action','2')
	UO.SetGlobal('MaxRange','3')
	uo.mfgi( 'resend' )
	extraction()
end sub
sub Fishing()
	UO.SetGlobal('action','3')
	UO.SetGlobal('MaxRange','6')
	uo.mfgi( 'resend' )
	extraction()
end sub

Sub extraction()
	for Y = -val(uo.GetGlobal('MaxRange')) to val(uo.GetGlobal('MaxRange'))
		for X = -val(uo.GetGlobal('MaxRange')) to val(uo.GetGlobal('MaxRange'))
			if val(uo.GetGlobal('action')) == 1 then
				Tiles = MiningTiles(mX+X, mY+Y)
			else
				if val(uo.GetGlobal('action')) == 2 then
					Tiles = Tree(mX+X, mY+Y)
				else
					Tiles = FishTiles(mX+X, mY+Y)
					mZ = 251
				end if
			end if
			if Tiles then
				repeat
					CheckAll()
					UO.DeleteJournal()
					UO.WaitTargetTile(Tiles, mX+X, mY+Y, mZ)
					Tools()
					LastTimer=UO.Timer()
					repeat
						wait( delay1 )
					until UO.InJournal( allmsg ) || UO.Timer()>LastTimer+delay2 || UO.Weight > MaxVes || UO.Dead()
					CheckAll()
				until UO.InJournal( endmsg ) || UO.Timer()>LastTimer+delay3 || UO.Weight > MaxVes || UO.Dead()
				uo.mfgi( 'add', '6017', mX+X, mY+Y, mZ )
			end if 
		next
	next
	UO.Set('quiet','0')
	uo.charprint('self',printcolour, 'ВСЕ!')
	UO.Sound(100)
end sub
Sub CheckAll()
	UO.Set('quiet','1')
	if UO.InJournal('is attacking you') then 
		Enemy = UO.JournalSerial(UO.InJournal("is attacking you")-1) 
		DeleteJournal('is attacking you')
		Gong(1)
		uo.Usetype( weapon )
		UO.Attack( Enemy )
		LastTimer=UO.Timer()
		repeat
			wait( delay2 )
		until uo.dead() or uo.GetX(Enemy)==0 || UO.Timer()>LastTimer+delay2
		uo.Warmode(0)
		wait(delay2)
	end if 
	If UO.Life < Uo.Str/10 then
		UO.Set('quiet','0')
		uo.charprint('self',printcolour, 'Умираю!')
		MyTerminate()
	endif
	If UO.Weight > MaxVes Then
		UO.Set('quiet','0')
		uo.charprint('self',printcolour, 'Перегруз!')
		MyTerminate()
	endif
	if uo.Warmode()==1 then
		uo.Warmode(0)
		wait(delay2)
	end if
	DIM Fish[5]
	Fish[1]  = '0x09CC'   ; тип рыбы 1
	Fish[2]  = '0x09CD'   ; тип рыбы 2
	Fish[3]  = '0x09CE'   ; тип рыбы 3
	Fish[4]  = '0x09CF'   ; тип рыбы 4
	For i=1 To 4
		UO.FindType( Fish[i], -1, 'ground' )
		If UO.FindCount() > 0 Then
			timemove=UO.Timer()
			while UO.ContainerOf( UO.GetSerial('finditem') )=='0xFFFFFFFF' && timemove+20>UO.Timer() 
				uo.MoveItem('finditem',0,'backpack')
				wait(delay1)
			wend
			if uo.count( knife ) then 
				UO.WaitTargetObject( 'finditem' )
				UO.UseType( knife )
				while UO.Count( Fish[i] )
					wait( delay1 )
				wend
				UO.FindType( Steak )
				while UO.FindCount()>1
					UO.MoveItem( 'finditem', '0' , 'backpack' )
					wait( delay1 )
					UO.FindType( Steak )
				wend
			endif
		endif
	Next
	if UO.InJournal('в черте города') then 
		DeleteJournal('в черте города')
		uo.charprint('self',printcolour, 'Ресурсы тут добывать нельзя!')
		MyTerminate()
	end if 
end sub
Sub Tools()
	if val(uo.GetGlobal('action')) == 1 then
		if UO.Count(Shovel1) then
			UO.UseType(Shovel1)
			return
		else
			if UO.Count(Shovel2) then
				UO.UseType(Shovel2)
				return
			else
				if UO.Count(Pickaxe1) then
					UO.UseType(Pickaxe1)
					return
				else
					if UO.Count(Pickaxe2) then
						UO.UseType(Pickaxe2)
						return
					else
						UO.Set('quiet','0')
						uo.charprint('self',printcolour, 'Нечем копать!')
						MyTerminate()
					endif
				endif
			endif
		endif
	else
		if val(uo.GetGlobal('action')) == 2 then
			if UO.Count(axe1) || UO.Count(axe2) then
				if UO.Count(axe1) then
					UO.UseType(axe1)
					return
				else
					UO.UseType(axe2)
					return
				endif
			else
				UO.Set('quiet','0')
				uo.charprint('self',printcolour, 'Нечем рубить!')
				MyTerminate()
			endif
		else
			if UO.Count( FPole1 ) || UO.Count( FPole2 ) then
				if UO.Count( FPole1 ) then
					UO.UseType( FPole1 )
					return
				else
					UO.UseType( FPole2 )
					return
				endif
			else
				uo.charprint('self',printcolour, 'Нечем ловить рыбу!')
				MyTerminate()
			endif
		end if
	end if
end sub
Sub MiningTiles(X,Y)
	if UO.PrivateGetTile(X, Y, -1, 616, 618) then
		for i=616 to 618
			if UO.PrivateGetTile(X, Y, -1, i, i) then
				return i
			end if
		next
	end if
	if UO.PrivateGetTile(X, Y, -1, 1339, 1363) then
		for i=1339 to 1363
			if UO.PrivateGetTile(X, Y, -1, i, i) then
				return i
			end if
		next
	end if
	if UO.PrivateGetTile(X, Y, -1, 2272, 2282) then
		for i=2272 to 2282
			if UO.PrivateGetTile(X, Y, -1, i, i) then
				return i
			end if
		next
	end if
	if UO.PrivateGetTile(X, Y, -1, 4963, 4973) then
		for i=4963 to 4973
			if UO.PrivateGetTile(X, Y, -1, i, i) then
				return i
			end if
		next
	end if
	if UO.PrivateGetTile(X, Y, -1, 6001, 6012) then
		for i=6001 to 6012
			if UO.PrivateGetTile(X, Y, -1, i, i) then
				return i
			end if
		next
	end if
	if UO.PrivateGetTile(X, Y, -1, 13121, 13369) then
		for i=13121 to 13369
			if UO.PrivateGetTile(X, Y, -1, i, i) then
				return i
			end if
		next
	end if
	if UO.PrivateGetTile(X, Y, -1, 13446, 13455) then
		for i=13446 to 13455
			if UO.PrivateGetTile(X, Y, -1, i, i) then
				return i
			end if
		next
	end if
	if UO.PrivateGetTile(X, Y, -1, 13484, 13492) then
		for i=13484 to 13492
			if UO.PrivateGetTile(X, Y, -1, i, i) then
				return i
			end if
		next
	end if
	if UO.PrivateGetTile(X, Y, -1, 13625, 13628) then
		for i=13625 to 13628
			if UO.PrivateGetTile(X, Y, -1, i, i) then
				return i
			end if
		next
	end if
	return 0
end sub
Sub Tree(X,Y)
	DIM  R[34]
	R[1] = 3274;
	R[2] = 3275;
	R[3] = 3276;
	R[4] = 3277;
	R[5] = 3280;
	R[6] = 3283;
	R[7] = 3286;
	R[8] = 3288;
	R[9] = 3290;
	R[10] = 3293;
	R[11] = 3296;
	R[12] = 3299;
	R[13] = 3302;
	R[14] = 3320;
	R[15] = 3323;
	R[16] = 3326;
	R[17] = 3329;
	R[18] = 3393;
	R[19] = 3394;
	R[20] = 3395;
	R[21] = 3396;
	R[22] = 3415;
	R[23] = 3416;
	R[24] = 3417;
	R[25] = 3418;
	R[26] = 3419;
	R[27] = 3438;
	R[28] = 3439;
	R[29] = 3440;
	R[30] = 3441;
	R[31] = 3442;
	R[32] = 3460;
	R[33] = 3461;
	R[34] = 3462;
	for i = 1 to 34
		if uo.privategettile( x, y, -1, R[i], R[i]) then
			return R[i]
		endif
	next
	return false
end sub
Sub FishTiles(X,Y)
	if UO.PrivateGetTile(X, Y, -1, 6038, 6066) then
		for i=6038 to 6066
			if UO.PrivateGetTile(X, Y, -1, i, i) then
				return i
			end if
		next
	end if
	return 0
end sub
Sub Gong(times)
	VAR i
	for i=1 to times
		UO.Exec("playwav d:\Games\Ultima\GMYokoInjection\ALARM")
		wait(200)
	next
end sub
Sub DeleteJournal(msg)
	While UO.InJournal(msg)
		UO.SetJournalLine(UO.InJournal(msg) - 1,'')
	wend
endsub
Sub MyTerminate()
	UO.Set('quiet','1')
	UO.CancelMenu()
	UO.IgnoreReset()
	UO.Set('quiet','0')
	UO.Exec('terminate all')
end sub
Sub checklag()
	DeleteJournal("ackpack")
	UO.Click("backpack")
	repeat
		wait(100)
	until UO.InJournal("ackpack")
end sub
sub clean()
	var m = 50
	for Y = -m to m
		for X = -m to m
			uo.mfgi( 'clear', mX+X, mY+Y, mZ )
		next
	next
end sub
PS Создавал специально для шарда Антарес на котором и тестировался. Для Бестовцев - убрал то что у вас запрещено, сори. :roll:

PPS Если скрипт вообще не начинает копать или рубить или ловить - проблема в типах тайлов (ОЧЕНЬ маловероятная ситуация).
Если скрипт добывает ресурс 1 раз и встает надо посмотреть последнее сообщение прошедшее при добыче ресурса и добавить его в VAR allmsg = . Не целиком - можно кусок сообщения (см. пример в самом скрипте)
Если скрипт завершает добычу в одной точке и встает - надо последнее сообщение вписать в VAR endmsg = .
Top
Андрюха из Одессы
Posts: 164
Joined: 2009-03-21 10:03:06
Location: Одесса-Мама
Contact:
Contact Андрюха из Одессы

Re: Скрипт на добычу.

Post by Андрюха из Одессы »

С удовольствием помогу.
Спасибо всем, у кого учился!

Меня трудно найти, легко потерять, и невозможно забыть. Я - рабочий исходник!
Top
sluntai
Posts: 66
Joined: 2008-05-13 17:04:26

Re: Скрипт на добычу.

Post by sluntai »

у меня в лесу один раз камень капнет и встает(((
Top
Mirage
Posts: 2802
Joined: 2009-05-28 09:58:28
Location: Иваново
Contact:
Contact Mirage

Re: Скрипт на добычу.

Post by Mirage »

Проблему определил, скрипт исправил. Не хватало одного сообщения - давно видимо по ненадобности стер. Теперь отлично работает на твоем сервере.
То что не ВЕЗДЕ копает. Тут фишка в следующем. Есть два вида камней и деревьев - статические, которые нарисованы на карте мира и прописаны в скрипте сервера что ВОТ ЭТОТ УЧАСТОК МОЖНО КОПАТЬ/РУБИТЬ и динамические, расставленные админами объекты - аналоги мебели в домах. Первые определяются по тайлу - картинке, вторые по типу объекта. Данный скрипт рассчитан только на работу со статикой - тайлами. Это все шахты, все лесные кочки. Но например руками добавленный валун им копаться не будет. чтобы работать с динамическими объектами скрипт надо на треть переписывать. Пока не вижу смысла - динамика на шардах скорее исключение, и добыча из нее продукции скорее уникальность шарда.

PS динамику от статики можно отличить по 2 признакам.
1) при наведении на него курсора объект подсвечивается
2) ,info показывает тип не равный 0x0000

статику можно посмотреть через ,infotile
Top
sluntai
Posts: 66
Joined: 2008-05-13 17:04:26

Re: Скрипт на добычу.

Post by sluntai »

Mirage wrote:Проблему определил, скрипт исправил. Не хватало одного сообщения - давно видимо по ненадобности стер. Теперь отлично работает на твоем сервере.
То что не ВЕЗДЕ копает. Тут фишка в следующем. Есть два вида камней и деревьев - статические, которые нарисованы на карте мира и прописаны в скрипте сервера что ВОТ ЭТОТ УЧАСТОК МОЖНО КОПАТЬ/РУБИТЬ и динамические, расставленные админами объекты - аналоги мебели в домах. Первые определяются по тайлу - картинке, вторые по типу объекта. Данный скрипт рассчитан только на работу со статикой - тайлами. Это все шахты, все лесные кочки. Но например руками добавленный валун им копаться не будет. чтобы работать с динамическими объектами скрипт надо на треть переписывать. Пока не вижу смысла - динамика на шардах скорее исключение, и добыча из нее продукции скорее уникальность шарда.

PS динамику от статики можно отличить по 2 признакам.
1) при наведении на него курсора объект подсвечивается
2) ,info показывает тип не равный 0x0000

статику можно посмотреть через ,infotile
Миражик...Я вот сейчас только опробовал его на ламбере,он одно дерево рубит и отключается..Кстати капает зачетно:)Фишинг еще не тестил.
Top
Mirage
Posts: 2802
Joined: 2009-05-28 09:58:28
Location: Иваново
Contact:
Contact Mirage

Re: Скрипт на добычу.

Post by Mirage »

PPS Если скрипт вообще не начинает копать или рубить или ловить - проблема в типах тайлов (ОЧЕНЬ маловероятная ситуация).
Если скрипт добывает ресурс 1 раз и встает надо посмотреть последнее сообщение прошедшее при добыче ресурса и добавить его в VAR allmsg = . Не целиком - можно кусок сообщения (см. пример в самом скрипте)
Если скрипт завершает добычу в одной точке и встает - надо последнее сообщение вписать в VAR endmsg = .
Top
sluntai
Posts: 66
Joined: 2008-05-13 17:04:26

Re: Скрипт на добычу.

Post by sluntai »

Mirage wrote:PPS Если скрипт вообще не начинает копать или рубить или ловить - проблема в типах тайлов (ОЧЕНЬ маловероятная ситуация).
Если скрипт добывает ресурс 1 раз и встает надо посмотреть последнее сообщение прошедшее при добыче ресурса и добавить его в VAR allmsg = . Не целиком - можно кусок сообщения (см. пример в самом скрипте)
Если скрипт завершает добычу в одной точке и встает - надо последнее сообщение вписать в VAR endmsg = .

Фишинг.Перс рыбачит примерно 1 минуту после вылетает ошибка Unhandled exception in paster
В ламбере рубит все то до чего может дотянуться после пишет:There nothing here to chop.И не переходит к следующему тайлу(((
Top
Mirage
Posts: 2802
Joined: 2009-05-28 09:58:28
Location: Иваново
Contact:
Contact Mirage

Re: Скрипт на добычу.

Post by Mirage »

для устранения Unhandled exception in parser (!) надо прочитать и использовать это:
1)CPUFix2
2)Dual Core Launcher

все то до чего может дотянуться - И не переходит к следующему тайлу
в таком виде это взаимоисключающие факты.
до чего может дотянутся - 1 дерево или все деревья вокруг?
не переходит - до следующего дерева или не перемещается? Если не перемещается то тут проблема с ходилкой. Которой в этом скрипте нет :)
Top
sluntai
Posts: 66
Joined: 2008-05-13 17:04:26

Re: Скрипт на добычу.

Post by sluntai »

Mirage wrote:для устранения Unhandled exception in parser (!) надо прочитать и использовать это:
1)CPUFix2
2)Dual Core Launcher

все то до чего может дотянуться - И не переходит к следующему тайлу
в таком виде это взаимоисключающие факты.
до чего может дотянутся - 1 дерево или все деревья вокруг?
не переходит - до следующего дерева или не перемещается? Если не перемещается то тут проблема с ходилкой. Которой в этом скрипте нет :)
Да он просто не двигается после того как вырубит все до чего может дотянуться..Ты бы не мог добавить к своему скрипту ходилку,был бы абсолютно лучший скрипт на добычу:) :oops:
Top
Gromiz
Posts: 444
Joined: 2005-02-08 18:39:50
Location: Moscow

Re: Скрипт на добычу.

Post by Gromiz »

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


по рыбалке:
не хвататет еще одного сообщения до кучи: "Try fishing"
сообщение вылетает, когда чар пытается не в воде ловить.
Top
Mirage
Posts: 2802
Joined: 2009-05-28 09:58:28
Location: Иваново
Contact:
Contact Mirage

Re: Скрипт на добычу.

Post by Mirage »

По идеи он не должен ловить НЕ в воде :) В этом и была задача - обрабатываются только нужные типы тайлов :)
Возможно что то с координатой Z не так.
Top
Gromiz
Posts: 444
Joined: 2005-02-08 18:39:50
Location: Moscow

Re: Скрипт на добычу.

Post by Gromiz »

может и так, ловлю на пристани с пришвартованными кораблями
Top
Gromiz
Posts: 444
Joined: 2005-02-08 18:39:50
Location: Moscow

Re: Скрипт на добычу.

Post by Gromiz »

кстати, в скрипте "UO.Sound(100)" пищать должно или что? а то тишина
Top
Mirage
Posts: 2802
Joined: 2009-05-28 09:58:28
Location: Иваново
Contact:
Contact Mirage

Re: Скрипт на добычу.

Post by Mirage »

1) должно мычать :roll:
2) если есть sound.mul
3) включена громкость на компе
4) есть и включены колонки
5) не ковырялся гвоздиком в ухе... :?
Top
Gromiz
Posts: 444
Joined: 2005-02-08 18:39:50
Location: Moscow

Re: Скрипт на добычу.

Post by Gromiz »

хмм, все есть), но не беда сделаем строчку с путем к файлу
Top
-=WOLVERINE=-
Posts: 66
Joined: 2004-05-27 18:19:17
Contact:
Contact -=WOLVERINE=-

Re: Скрипт на добычу.

Post by -=WOLVERINE=- »

Мои вам респект за работу, сам не тестил, бегло просмотрел код, но сама задумка грандиозна и великолепна!Совершенствуйтесь!Удачных задумок в будущем!
Top
Андрюха из Одессы
Posts: 164
Joined: 2009-03-21 10:03:06
Location: Одесса-Мама
Contact:
Contact Андрюха из Одессы

Re: Скрипт на добычу.

Post by Андрюха из Одессы »

Code: Select all

|0xA312|0xA30F|0xA30D|0xA197|0x05BD

Code: Select all

R[35] = 3289;
   for i = 1 to 35
Если еще что-то нарою, отпишусь.
Спасибо всем, у кого учился!

Меня трудно найти, легко потерять, и невозможно забыть. Я - рабочий исходник!
Top
Post Reply

Return to “Scripting Ore”