Yoko

Code: Select all

sub ItemFollower()
   var quantity = 5000 ; по скольку предметов за раз перекидывать
   uo.addObject( "moving item" )
   while uo.targeting()
      wait( 100 )
   wend
   var type = uo.getGraphic( "moving item" )
   var colr = uo.getColor( "moving item" )
   var x, y, z
   uo.ignorereset()
   repeat
      x = uo.getX( "moving item" )
      y = uo.getY( "moving item" )
      z = uo.getZ( "moving item" )
      while uo.getX() == x && uo.getY() == y
         wait( 100 )
      wend
      uo.set( 'finddistance', str( getMax( abs( uo.getX() - x ), abs( uo.getY() - y ) ) ) )
      uo.findtype( type, colr, "ground" )
      while uo.findcount()
         if uo.getX( 'finditem' ) == x && uo.getY( 'finditem' ) == y && uo.getZ( 'finditem' ) == z then
            uo.moveitem( 'finditem', str( quantity ), "ground" )
            while uo.getX( 'finditem' ) == x && uo.getY( 'finditem' ) == y && uo.getZ( 'finditem' ) == z
               wait( 100 )
            wend
         endif
         uo.ignore( 'finditem' )
         uo.findtype( type, colr, "ground" )
      wend
      uo.ignorereset()
      uo.set( 'finddistance', '0' )
      uo.findtype( type, colr, "ground" )
      if not uo.findcount() then
         uo.print( "Oops! Item stealed!" )
         return false
      endif
      uo.addObject( "moving item", uo.getSerial( "finditem" ) )
   until false
endsub

Sub getMax( x, y )
   if x > y then
      return x
   endif
   return y
endsub