...And those code I cut from other place in the same file.----------------------Command.pm----------------------------
sub cmdGuild {
my $guildName = $char->{guild} ? $char->{guild}{name} : T("None");
my (undef, $args) = @_;
my ($arg1, $arg2) = split(' ', $args, 2);
........................................................
} elsif ($arg1 eq "info") {
message swrite(T("---------- Guild Information ----------\n" .
"Name : \@<<<<<<<<<<<<<<<<<<<<<<<<\n" .
"Lv : \@<<\n" .
"Exp : \@>>>>>>>>>/\@<<<<<<<<<<\n" .
"Master : \@<<<<<<<<<<<<<<<<<<<<<<<<\n" .
"Connect : \@>>/\@<<"),
[$guildName, $guild{lvl}, $guild{exp}, $guild{next_exp}, $guild{master},
$guild{conMember}, $guild{maxMember}]), "info";
