Skript for Переплавка
Posted: 2004-06-27 14:32:41
Skript for Переплавка
У когонить есть скрипт на переплавку (в инги)
У когонить есть скрипт на переплавку (в инги)
Code: Select all
sub main()
Var Forge='0x401C966B'
Var C=1
dim Armors[10]
Armors[1]='0x13F0'
Armors[2]='0x13BF'
Armors[3]='0x1415'
Armors[4]='0x13EC'
Armors[5]='0x1411'
Armors[6]='0x13EE'
Armors[7]='0x13EB'
Armors[8]='0x13BE'
Armors[9]='0x1410'
for c=1 to 9
while UO.Count(Armors[c])
UO.waittargettype(Armors[c])
UO.UseObject(Forge)
CheckLag()
wait(500)
wend
next
end sub
sub CheckLag()
UO.DeleteJournal()
UO.Click('backpack')
repeat
wait(500)
until UO.InJournal('backpack')
end sub