;                          DEFORESTATOR 9000 - Arrasador de Junglas
;                                     VERSION 15 - 2 - 02


; 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

; Puede recordar un camino predefinido por ti. 
; Si usa ese camino, tambien se puede hacer que vaya andando al banco.

;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 ni cortar los arboles (y no creo que sepa arreglarlo :C).
; Si no usas el ordenador para otra cosa, deja el raton donde si haces doble click al hacha 
; te aparece la mano con la diana (y no la mano sola, que ese es el bug).
;Intenta no abrir esas cosas, deja solo lo ke te abre la propia macro.
; ************* CONFIGURACION *******************

         ; IMPORTANTISIMO  !!!!!!!
; +DESACTIVA LA OPCION DE CIRCLE OF TRANSPARENCY EN EL
; UO, ESTAN EN OPCIONES->MISCELLANEOUS !!!!!!!!!

                   ;------;

; El Archivo de configuracion.  SETUP.TXT
; Si el servidor en el que juegas no es UA, tambien el serversetup.txt
; hay que ajustarlo antes de usar este programa!


; *********** PROGRAMA PRINCIPAL *************
; DE ESTE ARCHIVO NO SE NECESITA MODIFICAR NADA!

initevents
 wait 3s
 event Sysmessage DEFORESTATOR 9000 - Arrasador de Junglas
 event Sysmessage VERSION 15 - 2 - 02

event macro 31 0
event sysmessage Iniciando sistemas
call setup
call serversetup
If %TipoTalado = CAMINO
  {
  event sysmessage Iniciando array, puede tardar un poco...
  Call Array Reset
  event sysmessage Iniciado.
  event sysmessage Cargando el camino personalizado. Espere......
  Call InitPath
  Call Array Info
  set %NextMove 1
  Set %TotalMoves %1
  event sysmessage Cargado.
  }
set %tirados 0
call init
iniciando:
call iniciabucle

mainloop:
; Nos movemos segun la manera en que talamos 
  call %TipoTalado
; Intentamos cortar lea
  call cortar
;Estamos muy cargados, a soltar carga.
if %maxpeso <= #weight
  {
  if #targcurs = 1
    event macro %LastTarget 
; Ahora  depende del modo de actuacion
  call %ComoActuo
  call iniciabucle
  }
goto mainloop