;******************************************************
; The Way Of the Exploding Fish por Ishan (pa variar)
set %VERSION 23-Feb-02
; Version para Cliente 3.0.6a
;******************************************************

; Que es?
;  Es un script que realiza las funciones de pescador en un puerto
; o en un barco


;Cmo se arranca?
; +Configura la macro (el setup.txt)
; +Vete a un puerto (mejor a mas de 5 casillas de la tierra) o cerca de la bodega del barco
; +Dale al run

; Funcionalidades:
;  + A la par que pesca, va cortando el pescado
;  + El script automaticamente te ajusta el peso maximo que se aconseja
;  llevar segun la fuerza que tengas.
;  + Cuando se carga de peso, anda al banco y lo guarda.
;  + Luego vuelve a la zona de pesca
;  + 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 
;  + 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
;  + Posibilidad de pescar desde un barco. Atomaporculotolosrastrerospateticosladrones
;  + Sistema anti ladrones. Tan rapido como sacas un pescado, lo guardas
;  no evita al 100% los ladrones, pero dificulta mucho que te roben

; ************* CONFIGURACION *******************
; El Archivo de configuracion.  SETUP.TXT
; Hay que ajustarlo antes de usar ese programa!
; DE ESTE ARCHIVO NO SE NECESITA MODIFICAR NADA!

; *********** PROGRAMA PRINCIPAL *************
INITEVENTS
wait 1s
EVENT sysmessage The Way of the Exploding Fish. 
EVENT sysmessage Version %version
wait 10
EVENT sysmessage Iniciando sistemas....

event sysmessage    Cargando configuracion
set *55 0
call setup

call init
iniciando:
call iniciabucle

mainloop:
  call pescar

If %PuertoOBarco = Barco
   call banco
If %PuertoOBarco = Puerto
  {
       call AlBanco
       call banco
       call AlPuerto
    goto iniciando
  }
;En esta macro no nos movemos

If %PuertoOBarco = Barco
   call moverbarco

goto mainloop