set %cloth LDI_TQL_XDI_FZH_FWL_DCI
top:
finditem KAG G_2
if #FINDKIND = -1
{
  finditem KAG G_2
  Exevent Drag #findid
  wait 10
  Exevent Dropc #BACKPACKID
  wait 10
  goto top
}
set #lobjectid #findid
Event macro 17 0
target
finditem %Cloth C_ , #BACKPACKID
if #findkind = -1
{
  Event macro 23
  halt
}
if #findcol <> 0 2
ignoreitem #findid
goto top
set #lTargetID #findID
set #lTargetKind 1
event Macro 22
goto top