;Ke creamos? GANZUAS o Botes?
Set %GanzuasOBotes Botes

;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
;Ya no necesitas tocar nada mas

initevents
Call Array Reset

;La materia prima son pergas
;Cada lingote pesa 2--->  2/1 . Se ponen como un numerador y un denominador.
;Si pesara 0.5   -------->  1/2
;La cantidad es la cantidad minima de ese recurso para poder fabricar algo o macrear.

;Call Array PUSH MateriaPrima  Color Numerador Denominador Cantidad
 Call Array PUSH     RMK            0           2                1               3

;Esto es el objeto que tenemos que hacer doble click
Set %Creador GTL

;Este es producto que creamos. Si no se crea nada, pos se pone N/A
; O ganzuas o botes
Set %ProductoFinal NWH_WUF
;Se pueden agrupar?
Set %ProductoStack 1

;Herramienta . Si no necesitas pon el valor NONECESITO
Set %Herramienta GTL

;Tiempo (en segundos, pero sin poner s) de fabricar algo
Set %tiempoF 4
;++++++++++++++++++++++++++++++++++++++++++++++++++++

display yesno  $         Macreador de TINKERING$Necesitas iron y las herramientas de tinker$$                 Seguimos?
if #dispres = no
  halt

Call array INFO 
Set %TotalMP %1
Call ReajustarMateriasPrimas

Set %PesoMaximo #STR * 4
event macro 31 0
call AbrirStatus
call AbrirMochilas
IF %ProductoFinal <> N/A
   call MochilaReceptora


call apuntar %Herramienta -1
  if %1 = -1
   {
;Puede ke este en la mano?
    wait 1s
    EVENT macro 24 2
    wait 2s
     call apuntar %Herramienta -1
    if %1 = -1
     {
       msg $/ NO ENCONTRE LA HERRAMIENTA. Debe esta en la mochila!!!!
       halt
      }
   }
Set %HerramientaID #LOBJECTID

  call AbrirCofres
Bucle:
  ignoreitem reset
  Call RecursosEnMochila
;El peso total que se va a ocupar en la mochila por la MP
  Set %PesoTotalMP %PesoMaximo - #Weight
  Set %PesoTotalMP %PesoTotalMP + %PesoMPsBack

   For %MPi 1 %TotalMP   
     {
;Sacamos los datos referentes a MP en general
event sysmessage por aki ando
      ignoreitem reset
      call ARRAY GET %MPi
      Set %MateriaPrima          %1
      Set %ColorMateriaPrima   %2
      Set %Cantidad                 %5

;Sacamos los datos referentes a MP que tenemos en la mochila
      call MPsMochila GET %MPi
      Set %MPEnBack %2

     Set %CuantoMover %PesoTotalMP * %Cantidad
     Set %CuantoMover %CuantoMover * 100
     Set %CuantoMover %CuantoMover / %Proporcion
     Set %CuantoMover %CuantoMover - %MPEnBack
       if %CuantoMover > 0
         {
                call Buscar %MateriaPrima %ColorMateriaPrima
                If %1 = -1
                     goto seacabo:
               call drag #FINDID 756 99 %CuantoMover
          }
      wait 2s
      }

;Accion Especifica del skill
  Call SKILL

goto Bucle:

seacabo:
  msg $/ Se acabaron los recursos.........
  halt

