КЕМПИНГ.
Moderators: Murderator+, Murderator
Re: КЕМПИНГ.
zarg wrote:У кого нить есть скрипт прокачки кемпинга???
Code: Select all
sub Camping()
var Exit=0
uo.Print('Выбери Сундук с Хворостом: ')
uo.Exec('addobject Chest')
while uo.Targeting()
wait(100)
wend
#uo.UseObject('Chest')
uo.Print('Выбери Помойку: ')
uo.Exec('addobject TrashCan')
while uo.Targeting()
wait(100)
wend
#uo.UseObject('TrashCan')
while not uo.Dead() or Exit<>1
uo.FindType('0x0DE1','0x0000','Chest')
if uo.GetQuantity('finditem')>0 Then
uo.Grab('1','finditem')
wait(1000)
uo.DropHere('finditem')
wait(1000)
uo.UseObject('finditem')
wait(1000)
uo.SetReceivingContainer('TrashCan')
wait(1000)
uo.Grab('1','finditem')
uo.UnSetReceivingContainer()
else
exit=1
end if
wend
end sub