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

Скрипт на Blacksmith
http://forum.yoko.com.ua/viewtopic.php?f=17&t=15405		 Page 1 of 1
Author:  Maxik [ 2009-12-30 12:29:43 ]
Post subject:  Скрипт на Blacksmith
Народ выложите плиз скрипт чтобы мой чар ковал дагеры.Заранее спасибо
Author:  Mirage [ 2009-12-30 15:19:44 ]
Post subject: 
Code:
sub Dagger()
       UO.WaitMenu ('Blacksmithing', 'Weapons', 'Fencing', 'Dagger' )
       UO.Waittargettype ( '0x1BEF' )
       UO.Usetype('0x0FB4')
       wait(5000)
end sub
пожалуйста. :lol:
Author:  Nmy [ 2009-12-30 18:54:06 ]
Post subject: 
Mirage wrote:
Code:
sub Dagger()
       UO.WaitMenu ('Blacksmithing', 'Weapons', 'Fencing', 'Dagger' )
       UO.Waittargettype ( '0x1BEF' )
       UO.Usetype('0x0FB4')
       wait(5000)
end sub
пожалуйста. :lol:

+1 :lol:
Author:  Savage [ 2009-12-31 09:28:28 ]
Post subject: 
Кстати, я тут заметил, что для уменьшения крашей полезно в повторяющихся операциях крафта использовать автоменю.
Author:  Mirage [ 2009-12-31 14:03:30 ]
Post subject: 
Если надо сделать штук 10 предметов то проще (короче) вейтом. А так на длинноработающих скриптах стоит автоменю у меня лично :)
Code:
sub BSDagger()
   UO.Set('quiet','1')
   UO.CancelMenu()
   UO.AutoMenu('Blacksmithing','Weapons')
   UO.AutoMenu('Weapons','Fencing')
   UO.AutoMenu('Fencing','Dagger')
   UO.Set('quiet','0')
WHILE NOT UO.Dead()
UO.FindType( Meshok, '-1', Sunduk1 )
MeshSer = UO.GetSerial( 'finditem' )
UO.MoveItem( MeshSer, 0, Sunduk2 )
checklag()
uo.useobject( MeshSer )
eat()
  REPEAT
   GET(ing, Container, 20, 100) 
   Repeat
    if HIDE then
       Hide()
    endif
         UO.DeleteJournal()
         LastTimer=UO.Timer()
         UO.Waittargettype ( Ing )
         UO.Usetype(0x0FB4)
         repeat
            wait(50)
         until UO.InJournal("The item|You put|положили|fail|не удалось|You broke|сломали") or UO.Timer()>LastTimer+150
   Until UO.Count( Dagger ) > 0
checklag()
   PUT( Dagger, MeshSer )
     UO.FindType( Dagger, -1, MeshSer )
     UO.Print('Кинжалов в мешке: '+Str( UO.FindCount()))
  UNTIL UO.FindCount()>=coldagger
UO.Print('Берем другую сумку')
wait( 300 )
wend
end sub
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/