Помогите зацыклить скрипт...

[felkon]

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

Code: Select all

var RuneBook = "0x404CB0E5" # Серийник рунбуки
var Marks = 9 # Количество марков в рунбуке ( первый марк не считается )
var WeightLimit = 850 # Предельный вес
var Container = "0x403A7629" # Сундук

# Дальше не трогать :-)
var MarkNo
var i
var TmpX
var TmpY
var CurX
var CurY
var CurZ
var TileX
var TileY

sub RecallTo( i )
	TmpX = UO.GetX("self")
	TmpY = UO.GetY("self")
	UO.Exec("recall "+RuneBook+" "+STR( i ))
	while TmpX == UO.GetX("self") and TmpY == UO.GetY("self")
		Wait(500)
	wend
end sub

sub GoHome()
	RecallTo( 1 )

	UO.Exec("setreceivingcontainer "+Container)	
	while not UO.Count("0x19b9") == 0
		UO.Exec("waittargettype 0x19b9")
		UO.Exec("grab 0")
		Wait(2000)
	wend
	UO.Exec("unsetreceivingcontainer")	

	RecallTo( MarkNo )
end sub 

sub CheckAction()
	if UO.InJournal("You loosen") then
		return 1
	end if
	if UO.InJournal("You put") then
		return 1
	end if
	if UO.InJournal("no ore") then
		return 1
	end if
	if UO.InJournal("no line") then
		return 1
	end if
	if Uo.InJournal("overclick BUG") then
		return 1
	end if
	if UO.InJournal("too far") then
		return 1
	end if
	if UO.InJournal("You put the Proto") then
		return 1
	end if
	if UO.InJournal("Try mining in rock") then
		return 1
	end if
	if UO.InJournal("Your pickaxe is destroyed") then
		return 1
	end if
	return 0
	wait (1000)
end sub

sub main()
	if not UO.Count("0x0E85") then
		UO.Print("Take some shovel please...")
		return 0
	end if

	UO.DeleteJournal()

	for MarkNo = 2 to ( 1 + Marks )	
		RecallTo( MarkNo )
		Wait( 1000 )

		CurX = UO.GetX("self")
		CurY = UO.GetY("self")
		CurZ = UO.GetZ("self")
		
		
		
		for TileX = -4 to 4
			for TileY = -4 to 4
			
				
				Start:
				
				if NOT UO.Hidden() then
					UO.useskill("Hiding")
					Wait(8000)
					end if
				
				UO.Exec("waittargettile * "+STR( CurX + TileX )+" "+STR( CurY + TileY )+" "+STR( CurZ ))
				UO.Exec("usetype 0x0E85")

				while not CheckAction()
					Wait( 1500 )
				wend		

				if UO.InJournal("You put") then
					if UO.Weight > WeightLimit then
						GoHome()
					end if
					UO.DeleteJournal()
					Wait( 1000 )
					goto Start
				else
					Wait(1000)
				end if

				UO.DeleteJournal()
			next
		next
	next
end sub

Если кто сможе респект тому человеку и уважуха! По всем особенностям шарда и рунбуки расскажу по номеру 177615099.
Предложения по зацикливанию типо

Code: Select all

sub main()
while 1
min()
wend
end sub

не действуют..... Помогите чем можете...

[Mirage]

Это пипец

Code: Select all

var RuneBook = "0x404CB0E5" # Серийник рунбуки
var Marks = 9 # Количество марков в рунбуке ( первый марк не считается )
var WeightLimit = 850 # Предельный вес
var Container = "0x403A7629" # Сундук

# Дальше не трогать :-)
var MarkNo
var i, TmpX, TmpY, CurX, CurY, CurZ, TileX, TileY

sub RecallTo( i )
	TmpX = UO.GetX("self")
	TmpY = UO.GetY("self")
	UO.Exec("recall "+RuneBook+" "+STR( i ))
	while TmpX == UO.GetX("self") and TmpY == UO.GetY("self")
		Wait(500)
	wend
end sub

sub GoHome()
	RecallTo( 1 )

	UO.Exec("setreceivingcontainer "+Container)	
	while not UO.Count("0x19b9") == 0
		UO.Exec("waittargettype 0x19b9") ; <--- вот это тут накой? 
		UO.Exec("grab 0")
		Wait(2000)
	wend
	UO.Exec("unsetreceivingcontainer")	

	RecallTo( MarkNo )
end sub 

sub CheckAction()
	if UO.InJournal("You loosen|You put|no ore|no line|overclick BUG|too far|You put the Proto|Try mining in rock|Your pickaxe is destroyed") then
		return 1
	end if
	return 0
	wait (1000)
end sub

sub main()
	if not UO.Count("0x0E85") then
		UO.Print("Take some shovel please...")
		return 0
	end if

	UO.DeleteJournal()

	for MarkNo = 2 to ( 1 + Marks )	
		RecallTo( MarkNo )
		Wait( 1000 )

		CurX = UO.GetX("self")
		CurY = UO.GetY("self")
		CurZ = UO.GetZ("self")
				
		for TileX = -4 to 4
			for TileY = -4 to 4
						
				Start:
				
				if NOT UO.Hidden() then
					UO.useskill("Hiding")
					Wait(8000)
					end if
				
				UO.Exec("waittargettile * "+STR( CurX + TileX )+" "+STR( CurY + TileY )+" "+STR( CurZ ))
				UO.Exec("usetype 0x0E85")

				while not CheckAction()
					Wait( 500 )
				wend		

				if UO.InJournal("You put") then
					if UO.Weight > WeightLimit then
						GoHome()
					end if
					UO.DeleteJournal()
					Wait( 1000 )
					goto Start ; так нельзя
				else
					Wait(1000)
				end if

				UO.DeleteJournal()
			next
		next
	next
end sub

Предложения по зацикливанию типо

Code: Select all

sub main()
while 1
min()
wend
end sub

[/quote]
предложение БУДЕТ работать если привести скрипт в порядок. А так существует множество скриптов на добычу по принципу:

Code: Select all

sub
указывается тайл
цыкл
пауза пока не (сообщение любое + таймер + проверка на смерть)
пока не (сообщение о том что нет логов\руды + смерть + перегруз)
end.

[felkon]

ну конечно может это и пипец но все же.... У меня нет привязки к тайлам он просто обкапывает вокруг себя все портуется домой при перевесе и опбатно... когда доходит до конца рунбуки (посути должен перейти на начало ... ан нет выбивает ошибку)...

[Mirage]

Привязка к тайлам есть. Просто есть привязка к определенным тайлам а есть к нулевому = все тайлы

когда ты запускаешь скрипт он обкапывает квадрат он же не ходит? Просто с 1 квадрата набирает вес или джет когда будет руда Так?
глюк в цикле получается потому что не обнуляется значение MarkNo.
Оно растет for MarkNo = 2 to ( 1 + Marks ) до предела но чтобы начать с начала оно должно быть минимальным Так?
Следовательно:

Code: Select all

sub main()
repeat 
MarkNo = 2

   if not UO.Count("0x0E85") then
      UO.Print("Take some shovel please...")
      return 0
   end if
   UO.DeleteJournal()
   for MarkNo = 2 to ( 1 + Marks ) 
.....................

   next
until uo.Dead()
end sub

хз. Попробуй вот так.