罪と罰++二律背反 
[[罪罰/称号]]


*称号表示システム （旧システム）[#le2d455e]
-当サイトではこっちを使ってますが、罪罰/称号を使うの方が非常に簡単です

-称号の表示だけを切り替えることで自由に変更できるようにする

**./inc/ore_sub-system.cgi [#hf8e866f]

設定する称号をデコード
 # sub decode
 $sogo_sel       = $in{'sogo_sel'};

表示する称号を保存する変数
 # sub hash_data
 $sogo_txt = $DAT{'sogo_txt'};

称号を保存
 # dat_write
 sogo_txt;$sogo_txt,

**./inc/ore_sub-infomation_pc.cgi [#v983b8d0]
切り替え処理を追加する
                if(length($com)>80){ &error("全角40文字までです。",1); }
                $com =~ s/\n//g;
                $info_mes=$com;
        }
 
        # 称号
        if($sogo_lv[$sogo_sel]>0){
                $sogo_txt="$sogo_p[$sogo_sel] lv.$sogo_lv[$sogo_sel]";
        }

ファイルの最後に称号選択を追加
 <input type=submit value="ポチッ/更新" class="button2" style="width:100px">
 <input type=reset value="クリア"  class="button2" style="width:40px">
 <br><br>
 EOM
 
 &sogo_list;
 $log .= qq|</form></div>|;

 sub sogo_list{
        $sogo_no = 0;
        $log .= qq|　称　号：<select name="sogo_sel">|;
        foreach(@sogo_p){
        if($sogo_lv[$sogo_no]>0 ){
                $log.=qq|<option value="$sogo_no"|;
 
                if($sogo_txt eq "$sogo_p[$sogo_no] lv.$sogo_lv[$sogo_no]"){
                        $log.=qq| selected |;
                }
 
                $log.=qq|>$sogo_no $sogo_p[$sogo_no]|;
                $log.=qq| lv.$sogo_lv[$sogo_no|;
                $log.=qq|</option>|;
 
        }
                $sogo_no++;
        }
        $log .= qq|</select>|;
 }

**./inc/ore_sub-base.cgi [#va0d924f]
**./index.cgi [#z308769e]
 [$sogo_txt]
**各BBSの処理 [#rcfaac06]
-campbbs.cgi
-park.cgi
-letter_noti.cgi
-ore_.cgi
戦争などで使われる称号は、名前を含めて$syogoに入れてあるのでこれを書き換える
 sub syogo{ $syogo = ($sogo > 0) ? "$nm [$sogo_p[$sogo]]:$sogo_txt" : "$nm"; }

*参考 [#n7c6f1ee]
-罪罰改造掲示板/5の前称号保持方法があります
-罪罰称号レベルは、旧バージョンです。罪罰/称号と罪罰/称号レベルをどうぞ
トップ   編集 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS