Чисто под РУНУО(Нова) Стоим кормим животное (для бонда)
Posted: 2007-06-11 23:09:48
; Указываем по порядку бокс где лежит мясо, животное (оно у меня названо непотребно box2, ну и само мясо (рыбу, фрукты и тд))
Code: Select all
sub korm()
var Kol, I, Tip ; Количество
uo.Exec('addobject Box1')
while uo.Targeting()
wait(100)
wend
uo.Exec('addobject Box2')
while uo.Targeting()
wait(100)
wend
uo.Exec('addobject obj')
while uo.Targeting()
wait(100)
wend
Tip = uo.GetGraphic('obj')
uo.findtype(Tip,'-1','Box1')
wait(300)
kol = uo.count(Tip)
uo.print('naideno-' + str(kol))
uo.setreceivingcontainer('Box2')
repeat
uo.findtype(Tip,'-1','Box1')
wait(100)
UO.GRAB('10','finditem')
Wait(3600000)
uo.print('naideno-' + str(uo.count(Tip)))
until not uo.count(Tip)
end sub