*影修行の件です [#rbf2210e]
-ページ: [[罪罰改造板2]]
-投稿者: [[犬]]
-優先順位: 普通
-状態: 提案
-カテゴリー: 設置できません
-投稿日: 2005-11-28 (月) 01:38:56
-バージョン:
**内容 [#gf518b57]
リスト表示してもシャドウが追加できません。
リストに自分自身を追加するのがよくわかりません。
# 修行リスト表示
sub sele_list {
# GETによる不正処理にペナルティ
&penalty if($mv_mode eq 'pc' && $method eq 'POST' && !$post_flag);
local(@usrfile,@BT_LIST,@tdat);
# 参加者データファイル一覧取得
&usrdata_read;
# 自分自身を追加
foreach(0..$#usrfile+1){
push(@BT_LIST, $_) if($usrfile[$_] eq "$id\.cgi");
}
# 表示参加者ランダム選出
foreach(0 .. $bt_count){
$bt_list = int(rand($#usrfile));
$flag = 0;
foreach(0 .. $#BT_LIST){
$flag = 1 if $bt_list eq $BT_LIST[$_];
}
push(@BT_LIST,$bt_list) if !$flag;
}
@BT_LIST = sort(@BT_LIST);
# ランダム選出参加者のデータ一括読み込み
foreach (0 .. $#BT_LIST) {
open(IN,"$usrdata$usrfile[$BT_LIST[$_]]") || &error("Can't open $usrfile[$BT_LIST[$_]].cgi",1);
push(@tdat,<IN>);
close(IN);
}
というふうにやりました。
----
#comment