initevents
; De quantos em quantos Ores ele vai separar?? PADRÃO DE EASYSHARDS: 5
Set %ores 5
; NÃO MODIFICAR A PARTIR DESSE PONTO
set %smelt 1
set %type DWJ
set %Xf 633
set %Yf 343

gosub SetPack

inicio:
gosub SplitItemOnLocation %type %Xf %Yf
goto inicio
sub SplitItemOnLocation
set %_type %1
set %_Xf %2
set %_Yf %3
ignoreitem reset
mainunclutter:
finditem %_type
if #findid in X 1
exit
if #findstack < 4 2
ignoreitem #findid 
goto mainfish
if #findbagid <> %mypack 2 
ignoreitem #findid 
goto mainUnclutter
wait 10 
set %Uid #findid 
set %Ux #findx + 20 
set %Uy #findy + 15 
ignoreitem #findid 
event drag %Uid 
wait 10 
msg %ores 
click %_Xf %_Yf
if %smelt = 1
{
set #LOBJECTID %Uid
event Macro 17 0
}
goto mainUnclutter
return

sub SetPack
event macro 9 7 
wait 20 
event macro 8 7 
wait 2s 
contpos 450 300 
set %mypack #contid 
Return