Поправить сообщения на свои тут:
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:
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