;Separamos iron
    
 call recbolsa

If %separamos = 1
 {
 ;Tenemos 30 segundos para separar lo que falte
  set %septimeout #SCNT + 30
  sigosepara:
  if %faltanxsep > 0
    {
       if %septimeout <= #SCNT     
          goto ahorafundimos
       cmppix 1 false
        {
         call drag 681 442 788 221 1
         wait 9
        }
       set %faltanxsep %faltanxsep - 1 
      goto sigosepara  
    }
 }

ahorafundimos:
   set %lista %quefundir
   set %septimeout #SCNT + 180
 wait 1s
   for %j 1 %oresdistintos
     {
       call Array GET %j
       if %1 in %lista
          {
                ignoreitem reset
                 fundiendo:
           ;Solo fundimos iron ore
                  if %septimeout <= #SCNT     
                      goto finfundir
                      call keepalive
                  call apuntar %T_ores %3
                  if %1 = -1
                      goto finfundir
                  key %LastObject
                  scanjournal 1
                  if %msg_saveworld in #journal 
                    {
                      msg $/ %Finish_Read $
                      wait 24s
                    }
                  goto fundiendo
          }
      finfundir:
     }
