罪罰改造掲示板/103 のバックアップ(No.2) - AqureWiki - 罪と罰＋＋二律背反、自宅サーバ、CGIゲーム

バックアップ一覧
差分を表示
現在との差分を表示
ソースを表示
罪罰改造掲示板/103 へ行く。
- 1 (2007-09-22 (土) 15:55:19)
- 2 (2008-09-09 (火) 18:11:49)

# 称号の取得部分
sub get_sogo(){       
    if( $sogo==123 ){    # 称号123なら２番目にセット
        $sogo3=$sogo2;
        $sogo2=@_[0];
    }else{
        $sogo3=$sogo2;   # ３つめの称号
        $sogo2=$sogo;
        $sogo = @_[0];    
    }
}