set %zeberka 0
set %swinie 1
set %skory 0
set %piora 1
set %klejnoty 1
set %ziola 1
gosub ustaw
;gosub backpack
SET %plecakid #BACKPACKID
start:

onhotkey q
gosub tnij_zwloki
goto start

sub tnij_zwloki
ignoreitem reset
tnij:
finditem YFM G_2
if #findkind = -1
{
gosub zbieraj
;set #sysmsgcol 1080
; event sysmessage Nie znaleziono zwlok!
 return
 }
 set %lt_nozyczki #findid
; ignoreitem #findid
for %i 1 2
{
 nozyczki:
 finditem kag_OMH C
 if #findkind = -1
 {
 set #sysmsgcol 1080
 event sysmessage Nie znaleziono nozyczek!
 return
 }
 set #lobjectid #findid
 event macro 17
 set %licz #scnt2 + 10
 repeat
 if %licz < #scnt2
 goto nozyczki
 until #targcurs = 1
 set #ltargetkind 1
 set #ltargetid %lt_nozyczki
 event macro 22
}
wait 1
goto tnij
 return

sub zbieraj
 event sysmessage  zbieram
szukaj:
repeat
finditem * G_3
if #FINDTYPE in %zbierane
{
  Exevent Drag #findid #FINDSTACK
	wait 5
	Exevent Dropc %plecakid
	wait 5
 }
ignoreitem #findid
until #FINDKIND = -1
event sysmessage POZBIERANE
return

sub backpack
event sysmessage Wskarz plecak do ktorego mam wrzucac przedmioty

  SET #TARGCURS 1
  SET #LTARGETID null
  ltargetloop1:
  IF #LTARGETID = null
  GOTO ltargetloop1
  SET %plecakid #LTARGETID
return
sub ustaw
;zloto;luski weza;pyl wulk;
set %zbierane POF_UZF_TZF_RVH_DUF_KAG_OZF_GUF_NZF_AVF_XLF
if %zeberka = 1
set %zbierane %zbierane , VRD_
if %swinie = 1
set %zbierane %zbierane , REJ_
if %skory = 1
set %zbierane %zbierane , EEG_
if %piora = 1
set %zbierane %zbierane , VLK_
if %klejnoty = 1
set %zbierane %zbierane , RVF_VUF_HVF_WWS_EVF_BVF_GVF_MWF_OVF_FVF_
if %ziola = 1
set %zbierane %zbierane , KUF_JUF_KZF_JZF_MZF_WZF_RZF_SZF_PZF
;event sysmessage %zbierane
return