zrywanie:
finditem CBF_OIJ_UIJ_GJJ_CJJ ;typy szczepek w plecaku
if #findstack > 1
{
set #lobjectid #findid
event macro 17
}
if *STOP = 1
{
   repeat
   until *STOP = 0
}
finditem XIJ G_1 ;typy ziola na zolu ;d
if #findkind = -1
   goto sadzenie
set #lobjectid #findid
set #ltargetid #lobjectid
wait 20
event macro 17
set %licz #scnt
repeat
scanjournal
if Stoisz_za_daleko in #journal || z_tej_rosliny_juz_nic_ in #journal || #SCNT > %licz + 6
{
  event macro 1 0 .um ukr
  ignoritem #findid
  goto start
}

until nie_udalo_ci_sie_zebrac_ziol in #journal || udalo_ci_sie_zebrac in #journal  || #SCNT > %licz + 6
event macro 1 0 .um ukr
goto zrywanie