Imagine Nation Forums
Lumberjack macro Razer. - Printable Version

+- Imagine Nation Forums (https://in-uo.net/forums)
+-- Forum: Imagine Nation: Xtreme archive (https://in-uo.net/forums/forumdisplay.php?fid=5)
+--- Forum: Technical Issues (https://in-uo.net/forums/forumdisplay.php?fid=19)
+--- Thread: Lumberjack macro Razer. (/showthread.php?tid=1831)


Lumberjack macro Razer. - imported_Lanfear - 11-11-2007

Is it possible to make a good macro for chopping trees so i dont have to manually use last object and then click on a tree?

Help !

Lumberjack macro Razer. - imported_Elcid - 11-12-2007

Get EasyUO and use this script.

Code:
;==================================
; 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 #false                   ;<----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 65
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 30
    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


;-------smelting----------
sub smelt
   gosub findForge
if %set = 1
{
set %set 0
return
}
set %mark 1
   set #lTargetID %return
   set #lTargetKind 1
_smelt:
   findItem DWJ_EWJ_GWJ C
   if ! #findKind
   {
      set #lObjectID #findID
      event Macro 17 0
      target
set #ltargetkind 1
      event Macro 22 0
      goto _smelt

   }
return


sub findForge
;forge:    
   findItem JBG_ivj_ouj g_2
   if #findKind = -1
   {
set %set 1
finditem %itemid c_
      return
   }
      set %return #findID
return

sub dragit
     SET %ST 300
     SET %SY 215
     SET %SS 0
    drop:
if #weight < #maxweight - 20 2
finditem %itemid c_
return
     WAIT 15
     SET %SS %SS + 1
IF %SSS => 5
     RETURN
IF %SS = 2
     SET %SY %SY + 40
IF %SS = 3
     SET %ST %ST + 40
IF %SS = 4
     SET %SY %SY - 40
FINDdwj:
finditem zlk_DWJ_EWJ_GWJ c_
        Event Drag #Findid
          wait 5
            msg  $
          wait 20
       click %ST %SY P
   GOTO drop

return