set %lootlist POF_RWF_MWF_EWH_VUF_EVF_BVF_RVF_FVF_OVF_HVF_GVF_EEG_VRD_SZF_JUF_WZF_RZF_JZF_MZF_KUF_FUF_KZF_UUF_VLK_DUD_LLI_NUF_ZUF_XUF_YUF_KZF_ZLF_WUF
set #LTARGETKIND 1
set %attack TG_WF_SF_AH_BG_RF_HG_NF_

L1:
gosub attack
if #HITS =< 100
{
finditem ZLF C_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17 0
Target
event macro 23 0
goto l1
}
loot:
wait 1s
finditem YFM G_2
if #findkind = -1
goto l1
set #LOBJECTID #FINDID
event macro 17
msg ,exec cut $
set %contid #findid
ignoreitem #findid
wait 20
L2:
finditem %lootlist C_ , %contid
if #findkind = -1
finditem %lootlist G_2
if #findkind = -1
{
goto l1
}
msg $,grab #findstack #findid , $
wait 10
goto L2

sub attack
finditem %attack G
if #FINDKIND <> -1
{
set #LTARGETID #FINDID
event Macro 27
}
return