;33 - 40 kukurydza, pszenica
;40 - 50 marchew
;50 - 60 cebula
;60 - 85 rzepa
;85 - 90 sałata
;90 - 95 bawełna i brzoskwinie
;95 - 100 len i brzoskwinie

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

;z prawej
event macro 17
wait 10
until #targcurs = 1
repeat
{
;click 486 418 ;kukurydza
;click 488 420 ;pszenica
click 507 474 ;cebula, marchew, rzepa

wait 1
}
until #targcurs = 0
wait 140

;z prawej 2
event macro 17
wait 10
until #targcurs = 1
repeat
{
;click 486 418 ;kukurydza
;click 488 420 ;pszenica
click 507 474 ;cebula, marchew, rzepa

wait 1
}
until #targcurs = 0
wait 140

;z prawej 3
event macro 17
wait 10
until #targcurs = 1
repeat
{
;click 486 418 ;kukurydza
;click 488 420 ;pszenica
click 507 474 ;cebula, marchew, rzepa

wait 1
}
until #targcurs = 0
wait 140

;z prawej 4
event macro 17
wait 10
until #targcurs = 1
repeat
{
;click 486 418 ;kukurydza
;click 488 420 ;pszenica
click 507 474 ;cebula, marchew, rzepa

wait 1
}
until #targcurs = 0
wait 140

; srodek
event macro 17
wait 10
until #targcurs = 1
repeat
{
;click 486 418 ;kukurydza
;click 488 420 ;pszenica
click 485 454 ;cebula, marchew, rzepa

wait 1
}
until #targcurs = 0
wait 140

; srodek 2
event macro 17
wait 10
until #targcurs = 1
repeat
{
;click 486 418 ;kukurydza
;click 488 420 ;pszenica
click 485 454 ;cebula, marchew, rzepa

wait 1
}
until #targcurs = 0
wait 140

; srodek 3
event macro 17
wait 10
until #targcurs = 1
repeat
{
;click 486 418 ;kukurydza
;click 488 420 ;pszenica
click 485 454 ;cebula, marchew, rzepa

wait 1
}
until #targcurs = 0
wait 140

; srodek 4
event macro 17
wait 10
until #targcurs = 1
repeat
{
;click 486 418 ;kukurydza
;click 488 420 ;pszenica
click 485 454 ;cebula, marchew, rzepa

wait 1
}
until #targcurs = 0
wait 140

; z lewej
event macro 17
wait 10
until #targcurs = 1
repeat
{
;click 486 418 ;kukurydza
;click 488 420 ;pszenica
click 462 428 ;cebula, marchew, rzepa

wait 1
}
until #targcurs = 0
wait 140

; z lewej 2
event macro 17
wait 10
until #targcurs = 1
repeat
{
;click 486 418 ;kukurydza
;click 488 420 ;pszenica
click 462 428 ;cebula, marchew, rzepa

wait 1
}
until #targcurs = 0
wait 140

; z lewej 3
event macro 17
wait 10
until #targcurs = 1
repeat
{
;click 486 418 ;kukurydza
;click 488 420 ;pszenica
click 462 428 ;cebula, marchew, rzepa

wait 1
}
until #targcurs = 0
wait 140

; z lewej 4
event macro 17
wait 10
until #targcurs = 1
repeat
{
;click 486 418 ;kukurydza
;click 488 420 ;pszenica
click 462 428 ;cebula, marchew, rzepa

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