ギルドバトルの変更 - ao-zenmai @ ウィキ

inc-rebel-data.cgi

endfunc _local_
main::ReadGuild();
main::ReadGuildData();
@guildlist=map{$main::GUILD_DATA{$_}->{guild}=$_;$main::GUILD_DATA{$_}}keys(%main::GUILD);
foreach my $DT(@DT) {
next if(!$DT->{guilde});
foreach(@guildlist) {
if($DT->{guild} eq $_->{guild}) {
$_->{points} += $DT->{point};
last;
}
}
}
@guildlist=sort{$b->{points}<=>$a->{points}}@guildlist;
my $Dguild=$guildlist[0]->{guild};
main::SetTownData('dominion',$Dguild);
return 1,"ギルド「".$main::GUILD{$Dguild}->[$GUILDIDX_name]."」が対抗戦で勝利しました。おめでとうございます。";
_local_