「ギルドバトルの変更」の編集履歴(バックアップ)一覧はこちら
「ギルドバトルの変更」(2008/06/14 (土) 15:49:37) の最新版変更点
追加された行は緑色になります。
削除された行は赤色になります。
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_