Aronyc Tymewell
Wanderer
Lumberjack script, for all who can't search. PART 1
Ok so I got a request to come up with a descent lumberjacking script, this is one i used, and it worked very well, just need lots of saws and hatchets and your gold... i'll try to write one soon but until then, here ya go
btw this is PART 1, so copy paste the code below into a text file, then copy paste the code in PART 2 (seperate thread) into the same text file AFTER the code from part 1. its not rocket sience.
Ok so I got a request to come up with a descent lumberjacking script, this is one i used, and it worked very well, just need lots of saws and hatchets and your gold... i'll try to write one soon but until then, here ya go
btw this is PART 1, so copy paste the code below into a text file, then copy paste the code in PART 2 (seperate thread) into the same text file AFTER the code from part 1. its not rocket sience.
Code:
;7/25/04
;Jebbits On The Fly Lumber Rail 10
initevents
key p alT
;******** INITIAL SETTINGS*****************
set %bank #true
set %recall #false
set %hideme #true
set %menu #true
set %stop 999999
set %runenum 7 ;rune number placement in book
set %object euhzjmd ;Runebook ID
set %home 2
set %axes lsf_bsf_nsf_zrf_rmh_lph_uoh_fsf
set %script #TRUE
set %b 0
set %first 0
set %set1 0
set %set2 0
set %number 2
set %b 0
set %logs zlk
set %boards tlk
set %all %boards , _ , %logs
set %saw agg_egg
set %delay 30
set %targetfirst 0
set %counterstarted 0
set %scnt 0
set %secureid 0
set %sss 0
SET %S 0
set %n 0
set %o 0
set %jin #jindex
SET %cx #charposx
SET %cy #charposy
set %maxweight #maxweight - 25
set *511 pause
set %home %home + 1
;*********PAPERDOLL SETUP********************
Menu Clear
Menu hide
Menu Window size 310 40
Menu Window Color $D9D0C8
Menu Font bgcolor $D9D0C8
Menu Font Color Black
Menu Font Style b
Menu font size 12
Menu Font Name tahoma
Menu Window Title Jebbits Lumber Rail
Menu Text txt 10 10 Please Rate This Script If You Use It
menu show 270 0
wait 60
menu hide
Menu Clear
Menu hide
Menu Window size 250 50
Menu Window Color $D9D0C8
Menu Font bgcolor $D9D0C8
Menu Font Color Black
Menu font size 10
Menu Font Name tahoma
Menu Window Title Jebbits Lumber Rail
Menu Text txt 10 10 Initializing
menu show 270 0
menu hideeuo
menu delete txt
menu delete txt1
Menu Text txt 10 10 Initializing.
Menu Text txt1 10 30 Opening Paperdoll
Event macro 8 1
wait 20
contpos 650 0
event macro 8 7
wait 20
menu delete txt
menu delete txt1
Menu Text txt 10 10 Initializing..
Menu Text txt1 10 30 Opening Status
event macro 8 2
wait 20
contpos 200 200
wait 20
CLICK 596 358
menu delete txt
menu delete txt1
Menu Text txt 10 10 Initializing...
Menu Text txt1 10 30 Opening Backpack
event macro 8 7
wait 20
contpos 615 330
wait 10
set %backpackid #contid
set %bb C_ , %backpackid
wait 10
menu delete txt
menu delete txt1
Menu Text txt 10 10 Initializing....
Menu Text txt1 10 30 Finding Axe
finditem %axes C_ , #charid
wait 10
if #findkind = -1
finditem %axes c_ , %Backpackid
wait 20
if #findkind = -1 2
display msg Hey did you forget an axe for cutting the wood.
halt
menu delete txt
menu delete txt1
Menu Text txt 10 10 Initializing.....
Menu Text txt1 10 30 Finding Saw
finditem %saw C_ , %backpackid
if #findid = x 2
display msg Hmmmm not finding any Saw in your pack.
halt
menu delete txt
menu delete txt1
Menu Text txt 10 10 Initializing.......
Menu Text txt1 10 30 Locating Secure Container
finditem jif_kif_iif_HIF G_1
wait 10
if #findid = x && %bank = #false 2
display msg Make sure you are standing next to a large wood or metal chest. Then restart the script
halt
if %bank = #true
msg bank $
wait 20
set #LOBJECTID #findid
event macro 17 0
wait 20
contpos 98 95
set %secureid #findid
ignoreitem #lobjectid
menu delete txt
menu delete txt1
Menu Text txt 10 10 Initializing........
Menu Text txt1 10 30 Locating Storage Box
WAIT 10
finditem cud_hkf c_
wait 10
if #findid = x 2
display msg Make sure you have a small WOOD BOX in your secure. Then restart the script
halt
wait 20
set #LOBJECTID #findid
set %orebagid #findid
ignoreitem reset
set #lobjectid %secureid
wait 10
menu delete txt
menu delete txt1
Menu Text txt 10 10 Initializing.........
Menu Text txt1 10 30 Arming Axe
gosub axearm
wait 50
sub axearm
set %hold #lobjectid
finditem %axes c_ , #charid
if #findkind = 0
{
set %helditem #findid
return
}
if #findkind = -1
{
finditem %axes c_ , %Backpackid
if #findkind = -1
{
finditem %axes c_ , %Secureid
if #findkind = -1 && %cutting = 99
pause
}
set #rhandid #findid
set %helditem #findid
dropp:
event macro 24 2
finditem %helditem c_ , #charid
if findkind = -1
goto dropp
set #lobjectid %hold
}
return
if %recall = #false
{
goto menu
}
menu delete txt
menu delete txt1
Menu Text txt 10 10 Initializing......
Menu Text txt1 10 30 Setting up rune book ID
finditem %object c_ , %backpackid
wait 10
if #findid = x 2
display msg You do not have a rune book in your pack.
halt
set #LOBJECTID #findid
event macro 17 0
wait 1s
set %drag #contkind
click 465 334 r
menu:
menu HIDE
CLICK 128 192 R
set %first 0
set %set1 0
set %set2 0
gosub remember
;**********RUNEBOOK SET UP****************************
;****************MAIN MENU**********************
gosub setup
sub setup
hh:
display yesnocancel Click Yes If you wish to Mark a rail spot. Click no if you are finished. Click cancel if your wish to re-target a location
if #dispres = no
{
deletejournal
return
}
if #dispres = Cancel
{
set %nn %nn - 1
set %oo %oo - 1
goto hh
}
if #dispres = yes
{
GOSUB FINDtool
set #lobjectid %helditem
event macro 17 0
set %first %first + 1
wait 20
waiting:
if #targcurs = 1
goto waiting
set %set1 #cursorx
set %set2 #cursory
gosub remember
if #weight > %maxweight
gosub cut
goto hh
}
return
gosub gohome
loop:
gosub chop
gosub findtool
gosub maketool
gosub chop
gosub check
goto loop
;******FIND Tool SUBROUTINE***********
sub findtool
finding:
finditem %helditem
wait 5
if #findid <> X
return
else
finditem %axes c_ , %backpackid
wait 5
if #findid = X
{
gosub gohome
gosub house
GOSUB RETURN
}
set %helditem #findtype
return
;***********Sub Chop*****************
sub chop
WALKAGAIN:
if %nn < %home 2
gosub loc
GOTO WALKAGAIN
set #ltargetkind 2
RETURN:
if %nn < %home
return
if %health = #true && #hits < #maxhits - 10
gosub health
finditem %helditem
if #findkind = -1
gosub armaxe
set #lobjectid %helditem
event macro 17 0
SET %FINDX #LTARGETX
if %x <> 1 2
click %digspotx %digspoty d
click %digspotx %digspoty d
IF %FINDX <> #LTARGETX
set %x 1
wait 10
event macro 22
gosub check
if %mark = 99
{
set %MARK 0
gosub loc
}
GOTO RETURN
return
;**************CHECK SUBROUTINE****************
sub check
set %checkit #jindex
FOR %i %jin %checkit
{
SCANJOURNAL %I
if Your_backpack_is_full in #journal
gosub full
If you_destroyed in #journal
gosub checktool
if Can't_place in #journal
gosub place
if not_enough in #journal || cannot_see in #journal || far_away in #journal || can't_use in #journal
gosub allelse
}
SET %JIN %CHECKIT + 1
finditem %axes C_ , #charid
if #findkind = -1
gosub axearm
if #findkind = -1
goto runhome
set %counter %counter + 1
scanjournal
if #weight > %maxweight
{
DELETEJOURNAL
finditem %LOGS c_ , %backpackid
if finditem <> x
{
gosub cut
gosub recheck
return
}
runhome:
if %recall = #true
gosub recall
GOSUB GOHOME
gosub house
gosub goback
RETURN
}
If you_destroyed in #journal 1
gosub checktool
if %counter = 20
set %x + 1
if %counter = 20
set %counter 0
if %counter > 19
gosub checktool
wait 55
return
sub full
deletejournal
gosub cut
gosub recheck
return
sub place
deletejournal
set %checkweight #weight
gosub cut
if %checkweight = #weight
goto runhome
return
sub allelse
SET %MARK 99
DELETEJOURNAL
RETURN
;***********HOUSE SUBROUTINE************
sub house
set %cutting 99
set %nn 1
set %oo 1
set %o 1
set %n 1
;***********WALKING TO SECURE*************
set %scnt #scnt
movingtime:
if #scnt - %scnt > 4
{
set %scnt #scnt
event macro 5 1
event macro 5 1
}
move %cx %cy 0 1s
if #charposx <> %cx || #charposy <> %cy
goto movingtime
set %x + 1
set %counter 0
;***************************HIDING********************
if %hideme
event macro 13 21
wait 5
;****************FIND AND OPEN CHEST*************
opensecure:
;Find chest
if %bank = #true 2
msg Bank $
goto skip
FINDITEM %SECUREID
IF #FINDKIND = -1
{
GOTO OPENSECURE:
}
skip:
;Open chest
set #LOBJECTID %secureid
set #findmod 0_0
set #NEXTCPOSX 27
set #NEXTCPOSY 49
event macro 17 0
set %scnt #scnt + 5
WaitSecureToOpen:
if %scnt < #scnt
goto opensecure
finditem %orebagid
if #findid <> %orebagid
goto WaitSecureToOpen
INGOREITEM RESET
finditem %axes c_ , #charid
if #findid = x
{
gosub findtool
gosub axearm
}
gosub more
;*************FILE SPLIT******************