;33 - 40 kukurydza
;40 - 50 marchew
;50 - 60 cebula
;60 - 70 winogrona, rzepa
;70 - 85 rzepa,jabłka,gruszki
;85 - 90 sałata, brzoskwinie
;90 - 95 bawełna i brzoskwinie
;95 - 100 len i brzoskwinie

initevents
set %y1 0
set %x1 0
set %y2 2    ;dlugosc << WPISZ ODPOWIEDNIE WARTOSCI W ZALEZNOSCI
set %x2 13      ;szerokosc << OD WIELKOSCI SCINANEGO POLA
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 561 1103   ;<<<< JESLI MAKRO NIE SCINA ZMIEN WARTOSC CLICK
wait 1
}
until #targcurs = 0
wait 140
scanjournal 1
if Udalo_Ci_sie_obciac 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
}
scanjournal 1
if Roslina_wiednie_i_umiera. in #journal
{
event macro 5 1
set %y1 %y1 + 1
wait 1s
}
scanjournal 1
if Anulowano. in #journal
{
event macro 5 1
set %y1 %y1 + 1
}
goto start