Chop Tree (script)

Chop Tree (script)
Category	crafting,survival
Front-end	Genie
Author	Aliselyn

Description

This script will keep the sizes of rare and common lumber that you choose, and the types. There's also an option for rare lumber you might not want to always keep, but still have the option to keep if you so desire. This script will alternate between chopping and looking for danger. It is slow, but safe. It will keep going until it exhausts the room, then look carefully for more resources. It'll end when you have completely exhausted and cannot find any more resources by looking carefully.

How to Use

Start in any room with lumber. I have the wood types completely populated for ease of use to choose what you want specifically. Cull it if you wish. Choose your container and chopping weapon type and add them to the script. When you start the script, enter anything after the script name to let the script know you want to use the on-site helpers to give you deeds rather than using packets (for example, <.chop 1> or <.chop money>, anything like that should work). If you have a packet on hand, choose the storage place and it will use that instead.

Script

var rareWoodToKeep albarco|azurelle|bloodwood|bocote|cherry|copperwood|crabwood|darkspine|ebony|goldwood|hickory|ilomba|iroko|ironwood|kapok|leori|macawood|mistwood|osage|ramin|redwood|rosewood|sandalwood|silverwood|tamarak|yew
var commonWoodToKeep alder|apple|ash|aspen|balsa|bamboo|birch|cedar|cypress|durian|elm|fir|hemlock|larch|mahogany|mangrove|maple|mobai|oak|pine|spruce|teak|walnut|willow
var rareWoodOtional 
var normalSizeToKeep stick|branch|limb|log
var rareSizeToKeep stick|branch|limb|log
var deedstore 
var packetstore 
var money 0
var chopper 

if_1 var money 1
pause .5
roomCheck:
if (%money == 0) then {
	if matchre ("$roomobjs", "(%rareWoodToKeep) (%rareSizeToKeep)") then {
		send wear my %chopper
		pause .5
		send get packet
		pause .5
		goto getRareWood
	}

	else if matchre ("$roomobjs", "(%commonWoodToKeep) (%normalSizeToKeep)") then {
		send wear my %chopper
		pause .5
		send get packet
		pause .5
		goto getCommonWood
	}
	else if matchre ("$roomobjs", "(%rareWoodOtional) (%rareSizeToKeep)") then {
		pause .5
		echo 1 to keep, 0 to ignore
		match getRareWood 1
		matchwait 8
	}
	else {
		send remove %chopper
		goto danger
	}
}
else {
	if matchre ("$roomobjs", "(%rareWoodToKeep) (%rareSizeToKeep)") then goto getRareWood
	else if matchre ("$roomobjs", "(%commonWoodToKeep) (%normalSizeToKeep)") then goto getCommonWood
	else goto danger
}

getRareWood:
if (%money == 0) then {
	var RAREWOOD $1
	var RARESIZE $2
	send push %RAREWOOD %RARESIZE with my packet
	waitfor You push
	pause .5
	send put deed in %deedstore
	send put packet in %packetstore
	pause .5
	goto roomCheck
}
else {
	var RAREWOOD $1
	var RARESIZE $2
	send push %RAREWOOD %RARESIZE
	waitfor You push
	pause .5
	send put deed in %deedstore
}

getCommonWood:
if (%money == 0) then {
	var COMMONWOOD $1
	var COMMONSIZE $2
	send push %COMMONWOOD %COMMONSIZE with my packet
	waitfor You push
	pause .5
	send put deed in %deedstore
	send put packet in %packetstore
	pause .5
	goto roomCheck
}
else {
	var COMMONWOOD $1
	var COMMONSIZE $2
	send push %COMMONWOOD %COMMONSIZE
	waitfor You push
	pause .5
	send put deed in %deedstore
	pause .5
	goto roomCheck
}

danger:
pause .5
send watch forest danger
match danger unable
match chop Roundtime:
matchwait

nothing:
pause .5
send watch forest careful
match chop marker to direct
match end no additional resources
matchwait

chop:
pause .5
send chop tree
match danger Roundtime:
matchre roomCheck stick|branch|limb|log
matchre nothing rotted core|unable to find a tree
matchwait

end:
send stow my %chopper
echo TIME TO CHANGE ROOMS!