UoKit.com Форумы > Ultima Online > Программы для Ultima Online > Injection
whitewater
Доброго времени суток. Нужна помощь со скриптом .
Скрипт работает так:
Чар загружает в себя 300 ингов метала ,делает деталь и выкладывает ее в сумочку , в "моем" скрипте только одна сумочка , а нужно больше что бы при достижение 200-255 итемов в сумке чар начинал выкладывать все в другую.
sub Tinkering()
var Exit=0, LastTimer
uo.Print('Выбери Сундук: ')
uo.Exec('addobject Chest')
while uo.Targeting()
wait(100)
wend
uo.Print('Выбери Помойку: ')
uo.Exec('addobject TrashCan')
while uo.Targeting()
wait(100)
wend
while Exit<>1
uo.DeleteJournal()
uo.FindType('0x1085','0x0000','backpack')
if uo.GetQuantity('finditem')>0 then
uo.SetReceivingContainer('TrashCan')
wait(1000)
uo.Grab('all','finditem')
wait(1000)
uo.UnSetReceivingContainer()
end if
uo.FindType('0x1BF2 ',-1,'backpack')
if uo.GetQuantity('finditem')<10 then
uo.FindType('0x1BF2','0x0000','Chest')
wait(1000)
uo.Grab('300','finditem')
wait(1000)
end if
LastTimer=uo.Timer()
uo.DeleteJournal()
uo.WaitMenu ('Tinkering','Jewelry','Jewelry','necklace')
uo.UseType('0x1EBC')
wait(4500)
wend
end sub
Вверх
whitewater
Оплачу на Оскоме или в БК
Вверх
Invision Power Board © 2001-2024 Invision Power Services, Inc.
Version for Pocket PC © 2006-2024, IPBest Studio.