Rangery

See morph.txt for multiple creature morph macro…

//Rangery by Noivad
f3 call Shieldstone //modify this to your chosen hotkey
shift-f3 call UnShieldstone //modify this to your chosen hotkey

f4 call Heartwood //modify these to your chosen hotkey/etc
wheelup call Heartwood //works with trackpads that support 2 finger touch up

wheeldown call Heartslow //works with trackpads that support 2 finger touch down

f6 call reflection //modify this to your chosen hotkey

set shso 0

Shieldstone
{
if shso == 1
	goto OFF
end if

if @my.finger_item == "Shieldstone"
	goto ON
end if

label equip
"/equip shieldstone\r"

label ON
"/useitem finger\r"
pause 1

label CHECK
if @env.textLog >= "Your Shieldstone goes inert"
	goto equip
end if

label TIMER
pause 1
setglobal shso 1
goto END

label OFF
"/useitem finger /cancel\r"
setglobal shso 0
label END
}

UnShieldstone
{
"/unequip finger\r"
setglobal shso 0
}

Heartwood
{
if @my.left_item != "Heartwood Charm"
	"/equip heartwood\r"
end if
"/useitem left\r"
}

Heartslow
{
	"/useitem heartwood charm /slow\r"
}
 
"/judge" call judge

judge
{
"/useitem belt /judge " @text "\r"
}

"/reflect" call reflection

reflection
{
"/useitem belt /reflect\r"
}

"/be"
{
"/usei belt /befriend\r"
"/pose bless\r"
}

"/con"
{
"/usei belt /control\r"
"/pose sal\r"
}

"/dis"
{
"dismissing\r"
"/pose surprised\r"
pause 3
"/usei belt /dismiss\r"
}

"/unm" call unmorph

unmorph
{
	"/useitem /belt /return\r"
}

 //Alternate Simple 1 creature morph
click3 call morph
f11	call morph

set morphed 0
morph
{
	if morphed == 0
		"/useitem belt /shape *creature name* \r" //insert creature name
		setglobal morphed 1
	else
		"/useitem belt /return \r"
		setglobal morphed 0
	end if
}