Yoko

Code: Select all

sub FISHING() 
   DIM ULOVtype[4] 
       ULOVtype[0] = '0x09CC'      #fish1 
       ULOVtype[1] = '0x09CD'      #fish2 
       ULOVtype[2] = '0x09CE'      #fish3 
       ULOVtype[3] = '0x09CF'      #fish4 
   VAR udochka   = '0x0DBF' 
   VAR nozh      = '0x0F51' 
   VAR NumTile   = '6043' 
   VAR MaxWeigth = 283 
   VAR i, x, y, k 
   wait(100) 
   UO.Equipt('Rhand', udochka) 
 start: 
   for x=-1 to 1 
      for y=-1 to 1 
         ToHide() 
         UO.Print("!_FISHING_IN_POINT_!: " + str(x) + " " + str(y)) 
         UO.DeleteJournal() 
         while not UO.InJournal("no fish here") and not UO.InJournal("location") and not UO.InJournal("far away") and not UO.InJournal("in water") 
            k = 0 
            if UO.Weight > MaxWeigth then 
               goto finish 
            endif 
            ToHide() 
            UO.DeleteJournal() 
            UO.WaitTargetTile(NumTile, str(UO.GetX()+x), str(UO.GetY()+y), str(UO.GetZ())) 
            UO.UseType(udochka) 
            while not (UO.InJournal("in water") or UO.InJournal("far away") or UO.InJournal("but fail") or UO.InJournal("You pull") or UO.InJournal("no fish here") or UO.InJournal("location") or k==50) 
               k = k + 1 
               wait(100) 
               if UO.InJournal("you fail") then 
                  goto start 
               endif 
            wend 
            if UO.InJournal("You put") then 
               UO.Set('finddistance','0') 
               UO.Ignore('self') 
               UO.FindType('-1', '-1', 'ground') 
               while UO.FindCount() 
                   if uo.GetGraphic('finditem') <> '0x0C2C' and uo.GetGraphic('finditem') <> '0x0DD6' and uo.GetGraphic('finditem') <> '0x1CEF' and uo.GetGraphic('finditem') <> '0x1CF0' and uo.GetGraphic('finditem') <> '0x0E31' and uo.GetGraphic('finditem') <> '0x1717' and uo.GetGraphic('finditem') <> '0x0C16' and uo.GetGraphic('finditem') <> '0x0C1F' and uo.GetGraphic('finditem') <> '0x0C1B' and uo.GetGraphic('finditem') <> '0x1D9F' and uo.GetGraphic('finditem') <> '0x1F5D' and uo.GetGraphic('finditem') <> '0x1DA2' and uo.GetGraphic('finditem') <> '0x1CDD' and uo.GetGraphic('finditem') <> '0x1CE1' and uo.GetGraphic('finditem') <> '0x19AB' and uo.GetGraphic('finditem') <> '0x1F3C' and uo.GetGraphic('finditem') <> '0x0E3E' and uo.GetGraphic('finditem') <> '0x1086' and uo.GetGraphic('finditem') <> '0x0EB2' then 
                    UO.MoveItem('finditem') 
                    wait(200) 
                   else 
                    uo.ignore('finditem') 
                   endif 
                  UO.FindType('-1', '-1', 'ground') 
               wend 
            endif 
         wend 
      next 
   next 
 finish: 
   UO.Print("!_MAX_WEIGHTH_!") 
   wait(100) 
    UO.Print("!_SLICING_FISH_!") 
  for i=0 to 3 
   for k = 1 to 10  #10 iiaoi?ia. 
      if UO.Waiting() then 
         UO.CancelTarget() 
      endif 
      if UO.Count(ULOVtype[i]) then 
         UO.WaitTargetType(ULOVtype[i]) 
         UO.UseType(nozh) 
         wait(200) 
      endif 
   next 
next    
     if UO.Weight < MaxWeigth-5 then 
      goto start 
   endif
   UO.Print("!_FISHING_FINISHES_!") 
endsub 

SUB ToHide() 
while not UO.Hidden() 
UO.Warmode("0") 
uo.print("!_HIDING_!") 
UO.UseSkill("Hiding") 
wait(4000) 
wend 
endsub