Yoko

Code: Select all

sub Cloth()
   UO.Print("SELECT YOU CHEST")
   UO.Exec('addobject Chest')
   While UO.Targeting()
      Wait(300)
   Wend
   UO.Set('grabdelay',STR(GrabDelay))
   UO.UseObject('Chest')
   REPEAT
      If UO.Count(Bolts) Then
         UO.WaitTargetType(Bolts,'-1')
         UO.UseType('0x0F9E')
         UO.DeleteJournal()
         REPEAT
            Wait(300)
         Until UO.InJournal("You put") or UO.Dead()
      EndIf
      UO.FindType(Cloth,'-1','1')
      If UO.FindCount() Then
         UO.MoveItem('finditem','all','Chest')
         Wait(1000)
      EndIf
      UO.FindType(Bolts,'-1','Chest')
      While UO.GetQuantity('finditem')==0
         UO.Print("ERROR: Low quantity of the Bolts of cloth!!!")
         Wait(5000)
         UO.FindType(Bolts,'-1','Chest')
      Wend
      UO.MoveItem('finditem',CountBolts,'-1')
      Wait(1000)
   Until UO.Dead()
end sub

Code: Select all

sub Cloth()
   UO.Print("SELECT YOU CHEST")
   UO.Exec('addobject Chest')
   While UO.Targeting()
      Wait(300)
   Wend
   UO.Set('grabdelay',STR(GrabDelay))
   UO.UseObject('Chest')
   Wait(300)
   REPEAT
      UO.FindType(Bolts,'-1','Chest')
      While UO.GetQuantity('finditem')==0
         UO.Print("ERROR: Low quantity of the Bolts of cloth!!!")
         Wait(5000)
         UO.FindType(Bolts,'-1','Chest')
      Wend
      UO.MoveItem('finditem',CountBolts,'backpack')
      Wait(1000)
      If UO.Count(Bolts) Then
         UO.DeleteJournal()
         UO.WaitTargetType(Bolts)
         UO.UseType('0x0F9E')
         REPEAT
            Wait(300)
         Until UO.InJournal("You put") or UO.Dead()
      EndIf
      UO.FindType(Cloth,'-1','backpack')
      If UO.FindCount() Then
         UO.MoveItem('finditem',0,'Chest')
         Wait(1000)
      EndIf
   Until UO.Dead()
end sub