Yoko

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