set linedelay 10

//gosub movv

set %ukord [1] 406,341 //kord jar ribi na polu
set %ukord [2] 378,323 //kori meshka //koord poison ribi
set %ukord [3] 1332,68 //kord yada v meshke
set %ukord [4] 1186,200 //kord ribi v pake
set %ukord [5] 1158,220 //kord 1 ribi v pake
set %ukord [6] 951,196 //kord paka
set %ukord [7] 1132,225 //kord yada v pake
set %ukord [8] 1163,210 //kord 1 ribi + offset

get color #ncolr %ukord[8]
set #mov 20 //N
set #qty 200


:1
set #tmp wght
while wght = #tmp
move %ukord[3]
drag %ukord[3] %ukord[7] #mov //lojim N yada v pak
wait 500
end_while
set #yad LastLiftedID

set #tmp wght
while wght = #tmp
move %ukord[1]
drag %ukord[1] %ukord[6] #mov //berem N ribi v pak
wait 500
end_while

repeat #mov
if lastmsg save has been
wait 20000
say la la laaaa
end_if

set #cnt #cnt + 1
set #colr 0
while_not #colr = #ncolr
move %ukord[4]
drag %ukord[4] %ukord[5] 1 //lojim 1 ribu otdelno
wait 100 //300
get color #colr %ukord[8] //smotrim polojilas li riba
end_while

set #tmp wght
move %ukord[7]
double_pleft %ukord[7] //ispolzuem jad
wait 300
move %ukord[8]
pleft %ukord[8] //target na ribu
if wght = #tmp
wait 500
repeat 3
double_pleft %ukord[7] //ispolzuem jad
wait 300
move %ukord[8]
pleft %ukord[8] //target na ribu
wait 500
end_repeat
end_if

move %ukord[8]
drag %ukord[8] %ukord[2] all //lojim poison ribu iz paka v meshok
end_repeat

if #cnt > #qty
goto 2
end_if

goto 1

:2

end_script

:movv
repeat 600
move 1360,85
drag 1360,85 951,191 all
wait 100
end_repeat
return