Yoko
http://forum.yoko.com.ua/

Чисто под РУНУО(Нова) Стоим кормим животное (для бонда)
http://forum.yoko.com.ua/viewtopic.php?f=15&t=12077
Page 1 of 1

Author:  Chico [ 2007-06-11 23:09:48 ]
Post subject:  Чисто под РУНУО(Нова) Стоим кормим животное (для бонда)

; Указываем по порядку бокс где лежит мясо, животное (оно у меня названо непотребно box2, ну и само мясо (рыбу, фрукты и тд))
Code:
 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

Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/