罪と罰++二律背反


# 称号の取得部分
sub get_sogo(){       # <-- ここを変更
    # sogo3=$sogo2;   # 3つめの称号
    $sogo2=$sogo;
    $sogo = @_[0];    # <-- ここを変更

    # 称号取得時の効果
    # たとえば、3回連続 覇者なら10万G
    # if($sogo==1&&$sogo==$sogo2&&$sogo2==$sogo3){
    #    $gold+=100000;       
    # }
}
# ./inc/ore_sub-system.cgi
# hash_data , dat_write それぞれの $sogo と同じように追加

# sub hash_data{
$sogo2 = $DAT{'sogo2'};
# $sogo3 = $DAT{'sogo3'};

# sub dat_write{
sogo2;$sogo2,
# sogo3;$sogo3,
# $sogo = 2;  # 今までの所をコメントアウト
&get_sogo(2);  # これを追加





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