// *(mm:ss:ff)形式の時間の合計

$Keyword=input("キーワードを入力してください。",char(code));
gofiletop;
#Length=0;
while (true)
{
	searchdown $Keyword+"\\([0-9][0-9]:[0-9][0-9]:[0-9][0-9]\\)",regular;
	if (!result) break;
	$Time=gettext(x+strlen($Keyword)+1,y,x+strlen($Keyword)+9,y);
	#Length=#Length+(val(leftstr($Time,2))*60+val(midstr($Time,3,2)))*75+val(midstr($Time,6,2));
}
$Result=str(#Length/4500);
call GetNumber (#Length%4500)/75;
$Result=$Result+":"+$$return;
call GetNumber #Length%75;
$Result=$Result+":"+$$return;
message $Result;
endmacro;

GetNumber:
	$$Number=str(##1);
	if (strlen($$Number)<2) $$Number="0"+$$Number;
	return $$Number;