SUPER Auto-Lumberjacking by dennozz

Created: 08/26/2024
Last Updated: about 1 month ago
Description from the author:
Auto lumberjacking, cast summons, auto heal, auto store wood in locked box, auto recall on pks.
Warning: This is potentially a huge script, skipping formatting.

You can still attempt to use [Copy Script] but may need to use the [Download Script] button so you get the full script as a file instead.
#SUPER Auto-lumber ver.6.11

#ver.6.11 - Minor fixes
#ver.6.10 - Recalling logic fixes
#ver.6.01 - Auto summoning and auto healing re-make
#ver.6.00 - Added more variables and minor changes

#********** INFORMATION **********# 

#Made by @dennozz on discord. 
#Inspired/learned by other scrips in https://outlands.uorazorscripts.com/

#IMPORTANT: You will need 1 wooden box and 1 copper key that opens the wooden box (this is for anti-theft)
#           You can craft wooden boxes with 50 carpentry and 50 tinkering
    
#IMPORTANT: You will need to create an in-game options cooldown named `Danger`. 
#Options -> Cooldowns -> New Entry -> Name: `Danger` -> Cooldown Type -> `PvP Timer` -> Done

#IMPORTANT: Do NOT use the check mark for text and messages filter in razor. 
#           Instead click on check-mark Enable text filter, click ADD button, then type the message you want to filter individually. CLick on the first check-mark and click okay.

# Recommended individual filter messages:
    
# `You are already casting a spell`
# `You are frozen and cannot move` 
# `You have not yet recovered from casting a spell`
# `You do not see any harvestable resources nearby`

# My Gathering template (Anti PK):
    
# Lumber - 120   # Mining - 120
# Magery - 100   # Resist - 80
# Healing - 80   # Tracking -80
# Wrestling - 80 # Spirit - 40
# Alchemy - 20

#********** SET YOUR SETTINGS **********# 

#--- Set auto recall ---#

# 0 - will auto recall when PKs are 40 steps or closer (medioum risk)
# 1 - will auto recall when detect PKs at any distance (low risk)

@setvar! autoRecall 0

#-- Set recall type --#
# 0 - using regs (target the book)
# 1 - using scroll (target the book)
# 2 - using charge recall from first rune in book
# 3 - using charge recall from last rune in book

@setvar! recallType 3

#--- Set recall object ---#
# 0 - carry one runebook | carry one rune | if multiple runes name the one you recall `home`
# 1234 - if you carry multiple runebooks or runetomes set the hue of the book you wish to recall (type `>info` to get hue info)

@setvar! recallBookHue 176

#--- If regs are low auto recall ---#
# 0 - you dont carry regs
# 123 - if below this number will recall

@setvar! minRegs 5

#--- Auto split regs ---#
# 0 - you dont want to split regs into different groups 
# 1 - will auto split regs in different groups (anti-theft)

@setvar! autoSplitRegs 1

# 0 - will automatically select the bag in your backpack on this order : satchel > pouch > backpack bag > round bag > char backpack
# 1 - will automatically select character main backpack only (do not work if regs are already splitted in a different bag)
# 2 - will let you target any bag
    
@setvar! autoSelectBag 0

#--- Set Elementals Count ---#

@setvar! earthElementals 1
@setvar! waterElementals 0
@setvar! airElementals 0
@setvar! fireElementals 0
@setvar! summonDaemons 0
@setvar! summonCreature 0

#--- Set mushrooms ---#

@setvar! mushroomCount 3
@setvar! eatMushWhenManaLowerThan 50
@setvar! mushroomTimerCD 60000

#--- Set potions ---#

@setvar! drinkStr 1
@setvar! strengthLowerThan 100

@setvar! drinkAgility 0
@setvar! drinkMagicResist 0
@setvar! drinkHeal 1
@setvar! drinkCure 1

@setvar! drinkRefresh 1
@setvar! drinkWhenMissingStamina 15

#--- Set Mage auto heals ---#

@setvar! miniHeal 1
@setvar! greaterHeal 1
@setvar! cureSpell 1

#--- Auto healing hp diffs ---#
#--- All variables refer to hit points differences ---#
#--- When below certain hit points it will trigger ---#

@setvar! activateAutoHealDiff 10

@setvar! startCastMiniHealDiff 10
@setvar! endCastMiniHealDiff 30

@setvar! castEmergencyMiniHealDiff 65

@setvar! startCastGreaterHealDiff 30
@setvar! endCastGreaterHealDiff 200

@setvar! drinkHealPotDiff 30

@setvar! interruptCastingDiff 40

#--- Set Mage Buffs ---#

@setvar! magicReflect 1
@setvar! blessSpell 0
@setvar! armorReflect 1
@setvar! protectionSpell 1

@setvar! miniumManaToBuff 75

#--- Meditation ---#

@setvar! useMeditationSkill 1
@setvar! meditateWhenManaBelow 50
@setvar! meditateUntilManaReach 65

#--- Set Cooldowns ---#

@setvar! storeTimerCD 100000
settimer storeTimer storeTimerCD

#--- Weight diff limit  ---#

@setvar! myWeightDiff 41

@setvar! enableAutoSplitter 1

#--- Autosplitter regs, pots, etc. Set auto select bag ---#
# 0 - will let you pick the bag
# 1 - will auto select in order : satchel > pouch > backpack bag > rounded bag > main backpack

@setvar! autoSelectRegBag 1

#--- Set auto select Potion bag ---#
# 0 - will let you pick the bag
# 1 - will auto select in order : Potions satchel > pouch > backpack bag > rounded bag > main backpack
@setvar! autoSelectPotionBag 1

#--- Set auto select bandage/rope bag ---#
# 0 - will let you pick the bag
# 1 - will auto select in order : satchel > pouch > backpack bag > rounded bag > main backpack
@setvar! autoSelectMiscBag 1

#--- Optional : Have a cooldown named `Heal Pot` ---#

@setvar! healingPotCD 11000


#********** DO NOT EDIT FROM HERE UNLESS YOU KNOW HOW TO SCRIPT **********#

@setvar! isWorldSaving 0

@setvar! maxwaittimeinms 650

@setvar! missingRegs 0

@setvar! foundBook 0

#** Recall triggers **

@setvar! enemyFound 0

@setvar! myHarvestingTool 3908

#-- elementals variables --#

removelist maxFollowersList
createlist maxFollowersList

@setvar! maxFollowers 0
@setvar! currentFollowers 0

if not varexist castingEarth or followers = 0 
    @setvar! castingEarth 0
endif
if not varexist castingWater or followers = 0 
    @setvar! castingWater 0
endif
if not varexist castingFire or followers = 0 
    @setvar! castingFire 0
endif
if not varexist castingAir or followers = 0 
    @setvar! castingAir 0
endif
if not varexist castingDaemon or followers = 0 
    @setvar! castingDaemon 0
endif
if not varexist castingCreature or followers = 0 
    @setvar! castingCreature 0
endif
    
if earthElementals  = 1
    pushlist maxFollowersList x 
    pushlist maxFollowersList x 
elseif earthElementals = 2
    pushlist maxFollowersList x 
    pushlist maxFollowersList x 
    pushlist maxFollowersList x 
    pushlist maxFollowersList x
endif

if waterElementals = 1
    pushlist maxFollowersList x 
    pushlist maxFollowersList x 
elseif waterElementals = 2
    pushlist maxFollowersList x 
    pushlist maxFollowersList x 
    pushlist maxFollowersList x 
    pushlist maxFollowersList x
endif

if airElementals  = 1
    pushlist maxFollowersList x 
    pushlist maxFollowersList x 
elseif airElementals  = 2
    pushlist maxFollowersList x 
    pushlist maxFollowersList x 
    pushlist maxFollowersList x 
    pushlist maxFollowersList x
endif

if fireElementals  = 1
    pushlist maxFollowersList x 
    pushlist maxFollowersList x 
elseif fireElementals  = 2
    pushlist maxFollowersList x 
    pushlist maxFollowersList x 
    pushlist maxFollowersList x 
    pushlist maxFollowersList x
endif

if summonDaemons  = 1
    pushlist maxFollowersList x 
    pushlist maxFollowersList x 
elseif summonDaemons  = 2
    pushlist maxFollowersList x 
    pushlist maxFollowersList x 
    pushlist maxFollowersList x 
    pushlist maxFollowersList x
endif

if summonCreature = 1
    pushlist maxFollowersList x 
elseif summonCreature = 2
    pushlist maxFollowersList x 
    pushlist maxFollowersList x 
elseif summonCreature = 3
    pushlist maxFollowersList x 
    pushlist maxFollowersList x 
    pushlist maxFollowersList x 
elseif summonCreature = 4
    pushlist maxFollowersList x 
    pushlist maxFollowersList x 
    pushlist maxFollowersList x 
    pushlist maxFollowersList x 
elseif summonCreature = 5
    pushlist maxFollowersList x 
    pushlist maxFollowersList x 
    pushlist maxFollowersList x 
    pushlist maxFollowersList x 
    pushlist maxFollowersList x 
endif

if list maxFollowersList = 0 
    @setvar! maxFollowers 0
    
elseif list maxFollowersList = 1
    @setvar! maxFollowers 1
    
elseif list maxFollowersList = 2
    @setvar! maxFollowers 2
    
elseif list maxFollowersList = 3
    @setvar! maxFollowers 3
    
elseif list maxFollowersList = 4
    @setvar! maxFollowers 4
else 
    @setvar! maxFollowers 5
endif

if not varexist earthFirsty or followers = 0
    @setvar! earthFirsty 0
endif

if not varexist earthSecondly or followers = 0
    @setvar! earthSecondly 0
endif

if not varexist waterFirsty or followers = 0
    @setvar! waterFirsty 0
endif

if not varexist waterSecondly or followers = 0
    @setvar! waterSecondly 0
endif

if not varexist airFirsty or followers = 0
    @setvar! airFirsty 0
endif

if not varexist airSecondly or followers = 0
    @setvar! airSecondly 0
endif

if not varexist fireFirsty or followers = 0
    @setvar! fireFirsty 0
endif

if not varexist fireSecondly or followers = 0
    @setvar! fireSecondly 0
endif

if not varexist daemonFirsty or followers = 0
    @setvar! daemonFirsty 0
endif

if not varexist daemonSecondly or followers = 0
    @setvar! daemonSecondly 0
endif

if not varexist creatureFirsty or followers = 0
    @setvar! creatureFirsty 0
endif

if not varexist creatureSecondly or followers = 0
    @setvar! creatureSecondly 0
endif

if not varexist creatureThirdy or followers = 0
    @setvar! creatureThirdy 0
endif

if not varexist creatureFourthy or followers = 0
    @setvar! creatureFourthy 0
endif

if not varexist creatureFithy or followers = 0
    @setvar! creatureFithy 0
endif

#-- list creation --#

if not listexists earthListy or followers = 0
    removelist earthListy
    createlist earthListy
endif

if not listexists waterListy or followers = 0
    removelist waterListy
    createlist waterListy
endif

if not listexists airListy or followers = 0
    removelist airListy
    createlist airListy
endif

if not listexists fireListy or followers = 0
    removelist fireListy
    createlist fireListy
endif

if not listexists daemonListy or followers = 0
    removelist daemonListy
    createlist daemonListy
endif

if not listexists creatureListy or followers = 0
    removelist creatureListy
    createlist creatureListy
endif

if maxFollowers > 5 
    overhead "Error Max Followers > 5"
    sysmsg "Error Max Followers > 5:  Check your followers settings"
    stop
endif

#** Script msgs timers **

@setvar! scriptMessageCD 4500
settimer scriptMessageTimer 0

@setvar! beingAttackedCD 5000
settimer beingAttackedTimer 5000

#--- Script msgs timers ---#

@setvar! overweightMessageCD 3000
settimer overweightMessageTimer overweightMessageCD

@setvar! noRegsMessageCD 4000
settimer noRegsMessageTimer noRegsMessageCD

@setvar! allGuardCD 3000
settimer allGuardTimer allGuardCD

@setvar! foodMessageCD 3333
settimer foodMessageTimer foodMessageCD

@setvar! autoHealMessageCD 4500
settimer autoHealMessageTimer 0

#--- Summons timers ---#

@setvar! summonMsgCD 1500
settimer summonMsgTimer summonMsgCD

#--- Resources timers ---#

@setvar! pouchMessageCD 2000
settimer pouchMessageTimer pouchMessageCD

@setvar! aidsMessageCD 2500
settimer aidsMessageTimer aidsMessageCD

@setvar! whiteMessageCD 3000
settimer whiteMessageTimer whiteMessageCD

@setvar! blueMessageCD 3500
settimer blueMessageTimer blueMessageCD

@setvar! blackMessageCD 4000
settimer blackMessageTimer blackMessageCD

@setvar! orangeMessageCD 4500
settimer orangeMessageTimer orangeMessageCD

@setvar! yellowMessageCD 5000
settimer yellowMessageTimer yellowMessageCD

@setvar! redMessageCD 5500
settimer redMessageTimer redMessageCD

#--- Magery buffs timers ---#

@setvar! magicReflectCD 15000
settimer magicReflectTimer magicReflectCD

@setvar! armorReflectCD 15000
settimer armorReflectTimer armorReflectCD

@setvar! protectionCD 15000
settimer protectionTimer protectionCD

@setvar! manaMessageCD 2222
settimer manaMessageTimer manaMessageCD

#--- Skills timers ---#

@setvar! spiritSpeakCD 60000
if not timerexists spiritSpeakTimer
    settimer spiritSpeakTimer spiritSpeakCD
endif

@setvar! meditationCD 10500
if not timerexists meditationTimer
    settimer meditationTimer meditationCD
endif

@setvar! meditationMessageCD 2777
if not timerexists meditationMessageTimer
    settimer meditationMessageTimer meditationMessageCD
endif

if not timerexists mushroomTimer
    settimer mushroomTimer mushroomTimerCD
endif

#********** PRE-SCRIPT FOOD BUFF AND TRACKING ON **********

if not findbuff "food" and findtype "tray" backpack as fody    
    dclick fody
    wait 200
endif

#********* CREATE MUSHROOMS *********
    
if insysmsg "You create"
endif  

while counttype 29012 backpack < mushroomCount and findtype 3963 self and findtype 3976 self and mana > 3
    cast 'create food'
    while not casting 
        cast 'create food'
    endwhile
    while casting
    endwhile
    wait 200
    getlabel backpack xxx
    if insysmsg! "you create"
        if insysmsg "you create a magic"
        else
            sysmsg "Wizard's Grimoire `create food` not found" 34
            @setvar! mushroomCount 0
            break 
        endif
    endif
endwhile
 

if not findbuff "tracking"
    
    while not gumpexists 4267467659
        sysmsg "opening tracking..." 11
        skill "tracking"
        wait maxwaittimeinms
    endwhile

    while not insysmsg "You will now hunt all hostile players"
        sysmsg "setting track to hostile players..." 11
        gumpresponse 8
        wait 500
        waitforgump 4267467659 maxwaittimeinms
    endwhile
    
    if ingump "Begin Hunting" 4267467659
        gumpresponse 6
        wait maxwaittimeinms
        waitforgump 4267467659 maxwaittimeinms
        wait maxwaittimeinms
        gumpclose 4267467659 
        wait 100
    endif

    sysmsg "* Now tracking hostile players *" 66
endif

#********** AUTO SPLIT REAGENTS **********# 

clearignore

if enableAutoSplitter = 1

    @setvar! amount 0
    @setvar! myRegBag 0
    @setvar! myPotionBag 0
    @setvar! myBandageBag 0
    
    @setvar! maxwaittimeinms 650
    
    
    if autoSelectRegBag = 1
        if findtype 30765 self as b
            @setvar! myRegBag b
        elseif findtype 3705 self as b
            @setvar! myRegBag b
        elseif findtype 3701 self as b
            @setvar! myRegBag b
        elseif findtype 3702 self as b
            @setvar! myRegBag b
        else 
            @setvar! myRegBag backpack
        endif
    else 
        clearsysmsg
        overhead "Select bag:" 68
        @setvar! myRegBag
        wait 200
        while not targetexists and not insysmsg "Select"
            @setvar! myRegBag    
        endwhile
        
        if find myRegBag self
            getlabel myRegBag bagLabel
       
            if "wizard's satchel" in bagLabel or "pouch" in bagLabel or "bag" in bagLabel or "backpack" in bagLabel
                sysmsg "new bag set" 55
            else 
                @setvar! myRegBag 0
                overhead "That is not a bag" 34
                sysmsg "That is not a bag" 34
                stop
            endif
        else 
            overhead "No bag found!" 34
            stop    
        endif
    endif
    
    if autoSelectPotionBag = 1
        if findtype 31262 self as b
            @setvar! myPotionBag b
        elseif findtype 3705 self as b
            @setvar! myPotionBag b
        elseif findtype 3701 self as b
            @setvar! myPotionBag b
        elseif findtype 3702 self as b
            @setvar! myPotionBag b
        else 
            @setvar! myPotionBag backpack
        endif
    else 
        clearsysmsg
        overhead "Select Potion bag:" 68
        @setvar! myPotionBag
        wait 200
        while not targetexists and not insysmsg "Select"
            @setvar! myPotionBag    
        endwhile
        
        if find myPotionBag self
            getlabel myPotionBag bagLabel
            
            if "alchemists satchel" in bagLabel or "pouch" in bagLabel or "bag" in bagLabel or "backpack" in bagLabel
                sysmsg "new bag set" 55
            else 
                @setvar! myPotionBag 0
                overhead "That is not a bag" 34
                sysmsg "That is not a bag" 34
                stop
            endif
        else 
            overhead "No bag found!" 34
            stop    
        endif
    endif
    
    #***** Misc Items  *****
    
    if autoSelectMiscBag = 1
        if findtype 3705 self as b
            @setvar! myMiscBag b
        elseif findtype 3701 self as b
            @setvar! myMiscBag b
        elseif findtype 3702 self as b
            @setvar! myMiscBag b
        else 
            @setvar! myMiscBag backpack
        endif
    else 
        clearsysmsg
        overhead "Select Misc bag:" 68
        @setvar! myMiscBag
        wait 200
        while not targetexists and not insysmsg "Select"
            @setvar! myMiscBag    
        endwhile
        
        if find myMiscBag self
            getlabel myMiscBag bagLabel
            
            if "wizard's satchel" in bagLabel or "pouch" in bagLabel or "bag" in bagLabel or "backpack" in bagLabel
                sysmsg "new bag set" 55
            else 
                @setvar! myMiscBag 0
                overhead "That is not a bag" 34
                sysmsg "That is not a bag" 34
                stop
            endif
        else 
            overhead "No bag found!" 34
            stop    
        endif
    endif
    
    overhead "Splitter Begin.." 55
    
    #***** SPIDER SILK 3981 *****
    
    @setvar! regsID 3981
    @setvar! myCounter 0
    
    while findtype regsID self as r 
        @setvar! myCounter index
        @ignore r
    endwhile
    @clearignore
    
    if counttype regsID self <= 10
        @setvar! amount 2
    elseif counttype regsID self <= 20
        @setvar! amount 4       
    elseif counttype regsID self <= 50
        @setvar! amount 10    
    elseif counttype regsID self <= 100
        @setvar! amount 20    
    elseif counttype regsID self <= 150
        @setvar! amount 30
    elseif counttype regsID self <= 200
        @setvar! amount 40
    else 
        @setvar! amount 50
    endif
    
    while findtype regsID self as regs
        @setvar! moveRegs 0 
        
        if myCounter = 0
            @setvar! moveRegs 1
        elseif myCounter != 0 and not find regs myRegBag
            @setvar! moveRegs 1
        endif
        
        if moveRegs = 1    
            overhead "splitting silks.." 0
            if index = 0
                lift regs amount
                drop myRegBag 44 65 0      
            elseif index = 1
                lift regs amount
                drop myRegBag 68 65 0           
            elseif index = 2
                lift regs amount
                drop myRegBag 96 65 0             
            elseif index = 3
                lift regs amount
                drop myRegBag 121 65 0            
            else
                lift regs amount
                drop myRegBag 142 65 0         
            endif
        endif
        
        @ignore regs 
        
        if moveRegs = 1
            wait maxwaittimeinms
        endif
    endwhile
    
    #***** BLACK PEARL 3962 *****
    
    @setvar! regsID 3962
    @setvar! myCounter 0
    
    while findtype regsID self as r 
        @setvar! myCounter index
        @ignore r
    endwhile
    @clearignore
    
    if counttype regsID self <= 10
        @setvar! amount 2
    elseif counttype regsID self <= 20
        @setvar! amount 4       
    elseif counttype regsID self <= 50
        @setvar! amount 10    
    elseif counttype regsID self <= 100
        @setvar! amount 20    
    elseif counttype regsID self <= 150
        @setvar! amount 30
    elseif counttype regsID self <= 200
        @setvar! amount 40
    else 
        @setvar! amount 50
    endif
    
    while findtype regsID self as regs
        @setvar! moveRegs 0 
        
        if myCounter = 0
            @setvar! moveRegs 1
        elseif myCounter != 0 and not find regs myRegBag
            @setvar! moveRegs 1
        endif
        
        if moveRegs = 1    
            overhead "splitting pearls.." 11
            if index = 0
                lift regs amount
                drop myRegBag 44 65 0      
            elseif index = 1
                lift regs amount
                drop myRegBag 68 65 0           
            elseif index = 2
                lift regs amount
                drop myRegBag 96 65 0             
            elseif index = 3
                lift regs amount
                drop myRegBag 121 65 0            
            else
                lift regs amount
                drop myRegBag 142 65 0         
            endif
        endif
        
        @ignore regs 
        
        if moveRegs = 1
            wait maxwaittimeinms
        endif
    endwhile
    
    #***** NIGHTSHADE 3976 *****
    
    @setvar! regsID 3976
    @setvar! myCounter 0
    
    while findtype regsID self as r 
        @setvar! myCounter index
        @ignore r
    endwhile
    @clearignore
    
    if counttype regsID self <= 10
        @setvar! amount 2
    elseif counttype regsID self <= 20
        @setvar! amount 4       
    elseif counttype regsID self <= 50
        @setvar! amount 10    
    elseif counttype regsID self <= 100
        @setvar! amount 20    
    elseif counttype regsID self <= 150
        @setvar! amount 30
    elseif counttype regsID self <= 200
        @setvar! amount 40
    else 
        @setvar! amount 50
    endif
    
    while findtype regsID self as regs
        @setvar! moveRegs 0 
        
        if myCounter = 0
            @setvar! moveRegs 1
        elseif myCounter != 0 and not find regs myRegBag
            @setvar! moveRegs 1
        endif
        
        if moveRegs = 1    
            overhead "splitting shades.." 66
            if index = 0
                lift regs amount
                drop myRegBag 44 88 0      
            elseif index = 1
                lift regs amount
                drop myRegBag 68 88 0           
            elseif index = 2
                lift regs amount
                drop myRegBag 96 88 0             
            elseif index = 3
                lift regs amount
                drop myRegBag 121 88 0            
            else
                lift regs amount
                drop myRegBag 142 88 0         
            endif
        endif
        
        @ignore regs 
        
        if moveRegs = 1
            wait maxwaittimeinms
        endif
    
    endwhile
    
    #***** MANDRAKE ROOT 3974 *****
    
    @setvar! regsID 3974
    @setvar! myCounter 0
    
    while findtype regsID self as r 
        @setvar! myCounter index
        @ignore r
    endwhile
    @clearignore
    
    if counttype regsID self <= 10
        @setvar! amount 2
    elseif counttype regsID self <= 20
        @setvar! amount 4       
    elseif counttype regsID self <= 50
        @setvar! amount 10    
    elseif counttype regsID self <= 100
        @setvar! amount 20    
    elseif counttype regsID self <= 150
        @setvar! amount 30
    elseif counttype regsID self <= 200
        @setvar! amount 40
    else 
        @setvar! amount 50
    endif
    
    while findtype regsID self as regs
        @setvar! moveRegs 0 
        
        if myCounter = 0
            @setvar! moveRegs 1
        elseif myCounter != 0 and not find regs myRegBag
            @setvar! moveRegs 1
        endif
        
        if moveRegs = 1    
            overhead "splitting roots.." 439
            if index = 0
                lift regs amount
                drop myRegBag 44 88 0      
            elseif index = 1
                lift regs amount
                drop myRegBag 68 88 0           
            elseif index = 2
                lift regs amount
                drop myRegBag 96 88 0             
            elseif index = 3
                lift regs amount
                drop myRegBag 121 88 0            
            else
                lift regs amount
                drop myRegBag 142 88 0         
            endif
        endif
        
        @ignore regs 
        
        if moveRegs = 1
            wait maxwaittimeinms
        endif
    
    endwhile
    
    #***** SULFUROUS ASH 3980 *****
    
    @setvar! regsID 3980
    @setvar! myCounter 0
    
    while findtype regsID self as r 
        @setvar! myCounter index
        @ignore r
    endwhile
    @clearignore
    
    if counttype regsID self <= 10
        @setvar! amount 2
    elseif counttype regsID self <= 20
        @setvar! amount 4       
    elseif counttype regsID self <= 50
        @setvar! amount 10    
    elseif counttype regsID self <= 100
        @setvar! amount 20    
    elseif counttype regsID self <= 150
        @setvar! amount 30
    elseif counttype regsID self <= 200
        @setvar! amount 40
    else 
        @setvar! amount 50
    endif
    
    while findtype regsID self as regs
        @setvar! moveRegs 0 
        
        if myCounter = 0
            @setvar! moveRegs 1
        elseif myCounter != 0 and not find regs myRegBag
            @setvar! moveRegs 1
        endif
        
        if moveRegs = 1    
            overhead "splitting ashes.." 56
            if index = 0
                lift regs amount
                drop myRegBag 44 112 0      
            elseif index = 1
                lift regs amount
                drop myRegBag 68 112 0           
            elseif index = 2
                lift regs amount
                drop myRegBag 96 112 0             
            elseif index = 3
                lift regs amount
                drop myRegBag 121 112 0            
            else
                lift regs amount
                drop myRegBag 142 112 0         
            endif
        endif
        
        @ignore regs 
        
        if moveRegs = 1
            wait maxwaittimeinms
        endif
    
    endwhile
    
    #***** GINSENG 3973 *****
    
    @setvar! regsID 3973
    @setvar! myCounter 0
    
    while findtype regsID self as r 
        @setvar! myCounter index
        @ignore r
    endwhile
    @clearignore
    
    if counttype regsID self <= 10
        @setvar! amount 2
    elseif counttype regsID self <= 20
        @setvar! amount 4       
    elseif counttype regsID self <= 50
        @setvar! amount 10    
    elseif counttype regsID self <= 100
        @setvar! amount 20    
    elseif counttype regsID self <= 150
        @setvar! amount 30
    elseif counttype regsID self <= 200
        @setvar! amount 40
    else 
        @setvar! amount 50
    endif
    
    while findtype regsID self as regs
        @setvar! moveRegs 0 
        
        if myCounter = 0
            @setvar! moveRegs 1
        elseif myCounter != 0 and not find regs myRegBag
            @setvar! moveRegs 1
        endif
        
        if moveRegs = 1    
            overhead "splitting gings.." 149
            if index = 0
                lift regs amount
                drop myRegBag 44 112 0      
            elseif index = 1
                lift regs amount
                drop myRegBag 68 112 0           
            elseif index = 2
                lift regs amount
                drop myRegBag 96 112 0             
            elseif index = 3
                lift regs amount
                drop myRegBag 121 112 0            
            else
                lift regs amount
                drop myRegBag 142 112 0         
            endif
        endif
        
        @ignore regs 
        
        if moveRegs = 1
            wait maxwaittimeinms
        endif
    
    endwhile
    
    #***** BLOSSMOSS 3963 *****
    
    @setvar! regsID 3963
    @setvar! myCounter 0
    
    while findtype regsID self as r 
        @setvar! myCounter index
        @ignore r
    endwhile
    @clearignore
    
    if counttype regsID self <= 10
        @setvar! amount 2
    elseif counttype regsID self <= 20
        @setvar! amount 4       
    elseif counttype regsID self <= 50
        @setvar! amount 10    
    elseif counttype regsID self <= 100
        @setvar! amount 20    
    elseif counttype regsID self <= 150
        @setvar! amount 30
    elseif counttype regsID self <= 200
        @setvar! amount 40
    else 
        @setvar! amount 50
    endif
    
    while findtype regsID self as regs
        @setvar! moveRegs 0 
        
        if myCounter = 0
            @setvar! moveRegs 1
        elseif myCounter != 0 and not find regs myRegBag
            @setvar! moveRegs 1
        endif
        
        if moveRegs = 1    
            overhead "splitting bloods.." 35
            if index = 0
                lift regs amount
                drop myRegBag 44 130 0      
            elseif index = 1
                lift regs amount
                drop myRegBag 68 130 0           
            elseif index = 2
                lift regs amount
                drop myRegBag 96 130 0             
            elseif index = 3
                lift regs amount
                drop myRegBag 121 130 0            
            else
                lift regs amount
                drop myRegBag 142 130 0         
            endif
        endif
        
        @ignore regs 
        
        if moveRegs = 1
            wait maxwaittimeinms
        endif
    
    endwhile
    
    #***** GARILIC 3972 *****
    
    @setvar! regsID 3972
    @setvar! myCounter 0
    
    while findtype regsID self as r 
        @setvar! myCounter index
        @ignore r
    endwhile
    @clearignore
    
    if counttype regsID self <= 10
        @setvar! amount 2
    elseif counttype regsID self <= 20
        @setvar! amount 4       
    elseif counttype regsID self <= 50
        @setvar! amount 10    
    elseif counttype regsID self <= 100
        @setvar! amount 20    
    elseif counttype regsID self <= 150
        @setvar! amount 30
    elseif counttype regsID self <= 200
        @setvar! amount 40
    else 
        @setvar! amount 50
    endif
    
    while findtype regsID self as regs
        @setvar! moveRegs 0 
        
        if myCounter = 0
            @setvar! moveRegs 1
        elseif myCounter != 0 and not find regs myRegBag
            @setvar! moveRegs 1
        endif
        
        if moveRegs = 1    
            overhead "splitting garlics.." 910
            if index = 0
                lift regs amount
                drop myRegBag 44 130 0      
            elseif index = 1
                lift regs amount
                drop myRegBag 68 130 0           
            elseif index = 2
                lift regs amount
                drop myRegBag 96 130 0             
            elseif index = 3
                lift regs amount
                drop myRegBag 121 130 0            
            else
                lift regs amount
                drop myRegBag 142 130 0         
            endif
        endif
        @ignore regs 
        
        if moveRegs = 1
            wait maxwaittimeinms
        endif
    
    endwhile
    
    #***** RECALL SCROLL 8012 *****
    
    @setvar! regsID 8012
    @setvar! myCounter 0
    
    while findtype regsID self as r 
        @setvar! myCounter index
        @ignore r
    endwhile
    @clearignore
    
    if counttype regsID self <= 5
        @setvar! amount 1
    elseif counttype regsID self <= 10
        @setvar! amount 2       
    elseif counttype regsID self <= 20
        @setvar! amount 4    
    elseif counttype regsID self <= 40
        @setvar! amount 8    
    else 
        @setvar! amount 15
    endif
    
    while findtype regsID self as regs
        @setvar! moveRegs 0 
        
        if myCounter = 0
            @setvar! moveRegs 1
        elseif myCounter != 0 and not find regs myRegBag
            @setvar! moveRegs 1
        endif
        if moveRegs = 1    
            overhead "splitting scrolls.." 0
            if index = 0
                lift regs amount
                drop myRegBag 44 88 0      
            elseif index = 1
                lift regs amount
                drop myRegBag 68 88 0           
            elseif index = 2
                lift regs amount
                drop myRegBag 96 88 0             
            elseif index = 3
                lift regs amount
                drop myRegBag 121 88 0            
            else
                lift regs amount
                drop myRegBag 142 88 0         
            endif
        endif
        
        @ignore regs 
        
        if moveRegs = 1
            wait maxwaittimeinms
        endif
    endwhile
    
    
    #***** Greater Heal 3852 *****
    
    @setvar! regsID 3852
    @setvar! myCounter 0
    
    while findtype regsID self as r 
        @setvar! myCounter index
        @ignore r
    endwhile
    @clearignore
    
    if counttype regsID self <= 10
        @setvar! amount 2
    elseif counttype regsID self <= 20
        @setvar! amount 4       
    elseif counttype regsID self <= 50
        @setvar! amount 10    
    elseif counttype regsID self <= 100
        @setvar! amount 20    
    elseif counttype regsID self <= 150
        @setvar! amount 30
    elseif counttype regsID self <= 200
        @setvar! amount 40
    else 
        @setvar! amount 50
    endif
    
    while findtype regsID self as regs
        @setvar! moveRegs 0 
        
        if myCounter = 0
            @setvar! moveRegs 1
        elseif myCounter != 0 and not find regs myPotionBag
            @setvar! moveRegs 1
        endif
        
        if moveRegs = 1    
            overhead "splitting Greater Heal.." 48
            if index = 0
                lift regs amount
                drop myPotionBag 44 65 0      
            elseif index = 1
                lift regs amount
                drop myPotionBag 68 65 0           
            elseif index = 2
                lift regs amount
                drop myPotionBag 96 65 0             
            elseif index = 3
                lift regs amount
                drop myPotionBag 121 65 0            
            else
                lift regs amount
                drop myPotionBag 142 65 0         
            endif
        endif
        
        @ignore regs 
        
        if moveRegs = 1
            wait maxwaittimeinms
        endif
    
    endwhile
    
    #***** Greater Cure 3847 *****
    
    @setvar! regsID 3847
    @setvar! myCounter 0
    
    while findtype regsID self as r 
        @setvar! myCounter index
        @ignore r
    endwhile
    @clearignore
    
    if counttype regsID self <= 10
        @setvar! amount 2
    elseif counttype regsID self <= 20
        @setvar! amount 4       
    elseif counttype regsID self <= 50
        @setvar! amount 10    
    elseif counttype regsID self <= 100
        @setvar! amount 20    
    elseif counttype regsID self <= 150
        @setvar! amount 30
    elseif counttype regsID self <= 200
        @setvar! amount 40
    else 
        @setvar! amount 50
    endif
    
    while findtype regsID self as regs
        @setvar! moveRegs 0 
        
        if myCounter = 0
            @setvar! moveRegs 1
        elseif myCounter != 0 and not find regs myPotionBag
            @setvar! moveRegs 1
        endif
        
        if moveRegs = 1    
            overhead "splitting Greater Cure.." 44
            if index = 0
                lift regs amount
                drop myPotionBag 44 65 0      
            elseif index = 1
                lift regs amount
                drop myPotionBag 68 65 0           
            elseif index = 2
                lift regs amount
                drop myPotionBag 96 65 0             
            elseif index = 3
                lift regs amount
                drop myPotionBag 121 65 0            
            else
                lift regs amount
                drop myPotionBag 142 65 0         
            endif
        endif
        
        @ignore regs 
        
        if moveRegs = 1
            wait maxwaittimeinms
        endif
    
    endwhile
    
    
    #***** Greater Agility 3848 *****
    
    @setvar! regsID 3848
    @setvar! myCounter 0
    
    while findtype regsID self as r 
        @setvar! myCounter index
        @ignore r
    endwhile
    @clearignore
    
    if counttype regsID self <= 10
        @setvar! amount 1
    elseif counttype regsID self <= 20
        @setvar! amount 2       
    elseif counttype regsID self <= 50
        @setvar! amount 4    
    elseif counttype regsID self <= 100
        @setvar! amount 10    
    elseif counttype regsID self <= 150
        @setvar! amount 20
    elseif counttype regsID self <= 200
        @setvar! amount 30
    else 
        @setvar! amount 40
    endif
    
    while findtype regsID self as regs
        @setvar! moveRegs 0 
        
        if myCounter = 0
            @setvar! moveRegs 1
        elseif myCounter != 0 and not find regs myPotionBag
            @setvar! moveRegs 1
        endif
        
        if moveRegs = 1    
            overhead "splitting Greater Agility.." 93
            if index = 0
                lift regs amount
                drop myPotionBag 44 88 0      
            elseif index = 1
                lift regs amount
                drop myPotionBag 68 88 0           
            elseif index = 2
                lift regs amount
                drop myPotionBag 96 88 0             
            elseif index = 3
                lift regs amount
                drop myPotionBag 121 88 0            
            else
                lift regs amount
                drop myPotionBag 142 88 0         
            endif
        endif
        
        @ignore regs 
        
        if moveRegs = 1
            wait maxwaittimeinms
        endif
    
    endwhile
    
    
    #***** Total Refresh 3851 *****
    
    @setvar! regsID 3851
    @setvar! myCounter 0
    
    while findtype regsID self as r 
        @setvar! myCounter index
        @ignore r
    endwhile
    @clearignore
    
    if counttype regsID self <= 10
        @setvar! amount 2
    elseif counttype regsID self <= 20
        @setvar! amount 4       
    elseif counttype regsID self <= 50
        @setvar! amount 10    
    elseif counttype regsID self <= 100
        @setvar! amount 20    
    elseif counttype regsID self <= 150
        @setvar! amount 30
    elseif counttype regsID self <= 200
        @setvar! amount 40
    else 
        @setvar! amount 50
    endif
    
    while findtype regsID self as regs
        @setvar! moveRegs 0 
        
        if myCounter = 0
            @setvar! moveRegs 1
        elseif myCounter != 0 and not find regs myPotionBag
            @setvar! moveRegs 1
        endif
        
        if moveRegs = 1    
            overhead "splitting Total Refresh.." 38
            if index = 0
                lift regs amount
                drop myPotionBag 44 88 0      
            elseif index = 1
                lift regs amount
                drop myPotionBag 68 88 0           
            elseif index = 2
                lift regs amount
                drop myPotionBag 96 88 0             
            elseif index = 3
                lift regs amount
                drop myPotionBag 121 88 0            
            else
                lift regs amount
                drop myPotionBag 142 88 0         
            endif
        endif
        
        @ignore regs 
        
        if moveRegs = 1
            wait maxwaittimeinms
        endif
    
    endwhile
    
    
    
    #***** Greater Magic Resist 3846 *****
    
    @setvar! regsID 3846
    @setvar! myCounter 0
    
    while findtype regsID self as r 
        @setvar! myCounter index
        @ignore r
    endwhile
    @clearignore
    
    if counttype regsID self <= 10
        @setvar! amount 1
    elseif counttype regsID self <= 20
        @setvar! amount 2       
    elseif counttype regsID self <= 50
        @setvar! amount 5   
    elseif counttype regsID self <= 100
        @setvar! amount 10    
    elseif counttype regsID self <= 150
        @setvar! amount 20
    elseif counttype regsID self <= 200
        @setvar! amount 30
    else 
        @setvar! amount 40
    endif
    
    while findtype regsID self as regs
        @setvar! moveRegs 0 
        
        if myCounter = 0
            @setvar! moveRegs 1
        elseif myCounter != 0 and not find regs myPotionBag
            @setvar! moveRegs 1
        endif
        
        if moveRegs = 1    
            overhead "splitting Greater Magic Resist.." 897
            if index = 0
                lift regs amount
                drop myPotionBag 44 112 0      
            elseif index = 1
                lift regs amount
                drop myPotionBag 68 112 0           
            elseif index = 2
                lift regs amount
                drop myPotionBag 96 112 0             
            elseif index = 3
                lift regs amount
                drop myPotionBag 121 112 0            
            else
                lift regs amount
                drop myPotionBag 142 112 0         
            endif
        endif
        
        @ignore regs 
        
        if moveRegs = 1
            wait maxwaittimeinms
        endif
    
    endwhile
    
    
    #***** Greater Strength 3849 *****
    
    @setvar! regsID 3849
    @setvar! myCounter 0
    
    while findtype regsID self as r 
        @setvar! myCounter index
        @ignore r
    endwhile
    @clearignore
    
    if counttype regsID self <= 10
        @setvar! amount 2
    elseif counttype regsID self <= 20
        @setvar! amount 4       
    elseif counttype regsID self <= 50
        @setvar! amount 10    
    elseif counttype regsID self <= 100
        @setvar! amount 20    
    elseif counttype regsID self <= 150
        @setvar! amount 30
    elseif counttype regsID self <= 200
        @setvar! amount 40
    else 
        @setvar! amount 50
    endif
    
    while findtype regsID self as regs
        @setvar! moveRegs 0 
        
        if myCounter = 0
            @setvar! moveRegs 1
        elseif myCounter != 0 and not find regs myPotionBag
            @setvar! moveRegs 1
        endif
        
        if moveRegs = 1    
            overhead "splitting Greater Strength.." 2041
            if index = 0
                lift regs amount
                drop myPotionBag 44 112 0      
            elseif index = 1
                lift regs amount
                drop myPotionBag 68 112 0           
            elseif index = 2
                lift regs amount
                drop myPotionBag 96 112 0             
            elseif index = 3
                lift regs amount
                drop myPotionBag 121 112 0            
            else
                lift regs amount
                drop myPotionBag 142 112 0         
            endif
        endif
        
        @ignore regs 
        
        if moveRegs = 1
            wait maxwaittimeinms
        endif
    
    endwhile
    
    
    #***** Greater Explode 3853 *****
    
    @setvar! regsID 3853
    @setvar! myCounter 0
    
    while findtype regsID self as r 
        @setvar! myCounter index
        @ignore r
    endwhile
    @clearignore
    
    if counttype regsID self <= 10
        @setvar! amount 2
    elseif counttype regsID self <= 20
        @setvar! amount 4       
    elseif counttype regsID self <= 50
        @setvar! amount 10    
    elseif counttype regsID self <= 100
        @setvar! amount 20    
    elseif counttype regsID self <= 150
        @setvar! amount 30
    elseif counttype regsID self <= 200
        @setvar! amount 40
    else 
        @setvar! amount 50
    endif
    
    while findtype regsID self as regs
        @setvar! moveRegs 0 
        
        if myCounter = 0
            @setvar! moveRegs 1
        elseif myCounter != 0 and not find regs myPotionBag
            @setvar! moveRegs 1
        endif
        
        if moveRegs = 1    
            overhead "splitting Greater Explode.." 1275
            if index = 0
                lift regs amount
                drop myPotionBag 44 130 0      
            elseif index = 1
                lift regs amount
                drop myPotionBag 68 130 0           
            elseif index = 2
                lift regs amount
                drop myPotionBag 96 130 0             
            elseif index = 3
                lift regs amount
                drop myPotionBag 121 130 0            
            else
                lift regs amount
                drop myPotionBag 142 130 0         
            endif
        endif
        
        @ignore regs 
        
        if moveRegs = 1
            wait maxwaittimeinms
        endif
    
    endwhile
    
    
    
    #***** Lethal Poison 3850 *****
    
    @setvar! regsID 3850
    @setvar! myCounter 0
    
    while findtype regsID self as r 
        @setvar! myCounter index
        @ignore r
    endwhile
    @clearignore
    
    if counttype regsID self <= 10
        @setvar! amount 2
    elseif counttype regsID self <= 20
        @setvar! amount 4       
    elseif counttype regsID self <= 50
        @setvar! amount 10    
    elseif counttype regsID self <= 100
        @setvar! amount 20    
    elseif counttype regsID self <= 150
        @setvar! amount 30
    elseif counttype regsID self <= 200
        @setvar! amount 40
    else 
        @setvar! amount 50
    endif
    
    while findtype regsID self as regs
        @setvar! moveRegs 0 
        
        if myCounter = 0
            @setvar! moveRegs 1
        elseif myCounter != 0 and not find regs myPotionBag
            @setvar! moveRegs 1
        endif
        
        if moveRegs = 1    
            overhead "splitting Lethal Poison.." 1267
            if index = 0
                lift regs amount
                drop myPotionBag 44 130 0      
            elseif index = 1
                lift regs amount
                drop myPotionBag 68 130 0           
            elseif index = 2
                lift regs amount
                drop myPotionBag 96 130 0             
            elseif index = 3
                lift regs amount
                drop myPotionBag 121 130 0            
            else
                lift regs amount
                drop myPotionBag 142 130 0         
            endif
        endif
        @ignore regs 
        
        if moveRegs = 1
            wait maxwaittimeinms
        endif
    endwhile
    
    
    #***** Bandages 3617 *****
    
    @setvar! regsID 3617
    @setvar! myCounter 0
    
    while findtype regsID self as r 
        @setvar! myCounter index
        @ignore r
    endwhile
    @clearignore
    
    if counttype regsID self <= 10
        @setvar! amount 2
    elseif counttype regsID self <= 20
        @setvar! amount 4       
    elseif counttype regsID self <= 50
        @setvar! amount 10    
    elseif counttype regsID self <= 100
        @setvar! amount 20    
    elseif counttype regsID self <= 150
        @setvar! amount 30
    elseif counttype regsID self <= 200
        @setvar! amount 40
    else 
        @setvar! amount 50
    endif
    
    while findtype regsID self as regs
        @setvar! moveRegs 0 
        
        if myCounter = 0
            @setvar! moveRegs 1
        elseif myCounter != 0 and not find regs myMiscBag
            @setvar! moveRegs 1
        endif
        
        if moveRegs = 1    
            overhead "splitting Bandages.." 0
            if index = 0
                lift regs amount
                drop myMiscBag 44 65 0      
            elseif index = 1
                lift regs amount
                drop myMiscBag 68 65 0           
            elseif index = 2
                lift regs amount
                drop myMiscBag 96 65 0             
            elseif index = 3
                lift regs amount
                drop myMiscBag 121 65 0            
            else
                lift regs amount
                drop myMiscBag 142 65 0         
            endif
        endif
        
        @ignore regs 
        
        if moveRegs = 1
            wait maxwaittimeinms
        endif
    
    endwhile
    
    #***** Rope 5370 *****
    
    @setvar! regsID 5370
    @setvar! myCounter 0
    
    while findtype regsID self as r 
        @setvar! myCounter index
        @ignore r
    endwhile
    @clearignore
    
    if counttype regsID self <= 10
        @setvar! amount 2
    elseif counttype regsID self <= 20
        @setvar! amount 4       
    elseif counttype regsID self <= 50
        @setvar! amount 10    
    elseif counttype regsID self <= 100
        @setvar! amount 20    
    elseif counttype regsID self <= 150
        @setvar! amount 30
    elseif counttype regsID self <= 200
        @setvar! amount 40
    else 
        @setvar! amount 50
    endif
    
    while findtype regsID self as regs
        @setvar! moveRegs 0 
        
        if myCounter = 0
            @setvar! moveRegs 1
        elseif myCounter != 0 and not find regs myMiscBag
            @setvar! moveRegs 1
        endif
        
        if moveRegs = 1    
            overhead "splitting Rope.." 360
            if index = 0
                lift regs amount
                drop myMiscBag 44 65 0      
            elseif index = 1
                lift regs amount
                drop myMiscBag 68 65 0           
            elseif index = 2
                lift regs amount
                drop myMiscBag 96 65 0             
            elseif index = 3
                lift regs amount
                drop myMiscBag 121 65 0            
            else
                lift regs amount
                drop myMiscBag 142 65 0         
            endif
        endif
        
        @ignore regs 
        
        if moveRegs = 1
            wait maxwaittimeinms
        endif
    endwhile
    
    overhead "Splitter completed" 0

endif

sysmsg "* auto-lumber activated *" 66
overhead "* auto-lumber activated *" 66

clearsysmsg
clearhands both

while not dead 
    settimer cycleTimer 0
    
    if targetexists
        hotkey 'cancel current target'  
    endif
    
    if enemyFound = 0
        if insysmsg! "Now tracking" or insysmsg! "Distance to"
            @setvar! enemyFound 1
        endif
    endif

#********** TRIGGER AUTO-RECALL IF BEING ATTACKED / OUT OF REGS / ENEMY TOO CLOSE **********
    
    if cooldown "Danger" > 0 
        if timer beingAttackedTimer > beingAttackedCD
            sysmsg "* being attacked *" 34
            settimer beingAttackedTimer 0
        endif
        @setvar! autoRecall 1
        @setvar! enemyFound 1
    endif  
    
    if minRegs != 0
        if counttype 3963 self <= minRegs or counttype 3973 self <= minRegs or counttype 3972 self <= minRegs or counttype 3980 self <= minRegs or counttype 3962 self <= minRegs or counttype 3981 self <= minRegs or counttype 3974 self <= minRegs or counttype 3976 self <= minRegs
            overhead "* low reagents *" 34
            sysmsg " *low reagents recalling out *" 34
            
            @setvar! autoRecall 1
            @setvar! enemyFound 1
        endif
    endif
    
    if insysmsg ": 0 s" or insysmsg ": 1 s" or insysmsg ": 2 s" or insysmsg ": 3 s" or insysmsg ": 4 s" or insysmsg ": 5 s" or insysmsg ": 6 s" or insysmsg ": 7 s" or insysmsg ": 8 s" or insysmsg ": 9 s"
        sysmsg "* recalling enemy very close [d 0-9] *" 33
        @setvar! autoRecall 1
        @setvar! enemyFound 1
    elseif insysmsg ": 10 s" or insysmsg ": 11 s" or insysmsg ": 12 s" or insysmsg ": 13 s" or insysmsg ": 14 s" or insysmsg ": 15 s" or insysmsg ": 16 s" or insysmsg ": 17 s"
        sysmsg "* recalling enemy very close [d 10-17] *" 33
        @setvar! autoRecall 1
        @setvar! enemyFound 1
    elseif insysmsg ": 18 s" or insysmsg ": 19 s" or insysmsg ": 20 s" or insysmsg ": 21 s" or insysmsg ": 22 s" or insysmsg ": 23 s" or insysmsg ": 24 s" or insysmsg ": 25 s"
        sysmsg "* recalling enemy very close [d 18-25] *" 33
        @setvar! autoRecall 1
        @setvar! enemyFound 1
    elseif insysmsg ": 26 s" or insysmsg ": 27 s" or insysmsg ": 28 s" or insysmsg ": 29 s" or insysmsg ": 30 s" or insysmsg ": 31 s" or insysmsg ": 32 s" or insysmsg ": 33 s"
        sysmsg "* recalling enemy very close [d 26-33] *" 33
        @setvar! autoRecall 1
        @setvar! enemyFound 1
    elseif insysmsg ": 34 s" or insysmsg ": 35 s" or insysmsg ": 36 s" or insysmsg ": 37 s" or insysmsg ": 38 s" or insysmsg ": 39 s" or insysmsg ": 40 s"
        sysmsg "* recalling enemy very close [d 34-40] *" 33
        @setvar! autoRecall 1
        @setvar! enemyFound 1
    elseif insysmsg "(0 s" or insysmsg "(1 s" or insysmsg "(2 s" or insysmsg "(3 s" or insysmsg "(4 s" or insysmsg "(5 s" or insysmsg "(6 s" or insysmsg "(7 s" or insysmsg "(8 s" or insysmsg "(9 s"
        sysmsg "* recalling enemy very close [n 0-9] *" 33
        @setvar! autoRecall 1
        @setvar! enemyFound 1
    elseif insysmsg "(10 s" or insysmsg "(11 s" or insysmsg "(12 s" or insysmsg "(13 s" or insysmsg "(14 s" or insysmsg "(15 s" or insysmsg "(16 s" or insysmsg "(17 s"
        sysmsg "* recalling enemy very close [n 10-17] *" 33
        @setvar! autoRecall 1
        @setvar! enemyFound 1
    elseif insysmsg "(18 s" or insysmsg "(19 s" or insysmsg "(20 s" or insysmsg "(21 s" or insysmsg "(22 s" or insysmsg "(23 s" or insysmsg "(24 s" or insysmsg "(25 s"
        sysmsg "* recalling enemy very close [n 18-25] *" 33
        @setvar! autoRecall 1
        @setvar! enemyFound 1
    elseif insysmsg "(26 s" or insysmsg "(27 s" or insysmsg "(28 s" or insysmsg "(29 s" or insysmsg "(30 s" or insysmsg "(31 s" or insysmsg "(32 s" or insysmsg "(33 s"
        sysmsg "* recalling enemy very close [n 26-33] *" 33
        @setvar! autoRecall 1
        @setvar! enemyFound 1
    elseif insysmsg "(34 s" or insysmsg "(35 s" or insysmsg "(36 s" or insysmsg "(37 s" or insysmsg "(38 s" or insysmsg "(39 s" or insysmsg "(40 s"
        sysmsg "* recalling enemy very close [n 34-40] *" 33
        @setvar! autoRecall 1
        @setvar! enemyFound 1
    endif
    
#********** AUTO-RECALL OUT IF NECESSARY **********
    
    if enemyFound = 1 and autoRecall = 1
        sysmsg "recalling..." 66
        interrupt
        clearignore
        if targetexists
            hotkey 'cancel current target'  
            wait 250
        endif
        
        while mana <= 10 and diffhits < activateAutoHealDiff
            overhead "* low mana to recall *" 44
            wait maxwaittimeinms
        endwhile
        
#********** USING REAGENTS OR RECALL SCROLL ********** 

        if insysmsg "that location is blocked"
        endif
        if insysmsg "charges"
        endif
        if insysmsg "Your concentration is disturbed"
        endif
        if insysmsg "marked"
        endif

        if recallType = 0 or recallType = 1
        
            while not casting
                if recallType = 0
                    cast 'recall'
                    #sysmsg "recalling using regs" 11
                else 
                    dclicktype "recall" self
                    #sysmsg "recalling using scroll" 11
                endif
            endwhile 
            
            while not targetexists
                if insysmsg "Your concentration is disturbed"
                    interrupt
                    break                
                endif            
            endwhile
            
            if targetexists and findtype "runebook|runetome" backpack as obj
                
                while findtype "runebook|runetome" backpack as book 
                    if hue book = recallBookHue                          
                        target book
                        wait 250
                        break
                    endif                              
                    @ignore book                           
                endwhile
                
                clearignore
                
                if insysmsg "marked"
                    sysmsg "Runebook is not marked! Mark the book NOW!" 16
                elseif insysmsg "blocked"
                    sysmsg "Location Blocked! Now using book charge first rune!" 16
                    @setvar! recallType 2
                elseif not findtype 3974 self or not findtype 3962 self or not findtype 3963 self 
                    sysmsg "No reagents! Now using book charge first rune!"
                    @setvar! recallType 2
                elseif targetexists
                    sysmsg "Hued Book not found. Switching to any book hue" 16
                    @setvar! recallBookHue 0
                else 
                    overhead "Successful" 65 
                    sysmsg "Lumberjacking Completed!" 65 
                    stop  
                endif                    
                
            elseif targetexists and findtype "recall rune" backpack as obj
                @setvar! tempRune 0  

                while findtype "recall rune" backpack as obj
                    getlabel obj runeLabel  
                    if "blank" in runeLabel
                    else 
                        if "home" in runeLabel
                            target obj
                            @setvar! tempRune obj  
                            break
                        endif
                        @setvar! tempRune obj    
                    endif
                    @ignore obj
                endwhile
                
                @clearignore
                wait 250
                
                if tempRune = 0 
                    sysmsg "No recalleable rune found" 34
                    hotkey "cancel current target"                
                elseif insysmsg "blocked" 
                    sysmsg "Location Blocked!" 34
                else
                    overhead "Successful" 65 
                    sysmsg "Lumberjacking Completed!" 65    
                    stop
                endif                                     
                                                     
            elseif targetexists
                sysmsg "No recall book or rune found" 34
                stop
            endif

        elseif recallType = 2 or recallType = 3

#********** USING RECALL BOOK CHARGE **********   
            
            if findtype "runebook|runetome" backpack
            
                while diffhits < activateAutoHealDiff
                    @setvar! foundBook 0
                    
                    while findtype "runebook" backpack as book
                        if hue book = recallBookHue or recallBookHue = 0
                            dclick book backpack
                            waitforgump 1551740969 maxwaittimeinms
                            
                            if recallType = 2
                                gumpresponse 2 
                            elseif recallType = 3
                                gumpresponse 92
                            endif
                            
                            @setvar! foundBook book
                            break
                        else 
                            @ignore book
                        endif
                    endwhile
                    
                    while foundBook = 0 and findtype "runetome" backpack as book
                        if gumpexists 167090027
                            gumpclose 167090027
                            wait 250
                        endif
                        
                        if hue book = recallBookHue or recallBookHue = 0
                            dclick book backpack
                            waitforgump 167090027 maxwaittimeinms
                            
                            if recallType = 2
                                gumpresponse 100 
                            elseif recallType = 3 
                                gumpresponse 125
                            endif
                            
                            @setvar! foundBook book
                            break
                        else 
                            @ignore book
                        endif
                    endwhile
                    
                    wait 250
                    clearignore
                    
                    while casting
                    endwhile
                    
                    wait 250
                    
                    if foundBook = 0 
                        sysmsg "Recall book not found!" 34   
                        sysmsg "Switching to type 0 using reagents" 55
                    elseif insysmsg "charges"
                        sysmsg "No recall charges!" 34
                        sysmsg "Switching to type 0 using reagents" 55
                    elseif insysmsg "This book"
                        sysmsg "Recall book cooldown!" 34
                    else
                        if insysmsg "concentration"
                            sysmsg "Interrupted!" 34
                        elseif insysmsg "location"
                            sysmsg "Location blocked!" 
                            if recallType = 2 
                                @setvar! recallType 3 
                                sysmsg "Switching to type 3 last rune charge" 55
                            else
                                @setvar! recallType 2
                                sysmsg "Switching to type 2 first rune charge" 55
                            endif
                        else
                            overhead "Successful" 65 
                            sysmsg "Lumberjacking Completed!" 65
                            stop
                        endif
                    endif
                endwhile
            else 
                overhead "No runebook or runetome found to use charge!" 34
            endif
        else 
            overhead "Variable 'recallType' value out of range" 34
        endif                     
    endif
    
#********** AUTO HEALING START  **********#         

    while diffhits >= activateAutoHealDiff or paralyzed or poisoned
        if dead
            stop
        endif
        
        if not findtype 3972 or not findtype 3962  or not findtype 3963 or not findtype 3980 or not findtype 3976 or not findtype 3973 or not findtype 3974 or not findtype 3981 
            @setvar! missingRegs 1
            if timer noRegsMessageTimer > noRegsMessageCD
                overhead "* Missing Reagents *" 34
                settimer noRegsMessageTimer 0
            endif
        endif
        
        @setvar! castingInterrupted 0
        
        if timer allGuardTimer > allGuardCD and followers > 0
            sysmsg "heal loop: all guard"
            say 'ALL Guard ME' 88
            settimer allGuardTimer 0
        endif
        
        if timer autoHealMessageTimer > autoHealMessageCD
            overhead "* auto-healing *" 90
            settimer autoHealMessageTimer 0
        endif   
    
        if not findbuff "food" 
            if findtype "tray" backpack as fody    
                dclick fody
                wait 200
            else 
                if timer foodMessageTimer > foodMessageCD
                    overhead "No food found!" 34
                    settimer foodMessageTimer 0
                endif
            endif
        endif
        
        #--- Drink str pot ---#
        
        if drinkStr = 1 and str < strengthLowerThan
            if not findbuff "Strength" 
                if findtype "White Potion" self
                    dclicktype "White Potion"
                    wait 200
                else
                    if timer whiteMessageTimer > whiteMessageCD
                        overhead "Out of str pots" 34
                        settimer whiteMessageTimer 0 
                    endif
                endif
            endif
        endif
        
        #--- Drink agility pot ---#
        
        if drinkAgility = 1
            if not findbuff "Agility" 
                if findtype "Blue Potion" self
                    dclicktype "Blue Potion"
                    wait 200
                else
                    if timer blueMessageTimer > blueMessageCD
                        overhead "Out of agility pots" 34
                        settimer blueMessageTimer 0 
                    endif
                endif
            endif
        endif
            
        #--- Drink magic resist pot ---#
    
        if drinkMagicResist = 1
            if not findbuff "Magic Resist" 
                if findtype "Black Potion" self
                    dclicktype "Black Potion"
                    wait 200
                else
                    if timer blackMessageTimer > blackMessageCD
                        overhead "Out of resist pots" 34
                        settimer blackMessageTimer 0
                    endif
                endif
            endif
        endif
        
        #--- Drink red pot ---#
        
        if diffstam > drinkWhenMissingStamina and 1 = drinkRefresh
            if findtype "Red Potion" self
                dclicktype "Red Potion"
                wait 200
            else
                if timer redMessageTimer > redMessageCD
                    overhead "Out of refresh pots" 34
                    settimer redMessageTimer 0 
                endif
            endif
        endif
        
        #--- Trapped ---#
        
        if paralyzed 
            if findtype "pouch" backpack 38 
                yell "[pouch"            
                wait 200
            else
                if timer pouchMessageTimer > pouchMessageCD
                    overhead "Out of Pouches!" 34
                    settimer pouchMessageTimer 0
                endif
            endif
        endif
            
        #--- Self bandage ---#
        
        if diffhits >= 1 and not bandaging
            if skill 'healing' >= 50 or skill "veterinary" >= 50
                if findtype 'clean bandage%s%' backpack
                
                    if targetexists
                        hotkey 'cancel current target'  
                    endif
                    dclicktype 'clean bandage%s%'
                    waitfortarget maxwaittimeinms
                    target 'self'
                    wait 200            
                else
                    if timer aidsMessageTimer > aidsMessageCD
                        overhead "Out of bandages" 34
                        settimer aidsMessageTimer 0
                    endif
                endif
            endif
        endif
            
        #--- Poisoned ---#
        
        if 1 = drinkCure or 1 = cureSpell
            while poisoned
                if findtype "Orange Potion" self
                    
                    dclicktype "Orange Potion"
                    wait 200
                else
                    if timer orangeMessageTimer > orangeMessageCD
                        overhead "Out of cure pots" 34
                        settimer orangeMessageTimer 0
                    endif
                    
                    if diffhits >= 30 or not findtype 3972 self or not findtype 3973 self
                        break
                    endif
                    
                    if skill 'magery' >= 40 and mana >= 6 and 1 = cureSpell and not casting
                        cast 'cure'
                        wait 50
                        while not casting                   
                            if targetexists
                                hotkey 'cancel current target'
                            endif
                            cast 'cure'  
                            wait 50
                        endwhile  
                        while not targetexists and casting
                        endwhile
                        waitfortarget maxwaittimeinms
                        target 'self' 
                        wait 200
                    else 
                        break
                    endif
                endif
            endwhile
        endif
            
        #--- Drink Heal Pot ---#
        
        if diffhits >= drinkHealPotDiff and 1 = drinkHeal
            if findtype "Yellow Potion" self as hPot
                getlabel hPot potLabel
                if "next" in potLabel
                    #do nothing
                else
                    @setvar! ch 0
                    
                    if counttype 3852 self as c
                        @setvar! ch c
                    endif
                    if insysmsg "potion satchel used"
                    endif
                    
                    dclicktype 3852
                    getlabel backpack xxx
                    wait 200
                                
                    if ch != counttype 3852 self or insysmsg "potion satchel used"
                        cooldown "Heal Pot" healingPotCD
                    endif
                endif
            else
                if timer yellowMessageTimer > yellowMessageCD
                    overhead "Out of heals pots" 34
                    settimer yellowMessageTimer 0
                endif
            endif
        endif
            
        #--- Cast heals ---#
        
        if skill 'magery' >= 40 and diffhits >= startCastMiniHealDiff and diffhits < endCastMiniHealDiff and mana >= 4 and miniHeal = 1 and not casting
            if insysmsg "Your concentration is disturbed"
            endif  
            
            sysmsg 'mini heal' 11
            cast 'heal'
            while not casting                   
                if targetexists
                    hotkey 'cancel current target'
                endif
                cast 'heal'
            endwhile  
            
            while not targetexists
                if insysmsg "Your concentration is disturbed"
                    interrupt
                    @setvar! castingInterrupted 1
                    break                
                endif
            endwhile
            
            if 0 = castingInterrupted
                target 'self' 
            endif 
            
        elseif skill 'magery' >= 40 and diffhits >= castEmergencyMiniHealDiff and mana >= 4 and miniHeal = 1 and not casting
            if insysmsg "Your concentration is disturbed"
            endif  
            sysmsg "mini heal" 11
            cast 'heal'
            while not casting                   
                if targetexists
                    hotkey 'cancel current target'
                endif
                cast 'heal'
            endwhile  
            
            while not targetexists
                if insysmsg "Your concentration is disturbed"
                    interrupt
                    @setvar! castingInterrupted 1
                    break                
                endif
            endwhile
            
            if 0 = castingInterrupted
                target 'self' 
            endif 
            
        elseif skill 'magery' >= 60 and diffhits >= startCastGreaterHealDiff and diffhits < endCastGreaterHealDiff and mana >= 11 and greaterHeal = 1 and not casting
            if insysmsg "Your concentration is disturbed"
            endif  
                        
            sysmsg "greater heal" 11
            cast 'greater heal'         
            while not casting                   
                if targetexists
                    hotkey 'cancel current target'
                endif
                cast 'greater heal'
            endwhile  
            
            @settimer! spellTimer 0  
            @setvar! spellCD 800  
            
            while not targetexists
                if insysmsg "Your concentration is disturbed"
                    interrupt
                    @setvar! castingInterrupted 1
                    break                
                endif 
                
                if timer spellTimer < spellCD
                    #--- Poisoned ---#
                    
                    if 1 = drinkCure
                        while poisoned and casting and not targetexists 
                            if findtype "Orange Potion" self
                                dclicktype "Orange Potion"
                                wait 200
                            else
                                if timer orangeMessageTimer > orangeMessageCD
                                    overhead "Out of cure pots" 34
                                    settimer orangeMessageTimer 0
                                endif
                                break
                            endif
                        endwhile
                    endif            
                
                    #--- Drink Heal Pot ---#
                    
                    if diffhits >= drinkHealPotDiff and 1 = drinkHeal and casting and not targetexists
                        if findtype "Yellow Potion" self as hPot
                            getlabel hPot potLabel
                            if "next" in potLabel
                                #do nothing
                            else
                                @setvar! ch 0
                                
                                if counttype 3852 self as c
                                    @setvar! ch c
                                endif
                                if insysmsg "potion satchel used"
                                endif
            
                                dclicktype 3852
                                getlabel backpack xxx
                                wait 200
                                            
                                if ch != counttype 3852 self or insysmsg "potion satchel used"
                                    cooldown "Heal Pot" healingPotCD
                                    if diffhits < activateAutoHealDiff
                                        interrupt
                                        if targetexists
                                            hotkey 'cancel current target'
                                        endif
                                    endif
                                endif
                            endif
                        else
                            if timer yellowMessageTimer > yellowMessageCD
                                overhead "Out of heals pots" 34
                                settimer yellowMessageTimer 0
                            endif
                        endif
                    endif
                endif
            endwhile
            
            if 0 = castingInterrupted
                target 'self' 
            endif 
        
        endif 
    
    endwhile
    
#********** AUTO-MAGERY BUFFS IF NEEDED **********          
    @setvar! castingInterrupted 0
    
    if magicReflect = 1 and skill 'magery' >= 70 and not findbuff "Magic Reflection" and mana >= miniumManaToBuff and diffhits < activateAutoHealDiff and timer magicReflectTimer > magicReflectCD and findtype 3972 self and findtype 3974 self and findtype 3981 self
        if insysmsg "that spell will not"
        endif
        if insysmsg "that spell is already"
        endif
        sysmsg "magic reflect" 11
        cast 'Magic Reflection'
        while not casting 
            getlabel backpack xxx
            wait 200
            if insysmsg "that spell will not" or insysmsg "that spell is already"
                settimer magicReflectTimer 0
                break  
            endif
            if targetexists
                hotkey 'cancel current target'
            endif
            cast 'Magic Reflection'
        endwhile 
        
        while casting 
            if diffhits >= interruptCastingDiff
                interrupt
                @setvar! castingInterrupted 1 
                break
            endif            
            #--- Poisoned ---#
            
            if 1 = drinkCure
                while poisoned and casting and not targetexists 
                    if findtype "Orange Potion" self
                        sysmsg "pot cure - reflect" 11
                        dclicktype "Orange Potion"
                        wait 200
                    else
                        if timer orangeMessageTimer > orangeMessageCD
                            overhead "Out of cure pots" 34
                            settimer orangeMessageTimer 0
                        endif
                        break
                    endif
                endwhile
            endif            
        
            #--- Drink Heal Pot ---#
            
            if diffhits >= drinkHealPotDiff and 1 = drinkHeal and casting and not targetexists
                if findtype "Yellow Potion" self as hPot
                    getlabel hPot potLabel
                    if "next" in potLabel
                        #do nothing
                    else
                        @setvar! ch 0
                        
                        if counttype 3852 self as c
                            @setvar! ch c
                        endif
                        if insysmsg "potion satchel used"
                        endif
                        sysmsg "pot heal - reflect" 11
                        dclicktype 3852
                        getlabel backpack xxx
                        wait 200
                                    
                        if ch != counttype 3852 self or insysmsg "potion satchel used"
                            cooldown "Heal Pot" healingPotCD
                        endif
                    endif
                else
                    if timer yellowMessageTimer > yellowMessageCD
                        overhead "Out of heals pots" 34
                        settimer yellowMessageTimer 0
                    endif
                endif
            endif
            
        endwhile
        wait 200  
  
    endif
    
    if armorReflect = 1 and skill 'magery' >= 30 and not findbuff "Reactive Armor" and mana >= miniumManaToBuff and diffhits < activateAutoHealDiff and timer armorReflectTimer > armorReflectCD and findtype 3980 self and findtype 3972 self and findtype 3981 self
        if insysmsg "that spell will not"
        endif
        if insysmsg "that spell is already"
        endif
        sysmsg "reflect armor" 11
        cast 'Reactive Armor'
        while not casting   
            getlabel backpack xxx
            wait 200
            if insysmsg "that spell will not" or insysmsg "that spell is already"
                settimer armorReflectTimer 0
                break  
            endif
            if targetexists
                hotkey 'cancel current target'
            endif
            cast 'Reactive Armor'
        endwhile  
        
        while casting 
        endwhile
        getlabel backpack xxx
        wait 200  
    endif     
    
    if protectionSpell = 1 and skill 'magery' >= 40 and not findbuff "Protection" and mana >= miniumManaToBuff and diffhits < activateAutoHealDiff and findtype 3980 self and findtype 3972 self and findtype 3973 self
        sysmsg "protect" 11
        cast 'Protection'
        while not casting
            if targetexists
                hotkey 'cancel current target'
            endif
            cast 'Protection'
        endwhile  
        while casting
        endwhile
        wait 200  
    endif 
    
    if blessSpell = 1 and skill 'magery' >= 50 and not findbuff "Cunning" and mana >= miniumManaToBuff and diffhits < activateAutoHealDiff and findtype 3972 self and findtype 3974 self
        sysmsg "bless" 11
        cast 'Bless'         
        while not casting                  
            if targetexists
                hotkey 'cancel current target'
            endif
            cast 'Bless'
            wait 50
        endwhile  
        
        while not targetexists and casting
        endwhile
        
        waitfortarget maxwaittimeinms
        target 'self' 
        wait 200  
    endif  

#********** CHECK FOR WOODEN BOX & CAST SUMMONS ********** 

    if not findtype "wooden box" backpack or not findtype "copper key" backpack
        overhead "Need 1 wooden box and 1 copper key to begin!" 33
        wait maxwaittimeinms       
    elseif counttype 2474 backpack > 1 or counttype 4110 backpack > 1 
         overhead "You have more than 2 wooden boxes or more than 2 copper keys" 33
         wait maxwaittimeinms       
    elseif findtype "wooden box" backpack as chest and findtype "copper key" backpack as key
        getlabel chest chestLabel
        if "items" in chestLabel
            dclick key
            waitfortarget maxwaittimeinms
            target chest
            wait maxwaittimeinms
            overhead "[chest locked]" 55
        endif
    
        #Check if we want to cast
        
        if enemyFound = 0 or autoRecall = 0

#********** START AUTO SUMMONING **********# 

            while followers < maxFollowers and diffhits < activateAutoHealDiff
                
                #--- Eat Food ---#
        
                if not findbuff "food" 
                    if findtype "tray" backpack as fody    
                        dclick fody
                        wait 200
                    else 
                        if timer foodMessageTimer > foodMessageCD
                            overhead "No food found!" 34
                            settimer foodMessageTimer 0
                        endif
                    endif
                endif
                
                #--- Drink str pot ---#
                
                if drinkStr = 1 and str < strengthLowerThan
                    if not findbuff "Strength" 
                        if findtype "White Potion" self
                            dclicktype "White Potion"
                            wait 200
                        else
                            if timer whiteMessageTimer > whiteMessageCD
                                overhead "Out of str pots" 34
                                settimer whiteMessageTimer 0 
                            endif
                        endif
                    endif
                endif
                
                #--- Drink agility pot ---#
                
                if drinkAgility = 1
                    if not findbuff "Agility" 
                        if findtype "Blue Potion" self
                            dclicktype "Blue Potion"
                            wait 200
                        else
                            if timer blueMessageTimer > blueMessageCD
                                overhead "Out of agility pots" 34
                                settimer blueMessageTimer 0 
                            endif
                        endif
                    endif
                endif
                    
                #--- Drink magic resist pot ---#
            
                if drinkMagicResist = 1
                    if not findbuff "Magic Resist" 
                        if findtype "Black Potion" self
                            dclicktype "Black Potion"
                            wait 200
                        else
                            if timer blackMessageTimer > blackMessageCD
                                overhead "Out of resist pots" 34
                                settimer blackMessageTimer 0
                            endif
                        endif
                    endif
                endif
                
                #--- Drink red pot ---#
                
                if diffstam > drinkWhenMissingStamina and 1 = drinkRefresh
                    if findtype "Red Potion" self
                        dclicktype "Red Potion"
                        wait 200
                    else
                        if timer redMessageTimer > redMessageCD
                            overhead "Out of refresh pots" 34
                            settimer redMessageTimer 0 
                        endif
                    endif
                endif
                
                #--- Create mushroom ---#
                
                if insysmsg "You create"
                endif   
                
                while counttype 29012 backpack < mushroomCount and findtype 3963 self and findtype 3976 self and mana > 3
                    cast 'create food'
                    while not casting 
                        cast 'create food'
                    endwhile
                    while casting
                    endwhile
                    wait 200
                    getlabel backpack xxx
                    if insysmsg! "you create"
                        if insysmsg "you create a magic"
                        else
                            sysmsg "Wizard's Grimoire `create food` not found" 34
                            @setvar! mushroomCount 0
                            break 
                        endif
                    endif
                endwhile
                
                #--- Eat Mushroom ---#
             
                if mana < eatMushWhenManaLowerThan and mushroomCount > 0 and timer mushroomTimer > mushroomTimerCD
                    if counttype 29012 backpack
                        if insysmsg "You consume a magic mushroom"
                        endif
                        sysmsg "Eating mush." 44
                        dclicktype 29012 backpack
                        getlabel backpack xxx
                        wait 200
                        
                        if insysmsg "You consume a magic mushroom"
                            settimer mushroomTimer 0
                        endif
                    else 
                        overhead "No mushrooms found!" 34
                    endif
                endif
                
                #--- Use Meditation ---#
                
                if 0 = useMeditationSkill and mana < 50 
                    break
                elseif 1 = useMeditationSkill and mana < 50 and not findbuff "meditating" and timer meditationTimer > meditationCD
                    if insysmsg "you are at peace"
                    endif
                    if insysmsg "you enter a meditative trance"
                    endif
                    if insysmsg "You must wait a few moments to use another skill."
                    endif
                    
                    skill 'meditation'
                    getlabel backpack xxx
                    wait 200
                    if not findbuff 'meditating'
                        settimer meditationTimer 7500
                    elseif findbuff 'meditating'
                        warmode on
                        warmode off
                        settimer meditationTimer 0
                        while mana < 50 and diffhits < activateAutoHealDiff
                            if not findbuff 'meditating'
                                break
                            endif
                            if timer meditationMessageTimer > meditationMessageCD
                                overhead "* actively meditating *" 11
                                settimer meditationMessageTimer 0
                            endif
                        endwhile
                    endif
                endif 
                
                #--- Check for new elementals ---#
                
                if 1 = castingEarth and followers > 1
                    sysmsg "fixing earth" 44
                    while findtype 158|14 ground -1 -1 12 as ele 
                        menu ele 1
                        waitfortarget maxwaittimeinms
                        if targetexists 
                            if ele != earthFirsty and ele != earthSecondly
                                hotkey 'cancel current target'
                                
                                if earthFirsty = 0 
                                    @setvar! earthFirsty ele
                                    sysmsg "add earth 1" 11
                                    overhead "Earth 1" 634 ele
                                else 
                                    @setvar! earthSecondly ele
                                    sysmsg "add earth 2" 11
                                    overhead "Earth 2" 634 ele
                                endif
                                
                                break
                            endif
                        endif
                        @ignore ele
                    endwhile    
                    @clearignore
                    @setvar! castingEarth 0
                    
                elseif 1 = castingWater and followers > 1
                    sysmsg "fixing water" 44
                    while findtype 740|16 ground -1 -1 12 as ele 
                        menu ele 1
                        waitfortarget maxwaittimeinms
                        if targetexists 
                            if ele != waterFirsty and ele != waterSecondly
                                hotkey 'cancel current target'
                                
                                if waterFirsty = 0 
                                    @setvar! waterFirsty ele
                                    sysmsg "add water 1" 11
                                    overhead "Water 1" 399 ele
                                else 
                                    @setvar! waterSecondly ele
                                    sysmsg "add water 2" 11
                                    overhead "Water 2" 399 ele
                                endif
                                
                                break
                            endif
                        endif
                        @ignore ele
                    endwhile
                    @clearignore
                    @setvar! castingWater 0
                    
                elseif 1 = castingAir and followers > 1
                    sysmsg "fixing air" 44
                    while findtype 306|13 ground -1 -1 12 as ele 
                        menu ele 1
                        waitfortarget maxwaittimeinms
                        if targetexists 
                            if ele != airFirsty and ele != airSecondly
                                hotkey 'cancel current target'
                                
                                if airFirsty = 0 
                                    @setvar! airFirsty ele
                                    sysmsg "add air 1" 11
                                    overhead "Air 1" 933 ele
                                else 
                                    @setvar! airSecondly ele
                                    sysmsg "add air 2" 11
                                    overhead "Air 2" 933 ele
                                endif
                                
                                break
                            endif
                        endif
                        @ignore ele
                    endwhile    
                    @clearignore
                    @setvar! castingAir 0
                    
                elseif 1 = castingFire and followers > 1
                    sysmsg "fixing fire" 44
                    while findtype 24|15 ground -1 -1 12 as ele 
                        menu ele 1
                        waitfortarget maxwaittimeinms
                        if targetexists 
                            if ele != fireFirsty and ele != fireSecondly
                                hotkey 'cancel current target'
                                
                                if fireFirsty = 0 
                                    @setvar! fireFirsty ele
                                    sysmsg "add fire 1" 11
                                    overhead "Fire 1" 353 ele
                                else 
                                    @setvar! fireSecondly ele
                                    sysmsg "add fire 2" 11
                                    overhead "Fire 2" 353 ele
                                endif
                                
                                break
                            endif
                        endif
                        @ignore ele
                    endwhile
                    @clearignore
                    @setvar! castingFire 0
                    
                elseif 1 = castingDaemon and followers > 1
                    sysmsg "fixing daemon" 44
                    while findtype 9|722 ground -1 -1 12 as ele 
                        menu ele 1
                        waitfortarget maxwaittimeinms
                        if targetexists 
                            if ele != daemonFirsty and ele != daemonSecondly
                                hotkey 'cancel current target'
                                
                                if daemonFirsty = 0 
                                    @setvar! daemonFirsty ele
                                    sysmsg "add daemon 1" 11
                                    overhead "Daemon 1" 11 ele
                                else 
                                    @setvar! daemonSecondly ele
                                    sysmsg "add daemon 2" 235
                                    overhead "Daemon 2" 235 ele
                                endif
                                
                                break
                            endif
                        endif
                        @ignore ele
                    endwhile     
                    @clearignore
                    @setvar! castingDaemon 0
                    
                elseif 1 = castingCreature and followers > 0
                    sysmsg "fixing creature" 44
                    while findtype 215|211|302|317|225|212|202|213|716|729|51|74|214|206|776|737|718|739|718|29|776|317|302|39|56|26|3|57|50|382|717|736|270 ground -1 -1 12 as ele 
                        menu ele 1
                        waitfortarget maxwaittimeinms
                        if targetexists 
                            if ele != creatureFirsty and ele != creatureSecondly and ele != creatureThirdy and ele != creatureFourthy and ele != creatureFithy
                                hotkey 'cancel current target'
                                wait 50
                                menu ele 3
                                if creatureFirsty = 0 
                                    @setvar! creatureFirsty ele
                                    sysmsg "Creature 1" 11
                                    overhead "Creature 1" 11 ele
                                elseif creatureSecondly = 0 
                                    @setvar! creatureSecondly ele
                                    sysmsg "add creature 2" 11
                                    overhead "Creature 2" 11 ele
                                elseif creatureThirdy = 0 
                                    @setvar! creatureThirdy ele
                                    sysmsg "add creature 3" 11
                                    overhead "Creature 3" 11 ele
                                elseif creatureFourthy = 0 
                                    @setvar! creatureFourthy ele
                                    sysmsg "add creature 4" 11
                                    overhead "Creature 4" 11 ele
                                elseif creatureFithy = 0 
                                    @setvar! creatureFithy ele
                                    sysmsg "add creature 5" 11
                                    overhead "Creature 5" 11 ele
                                endif
                                
                                break
                            endif
                        endif
                        @ignore ele
                    endwhile 
                    @clearignore
                    @setvar! castingCreature 0
                endif
                
                #--- Check for dead elementals ---#
                
                if earthFirsty != 0 and dead earthFirsty
                    if list earthListy != 0
                        poplist earthListy 'front' 
                        sysmsg "pop earth 1"
                    endif 
                    @setvar! earthFirsty 0
                endif
                    
                if earthSecondly != 0 and dead earthSecondly
                    if list earthListy != 0
                        poplist earthListy 'front'  
                        sysmsg "pop earth 2"
                    endif  
                    @setvar! earthSecondly 0
                endif
                    
                if waterFirsty != 0 and dead waterFirsty
                    if list waterListy != 0
                        poplist waterListy 'front'  
                        sysmsg "pop water 1"
                    endif
                    @setvar! waterFirsty 0
                endif
                    
                if waterSecondly != 0 and dead waterSecondly
                    if list waterListy != 0
                        poplist waterListy 'front' 
                        sysmsg "pop water 2"
                    endif
                    @setvar! waterSecondly 0
                endif
                    
                if airFirsty != 0 and dead airFirsty
                    if list airListy != 0
                        poplist airListy 'front'
                    endif
                    @setvar! airFirsty 0
                endif
                    
                if airSecondly != 0 and dead airSecondly 
                    if list airListy != 0
                        poplist airListy 'front'
                    endif 
                    @setvar! airSecondly 0
                endif
                    
                if fireFirsty != 0 and dead fireFirsty 
                    if list fireListy != 0
                        poplist fireListy 'front'   
                    endif
                    @setvar! fireFirsty 0
                endif
                    
                if fireSecondly != 0 and dead fireSecondly 
                    if list fireListy != 0
                        poplist fireListy 'front'   
                    endif 
                    @setvar! fireSecondly 0
                endif
                    
                if daemonFirsty != 0 and dead daemonFirsty
                    if list daemonListy != 0
                        poplist daemonListy 'front'
                    endif
                    @setvar! daemonFirsty 0
                endif
                    
                if daemonSecondly != 0 and dead daemonSecondly 
                    if list daemonListy != 0
                        poplist daemonListy 'front'
                    endif 
                    @setvar! daemonSecondly 0
                endif
                    
                if creatureFirsty != 0 and dead creatureFirsty 
                    if list creatureListy != 0
                        poplist creatureListy 'front'
                        sysmsg "pop creature 1"
                    endif 
                    @setvar! creatureFirsty 0
                endif
                    
                if creatureSecondly != 0 and dead creatureSecondly 
                    if list creatureListy != 0
                        poplist creatureListy 'front'
                        sysmsg "pop creature 2"
                    endif 
                    @setvar! creatureSecondly 0
                endif
                    
                if creatureThirdy != 0 and dead creatureThirdy 
                    if list creatureListy != 0
                        poplist creatureListy 'front'
                        sysmsg "pop creature 3"
                    endif 
                    @setvar! creatureThirdy 0
                endif
                    
                if creatureFourthy != 0 and dead creatureFourthy 
                    if list creatureListy != 0
                        poplist creatureListy 'front'
                        sysmsg "pop creature 4"
                    endif 
                    @setvar! creatureFourthy 0
                endif
                    
                if creatureFithy != 0 and dead creatureFithy 
                    if list creatureListy != 0
                        poplist creatureListy 'front'
                        sysmsg "pop creature 5"
                    endif 
                    @setvar! creatureFithy 0
                endif
                
                @clearsysmsg
                @setvar! wasInterrupted 0
                
                if list earthListy = 0 
                    #sysmsg "Earth List = 0"
                elseif list earthListy = 1
                    #sysmsg "Earth List = 1"
                elseif list earthListy = 2
                    #sysmsg "Earth List = 2"
                endif
                
                if list waterListy = 0 
                    #sysmsg "Water List = 0"
                elseif list waterListy = 1
                    #sysmsg "Water List = 1"
                elseif list waterListy = 2
                    #sysmsg "Water List = 2"
                endif
                
                if list creatureListy = 0 
                    #sysmsg "Creature List = 0"
                elseif list creatureListy = 1
                    #sysmsg "Creature List = 1"
                elseif list creatureListy = 2
                    #sysmsg "Creature List = 2"
                elseif list creatureListy = 2
                    #sysmsg "Creature List = 2"
                elseif list creatureListy = 2
                    #sysmsg "Creature List = 2"
                endif
                
                @setvar! missingSummonRegs 0
                @setvar! summoningSucessful 0
                
                if not findtype 3963 self or not findtype 3974 self or not findtype 3981 self
                    @setvar! missingSummonRegs 1
                    if timer noRegsMessageTimer > noRegsMessageCD
                        overhead 'No regs to summon!' 34
                        sysmsg 'No regs to summon!' 34
                        settimer noRegsMessageTimer 0
                    endif
                    wait noRegsMessageCD
                elseif not findtype 3980 self 
                    if fireElementals != 0 or summonDaemons != 0
                        @setvar! missingSummonRegs 1
                        if timer noRegsMessageTimer > noRegsMessageCD
                            overhead 'No regs to summon!' 34
                            sysmsg 'No regs to summon!' 34
                            settimer noRegsMessageTimer 0
                        endif
                        wait noRegsMessageCD
                    endif
                elseif mana < 50
                    if timer noRegsMessageTimer > noRegsMessageCD
                        overhead "* low mana to summon *" 34
                        settimer noRegsMessageTimer 0
                    endif
                endif
                    
        #********** CAST EARTH ELEMENTAL **********# 
            
                if earthElementals != 0 and list earthListy < earthElementals and followers < 4 and diffhits < activateAutoHealDiff and not casting and missingSummonRegs = 0 and mana > 49
                    if insysmsg "world is saving"
                    endif
                    
                    @setvar! isWorldSaving 0
                    
                    cast 'Earth Elemental'
                    @setvar! castingEarth 1
                    while not casting                   
                        cast 'Earth Elemental'  
                        if targetexists
                            hotkey 'cancel current target'
                        endif
                    endwhile  
                    
                    while not dead
                    
                         if insysmsg "world is saving"
                            interrupt
                            @setvar! isWorldSaving 1
                            @setvar! wasInterrupted 1 
                            break
                        endif        
                        
                        if diffhits >= interruptCastingDiff
                            @setvar! wasInterrupted 1 
                            sysmsg "interrupted low health" 33
                            interrupt
                            break
                        endif
                        
                        if not casting
                            getlabel backpack xxx
                            wait 200
                            
                            if insysmsg "Your concentration"
                                @setvar! wasInterrupted 1 
                                sysmsg "interrupted concentration" 33   
                            else 
                                sysmsg "casting finished" 11
                            endif
                            
                            break
                        endif
                        
                        if timer summonMsgTimer > summonMsgCD
                            overhead "* summoning earth... *" 634
                            sysmsg "* summoning earth... *" 634
                            settimer summonMsgTimer 0
                        endif
                        
                    endwhile
        
                    if 0 = wasInterrupted
                        @setvar! summoningSucessful 1
                        sysmsg "Summon Earth Successful" 
                        pushlist earthListy 'x' 'front'
                        
                        while not dead
                            if findtype 158|14 ground -1 -1 12 as ele 
                                menu ele 1
                                waitfortarget maxwaittimeinms
                                if targetexists 
                                    if ele != earthFirsty and ele != earthSecondly
                                        hotkey 'cancel current target'
                                        wait 50
                                        menu ele 3 
                                        
                                        if earthFirsty = 0 
                                            @setvar! earthFirsty ele
                                            sysmsg "add earth 1" 11
                                            overhead "Earth 1" 634 ele
                                        else 
                                            @setvar! earthSecondly ele
                                            sysmsg "add earth 2" 11
                                            overhead "Earth 2" 634 ele
                                        endif
                                        
                                        break
                                    endif
                                endif
                                @ignore ele
                            endif
                        endwhile
                        
                        clearignore
                        @setvar! castingEarth 0
                    endif
                    
        #********** CAST WATER ELEMENTAL **********# 
                
                elseif waterElementals != 0 and list waterListy < waterElementals and followers < 4 and diffhits < activateAutoHealDiff and not casting and missingSummonRegs = 0 and mana > 49
                    if insysmsg "world is saving"
                    endif
                    
                    @setvar! isWorldSaving 0
                    
                    cast 'Water Elemental'
                    @setvar! castingWater 1
                    while not casting                   
                        cast 'Water Elemental'  
                        if targetexists
                            hotkey 'cancel current target'
                        endif
                    endwhile 
                    
                    while not dead
        
                         if insysmsg "world is saving"
                            interrupt
                            @setvar! isWorldSaving 1
                            @setvar! wasInterrupted 1 
                            break
                        endif                 
        
                        if diffhits >= interruptCastingDiff
                            @setvar! wasInterrupted 1 
                            sysmsg "interrupted low health" 33
                            interrupt
                            break
                        endif
                        
                        if not casting
                            getlabel backpack xxx
                            wait 200
                            
                            if insysmsg "Your concentration"
                                @setvar! wasInterrupted 1 
                                sysmsg "interrupted concentration" 33   
                            else 
                                sysmsg "casting finished" 11
                            endif
                            
                            break
                        endif
                        
                        if timer summonMsgTimer > summonMsgCD
                            overhead "* summoning water... *" 399
                            sysmsg "* summoning water... *" 399
                            settimer summonMsgTimer 0
                        endif
                        
                    endwhile
        
                    if 0 = wasInterrupted
                        @setvar! summoningSucessful 1
                        sysmsg "Summon Water Successful" 
                        pushlist waterListy 'x' 'front'
                        
                        while not dead
                            if findtype 740|16 ground -1 -1 12 as ele 
                                menu ele 1
                                waitfortarget maxwaittimeinms
                                if targetexists 
                                    if ele != waterFirsty and ele != waterSecondly
                                        hotkey 'cancel current target'
                                        wait 50
                                        menu ele 3 
                                        if waterFirsty = 0 
                                            @setvar! waterFirsty ele
                                            sysmsg "add water 1" 11
                                            overhead "Water 1" 399 ele
                                        else 
                                            @setvar! waterSecondly ele
                                            sysmsg "add water 2" 11
                                            overhead "Water 2" 399 ele
                                        endif
                                        
                                        break
                                    endif
                                endif
                                @ignore ele
                            endif
                        endwhile
                        
                        clearignore
                        @setvar! castingWater 0
                    endif
                
        #********** CAST AIR ELEMENTAL **********# 
                
                elseif airElementals != 0 and list airListy < airElementals and followers < 4 and diffhits < activateAutoHealDiff and not casting and missingSummonRegs = 0 and mana > 49                    
                    if insysmsg "world is saving"
                    endif
                    
                    @setvar! isWorldSaving 0
                    
                    cast 'Air Elemental'
                    @setvar! castingAir 1
                    while not casting                   
                        cast 'Air Elemental'  
                        if targetexists
                            hotkey 'cancel current target'
                        endif
                    endwhile  
                    
                    while not dead
        
                         if insysmsg "world is saving"
                            interrupt
                            @setvar! isWorldSaving 1
                            @setvar! wasInterrupted 1
                            break
                        endif 
                        
                        if diffhits >= interruptCastingDiff
                            @setvar! wasInterrupted 1 
                            sysmsg "interrupted low health" 33
                            interrupt
                            break
                        endif
                        
                        if not casting
                            getlabel backpack xxx
                            wait 200
                            
                            if insysmsg "Your concentration"
                                @setvar! wasInterrupted 1 
                                sysmsg "interrupted concentration" 33   
                            else 
                                sysmsg "casting finished" 11
                            endif
                            
                            break
                        endif
                        
                        if timer summonMsgTimer > summonMsgCD
                            overhead "* summoning air... *" 933
                            sysmsg "* summoning air... *" 933
                            settimer summonMsgTimer 0
                        endif
                        
                    endwhile
                    
                    if 0 = wasInterrupted
                        @setvar! summoningSucessful 1
                        sysmsg "Summon Air Successful" 
                        pushlist airListy 'x' 'front'
                        
                        while not dead
                            if findtype 306|13 ground -1 -1 12 as ele 
                                menu ele 1
                                waitfortarget maxwaittimeinms
                                if targetexists 
                                    if ele != airFirsty and ele != airSecondly
                                        hotkey 'cancel current target'
                                        wait 50
                                        menu ele 3 
                                        if airFirsty = 0 
                                            @setvar! airFirsty ele
                                            sysmsg "add air 1" 11
                                            overhead "Air 1" 933 ele
                                        else 
                                            @setvar! airSecondly ele
                                            sysmsg "add air 2" 11
                                            overhead "Air 2" 933 ele
                                        endif
                                        
                                        break
                                    endif
                                endif
                                @ignore ele
                            endif
                        endwhile
                        clearignore
                        @setvar! castingAir 0
                    endif
                
        #********** CAST FIRE ELEMENTAL **********# 
                
                elseif fireElementals != 0 and list fireListy < fireElementals and followers < 4 and diffhits < activateAutoHealDiff and not casting and missingSummonRegs = 0 and mana > 49                      
                    if insysmsg "world is saving"
                    endif
                    
                    @setvar! isWorldSaving 0
                    
                    cast 'Fire Elemental'
                    @setvar! castingFire 1
                    while not casting                   
                        cast 'Fire Elemental'  
                        if targetexists
                            hotkey 'cancel current target'
                        endif
                    endwhile  
                    
                    while not dead
        
                         if insysmsg "world is saving"
                            interrupt
                            @setvar! isWorldSaving 1
                            @setvar! wasInterrupted 1 
                            break
                        endif 
                        
                        if diffhits >= interruptCastingDiff
                            @setvar! wasInterrupted 1 
                            sysmsg "interrupted low health" 33
                            interrupt
                            break
                        endif
                        
                        if not casting
                            getlabel backpack xxx
                            wait 200
                            
                            if insysmsg "Your concentration"
                                @setvar! wasInterrupted 1 
                                sysmsg "interrupted concentration" 33   
                            else 
                                sysmsg "casting finished" 11
                            endif
                            
                            break
                        endif
                        
                        if timer summonMsgTimer > summonMsgCD
                            overhead "* summoning fire... *" 353
                            sysmsg "* summoning fire... *" 353
                            settimer summonMsgTimer 0
                        endif
                        
                    endwhile
                    
                    if 0 = wasInterrupted
                        @setvar! summoningSucessful 1
                        sysmsg "Summon Fire Successful" 
                        pushlist fireListy 'x' 'front'
                        
                        while not dead
                            if findtype 24|15 ground -1 -1 12 as ele 
                                menu ele 1
                                waitfortarget maxwaittimeinms
                                if targetexists 
                                    if ele != fireFirsty and ele != fireSecondly
                                        hotkey 'cancel current target'
                                        wait 50
                                        menu ele 3 
                                        if fireFirsty = 0 
                                            @setvar! fireFirsty ele
                                            sysmsg "add fire 1" 11
                                            overhead "Fire 1" 353 ele
                                        else 
                                            @setvar! fireSecondly ele
                                            sysmsg "add fire 2" 11
                                            overhead "Fire 2" 353 ele
                                        endif
                                        
                                        break
                                    endif
                                endif
                                @ignore ele
                            endif
                        endwhile
                        clearignore
                        @setvar! castingFire 0
                    endif
                    
        #********** CAST DAEMON **********# 
                
                elseif summonDaemons != 0 and list daemonListy < summonDaemons and followers < 4 and diffhits < activateAutoHealDiff and not casting and missingSummonRegs = 0 and mana > 49                        
                    if insysmsg "world is saving"
                    endif
                    
                    @setvar! isWorldSaving 0
                    
                    cast 'Summon Daemon'
                    @setvar! castingDaemon 1
                    while not casting                   
                        cast 'Summon Daemon'  
                        if targetexists
                            hotkey 'cancel current target'
                        endif
                    endwhile  
                    
                    while not dead
                    
                         if insysmsg "world is saving"
                            interrupt
                            @setvar! isWorldSaving 1
                            @setvar! wasInterrupted 1 
                            break
                        endif 
                        
                        if diffhits >= interruptCastingDiff
                            @setvar! wasInterrupted 1 
                            sysmsg "interrupted low health" 33
                            interrupt
                            break
                        endif
                        
                        if not casting
                            getlabel backpack xxx
                            wait 200
                            
                            if insysmsg "Your concentration"
                                @setvar! wasInterrupted 1 
                                sysmsg "interrupted concentration" 33   
                            else 
                                sysmsg "casting finished" 11
                            endif
                            
                            break
                        endif
                        
                        if timer summonMsgTimer > summonMsgCD
                            overhead "* summoning daemon... *" 235
                            sysmsg "* summoning daemon... *" 235
                            settimer summonMsgTimer 0
                        endif
                        
                    endwhile
                    
                    if 0 = wasInterrupted
                        @setvar! summoningSucessful 1
                        sysmsg "Summon Daemon Successful" 
                        pushlist daemonListy 'x' 'front'
                        while not dead
                            if findtype 9|722 ground -1 -1 12 as ele 
                                menu ele 1
                                waitfortarget maxwaittimeinms
                                if targetexists 
                                    if ele != daemonFirsty and ele != daemonSecondly
                                        hotkey 'cancel current target'
                                        wait 50
                                        menu ele 3 
                                        
                                        if daemonFirsty = 0 
                                            @setvar! daemonFirsty ele
                                            sysmsg "add daemon 1" 11
                                            overhead "Daemon 1" 11 ele
                                        else 
                                            @setvar! daemonSecondly ele
                                            sysmsg "add daemon 2" 235
                                            overhead "Daemon 2" 235 ele
                                        endif
                                        
                                        break
                                    endif
                                endif
                                @ignore ele
                            endif
                        endwhile
                        clearignore
                        @setvar! castingDaemon 0
                    endif
                    
        #********** CAST SUMMON CREATURE **********# 
                
                elseif summonCreature != 0 and list creatureListy < summonCreature and followers < 5 and diffhits < activateAutoHealDiff and not casting and missingSummonRegs = 0 and mana > 13                   
                    if insysmsg "world is saving"
                    endif
                    
                    @setvar! isWorldSaving 0
                    
                    cast 'Summ. Creature'
                    @setvar! castingCreature 1
                    while not casting                   
                        cast 'Summ. Creature'  
                        if targetexists
                            hotkey 'cancel current target'
                        endif
                    endwhile  
                    
                    while not dead
        
                         if insysmsg "world is saving"
                            interrupt
                            @setvar! isWorldSaving 1
                            @setvar! wasInterrupted 1 
                            break
                        endif 
                        
                        if diffhits >= interruptCastingDiff
                            @setvar! wasInterrupted 1 
                            sysmsg "interrupted low health" 33
                            interrupt
                            break
                        endif
                        
                        if not casting
                            getlabel backpack xxx
                            wait 200
                            
                            if insysmsg "Your concentration"
                                @setvar! wasInterrupted 1 
                                sysmsg "interrupted concentration" 33   
                            else 
                                sysmsg "casting finished" 11
                            endif
                            
                            break
                        endif
                        
                        if timer summonMsgTimer > summonMsgCD
                            overhead "* summon creature... *" 881
                            sysmsg "* summon creature... *" 881
                            settimer summonMsgTimer 0
                        endif
                        
                    endwhile
        
                    if 0 = wasInterrupted
                        @setvar! summoningSucessful 1
                        sysmsg "Summon Creature Successful" 
                        pushlist creatureListy 'x' 'front'
                        while not dead
                            if findtype 215|211|302|317|225|212|202|213|716|729|51|74|214|206|776|737|718|739|718|29|776|317|302|39|56|26|3|57|50|382|717|736|270 ground -1 -1 12 as ele 
                                menu ele 1
                                waitfortarget maxwaittimeinms
                                if targetexists 
                                    if ele != creatureFirsty and ele != creatureSecondly and ele != creatureThirdy and ele != creatureFourthy and ele != creatureFithy
                                        hotkey 'cancel current target'
                                        wait 50
                                        menu ele 3                                
                                        if creatureFirsty = 0 
                                            @setvar! creatureFirsty ele
                                            sysmsg "add creature 1" 11 
                                            overhead "Creature 1" 11 ele
                                        elseif creatureSecondly = 0 
                                            @setvar! creatureSecondly ele
                                            sysmsg "add creature 2" 11
                                            overhead "Creature 2" 11 ele
                                        elseif creatureThirdy = 0 
                                            @setvar! creatureThirdy ele
                                            sysmsg "add creature 3" 11
                                            overhead "Creature 3" 11 ele
                                        elseif creatureFourthy = 0 
                                            @setvar! creatureFourthy ele
                                            sysmsg "add creature 4" 11
                                            overhead "Creature 4" 11 ele
                                        elseif creatureFithy = 0 
                                            @setvar! creatureFithy ele
                                            sysmsg "add creature 5" 11
                                            overhead "Creature 5" 11 ele
                                        endif
                                        
                                        break
                                    endif
                                endif
                                @ignore ele
                            endif
                        endwhile
                        
                        clearignore
                        @setvar! castingCreature 0
                    endif
                    
                endif
                
                if 1 = summoningSucessful and followers != maxFollowers
                    hotkey 'target closest grey monster'
                    attack lasttarget
                endif
            
            endwhile
            
        endif
        
 #********** BEGING HARVESTING **********  
 
        if diffweight <= myWeightDiff
            overhead '[Overveight Reached]' 44
            wait maxwaittimeinms    
        elseif 1 = autoRecall and 1 = enemyFound or cooldown 'Danger' > 0 
            sysmsg "Enemy Found: skip harvesting"
        else
            while lhandempty and rhandempty
                if not findtype myHarvestingTool backpack
                    overhead "Out of hatchets!" 36
                    wait maxwaittimeinms
                elseif not casting
                    dclicktype myHarvestingTool
                    wait 200
                endif
            endwhile
            
            while not targetexists 
                hotkey 'Use Item In Hand'
                waitfortarget maxwaittimeinms
            endwhile
            target 'self'   
            
            settimer beginChopTimer 0

            while not insysmsg! "harvesting is not allowed" and not insysmsg "you chop" and not insysmsg "you hack" and not insysmsg! "you do not see" and not insysmsg! "you have recently" and diffhits < activateAutoHealDiff
                if enemyFound = 0
                    if insysmsg! "Now tracking" or insysmsg! "Distance to"
                        @setvar! enemyFound 1
                    endif
                endif
                
                if autoRecall = 1 and enemyFound = 1 or cooldown 'Danger' > 0
                    break
                endif            
                
                if timer beginChopTimer > 650 and timer beginChopTimer < 10000
                    overhead "* chopping tree *" 11
                    settimer beginChopTimer 10000
                endif
            endwhile
            
            if insysmsg "you do not see any"
                overhead "* move to other tree *" 44
                wait 500
            elseif insysmsg "you have recently"
                overhead "* travel cooldown *" 901
                wait 500
            elseif insysmsg "harvesting is not allowed"
                overhead "* Harvest NOT allowed! *" 33
                wait 500
            else
                #overhead "* tree chopped *" 11    
            endif    

#********** CUT LOGS INTO BOARDS AND SECURE BOARDS INSIDE LOCKED WOODEN BOX **********  

            if timer storeTimer > storeTimerCD or counttype 7133 backpack > 120 or counttype 7133 backpack 2207 > 15 or counttype 7133 backpack 2219 > 10 or counttype 7133 backpack 1763 > 5
                settimer storeTimer 0
                if targetexists
                    hotkey 'cancel current target'  
                endif

                while findtype "log%s" backpack any any 1 as myLogs and diffhits < activateAutoHealDiff 
                    if enemyFound = 0
                        if insysmsg! "Now tracking" or insysmsg! "Distance to"
                            @setvar! enemyFound 1
                        endif
                    endif
                    
                    if autoRecall = 1 and enemyFound = 1 or cooldown 'Danger' > 0
                        break
                    endif                          
                    
                    overhead "* refining logs *" 88
                    hotkey 'Use Item In Hand'
                    waitfortarget maxwaittimeinms
                    target myLogs
                    wait maxwaittimeinms
                endwhile
                
                while findtype "board%s" backpack any any 1 as boardz and diffhits < activateAutoHealDiff
                    if enemyFound = 0
                        if insysmsg! "Now tracking" or insysmsg! "Distance to"
                            @setvar! enemyFound 1
                        endif
                    endif
                    
                    if autoRecall = 1 and enemyFound = 1 or cooldown 'Danger' > 0
                        break
                    endif      
                    
                    overhead "* securing boards *" 88    
                    wait 100
                    lift boardz 9999
                    drop chest -1 -1 0
                    wait maxwaittimeinms

                    if insysmsg "it appears"
                        overhead "[unlocking chest]" 74
                        dclick key
                        waitfortarget maxwaittimeinms
                        target chest
                        wait maxwaittimeinms
                    endif
                endwhile
                
            endif
        endif
        
        getlabel chest chestLabel
        if "items" in chestLabel
            dclick key
            waitfortarget maxwaittimeinms
            target chest
            wait maxwaittimeinms
            overhead "[chest locked]" 55
        endif
        
    endif
    
    #sysmsg "Loop cycle elapsed : {{cycleTimer}}"    
endwhile
Quick links:
➕ Add your script 📜 Jaseowns Edits 🐺 Auto Dex Tamer ⚔️ Auto Dexxer 🧙 Arcane Mage 👴 Auto Mage ⛏️ Auto Miner 📙 Razor Guide List
SUPER Auto-Lumberjacking by dennozz

Warning: This is potentially a huge script, skipping formatting.

Quick Filters
