sub infobar {

	# prompt:			!!prompt!! %h:%H:%m:%M:%v:%V:%g:%w:%a:%u:%A:%f !!prompt!!&w%l
    # fprompt:			!!prompt!! %h:%H:%m:%M:%v:%V:%g:%w:%a:%u:%A:%f !!prompt!!&w%l& &w<&P%c &C%L&w>&w & & & &w%l
	# Trigger regex:	^!!prompt!! (\d+:\d+:\d+:\d+:\d+:\d+:.+?:\d+:\d+:\d+:.*?:.*?) !!prompt!!$
	# Trigger set to Omit From Output, Regular Expression, Label = prompt, script = infobar.
    # Secondary trigger of ^$, Regular Expression, Omit from Output... to gag blank lines.
    # ^^^^^^ (Requires Global Preference to allow blank regex to be turn on.)

	my ($name) = @_;
	my @prompt = split(/:/, $world->GetTriggerInfo($name,101));

	$world->InfoClear();
	$world->InfoBackground('#000000');
	$world->InfoFont('Courier New', 14, 1);
	$world->InfoColour('#FFFFFF');$world->Info('<');
	$world->InfoColour('#00FF00');$world->Info($prompt[0].'/'.$prompt[1].'hp ');
	$world->InfoColour('#FF0000');$world->Info($prompt[2].'/'.$prompt[3].'mp ');
	$world->InfoColour('#00FFFF');$world->Info($prompt[4].'/'.$prompt[5].'mv ');
	$world->InfoColour('#FFFF00');$world->Info($prompt[6].'gp ');
	$world->InfoColour('#1E90FF');$world->Info($prompt[7].'wgt ');
	$world->InfoColour('#FFFAFA');$world->Info($prompt[8].'a ');
	$world->InfoColour('#00FA9A');$world->Info($prompt[9].'u ');
	$world->InfoColour('#FF1493');$world->Info($prompt[10].$prompt[11]);
	$world->InfoColour('#FFFFFF');$world->Info('>');
}