SOS!!!

-Anzi- · Post by **-Anzi-** » 2005-04-09 02:35:24

Ребят, не могли бы вы помочь, мне срочно нужен скрипт на переработку Хлопка в Нитки
Суть скрипта: чтобы брал из сундука 100 хлопка перерабатывал в нитки и кидал их обратно в сундук...
Реально ли так сделать :?:

За рание Спасибо!

Edred · Post by **Edred** » 2005-04-09 10:55:36

Наверняка. Но у меня на шарде нет ни хлопка, ни ниток. :shock:

-Anzi- · Post by **-Anzi-** » 2005-04-09 10:59:13

Edred wrote:Наверняка. Но у меня на шарде нет ни хлопка, ни ниток.

Досадно...

Savage · Post by **Savage** » 2005-04-09 13:17:16

Code: Select all

sub Spool()
   VAR Spool='0x0FA0', Hlopok='0x0DF9', Cont='0x405D148A', Stanok='0x41691939',i

   While NOT UO.Dead()
      UO.FindType(Hlopok,-1,Cont)
      UO.Grab(STR(80),'finditem')
      For i=0 to 79
         CheckLag()
         UO.WaitTargetObject(Stanok)
         UO.UseType(Hlopok)
         wait(3000)
      Next
      UO.SetReceivingContainer(Cont)
      UO.FindType(Spool,-1,'backpack')
      UO.Grab('all','finditem')
      UO.UnSetReceivingContainer(Cont)
   Wend
end sub


sub Cloth()
   VAR Spool='0x0FA0', Clotch='0x0DF9', Bolt='0x0F95'
   VAR Cont='0x405D148A', Stanok='0x4133B797',i
   
   While NOT UO.Dead()
      UO.UnSetCatchBag(Cont)
      UO.FindType(Spool,-1,Cont)
      UO.Grab(STR(10),'finditem')
      For i=0 to 9
         CheckLag()
         UO.WaitTargetObject(Stanok)
         UO.UseType(Spool)
      Next
      wait(1000)
      UO.SetCatchBag(Cont)
      UO.FindType(Bolt,-1,'my')
;      UO.Grab('all','finditem')
      UO.WaitTargetObject('finditem')
      UO.UseObject('0x40B421C8') ;scisors
      wait(2000)
      UO.UnSetCatchBag(Cont)
   Wend
end sub