; EL DEFORESTATOR 9000
; VERSION 0.02 alpha

; Que es?
;  Es un script que realiza las funciones de lumber
; Se pasea por el bosque cortando lea
; Viaja con runa si asi se lo indica


;Cosas que faltan
;Mas zonas de talado, e ir viajando de alternativamente a ellas
; desde el banco


;Bugs conocidos: Si dejas el cursor sobre la hoja de skills, del diario, mapa, etc...
; la macro no es capaz de buscar los arboles (y no creo que sepa arreglarlo :C).
; Asi ke lo mejor es dejar toda la pantalla limpia de esas hojas. Solo tened abierto
; el status, y puesto en una eskina.
; ************* CONFIGURACION *******************

         ; IMPORTANTISIMO  !!!!!!!
; +DESACTIVA LA OPCION DE CIRCLE OF TRANSPARENCY EN EL
; UO, ESTAN EN OPCIONES->MISCELLANEOUS !!!!!!!!!
; +Saca el cartelito de Status a una esquina
; +Lleva un hacha en la mochila (no en la mano)
                   ;------;

; El Archivo de configuracion.  SETUP.TXT
; hay que ajustarlo antes de usar este programa!
; DE ESTE ARCHIVO NO SE NECESITA MODIFICAR NADA!


; *********** PROGRAMA PRINCIPAL *************
call setup
set %tirados 0
call init
iniciando:
call iniciabucle

mainloop:
; Intentamos cortar lea
  call cortar
if %maxpeso <= #weight
  {
  if #targcurs = 1
    key %LastTarget 
; Vamos al banco a "descargar"
 if %TiraLogs <> SI
  { 
 msg $;Me cargue de peso$
   set %enboskex #charposx
   set %enboskey #charposy

  call recallto %RunaBancoH %RunaBancoR
  call banco
 ;Hay ke guardar la posicion pa ver si viajamos
   set %storedx #charposx
   set %storedy #charposy
  call recallto %RunaBosqueH %RunaBosqueR
   if %storedx = #charposx
     {
     if %storedy = #charposy
        {
           ;No nos hemos movido!!
           msg $/ TENGO PROBLEMAS PARA IR AL BOSQUE!!!!!!!
           if %LumberMusic = 1
                    playcd
           halt
        }
     }
;Intentara volver a donde se quedo
   move %enboskex %enboskey 60s
  goto iniciando
}
 
  if %TiraLogs = SI
    {
      tirandologs:  
     finditem ZLK
      if #findkind = -1
        goto PesoCorrecto
      if #findkind > 0
          {
            ignoreitem #findid
            goto tirandologs
          }
       set #findmod 19_4
       ;Si teniamos lea, soltamos todo menos dos troncos
       set %kuantomuevo #FINDSTACK - 2
       if %1 <> -1 
          call drag #findx #findy  321 246 %kuantomuevo
       wait 1

      difpeso:  
     finditem ZLK
      if #findkind = -1
        goto PesoCorrecto
      if #findkind > 0
          {
            ignoreitem #findid
            goto difpeso
          }

      set %tmp %kuantomuevo - #FINDSTACK
      set %tirados %tirados + %tmp
      set %tirados %tirados + 2
     }
  }
;damos un paso
 PesoCorrecto:
 call moviendose

goto mainloop