; EL DEFORESTATOR 9000
; VERSION 0.01 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
; Contar los regs, y coger regs del banco si necesita mas
;Mas zonas de talado, e ir viajando de alternativamente a ellas
; desde el banco
;Y falta probarlo bien. Que eske no tengo tiempo(ni zoy lumver ;D)

; ************* 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 tipo Hatchet (no se como se llaman en UA) el hacha de
; leador, o una espada larga (temporal)
                   ;------;

; 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$

  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!!
           if %LumberMusic = 1
                    playcd
           halt
        }
     }

  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