罪と罰++二律背反

  • 	# 参加者ステータス取得
    	$trlst = '' if(!$tm);		# 
    	$lp = 0;			# 
    	foreach(0 ..$#tdat){
    		%R = '';
  • 			$N_M{$R{'nm'}}	= $R{'id'};
    			if($R{'id'} ne '' && !$tm){			# 
    				$lp++;				# 
    				$trlst .= "$R{'id'}";			# 
    				$NO_V{$R{'nm'}} = $lp;		# 
    			}					# 
    		}
    	}
    	# 修行リスト表示
    	if(!$tm){
  • 	$log .= ($agent !~ /Mac/) ?
    	qq|<tr bgcolor="#ccccee" align="center"><td><input type="radio" value="$NO_V{$nm}" name="com" class="a5" onClick="location.href='#bt_start'">\n|:
    	qq|<tr bgcolor="#ccccee" align="center"><td><input type="radio" value="$NO_V{$nm}" name="com" class="a5">\n|;
    	# qq|<tr bgcolor="#ccccee" align="center"><td><input type="radio" value="$N_M{$nm}" name="com" class="a5" onClick="location.href='#bt_start'">\n|:
    	# qq|<tr bgcolor="#ccccee" align="center"><td><input type="radio" value="$N_M{$nm}" name="com" class="a5">\n|;
  • 	$log .=qq|<a href="$script?id=$id&pw=$pw&cmd=-1&com=$NO_V{$nm}">$rk位 Lv$lv_v |;
    	# $log .=qq|<a href="$script?id=$id&pw=$pw&cmd=-1&com=$N_M{$nm}">$rk位 Lv$lv_v |;
  • 	# 対戦相手割り当て
    	elsif($tm){
    	
    		if($com){
    			@trlst = split('=',$trlst);		#
    			$trlst = '';			# 
    			$com = $trlst[$com-1];			#
    			open(IN,"$usrdata$com\.cgi") || &error("Open Error : $usrdata$com\.cgi",1);
  1. $trlst = $DAT{'trlst'};

トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2012-06-08 (金) 00:26:06 (2745d)