Собрать вещи

[alexhide]

Code: Select all

sub main() 
      
#korabl 
#NewFishing(353,179,6,2) 
#Fenix House 
NewFishing(290,160,5,3) 
 
end sub 
 
sub do_one_loop(x,y) 
 
UO.Exec("usetype 0xDBF") 
Wait(300) 
UO.LClick(x,y) 
Wait(3000) 
      
end sub 
 
sub NewFishing(startx, starty, dx, dy) 
     
var i, j, x, y 
while true 
for j=0 to dx 
x = startx - 24*j 
y = starty  + 22*j 
for i=0 to dy 
do_one_loop(x + 24*i ,y + 22*i) 
next 
next 
wend    
end sub

Это скрипт на фишинг, как вы наверное поняли. Вот стою я на нем и рыбачу. НО! Под ногами у меня скапливается куча мешочков, в которых денюжки и под ногами же карты сокровищ. Итакже бутылки SOS в бэкпаке, за которыми вообще ничего не видно. Если ли скрипт, который может собрать все мешочки с деньгами в отдельный сундук, который я укажу, карты во второй сундук, а бутылки в третий?

[alexhide]

Code: Select all

sub loot()
 uo.set('finddistance','3')
 
 uo.exec('addobject bag1')
 uo.print('Bag for Money')
  while uo.targeting()
  wait(100)
 wend
 
 uo.exec('addobject bag2')
 uo.print('Bag for maps')
  while uo.targeting()
  wait(100)
 wend

 uo.exec('addobject bag3')
 uo.print('Bag for SOS bottles')
  while uo.targeting()
  wait(100)
 wend

  UO.FindType( -1 , -1 ,'ground')
  while UO.FindCount()
  If uo.GetGraphic('finditem') == '0x4574a70e' then
  uo.moveitem('finditem', 0 ,'bag1')
  uo.ignore('finditem')
  Endif
  Wait(500)
  UO.FindType( -1 , -1 ,'ground')
 wend
 wait(100)
wend

  UO.FindType( -1 , -1 ,'ground')
  while UO.FindCount()
  If uo.GetGraphic('finditem') == '0x45b15d1b' then
  uo.moveitem('finditem', 0 ,'bag2')
  uo.ignore('finditem')
  Endif
  Wait(500)
  UO.FindType( -1 , -1 ,'ground')
 wend
 wait(100)
wend

  UO.FindType( -1 , -1 ,'my')
  while UO.FindCount()
  If uo.GetGraphic('finditem') == '0x45cd9243' then
  uo.moveitem('finditem', 0 ,'bag3')
  uo.ignore('finditem')
  Endif
  Wait(500)
  UO.FindType( -1 , -1 ,'my')
 wend
 wait(100)
wend

end sub

Вот я написал что-то. Только не работает, естественно.

[alexhide]

Тема закрыта.

[I'm]

Только не работает... Тема закрыта.

Где же логика?

[alexhide]

Где же логика?

По ICQ обьяснили ошибки и я все исправил.