Code: Select all
$playerguild = @eval (exists $::players{$::playersID[$playerID]}->{guild} ? $::players{$::playersID[$playerID]}->{guild}{name} : 'null')
Moderator: Moderators
Code: Select all
$playerguild = @eval (exists $::players{$::playersID[$playerID]}->{guild} ? $::players{$::playersID[$playerID]}->{guild}{name} : 'null')
Code: Select all
sub guild_name {
my ($self, $args) = @_;
my $guildID = $args->{guildID};
my $emblemID = $args->{emblemID};
my $mode = $args->{mode};
my $guildName = bytesToString($args->{guildName});
$char->{guild}{name} = $guildName;
$char->{guildID} = $guildID;
$char->{guild}{emblem} = $emblemID;
$messageSender->sendGuildMasterMemberCheck(); # Is this necessary?? (requests for guild info packet 014E)
$messageSender->sendGuildRequestInfo(0); #requests for guild info packet 01B6 and 014C
$messageSender->sendGuildRequestInfo(1); #requests for guild member packet 0166 and 0154
debug "guild name: $guildName\n";
}