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

Помогите доделать скрипт на тейлоринг! Плзз!
http://forum.yoko.com.ua/viewtopic.php?f=20&t=1536		 Page 1 of 1
Author:  Manyak [ 2004-10-05 00:45:07 ]
Post subject:  Помогите доделать скрипт на тейлоринг! Плзз!
Короче нарыл на этом форуме скриптик на тейлоринг рабочий (один из немногих рабочих если честно). Но надо бы чтоб он сделаные бинты скидывал в сундук, тоесть так
Брал из сундука ткань
Делал штаны (long pants)
Резал штаны на бинты
Скидывал бинты в сундук

Скрипт вот


sub main()
UO.CancelMenu()
UO.AutoMenu('Legwear','long pants')
UO.AutoMenu('Cloth','Legwear')

while UO.Count('0x175D')>10
UO.DeleteJournal()
UO.WaitTargetType('0x175D')
UO.UseType('0x0F9D')
while NOT UO.InJournal("You put") AND NOT UO.InJournal("Tailoring failed")
wait(50)
wend

UO.WaitTargetType('0x1539')
UO.UseType('0x0F9E')
wait(2000)
wend
UO.CancelMenu()


end sub

Помогите если не влом! Заранее спасибо :)!
Author:  Sfagnum [ 2004-10-05 08:24:25 ]
Post subject:  Re: Помогите доделать скрипт на тейлоринг! Плзз!
Manyak wrote:
Code:
sub main() 
var idSunduk='...'
   UO.CancelMenu() 
   UO.AutoMenu('Legwear','long pants') 
   UO.AutoMenu('Cloth','Legwear') 
    
   while UO.Count('0x175D')>10 
   UO.DeleteJournal() 
      UO.WaitTargetType('0x175D') 
      UO.UseType('0x0F9D') 
   while NOT UO.InJournal("You put") AND NOT UO.InJournal("Tailoring failed") 
         wait(50) 
   wend 

       UO.WaitTargetType('0x1539') 
      UO.UseType('0x0F9E') 
      wait(2000)
      
      UO.FindType('XxXXXX','-1','backpack')
      if UO.GetQuntity('finditem') > 0 then
             UO.MoveItem('finditem','-1',idSunduk)
      end if

   wend 
   UO.CancelMenu() 
end sub
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/