Помогите ......

[megafakel]

Здрасти помогите плз зделать скрипт каторый просто ловит рубы вокруг плота плывет останавливается опять ловит вокруг плота и так бесконечно...ПОМОГИТЕ ПОЖАЛУЙСТА

[Scripts Writer]

возьми обычный скрипт на фишинг и добавь плыть вперёд...

[Sfagnum]

мля МОДЕРЫ! какого хера этот топик тут делает с таким названием?!?!?!

[megafakel]

А скинь плз?а там я уже добавлю

[Savage]

Поправить сообщения на свои тут:
until UO.InJournal("Try fishing|You pull out|You fish a while|There are no|Âû|Serpent")

и тут:
until UO.InJournal("Try fishing|There are no|Serpent")

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

Code: Select all

sub Fishing()
	While True
		FishAround(700,6,UO.GetX(),UO.GetY())
		UO.Say('Unfurl Sail')
		wait(20000)
		UO.Say('Stop')
	Wend
end sub


sub FishAround(MaxWeight,MaxDistance,BaseX,BaseY)
	VAR x,y,z='0',TileNum='0'
	VAR Last=0,LastTimer
	VAR FishingPole='0x0DBF'

	For x=-MaxDistance to MaxDistance
		For y=-MaxDistance to MaxDistance
			Repeat
				CheckLag() ; deleting journal
				ToHide()
				
				UO.WaitTargetTile(TileNum,STR(UO.GetX()+x),STR(UO.GetY()+Y),z)
				UO.UseType(FishingPole)


				repeat
					wait(300)
				until UO.InJournal("Try fishing|You pull out|You fish a while|There are no|Âû|Serpent")

				if UO.InJournal('treasure map') then
					UO.WaitTargetGround('0x14EB')
					wait(1000)
					UO.Grab('all')
				endif

				if UO.Weight>=MaxWeight then
					unloadmap()
				endif
			until UO.InJournal("Try fishing|There are no|Serpent")
		Next
	Next
end sub


sub decode()
	VAR Exit
	UO.AddObject('MapContainer')
	UO.Print("V kakoy meshok skladivat`?")
	While UO.Targeting()==2
		wait(500)
	Wend
	
	Exit=0
	While Exit<>1
		UO.FindType('0x14EB',-1,'backpack')
		If UO.GetQuantity('finditem')>0 Then
			UO.UseObject('finditem')
;			wait(2000)
			CheckLag()
			UO.MoveItem('finditem',1,'MapContainer')
			wait(1000)
		Else
			Exit=1
		Endif
	Wend
end sub


#==============================================================
#  tohide() - try hidding char. When char lose HP, drink inviz
#             potion if it found in backpack
#
#  Journal has been deleted!!!
#--------------------------------------------------------------
sub tohide()
	while NOT UO.Hidden()
		UO.DeleteJournal()
		UO.FindType('0x0F0E','0x0631','my')

		if UO.Life<UO.STR/2 AND UO.GetQuantity('finditem')>0 then
			UO.UseType('0x0F0E','0x0631') ; inviz potion
			UO.Exec('warmode 0')
			wait(2000)
		else
			UO.Exec('warmode 0')
			UO.UseSkill('Stealth')
			repeat
				wait(50)
			until UO.InJournal('You have hidden') OR UO.InJournal('seem to hide') OR UO.InJournal('preoccupied')
		endif
	wend
end sub


#==============================================================
#  CheckLag() - click on backpack and awaiting "backpack"
#               message in journal.
#
#  Journal has been deleted!!!
#--------------------------------------------------------------
sub CheckLag()
	UO.DeleteJournal()
	UO.Click('backpack')

	repeat
		wait(500)
	until UO.InJournal('backpack')
end sub

[Destruction]

мля МОДЕРЫ! какого хера этот топик тут делает с таким названием?!?!?!

Меня ждёт.