
sub getword {
	my ( $word );
	my ( $type ) = $_[0];
	open ( IN, "./data/giko$type.dat" );
	rand($.) < 1 and $word = $_ while <IN>;
	close ( IN );
	return $word;
}

sub gikocat {

# ̎ނ̐
$random = int(rand(2));

# ̎ނ

if ( $random == 0 ) {
	$place = getword('place');
	$thing = getword('thing');
	$doing = getword('doing');
	$gikotext = <<"__EOF__";
$placeɂ<br>
ul ̖O$thing<br>
v[g $doingƂłv<br>
Č`炵jIɂ`I낵j`I<br>
__EOF__
	
} elsif ( $random == 1 ) {
	$idol = getword('idol');
	$owara = getword('owara');
	$doing = getword('doing');
	$gikotext = <<"__EOF__";
$idolāAꏊdoing̗KĂ炵jI<br>
$owara񂾂ƂB<br>
ȂǂȂj`I<br>
__EOF__

}

# ̎ނ܂

$gikotext =~ s/\n//g;

return $gikotext;

}
