Скрипт на Blacksmith

[Maxik]

Народ выложите плиз скрипт чтобы мой чар ковал дагеры.Заранее спасибо

[Mirage]

Code: Select all

sub Dagger()
       UO.WaitMenu ('Blacksmithing', 'Weapons', 'Fencing', 'Dagger' )
       UO.Waittargettype ( '0x1BEF' )
       UO.Usetype('0x0FB4')
       wait(5000)
end sub

пожалуйста.

[Nmy]

Code: Select all

sub Dagger()
       UO.WaitMenu ('Blacksmithing', 'Weapons', 'Fencing', 'Dagger' )
       UO.Waittargettype ( '0x1BEF' )
       UO.Usetype('0x0FB4')
       wait(5000)
end sub

пожалуйста.

+1

[Savage]

Кстати, я тут заметил, что для уменьшения крашей полезно в повторяющихся операциях крафта использовать автоменю.

[Mirage]

Если надо сделать штук 10 предметов то проще (короче) вейтом. А так на длинноработающих скриптах стоит автоменю у меня лично

Code: Select all

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