Yoko

sub bs()
repeat
UO.Exec ("waitmenu 'Blacksmithing''Weapons''Weapons''Swords & blades''Swords & Blades''katana'")
UO.Exec ("useobject 'hammer'")
UO.Exec ("waittargetobject 'ingz'")
wait (1000)
UO.DeleteJournal()
while not (UO.InJournal("You put") or UO.InJournal("You have failed"))
wait(300)
wend
until UO.Dead()
end sub

Сфаг ...ты думаешь он поймет что это значит ?

Поставте что ему сначала нужно забить значения

ingz и hammer

VAR ingz= '0x00000000' - Айди ингов
VAR hammer= '0x00000000' - Айди молотка

вставить все это в самом начале

sub bs()  
VAR  ingz= '0x000000000'      
VAR  hammer= '0x00000000'
repeat
........

Вроде так

UO.Exec ("waittargettype 'тип инготов'")
UO.Exec ("usetype 'тип молотка'")

UO.Exec ("usetype 'тип инготов'")

Ну мона и так ))))))