Yoko

Posted: **2005-08-23 20:08:29**

Прошу написать скрипт на Tailoring.Персонж должен крафтить мешочки из порезанных шкур которые у него в сумке или же в сундуке.Благрдарю заранее.

Posted: **2005-08-24 11:46:29**

Прошу прощения что написал несколько топиков но пожалуйста выложите скрипт

Posted: **2005-08-24 11:55:11**

Вот, шьёт бекпеки.

Code: Select all

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

Posted: **2005-08-24 19:53:33**

Спасибо что ответил но у меня проблема.У меня после того как я загружаю скрипт заместо команды пустое место.Можешь как то помочь?У меня уже такое часто бывало, а у друзей пашет.Я не знаю что делать

.Если знаешь в чём дело и что надо сделать то скажи пожалуйста.

Posted: **2005-08-24 20:07:09**

Такая штука бывает когда Sub пишут с большой буквы. (Например Sub tohide())
Попробуй во всех функциях поставить маленькую букву "s".

Posted: **2005-08-24 20:37:15**

Всё равно заместо команды пустое место. Я уже и инжу и УО переустонавливал.

Posted: **2005-08-24 20:49:29**

Скажу честно почти все твои скрипты у меня так. Я не говорю что ты плохо скрипты пишешь, у моих друзей они работают, но у меня не знаю по какой причине вот такая проблема

.Может можешь у ВЕТЕРАНА попросить этот скрипт написать?

Posted: **2005-08-25 10:34:09**

Да напиши в строчке, где надо выбрать процедуру, taylor и запускай.

Yoko

Скрипт на Tailoring!

Скрипт на Tailoring!