Aronyc Tymewell
Wanderer
Lumberjack script, for all who can't search. PART 2
Code:
;---------------------------------------------Log routine-------------------------------------------------
finditem %logs C_ , %backpackid
wait 20
if #findkind = 0
gosub cut
ore:
finditem %boards c_ , %backpackid
if %Menu = #true
{
gosub count
gosub menu
}
finditem %all c_ , %backpackid
if #findkind = 1
{
goto ore
}
if #findkind = 0
{
IF #lLiftedKind <> 1
event drag #findid
wait 15
msg $
wait 5
finditem %orebagid
set #findmod 20_10
click #findx #findy p
wait 5
goto ore
}
set %cutting 1
return
;--------------------------------------GET tool---------------------------------------------------------
sub findtool
finditem %axes c_ , #charid
if #findid <> x
return
finditem %axes c_ , %backpackid
if #findid <> x
{
gosub armaxe
return
}
set %amount 0
getmore:
finditem %axes c_
wait 1s
if #findkind = -1
{
pause
}
if #findkind = 0
{
more:
event drag #findid
wait 10
msg $
wait 10
click 718 367 p
wait 5
click 718 367 f
wait 20
wait 5
}
return
;----------------------------------------HEAL----------------------------------------
sub health
if #hits >= #maxhits - 10
return
set *511 resume
loopit:
wait 10
if #hits < #maxhits - 10
goto loopit
set *511 pause
return
;**********************
sub cut
retry:
finditem %saw C_ , %backpackid
wait 15
if #findkind = -1 2
GOSUB DRAGIT
return
set #lobjectid #findid
event macro 17 0
set %scnt #scnt + 10
gump:
if #scnt > %scnt
goto retry
if #contname <> generic_gump || #CONTSIZE <> 530_437
goto gump
wait 10
click 67 131 x1
wait 10
click 274 111 x1
WAIT 20
set %scnt #scnt + 10
hang:
if #scnt > %scnt
return
if #CONTSIZE <> 530_437
goto hang
CLICK 200 222 R
return
sub more
finditem %saw c_ , %backpackid
wait 10
if #findkind = 0
return
finditem %saw C_
wait 10
if #findkind = -1
pause
set #lobjectid #findid
event drag #lobjectid
wait 10
click 794 218 p
return
;-------------------------------Program loc below here-------------------------------
sub loc
MSG $
IF %nn => %FIRST + 1
{
if %recall = #true
gosub recall
gosub gohome
gosub house
}
if %nn < %first + 1
{
set %n %n + 1
set %o %o + 1
set %nn %nn + 1
set %oo %oo + 1
SET %MARK 0
set %x + 1
set %digspotx %digx . %n
set %digspoty %digy . %o
set %movex %walk . %n
set %movey %wallk . %o
move %movex %movey 0 5s
if %movex <> #charposx && %movey <> #charposy
{
event pathfind %movex %movey
wait 1s
move %movex %movey 0 3s
}
}
return
sub remember
set %n %n + 1
set %o %o + 1
set %digx . %n %set1
set %digy . %o %set2
set %walk . %n #charposx
set %wallk . %o #charposy
set %nn %n
set %oo %o
return
sub gohome
MSG $
IF #WEIGHT => #MAXWEIGHT
GOSUB CUT
if %recall = #false
SET %NNN %NN
moveagain:
set %nn %nn - 1
set %oo %oo - 1
move %walk . %nn %wallk . %oo 0 5s
if %walk . %nn <> #charposx && %wallk . %nn <> #charposy
{
event pathfind %walk . %nn %wallk . %nn
wait 1s
move %walk . %nn %wallk . %nn 0 3s
}
IF %NN <> 1
goto moveagain
set %nn 1
set %oo 1
set %n 1
set %o 1
return
sub goback
MSG $
moveon:
IF %NNN => %FIRST + 1
{
RETURN
}
IF %NNN = %NN
RETURN
SET %N %N + 1
SET %O %O + 1
set %nn %nn + 1
set %oo %oo + 1
move %walk . %nn %wallk . %oo 0 5s
if %walk . %nn <> #charposx && %wallk . %nn <> #charposy
{
event pathfind %walk . %nn %wallk . %nn
wait 1s
move %walk . %nn %wallk . %nn 0 3s
}
goto moveon
return
sub recheck
if #weight > %maxweight
{
if %recall = #true
gosub recall
GOSUB GOHOME
gosub house
gosub goback
}
return
sub dragit
SET %SS 0
drop:
SET %SS %SS + 1
if #weight < #maxweight
return
if %ss = 5 && #weight > #maxweight
set %ss 0
WAIT 15
IF %SS = 5
RETURN
if %ss = 1 2
set %st 300
set %sy 215
IF %SS = 2
SET %SY %SY + 30
IF %SS = 3
SET %ST %ST + 30
IF %SS = 4
SET %SY %SY - 30
finditem %LOGS c_ , %backpackid
if #findkind = 0
{
IF #LLIFTEDKIND = 0
Event Drag #Findid
wait 5
msg 5 $
wait 20
click %ST %SY P
}
GOTO drop
return
sub Recall
if %recall = #false
return
wait 20
SET %NNN %NN
set %nn 2
set %oo 2
set %n 2
set %o 2
recallagain:
set %_runenumber %runenum
set %_style 0
set %_time 10
set %_oldx #charposx
set %_oldy #charposy
set %_page 0
set %_side 0
set %_num %_runenumber / 2
set %_page %_runenumber + 1
set %_page %_page / 2
set %_num %_num * 2
if %_num = %_runenumber
set %_side 1
set %_runex 285 ;305
if %_side = 1
set %_runex 440 ;466
set %_pagexmod %_page * 34
set %_pagex 256
set %_pagex %_pagex + %_pagexmod
if %_page > 4
set %_pagex %_pagex + 31
recallopenagain:
wait 5
set #LOBJECTID %object
event macro 17 0
wait 5
set #SCNT 0
recallwaitforbook:
if #SCNT > 10
goto recallopenagain
if #CONTKIND <> %Drag
goto recallwaitforbook
deletejournal
wait 10
click %_pagex 397 f
wait 20
click %_runex 345 f
set #SCNT 0
recallwaitforrecall:
if #SCNT > 10
goto recallagain
scanjournal 1
wait 30
if %_oldx = #charposx
{
if %_oldy = #charposy
{
goto recallwaitforrecall
}
}
gosub axearm
return
sub count
finditem %boards c_ , %backpackid
if #findkind = 0
{
if #findkind <> -1
set %b %b + #FINDSTACK
}
return
sub menu
if %menuset = 1
goto count
set %menuset 1
menu clear
menu window size 100 50
menu window color BLACK
menu font bgcolor BLACK
menu window title Bod counter
menu font align center
menu font style
menu font color red
menu font size 11
menu text stat 18 0 Total Boards
menu font align center
menu font style
menu font color green
menu font size 11
menu text stat 5 25 Boards
menu font align center
count:
menu font style B
menu font color RED
menu font size 11
menu Delete stat1
menu text stat1 70 25 %b
menu font size 11
menu font style B
menu font color RED
set #menubutton N/A
menu show 0 475
if %b > %stop
pause
return