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

Скрипт на Tailoring!
http://forum.yoko.com.ua/viewtopic.php?f=20&t=4918		 Page 1 of 1
Author:  Danik15 [ 2005-08-23 20:08:29 ]
Post subject:  Скрипт на Tailoring!
Прошу написать скрипт на Tailoring.Персонж должен крафтить мешочки из порезанных шкур которые у него в сумке или же в сундуке.Благрдарю заранее.
Author:  Danik15 [ 2005-08-24 11:46:29 ]
Post subject: 
Прошу прощения что написал несколько топиков но пожалуйста выложите скрипт :(
Author:  Leo [ 2005-08-24 11:55:11 ]
Post subject: 
Вот, шьёт бекпеки.
Code:
sub taylor() 
   VAR Cont='0x4037E83B' ##откуда берём кожу
   VAR Trash='0x40024DBA' ##куда суём готовую продукцию
   VAR Bag='0x0E75' ##тип того, что сшили

   while NOT UO.Dead() 
      ToHide() 

      UO.FindType('0x1067','0x0000','backpack') 
      if UO.GetQuantity('finditem')<4 then 
         UO.UseObject(Cont) 
         UO.FindType('0x0E21','0x0000','backpack') 
         if UO.GetQuantity('finditem')>0 then 
            UO.SetReceivingContainer(Cont) 
            wait(1000) 
            UO.Grab('all','finditem') 
            wait(1000) 
            UO.UnSetReceivingContainer() 
         Endif 
        
         UO.FindType('0x1067','0x0000',Cont) 
         wait(1000) 
         UO.Grab('600','finditem') 
         wait(1000) 
      endif 
        
      CheckLag() 
        
      UO.WaitMenu('Leather','Misc','Packs','backpack')
      UO.WaitTargetType('0x1067') 
      UO.UseType('0x0F9D') 
      UO.DeleteJournal() 
      wait(1000) 
        
      repeat 
         wait(100) 
      until UO.InJournal('fail') or UO.InJournal('put') 
      UO.DeleteJournal() 
        
      uo.findtype(Bag,'0x0000','backpack') 
      wait(100) 
      if UO.GetQuantity('finditem')>0  then 
      uo.moveitem('finditem','-1',Trash) 
       wait(500) 
      endif 
   wend 
endsub 

Sub tohide() 
   while NOT UO.Hidden() 
      UO.DeleteJournal() 
         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 

Sub CheckLag() 
   UO.DeleteJournal() 
   UO.Click('backpack') 
   repeat 
      wait(50) 
   until UO.InJournal('backpack') 
end sub
Author:  Danik15 [ 2005-08-24 19:53:33 ]
Post subject: 
Спасибо что ответил но у меня проблема.У меня после того как я загружаю скрипт заместо команды пустое место.Можешь как то помочь?У меня уже такое часто бывало, а у друзей пашет.Я не знаю что делать :cry: .Если знаешь в чём дело и что надо сделать то скажи пожалуйста.
Author:  Leo [ 2005-08-24 20:07:09 ]
Post subject: 
Такая штука бывает когда Sub пишут с большой буквы. (Например Sub tohide())
Попробуй во всех функциях поставить маленькую букву "s".
Author:  Danik15 [ 2005-08-24 20:37:15 ]
Post subject: 
Всё равно заместо команды пустое место. Я уже и инжу и УО переустонавливал.
Author:  Danik15 [ 2005-08-24 20:49:29 ]
Post subject: 
Скажу честно почти все твои скрипты у меня так. Я не говорю что ты плохо скрипты пишешь, у моих друзей они работают, но у меня не знаю по какой причине вот такая проблема :( .Может можешь у ВЕТЕРАНА попросить этот скрипт написать?
Author:  Leo [ 2005-08-25 10:34:09 ]
Post subject: 
Да напиши в строчке, где надо выбрать процедуру, taylor и запускай.
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/