loot

set %ignored1 WXL_ZXL_WUF_BYL_CYL_QXL_PXL_NXL_AYL_ZJF_WZF_JUF_MZF_KZF_JZF_SZF_RZF_JZF_ZTD_TMF_IYL_YXL_KYL_HYL_EYL_TUF
set %ignored2 VXL_JYL_EYL_XXL_UMF_WMF
set %ignored3 GYL_TTL_RTL_STL_FUL_YTL_OTL_UTL_MUL_XTL_QUL_JUL_HUL_RUL_KUL_PUL_EUL_SUL_IUL
set %ignored %ignored1 , %ignored2
set %ignored %ignored , %ignored3
set *lootbag KEMUJMD
Main:
Gosub Loot
set *inuse #false
wait 5
goto main

Sub Loot
set #scnt 0
Loot:
if #scnt > 10
Return
Finditem YFM G_2
if #findid = x
return
set *inuse #true
set %lootid #findid
set *loots *loots + 1
Set #lobjectid #findid
event macro 17 0
wait 10
ScanJournal 1
If ( Reach_that in #journal )
{
Ignoreitem #findid
wait
goto loot
}
if #conttype <> YFM
goto loot
Set %lootid #contid
ignoreitem #findid
contpos 10 10

Loot2:
;CKF_POF_XVH_HVF_RVF
finditem * C_ , %lootid
if #findid = x
Return
if #findtype in %ignored
{
ignoreitem #findid
goto loot2
}
if #findtype = CKF && #findcol = 0 2
ignoreitem #findid
goto loot2
set %findcol #findcol
set %findtype #findtype
exevent drag #findid #findstack
wait 5
exevent dropc *lootbag
wait 1s
if ( %findtype = CKF ) && ( %findcol <> 0 )
{
set *rares *rares + 1
event exmsg #charid 1 1 RARE FOUND RARE FOUND GG
Return Bank
}
goto loot2