Resource gathering
Posted: Sun Mar 22, 2009 3:58 pm
Here's a good script I found for resource gathering that requires you to be present at the keyboard (therefore compliant with the rules) but still save substantial clicking. It basically just does the clicking for you until the vein or tree is finished, then you move yourself along and click the next vein/tree. Says just wood chopper, but works for mining also.
;==================================
; Script Name: Jebbits Easy Wood Chopper
; Author: Jebbit
; Version: 1.7
; Client Tested with: 4.0.1b
; EUO version tested with: V1.42 [Build 0066]
; Shard OSI / FS: OSI
; Revision Date:3/23/2004
; Public Release: 12/16/2003
; Purpose: One click automated Wood Chopping/Mining/Kindling. Also drops resources if set in script.
;==================================
initevents
set %prompts #true ;<---set to #false if you wish to manually set up script and bypass the prompts
;**CHANGE SETTINGS IF YOU WISH YOUR RESOURCES TO DROP TO GROUND WHEN FULL**
set %drop #true ;<----Change to #true if you want to drop your resuorces to the ground
;***changes these if you are bypassing the auto set up*********
set %itemid LSF ;<------Set item to be used for mining or chopping
set %timmer 55 ;<-----Set timmer to 55 for wood 10 for mining
if %prompts = #false
goto start:
Display yesno Are you chopping/kindling wood Or mining today. Slect Yes for Wood/kindling no for Mining
if #dispres = yes
set %timmer 55
else
set %timmer 10
Display msg Click ok and target the Axe/Shovel/Bladed Weapon ( For Kindling )
set #targcurs 1
wait 10
waiting:
If #targcurs = 1
goto waiting
wait 25
finditem #ltargetid
wait 25
if %timmer = 55
set %itemid #findid
else
set %itemid #findtype
start:
;----set target----------
t:
if %mark = 1
set %mark 0
finditem %itemid c_
if #findid = x 2
display msg Did you set your axe or shovel id in the script. I can't find anything?
halt
set #lobjectid #findid
event macro 17
WAIT 20
set %mark 0
tT:
if #targcurs = 1
goto tT
SET %CX #cursorx
SET %CY #cursory
goto clicks
--------main loop-------------
loop:
if %mark = 50 && #weight < #maxweight - 20
goto t
if #weight >= #maxweight - 20 && %drop = #true
gosub dragit
if #weight >= #maxweight - 20 && %mark <> 50
{
event exmsg #charid 0 100 Time to dump or smelt
set %mark 50
gosub smelt
if %mark = 1
goto t
goto loop
}
if #weight >= #maxweight - 20
{
gosub smelt
if %mark = 1
goto t
goto loop
}
set #lobjectid #findid
event macro 17
TARGET
clicks:
event macro 22
wait 10
;--------status check--------------
for %i 1 2
{
scanJournal %i
WAIT
if not_enough_wood_here in #jOURNAL || That_is_too_far in #journal || you_can't in #journal || USE_THIS_ON IN #JOURNAL || CAN'T_DO_THAT IN #JOURNAL || destroy in #journal || YOU_CANNOT_SEE IN #JOURNAL || no_metal in #journal 2
deleteJournal
goto t
}
wait %timmer
goto loop