sub ScriptName {
	my ($self) = @_;
	my $name = Win32::GetFullPathName($0);
	
	my $dirChop = substr(
		$name,
		index($name,'\\scripts\\')+9
	);
	
	my $dir = substr(
		$dirChop,
		0,
		index($dirChop,'\\')
	);
	
	my $clean = substr(
		$name,
		rindex($name,'\\')+1,
		rindex($name,'.')-(rindex($name,'\\')+1)
	);
	return "$dir - $clean"
}