[EasyUO] Cut all logs into boards

If you make a Client-side script you can publish it here for other players to use
Locked
User avatar
Natilla
Expert Scribe
Posts: 31
Joined: Tue Feb 03, 2009 1:31 pm

[EasyUO] Cut all logs into boards

Post by Natilla »

I have tweaked a script I found to cut all logs to boards and edited it for Excelsior shard to find all the colored logs and use them correctly. Still has some cleaning up to do, but it works great.
Just put all the logs you have chopped into a secure container. Stand next to the secure container and run the script. It will move as many logs as you can hold into your backpack and convert them into boards and them move them back into the secure container.
Use my addboardstowoodkeys.txt script to add the boards to your woodkeys.

Please let me know if you encounter errors.
v 1.0 Release 4.01.09

Code: Select all

;==================================
;==================================
; Script Name: Cut All Log Types To Boards
; Author: JustanotherFace
; Version: 1.2
; Client Tested with: 5.0.1
; EUO version tested with: EUOX 1.5 ver 60
; Shard OSI / FS: OSI
; Revision Date: 09-24-05
; Public Release: 9-23-05
; Purpose: This Script will cut all logs in a secure container into boards.
;==================================
;***************************************
; Edited to allow for Excelsior Shard Lumber Types.
; Edited by Natilla the Novice Scripter on 04/01/2009
; I haven't updated the skill required to chop the colored logs into boards
; This is on the to-do list.(It's still commented out atm.)
; So, for the time being, check the wiki for the skill required for each
; log type.  If you meet the skill required, then it will work for you.
; Use this with my addboardstowoodkeys.txt script to add the finished
; boards to your woodkeys.
; It's not very clean and sexy yet, but I wanted to submit it for your
; board-making enjoyment.
;***************************************
;***************************************
;If you know what waits are for and if you are having lag issues
;then change them.  If you dont know what they are for I suggest
;leaving them alone Smile
set %long_wait 35
set %short_wait 15
set %gump_wait 20
gosub init
gosub setup_secure

loop:
wait 0
gosub definewood
goto loop

Sub definewood
findItem %carpTools C_ , #backpackid
wait 10
  if #findkind = -1
  {
    event ExMsg #charID 3 0 You need carpentry tools in your pack!
    halt
  }

finditem ZLK C_ , #backpackid
  if #findkind = -1
  {
    wait %short_wait
    gosub get_logs
  }
    event Property #findid
    wait %short_wait
  if pine in #property && %carpSkill >= 650
    gosub cutLogs pine
;  if oak in #property && %carpSkill < 650
;    ignoreItem #findid 3
  if ash in #property && %carpSkill >= 800
    gosub cutLogs ash
;  if ash in #property && %carpSkill < 800
;    ignoreItem #findid 3
  if mohogany in #property && %carpSkill >= 950
    gosub cutLogs mohogany
;  if yew in #property && %carpSkill < 950
;    ignoreItem #findid 3
  if yew in #property && %carpSkill >= 1000
    gosub cutLogs yew
;  if heartwood in #property && %carpSkill < 1000
;    ignoreItem #findid 3
  if oak in #property && %carpSkill >= 1000
    gosub cutLogs oak
;  if bloodwood in #property && %carpSkill < 1000
;    ignoreItem #findid 3
  if zircote in #property && %carpSkill >= 1000
    gosub cutLogs zircote
;  if frostwood in #property && %carpSkill < 1000
;    ignoreItem #findid 3
  if ebony in #property && %carpSkill >= 1000
    gosub cutLogs ebony
  if bamboo in #property
    gosub cutLogs bamboo
  if purpleheart in #property
    gosub cutLogs purpleheart
  if redwood in #property
    gosub cutLogs redwood
  if petrified in #property && %carpSkill >= 1000
    gosub cutLogs petrified
  gosub cutLogs normal
  return
;====================================================================
  sub cutLogs
  wait %short_wait
  find_tool:
  findItem %carpTools C_ , #backpackid
  wait %short_wait
  set #lobjectid #findid
  event macro 17 0
  _carpGumpWait1:
  wait %gump_wait
  if #conttype <> SJQ && #contsize <> 530_437
    goto find_tool
  gosub gumpCalcClicks
  click %carpSelectionX %carpSelectionY f
  wait %gump_wait
  if %1 = normal
    click %carpWoodX %carpWoodY f
  if %1 = pine
    click %carpPineX %carpPineY f
  if %1 = ash
    click %carpAshX %carpAshY f
  if %1 = mohogany
    click %carpMohoganyX %carpMohoganyY f
  if %1 = yew
    click %carpYewX %carpYewY f
  if %1 = oak
    click %carpOakX %carpOakY f
  if %1 = zircote
    click %carpZircoteX %carpZircoteY f
  if %1 = ebony
    click %carpEbonyX %carpEbonyY f
  if %1 = bamboo
    click %carpBambooX %carpBambooY f
  if %1 = purpleheart
    click %carpPurpleheartX %carpPurpleheartY f
  if %1 = redwood || %1 = petrified
    click %page2X %page2Y f
    wait %gump_wait
  if %1 = redwood
    click %carpRedwoodX %carpRedwoodY f
  if %1 = petrified
    click %carpPetrifiedX %carpPetrifiedY f
  _carpGumpWait2:
  wait %gump_wait
  if #conttype <> SJQ && #contsize <> 530_437
    goto _carpGumpWait2
  gosub gumpCalcClicks
  click %carpOtherX %carpOtherY f
  wait %gump_wait
  click %carpBoardX %carpBoardY f
  _carpGumpWait3:
  wait %long_wait
  if #conttype <> SJQ && #contsize <> 530_437
  {
    goto find_tool
  }
  gosub gumpCalcClicks
    click %exitx %exity f
  wait %short_wait
  scanjournal 5
  if worn_out_your_tool in #journal 5
  {
    goto find_tool
    deletejournal
  }
  gosub move_boards
return
;======================================================================
 sub gumpCalcClicks
  set %page2X #contposx + 495
  set %page2Y #contposy + 270
  set %carpOtherX #contposx + 30
  set %carpOtherY #contposy + 90
  set %carpBoardX #contposx + 240
  set %carpBoardY #contposy + 70
  set %carpSelectionX #contposx + 30
  set %carpSelectionY #contposy + 372
  set %carpWoodX #contposx + 230
  set %carpWoodY #contposy + 70
  set %carpPineX #contposx + 230
  set %carpPineY #contposy + 90
  set %carpAshX #contposx + 230
  set %carpAshY #contposy + 110
  set %carpMohoganyX #contposx + 230
  set %carpMohoganyY #contposy + 130
  set %carpYewX #contposx + 230
  set %carpYewY #contposy + 150
  set %carpOakX #contposx + 230
  set %carpOakY #contposy + 170
  set %carpZircoteX #contposx + 230
  set %carpZircoteY #contposy + 190
  set %carpEbonyX #contposx + 230
  set %carpEbonyY #contposy + 210
  set %carpBambooX #contposx + 230
  set %carpBambooY #contposy + 230
  set %carpPurpleheartX #contposx + 230
  set %carpPurpleheartY #contposy + 250
  set %carpRedwoodX #contposx + 230
  set %carpRedwoodY #contposy + 70
  set %carpPetrifiedX #contposx + 230
  set %carpPetrifiedY #contposy + 90
  set %exitx #contposx + 30
  set %exity #contposy + 410
return
;========================================================================
sub get_logs
finditem zlk C_ , %secure
if #findkind <> -1
{
  exevent drag #findid %Amt
  exevent dropc %packid
  wait %short_wait
   gosub definewood
   return
}
   event ExMsg #charID 3 0 You have no logs in your secure!
   halt
return
;=======================================================================
sub setup_secure
wait %long_wait
nextcpos 16 12
wait %short_wait
;msg bank$
wait %long_wait

event ExMsg #charID 3 0 Now click on the secure container
wait %short_wait
set #targcurs 1
wait %long_wait
SET_SECURE:
if #targcurs = 1
goto set_secure
set %secure #ltargetid
set %securex #cursorx
set %securey #cursory
set #lObjectID %secure
nextcpos 285 50
event macro 17 0
wait %short_wait
;if h notin #CHARSTATUS
;{
;gosub hide
;}
return
;=======================================================================
sub init
set %maxweight #maxweight
finditem #charid
if #findtype in HS_IS
{
  set %maxweight #maxweight
}
set %amt ( %maxweight - #weight ) / 2
event macro 8 1
  wait_for_paperdoll_to_open:
if #contname <> paperdoll_gump
{
  goto wait_for_paperdoll_to_open
}
contpos 643 -193
set %packx 781
set %packy 30
set %paperdoll #contid
set %paperdollx 750
set %paperdolly 64
wait 15
event macro 8 2
  wait_for_status_to_open
if #contname <> status_gump
{
  goto wait_for_status_to_open
}
event macro 10 2
contpos -24 493
wait 15
event macro 8 7
  wait_for_pack_to_open:
if #contid <> #backpackid
{
  goto wait_for_pack_to_open
}
set %packid #contid
contpos 612 118
wait 15
  set %carpTools KGG_EGG_AGG_IGG_BIG_ZHG_WFG_
  chooseSkill carp
  set %carpSkill #skill
return
;==========================================================================

===
;sub hide
;hide:
;  event macro 13 21
;  wait 1s
;  if H notin #charstatus
;  {
;  wait 10s
;  goto hide
;  }
;wait 10s
;return
;==========================================================================

===
sub move_boards
find_again:
finditem tlk C_ , %packid
if #findkind <> -1
{
  exevent drag #findid #findstack
  wait %short_wait
  exevent dropc %secure
  wait %long_wait
  gosub get_logs
}
goto find_again
  return
Locked