; ==--== INICIO ==--== 
initevents 
; ===================================================================== 
; Macro de Fishing 
; Distribuição: Gratúita 
; ========================CONFIGURAÇÕES INICIAIS - Variáveis===================== 

  Set %Comida RUD_FUD_HND 
  Set %Pole XHF 
  Set %Tentativa 4 
  Set %Comando 1 
  Set %ComandoX 1 
  Set %msg Forward 

  Set %cnt 0 

  Set #ltargetid 0 
  Set #ltargetz 200 
  Set #ltargetkind 2 

; ========================CONFIGURAÇÕES INICIAIS - Variáveis===================== 

loop: 
Set %cnt %cnt + 1 
gosub %cnt 

if %cnt > 7 
{ 
  Set %cnt 0 
  goto Move 
} 

Set %Chance 0 
goto Fish 

; ====================FISH==================== 
Fish: 

Set %Chance %Chance + 1 
if %Chance > %Tentativa 
{ 
  goto loop 
} 

gosub pole 

Set #SCNT 0 

jornal: 
if #SCNT > 5 
{ 
  goto Fish 
} 

deletejournal 
scanjournal 

if nao_pescou in #journal 
{ 
  goto loop 
} 

if see in #journal 
{ 
  goto loop 
} 

if no_fish in #journal 
{ 
  goto loop 
} 

if pull in #journal 
{ 
  goto Fish 
} 

if too in #journal 
{ 
  goto loop 
} 

goto jornal 

; ====================MOVE==================== 
Move: 

if %Comando = 1 
{ 
msg Forward$ 
} 
if %Comando = 2 
{ 
msg Left$ 
} 
if %Comando = 3 
{ 
msg Back$ 
} 
if %Comando = 4 
{ 
msg Right$ 
} 

Set %ComandoX %ComandoX + 1 

IF %ComandoX > 6 
{ 
Set %ComandoX 1 
Set %Comando %Comando + 1 

IF %Comando > 4 
{ 
Set %Comando 1 
} 
} 

wait 5s 
msg Stop $ 
goto loop 


sub 1 
set #ltargetx #charposx - 2 
set #ltargety #charposy 
return 

sub 2 
set #ltargetx #charposx + 2 
set #ltargety #charposy 
return 

sub 3 
set #ltargetx #charposx - 2 
set #ltargety #charposy + 1 
return 

sub 4 
set #ltargetx #charposx + 2 
set #ltargety #charposy + 1 
return 

sub 5 
set #ltargetx #charposx - 2 
set #ltargety #charposy +2 
return 

sub 6 
set #ltargetx #charposx + 2 
set #ltargety #charposy + 2 
return 

sub 7 
set #ltargetx #charposx 
set #ltargety #charposy + 2 
return 


sub pole 
finditem %Pole 
if #findkind = 0 
{ 
  set #LObjectID #FindID 
  event macro 17 0 
  target 
  event macro 25 0 
  event macro 22 0 
  return 
} 

if #findkind = 1 
{ 
  ignoreitem #FindID 
  gosub pole 
  return 
} 

if #findkind = -1 
{ 
  ignoreitem reset 
  event sysmessage Pole nao encontrado 
  wait 3s 
  return 
} 
return 

; ==--== FIM  ==--==