SET bag DDKXJMD repeat gosub grab gosub smelt until charghost yes Sub

SET %bag DDKXJMD

repeat
      gosub grab
      gosub smelt
until #charghost = yes


Sub Grab
finditem DWJ C_ , %bag
if #findcnt > 0
{
   exevent drag #findid 1
   exevent dropc #backpackid
   wait 30
}
return

Sub Smelt
finditem TVJ_GWJ_EWJ_DWJ_ C_ , #backpackid 
while #findcnt > 0
{
   set #lobjectid #findid
   event macro 17
   wait 1
   finditem TVJ _GWJ_EWJ_DWJ_ C_ , #backpackid
}
return