Yoko

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









зарание
Большое спасибо!!!

sub checkaction()
if UO.InJournal("BlackSmith c.e.p") then ## меседж когда удачно сделал вещь
return 1
end if
if UO.InJournal("fail") then ##меседж когда сфейлил
return 1
end if
end sub

sub main()
while 1
UO.DeleteJournal()
UO.Exec("useobject ^0x1BEF"); ##тайп инготов
UO.Exec("waitmenu 'Bronze Armor & Shields' (6)") ##назва менюшки , а цифра в дужках номер вещи
while NOT checkaction()
Wait(500)
wend
wend
end sub

а можно по падробнее у меня чегото не пашет???

;Скрипт на Blacksmithy Iron Daggers

sub BlacksmithyIM()

VAR Exit=0, LastTimer
while Exit<>1
UO.DeleteJournal()
LastTimer=UO.Timer()
UO.WaitMenu('Blacksmithing','Weapons','Weapons','Swords','Swords','dagger') ; Что куем
UO.UseType(0x1BEF) ; Инги айрона

while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed")
wait(500)
wend

If UO.InJournal("You have failed") then
repeat
wait(100)
until UO.Timer()>=LastTimer+100 ; Время создания дагера
EndIf

UO.FindType('0x0F51',-1,'backpack')
wait(500)

If UO.GetQuantity('finditem') then
UO.WaitTargetObject('finditem')
UO.UseObject(0x4012B5AC) ; Форж
Endif

UO.FindType('0x1BEF',-1,'backpack')
If UO.GetQuantity('finditem')<10 then
UO.FindType('0x1BEF','0x0000','0x4004CAE1') ; Cундук с ингами
wait(1000)
UO.Grab('1000','finditem')
Endif
wait(1000)
wend
end sub