initevents
set %y1 0
set %x1 0
set %y2 10    ;dlugosc
set %x2 4      ;szerokosc
set %y #charposy
set %x #charposx
start:
if %x1 > %x2
halt
if %y1 > %y2
{
set %x %x - 1
event pathfind %x %y
repeat
wait 10
until
{
#charposy %y
#charposx %x
}
set %y1 0
wait 2s
event macro 5 1
set %x1 %x1 + 1
}
finditem fuo C_ , #charid
if #findkind = -1
{
set #sysmsgcol 1080
event sysmessage Nie znaleziono kosy
halt
}
goto rolka
gosub start

rolka:
set #lobjectid #findid
repeat
event macro 17
wait 10
until #targcurs = 1
repeat
{
;click 510 374 ;kukurydza
;click 488 437 ;pszenica
;click 475 456 ;marchew
click 508 445 ;cebula, marchew, bawelna, salata, kapusta
;click 490 455 ;rzepa
;click 505 435 ;bawelna
wait 1
}
until #targcurs = 0
wait 140

set #lobjectid #findid
repeat
event macro 17
wait 10
until #targcurs = 1
repeat
{
;click 510 374 ;kukurydza
;click 488 437 ;pszenica
;click 475 456 ;marchew
click 508 445 ;cebula, marchew, bawelna, salata, kapusta
;click 490 455 ;rzepa
;click 505 435 ;bawelna
wait 1
}
until #targcurs = 0
wait 140

scanjournal 1
if nic_wiecej_nie_wytniesz. in #journal
{
event macro 5 1
set %y1 %y1 + 1
wait 20
}
scanjournal 1
if nie_da_sie_teraz_sciac. in #journal
{
event macro 5 1
set %y1 %y1 + 1
wait 20