Yoko
http://forum.yoko.com.ua/

SOS!!!
http://forum.yoko.com.ua/viewtopic.php?f=20&t=3634		 Page 1 of 1
Author:  -Anzi- [ 2005-04-09 02:35:24 ]
Post subject:  SOS!!!
Ребят, не могли бы вы помочь, мне срочно нужен скрипт на переработку Хлопка в Нитки
Суть скрипта: чтобы брал из сундука 100 хлопка перерабатывал в нитки и кидал их обратно в сундук...
Реально ли так сделать :?:

За рание Спасибо!
Author:  Edred [ 2005-04-09 10:55:36 ]
Post subject: 
Наверняка. Но у меня на шарде нет ни хлопка, ни ниток. :shock:
Author:  -Anzi- [ 2005-04-09 10:59:13 ]
Post subject: 
Edred wrote:
Наверняка. Но у меня на шарде нет ни хлопка, ни ниток. :shock:

Досадно...
Author:  Savage [ 2005-04-09 13:17:16 ]
Post subject: 
Code:
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
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/