; ============================================================|
; Script Name: Blackmaster's easy fishing trainer                           |
; Author: The Blackmaster                                   |
; Version: 2.0                                    |
; Shard: FreeShard; Neverlands                                                     |
; Client Tested w/: 2.0.0                                  |
; EUO tested w/: 1.42.0096 (build 0096)                          |
; Public Release: 29-01-05                                                        |
; Purpose: Easy Fishing trainer.                                               |
; ============================================================|
; To Do;                                                                            |
;       Turn your boat to the East.                              |
;       Go stand on your ship, in front of the mast
;       place 2chests under you, and open them                                               |
;       Start your Script.                                      |
;       Relax.                                        |
; ============================================================|
FindItem HIF_BUD_IKF_IIF G_2
set %chest #FINDID

Delete Journal
set %X #CHARPOSX - 6
set %Y #CHARPOSY
set %XX #CHARPOSX + 6
set %YY #CHARPOSY
set %F 5
set %Fishchest VEZOIPD
set %M_fishchest TAZOIPD
set %magicfish YDF_RVH
set %fish DQD_EQD_GQD

begin:
Delete Journal
msg .$
msg Raise Anchor$
msg Forward One$


wait 5s
goto fish

fish:
finditem XHF
set #lobjectid #findid
event macro 17 0
target 10s
   set #lTargetX #charPosX + 5
   set #lTargetY #charPosY + 0
event macro 22

goto check

check:
if #hits < 118
{
FindItem FJG_RJG_UJG_IJG_HJG_SJG_ C_ , #CHARID
If #FINDKIND <> -1
   {
   ExEvent Drag #findID
   wait 15
   ExEvent Dropc %chest
   }
sound c:\gamemaster.wav
sound c:\gamemaster.wav
sound c:\gamemaster.wav
halt
}

finditem %fish C_ , #BACKPACKID
if #FINDKIND <> -1
{
 for %n 1 #FINDCNT
  {
    set #FINDINDEX %n
    if #LLIFTEDKIND = 0
    {
      exevent Drag #FINDID #FINDSTACK
      wait 20
      exevent Dropc %chest
      wait 20
    }
  }
}

finditem %magicfish C_ , #backpackid
if #FINDKIND <> -1
{
 for %n 1 #FINDCNT
  {
    set #FINDINDEX %n
    if #LLIFTEDKIND = 0
    {
      exevent Drag #FINDID #FINDSTACK
      wait 20
      exevent Dropc %chest
      wait 20
    }
  }
}
if THERE_DOESN'T_SEEM_TO_BE_ANY_FISH_HERE in #SYSMSG
{
      goto begin
}

goto check