罪と罰++二律背反


  • 	}elsif($s_g < $goal_no){
    		if($hcamp == $camp){
    			# ボーナス
    			my $g = 50000; # ボーナス金額
    			$log .= qq|我が国が大陸を統一しました!!<br>|;
    			$log .= qq|統一ボーナス $g が支給されました!!<br/>|;
    			$gold += $g;
    		}else{
    			$log .= qq|他国に統一されました<br>|;
    		}
    			$s_g = $goal_no;
    	}
    	#-----------------------------------ここまで
  • sub hash_data{
    	$s_g		= $DAT{'s_g'};		# 統一ボーナス
# キャラデータ書き込み
sub dat_write{
	$dat[1] = "$date<>$addr<>$host<>$agent<>\n";
        $dat[0] .="s_g;$s_g,"; # この行を追加


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