Писалось под НТ на Антаресе, там нужно кучу хлама брать.
Писать типы было лень сделал вот так, всего 235 предметов в списке
Code: Select all
sub Loot() ;
UO.Set("grabdelay", 100) ;
UO.MoveItem("<0x0EED", 0, "backpack")
UO.UseObject("<0x0E76")
wait(300)
F_Loot(3855, 3888) ; kamni
F_Loot(4229, 4234) ; ring..
F_Loot(5039, 5148) ; arm & weap
F_Loot(3960, 3985) ; regi
F_Loot(8320, 8383) ; scroll
UO.Set("grabdelay", 0) ; default
endsub
sub F_Loot(start, stop)
for start to stop
UO.FindType(UO.Int2Hex(start), -1, "lastcontainer")
while UO.FindCount()
UO.MoveItem("finditem", 0, "backpack")
wend
next
endsub