Переплавка руды из рюкзака
Posted: 2005-04-17 10:40:19
В рюкзаке руда, стоим возле форжи, запускаем скрипт ... (На DRW нет смысла плавить руду по одной, поэтому плавим все что есть)
... выгружаем инги.
Code: Select all
sub smelt()
var i
DIM ore[4]
ore[1]='0x19B9'
ore[2]='0x19B8'
ore[3]='0x19BA'
ore[4]='0x19B7'
for i=1 to 4
UO.FindType(ore[i],-1,'backpack')
if UO.FindCount()>0 then
repeat
UO.DeleteJournal()
UO.Useobject('finditem')
while not uo.InJournal("You smelt")
wait(100)
wend
wait (500)
UO.FindType(ore[1],-1,'backpack')
until UO.FindCount() == 0
end if
next
Uo.Print('No ore to smelt')
end sub
... выгружаем инги.