Post by sinstruck on Dec 6, 2015 8:42:16 GMT -5
i have had this macro for sometime it works pretty well for me just make sure u have water around u in three directions and you should not encounter any issues also make sure paperdoll and hitlife bar are up when u start the macro this macro has been netting me around 23k fish a night... enjoy and i hope it helps.
; ===============================================
; Sebbes Stygian Fishing Macro of the Void
; ===============================================
; Remove ";" if you want to macro to log you in when macrohours start.
;gosub macrohours
gosub setup
mainloop:
gosub firstrow
gosub login
gosub secondrow
gosub login
gosub thirdrow
gosub login
goto mainloop
; ===============================================
; Runs the setup process of the script. (Only runs once)
; ===============================================
sub setup
; Sets .autoloop to 1
msg .autoloop 1$
; Sets the fishingpole to last used object
set %fishingpole XHF
setuploop:
finditem %fishingpole C
if #findkind = -1
{
goto setuploop
;display ok You have to have a Fishing Pole in your backpack.
;halt
}
set #lObjectID #findid
; Initiates tiles
tile init nooverrides
deletejournal
return
;=================First Row=======================
sub firstrow
;Target 1
set #LTargetX -3 + #CharPosX
set #LTargetY +3 + #CharPosY
gosub fishing
;Target 2
set #LTargetX -5 + #CharPosX
set #LTargetY -3 + #CharPosY
gosub fishing
;Target 3
set #LTargetX -4 + #CharPosX
set #LTargetY -3 + #CharPosY
gosub fishing
;Target 4
set #LTargetX -3 + #CharPosX
set #LTargetY -3 + #CharPosY
gosub fishing
;Target 5
set #LTargetX -2 + #CharPosX
set #LTargetY -3 + #CharPosY
gosub fishing
;Target 6
set #LTargetX -1 + #CharPosX
set #LTargetY -3 + #CharPosY
gosub fishing
;Target 7
set #LTargetX 0 + #CharPosX
set #LTargetY -3 + #CharPosY
gosub fishing
;Target 8
set #LTargetX 1 + #CharPosX
set #LTargetY -3 + #CharPosY
gosub fishing
;Target 9
set #LTargetX 2 + #CharPosX
set #LTargetY -3 + #CharPosY
gosub fishing
;Target 10
set #LTargetX 3 + #CharPosX
set #LTargetY -3 + #CharPosY
gosub fishing
;Target 11
set #LTargetX 4 + #CharPosX
set #LTargetY -3 + #CharPosY
gosub fishing
return
;================Second Row======================
sub secondrow
;Target 12
set #LTargetX -6 + #CharPosX
set #LTargetY -4 + #CharPosY
gosub fishing
;Target 13
set #LTargetX -5 + #CharPosX
set #LTargetY -4 + #CharPosY
gosub fishing
;Target 14
set #LTargetX -4 + #CharPosX
set #LTargetY -4 + #CharPosY
gosub fishing
;Target 15
set #LTargetX -3 + #CharPosX
set #LTargetY -4 + #CharPosY
gosub fishing
;Target 16
set #LTargetX -2 + #CharPosX
set #LTargetY -4 + #CharPosY
gosub fishing
;Target 17
set #LTargetX -1 + #CharPosX
set #LTargetY -4 + #CharPosY
gosub fishing
;Target 18
set #LTargetX 0 + #CharPosX
set #LTargetY -4 + #CharPosY
gosub fishing
;Target 19
set #LTargetX 1 + #CharPosX
set #LTargetY -4 + #CharPosY
gosub fishing
;Target 20
set #LTargetX 2 + #CharPosX
set #LTargetY -4 + #CharPosY
gosub fishing
;Target 21
set #LTargetX 3 + #CharPosX
set #LTargetY -4 + #CharPosY
gosub fishing
;Target 22
set #LTargetX 4 + #CharPosX
set #LTargetY -4 + #CharPosY
gosub fishing
return
;=================Third Row=======================
sub thirdrow
;Target 23
set #LTargetX -6 + #CharPosX
set #LTargetY -5 + #CharPosY
gosub fishing
;Target 24
set #LTargetX -5 + #CharPosX
set #LTargetY -5 + #CharPosY
gosub fishing
;Target 25
set #LTargetX -4 + #CharPosX
set #LTargetY -5 + #CharPosY
gosub fishing
;Target 26
set #LTargetX -3 + #CharPosX
set #LTargetY -5 + #CharPosY
gosub fishing
;Target 27
set #LTargetX -2 + #CharPosX
set #LTargetY -5 + #CharPosY
gosub fishing
;Target 28
set #LTargetX -1 + #CharPosX
set #LTargetY -5 + #CharPosY
gosub fishing
;Target 29
set #LTargetX 0 + #CharPosX
set #LTargetY -5 + #CharPosY
gosub fishing
;Target 30
set #LTargetX 1 + #CharPosX
set #LTargetY -5 + #CharPosY
gosub fishing
;Target 31
set #LTargetX 2 + #CharPosX
set #LTargetY -5 + #CharPosY
gosub fishing
;Target 32
set #LTargetX 3 + #CharPosX
set #LTargetY -5 + #CharPosY
gosub fishing
;Target 33
set #LTargetX 4 + #CharPosX
set #LTargetY -5 + #CharPosY
gosub fishing
return
; ===============================================
; Moves the character to pick up backpacks using Scavanger (Razor)
; ===============================================
sub move
if #CharPosX >= %posx
{
event Macro 5 7
}
if #CharPosX <= %posx - 1
{
event Macro 5 3
}
return
; ===============================================
; Fishing sub
; ===============================================
sub fishing
again:
event macro 13 38
wait 1s
event macro 31 0
wait 0.5s
set #lhandid #findid
event Macro 17
target 1s
gosub tiledetect
event macro 22
wait 10s
{
scanjournal %j
if You_stop_fishing in #journal
{
deletejournal
goto again
}
if Looping_aborted in #journal
{
deletejournal
return
}
if You_can't_seem_to_get_any_fish_here in #journal
{
deletejournal
return
}
if That_is_too_far_away in #journal
{
deletejournal
goto again
}
if They_don't_seem_to_be_biting. in #journal
{
deletejournal
goto again
}
if old_backpack in #journal
{
deletejournal
gosub move
wait 1s
gosub move
wait 1s
}
}
if %antal >= 50
{
deletejournal
return
}
set %antal %antal + 1
goto journalloop
return
; ===============================================
; Tile detecting sub
; ===============================================
sub tiledetect
Tile cnt #LTargetX #LTargetY
For %i 1 #tilecnt
{
tileloop:
tile get #LTargetX #LTargetY %i
if #tiletype = N/A
goto tileloop
If ( #Tiletype >= 6000 )
{
set #lTargetTile #tiletype
set #lTargetKind 3
set #LTargetZ #TILEZ
}
}
return
; ===============================================
; Login sub
; ===============================================
sub login
if #contname = waiting_gump
{
click 320 270
wait 5s
click 320 270
wait 5s
}
if #cliLogged = 1
{
return
}
loginpart:
set %Acordx ( #cliLeft + 335 )
set %Acordy ( #cliTop + 360 )
set %Pcordx ( #cliLeft + 335 )
set %Pcordy ( #cliTop + 400 )
click %Acordx %Acordy d
for %i 1 20
{
key DELETE
}
wait 1s
msg laggy ; Enter your username
click %Pcordx %Pcordy d
for %i 1 20
{
key DELETE
}
wait 2s
msg hej123 ; Enter your password
wait 10
msg $
wait 5s
if #contname = waiting_gump
{
click 315 315
wait 2s
click 315 315
wait 2s
}
if #contname = MainMenu_gump
{
goto loginpart
}
choosechar:
click 245 116 d
wait 2s
click 245 116 d
wait 5s
set %charposX ( #cliLeft + 360 )
set %charposY ( #cliTop + 166 )
click %charposX %charposY d
wait 2s
set %charposX ( #cliLeft + 360 )
set %charposY ( #cliTop + 166 )
click %charposX %charposY d
wait 10s
return
; ===============================================
; Macrohours Sub
; ===============================================
sub macrohours
; Set when macrohours start/stop in your local time.
set %macrostart 070000
set %macrostop 160000
macrohoursloop:
if #time > %macrostart && #time < %macrostop
{
if #clilogged = 0
{
gosub login
}
else
{
return
}
}
goto macrohoursloop
return
; ===============================================
; Sebbes Stygian Fishing Macro of the Void
; ===============================================
; Remove ";" if you want to macro to log you in when macrohours start.
;gosub macrohours
gosub setup
mainloop:
gosub firstrow
gosub login
gosub secondrow
gosub login
gosub thirdrow
gosub login
goto mainloop
; ===============================================
; Runs the setup process of the script. (Only runs once)
; ===============================================
sub setup
; Sets .autoloop to 1
msg .autoloop 1$
; Sets the fishingpole to last used object
set %fishingpole XHF
setuploop:
finditem %fishingpole C
if #findkind = -1
{
goto setuploop
;display ok You have to have a Fishing Pole in your backpack.
;halt
}
set #lObjectID #findid
; Initiates tiles
tile init nooverrides
deletejournal
return
;=================First Row=======================
sub firstrow
;Target 1
set #LTargetX -3 + #CharPosX
set #LTargetY +3 + #CharPosY
gosub fishing
;Target 2
set #LTargetX -5 + #CharPosX
set #LTargetY -3 + #CharPosY
gosub fishing
;Target 3
set #LTargetX -4 + #CharPosX
set #LTargetY -3 + #CharPosY
gosub fishing
;Target 4
set #LTargetX -3 + #CharPosX
set #LTargetY -3 + #CharPosY
gosub fishing
;Target 5
set #LTargetX -2 + #CharPosX
set #LTargetY -3 + #CharPosY
gosub fishing
;Target 6
set #LTargetX -1 + #CharPosX
set #LTargetY -3 + #CharPosY
gosub fishing
;Target 7
set #LTargetX 0 + #CharPosX
set #LTargetY -3 + #CharPosY
gosub fishing
;Target 8
set #LTargetX 1 + #CharPosX
set #LTargetY -3 + #CharPosY
gosub fishing
;Target 9
set #LTargetX 2 + #CharPosX
set #LTargetY -3 + #CharPosY
gosub fishing
;Target 10
set #LTargetX 3 + #CharPosX
set #LTargetY -3 + #CharPosY
gosub fishing
;Target 11
set #LTargetX 4 + #CharPosX
set #LTargetY -3 + #CharPosY
gosub fishing
return
;================Second Row======================
sub secondrow
;Target 12
set #LTargetX -6 + #CharPosX
set #LTargetY -4 + #CharPosY
gosub fishing
;Target 13
set #LTargetX -5 + #CharPosX
set #LTargetY -4 + #CharPosY
gosub fishing
;Target 14
set #LTargetX -4 + #CharPosX
set #LTargetY -4 + #CharPosY
gosub fishing
;Target 15
set #LTargetX -3 + #CharPosX
set #LTargetY -4 + #CharPosY
gosub fishing
;Target 16
set #LTargetX -2 + #CharPosX
set #LTargetY -4 + #CharPosY
gosub fishing
;Target 17
set #LTargetX -1 + #CharPosX
set #LTargetY -4 + #CharPosY
gosub fishing
;Target 18
set #LTargetX 0 + #CharPosX
set #LTargetY -4 + #CharPosY
gosub fishing
;Target 19
set #LTargetX 1 + #CharPosX
set #LTargetY -4 + #CharPosY
gosub fishing
;Target 20
set #LTargetX 2 + #CharPosX
set #LTargetY -4 + #CharPosY
gosub fishing
;Target 21
set #LTargetX 3 + #CharPosX
set #LTargetY -4 + #CharPosY
gosub fishing
;Target 22
set #LTargetX 4 + #CharPosX
set #LTargetY -4 + #CharPosY
gosub fishing
return
;=================Third Row=======================
sub thirdrow
;Target 23
set #LTargetX -6 + #CharPosX
set #LTargetY -5 + #CharPosY
gosub fishing
;Target 24
set #LTargetX -5 + #CharPosX
set #LTargetY -5 + #CharPosY
gosub fishing
;Target 25
set #LTargetX -4 + #CharPosX
set #LTargetY -5 + #CharPosY
gosub fishing
;Target 26
set #LTargetX -3 + #CharPosX
set #LTargetY -5 + #CharPosY
gosub fishing
;Target 27
set #LTargetX -2 + #CharPosX
set #LTargetY -5 + #CharPosY
gosub fishing
;Target 28
set #LTargetX -1 + #CharPosX
set #LTargetY -5 + #CharPosY
gosub fishing
;Target 29
set #LTargetX 0 + #CharPosX
set #LTargetY -5 + #CharPosY
gosub fishing
;Target 30
set #LTargetX 1 + #CharPosX
set #LTargetY -5 + #CharPosY
gosub fishing
;Target 31
set #LTargetX 2 + #CharPosX
set #LTargetY -5 + #CharPosY
gosub fishing
;Target 32
set #LTargetX 3 + #CharPosX
set #LTargetY -5 + #CharPosY
gosub fishing
;Target 33
set #LTargetX 4 + #CharPosX
set #LTargetY -5 + #CharPosY
gosub fishing
return
; ===============================================
; Moves the character to pick up backpacks using Scavanger (Razor)
; ===============================================
sub move
if #CharPosX >= %posx
{
event Macro 5 7
}
if #CharPosX <= %posx - 1
{
event Macro 5 3
}
return
; ===============================================
; Fishing sub
; ===============================================
sub fishing
again:
event macro 13 38
wait 1s
event macro 31 0
wait 0.5s
set #lhandid #findid
event Macro 17
target 1s
gosub tiledetect
event macro 22
wait 10s
{
scanjournal %j
if You_stop_fishing in #journal
{
deletejournal
goto again
}
if Looping_aborted in #journal
{
deletejournal
return
}
if You_can't_seem_to_get_any_fish_here in #journal
{
deletejournal
return
}
if That_is_too_far_away in #journal
{
deletejournal
goto again
}
if They_don't_seem_to_be_biting. in #journal
{
deletejournal
goto again
}
if old_backpack in #journal
{
deletejournal
gosub move
wait 1s
gosub move
wait 1s
}
}
if %antal >= 50
{
deletejournal
return
}
set %antal %antal + 1
goto journalloop
return
; ===============================================
; Tile detecting sub
; ===============================================
sub tiledetect
Tile cnt #LTargetX #LTargetY
For %i 1 #tilecnt
{
tileloop:
tile get #LTargetX #LTargetY %i
if #tiletype = N/A
goto tileloop
If ( #Tiletype >= 6000 )
{
set #lTargetTile #tiletype
set #lTargetKind 3
set #LTargetZ #TILEZ
}
}
return
; ===============================================
; Login sub
; ===============================================
sub login
if #contname = waiting_gump
{
click 320 270
wait 5s
click 320 270
wait 5s
}
if #cliLogged = 1
{
return
}
loginpart:
set %Acordx ( #cliLeft + 335 )
set %Acordy ( #cliTop + 360 )
set %Pcordx ( #cliLeft + 335 )
set %Pcordy ( #cliTop + 400 )
click %Acordx %Acordy d
for %i 1 20
{
key DELETE
}
wait 1s
msg laggy ; Enter your username
click %Pcordx %Pcordy d
for %i 1 20
{
key DELETE
}
wait 2s
msg hej123 ; Enter your password
wait 10
msg $
wait 5s
if #contname = waiting_gump
{
click 315 315
wait 2s
click 315 315
wait 2s
}
if #contname = MainMenu_gump
{
goto loginpart
}
choosechar:
click 245 116 d
wait 2s
click 245 116 d
wait 5s
set %charposX ( #cliLeft + 360 )
set %charposY ( #cliTop + 166 )
click %charposX %charposY d
wait 2s
set %charposX ( #cliLeft + 360 )
set %charposY ( #cliTop + 166 )
click %charposX %charposY d
wait 10s
return
; ===============================================
; Macrohours Sub
; ===============================================
sub macrohours
; Set when macrohours start/stop in your local time.
set %macrostart 070000
set %macrostop 160000
macrohoursloop:
if #time > %macrostart && #time < %macrostop
{
if #clilogged = 0
{
gosub login
}
else
{
return
}
}
goto macrohoursloop
return