set %kamienie FVF_RVF_HVF_EVF_BVF_VUF_OVF_MWF_GVF
start:
onhotkey F4
 gosub skora
goto start

sub skora
 ignoreitem reset
 finditem KAG C
 if #findkind = 0
  set %nozyczki #findid
 else
 {
  event sysmessage %Prefix Nie masz nozyczek!
  wait 10
  return
 }
 ciala:
 finditem YFM G_1
 if #findkind = 1
 {
  event property #findid
  if kamienn notin #property && ognist notin #property && eakkium notin #property && ogar notin #property
  {
   ignoreitem #findid
   goto ciala
  }
  set #lobjectid %nozyczki
  event macro 17
  target
  set #ltargetid #findid
  set #ltargetkind 1
  event macro 22
  wait 10
  goto ciala
 }
 yoink:
 finditem EEG_ZLF_POF_VLK_ , %kamienie G_1
 if #findkind = 1
 {
  ignoreitem #findid
  if ( #findtype = EEG && ( #findcol = 999 || #findcol = 1645 ) ) || #findtype = ZLF || #findtype = POF || #findtype = VLK || #findtype in %kamienie
  {
   exevent drag #findid #findstack
   exevent dropc #backpackid
  }
  wait 2
  goto yoink
 }
 event sysmessage %Prefix Skonczyles zbierac.
 return