;******************************************************
; EL MINERITO FELIZ DE COVE  por Ishan (pa variar)
set %VERSION 2.50
; Version para Cliente 3.0.4p y 3.0.6a
;******************************************************

; Que es?
;  Es un script que realiza las funciones de minero 
; actualmente en la ciudad de Cove y de Delucia. 

;Cmo se arranca?
; +Configura la macro (el setup.txt)
; +Si no se usa en el server de UA, tambien se configura el setupserver.txt
; +Acercate a la montaa de Cove o el pasillo montaoso de Delucia
; +Dale al run

; Funcionalidades:
;  + Es capaz de picar por la montaa de forma mas
; o menos inteligente. 
;  + Cuando est picando, detecta que tipo de mineral se esta
; sacando y cuando se acaba este. 
;  + Es capaz de ir evitando distintos tipos de minerales que
; no se desean sacar 
;  + Es capaz de ir separando los minerales que se le indiquen. Esta
; separacion se realiza a la par que se esta picando 
; y de manera rapida.
; + El script automaticamente te ajusta el peso maximo que se aconseja
;  llevar segun la fuerza que tengas.
; + Una vez cargado de mineral, lo lleva a la forja, acaba de separar el
; mineral que falte (suele ser poco) y lo funde me modo bastante rapido.
; +Despues, se puede elegir si se quiere subir BlackSmith o Tinker
; +En el caso de subir Black, las dagas o las katanas que se hagan se pueden
;  vender o se pueden cambiar por tickets
; + En el banco, la macro es capaz de mover al banco dinero, lingotes , 
; mineral, oro, tickets y ganzuas.
; Cada uno de estos elementos se intentan que vayan a un contenedor
; diferente del banco. Asi deja el banco lo mas organizado posible.
; + Una vez aligerado el peso, vuelve al ultimo punto donde estaba picando
; y comienza de nuevo.
; + Se ha intentado en la medida de lo posible que no afecte el que este en
; segundo plano, ni el que se use el raton (intentado y conseguido :P)
; + Esta preparado para ser usado con la macro de control, de tal modo
; que si se pierde la conexion la macro quedaria parada hasta que se 
; puediera reconectar

;Se aadio Delucia (una pequea parte, el pasillo)
;Se aadio la posibilidad de hacer katanas
;Se aadio la posibilidad de cambiar dagas o katanas por tickets

;Mejoras respecto de la version para cliente 2.00. Las mejoras se deben a que con
; el nuevo cliente puedo usar varios comandos que antes no podia.
; +No se necesita configurar las teclas de macro de UO
;   asi se tienen las teclas F's para lo que tu quieras
; +Ahora separa correctamente el mineral. Al cambiar el algoritmo de separacion
; se hace un poco mas lento, pero por contra ya no importa si estamos usandola en 
; segundo plano. Usando el raton de un modo normal no falla.
; + Como ya tengo el DELETEJOURNAL, ya pude quitar las lineas ------------ que
; aparecian al ir picando.
; + Mensajes por pantalla mas claro (no mas Note to Self)
; + Ahora mismo me parece que puede llegar a ser el doble de eficiente que un pj
; minero normal

;BUGS CONOCIDOS
  ;Alguna veces se keda alelao sin picar durante unos segundos.
  ;A mas gente picando, menos mineral pa todos. La macro tiende a juntar los
  ; mineros en grupos. No se puede aser na (ya sabeis, la union hace la fuerza)
 
;Arreglado el tema del status. No se porke ahora tenia distinto #contkind (!?)
;Arreglao lo de la tienda de la campaa de cove.
;He intentado reducir el apelotonamiento de gente en la forja, aunke es una imagen 
; divertida la de la pea intentando hacerse un hueco en la forja :D

; ************* CONFIGURACION *******************
; El Archivo de configuracion.  SETUP.TXT
; Si el servidor no es el de Ultima Alianza, tambien hay ke retocar el serversetup.txt
; Hay que ajustarlo antes de usar ese programa!
; DE ESTE ARCHIVO NO SE NECESITA MODIFICAR NADA!

; *********** PROGRAMA PRINCIPAL *************
INITEVENTS
  If %GoldOrTickets = TICKETS
     msg $,unsetcatchbag$
wait 1s
EVENT sysmessage Minerito Feliz. Version %version
wait 10
EVENT sysmessage Iniciando sistemas....

call setup
//Cargamos la configuracion especifica del server UA
call serversetup

call init
EVENT sysmessage Comenzamos a picar en %city . 
iniciando:
call iniciabucle
call %moviendose
mainloop:
 ;picamos
  call picar

if %maxpeso <= #weight
  {
 ;Hay ke guardar la posicion
   set %storedx #charposx
   set %storedy #charposy
  call %alaforja
  call fundir
  IF %subir <> NADA
    call %subir
  If %GoldOrTickets = TICKETS
    {
     msg $,unsetcatchbag$
      wait 1s
     msg $,unsetcatchbag$
    }
  IF %subir = BLACK
   {
    if %vendo = SI
     {
      if %city = DELUCIA
         {
           call %albanco
           call banco
          }
      call %avender
     }
  }
  If %GoldOrTickets <> TICKETS
     call %albanco
  call banco
  call %alafaena
  goto iniciando
  }
 ;damos un paso
  call %moviendose


goto mainloop