罪と罰++二律背反
罪罰/称号の切替
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
] [
リンク元
]
開始行:
[[罪罰/称号]]
*称号の切り替え [#x24ec4d5]
-称号を変更できるようにする
-旧称号を使っていると使用できません
-罪罰/称号レベルが必要
**切り替え処理を追加する [#f30123e0]
-デコードを追加 ./inc/ore_sub-system.cgi
sub decode {
#
# ・・・
#
$id = $in{'id'};
$sogo_sel = $in{'sogo_sel'}; # ←この行を追加
}
-切り替え処理 ./inc/ore_sub-infomation_pc.cgi
if(length($com)>80){ &error("全角40文字ま...
$com =~ s/\n//g;
$info_mes=$com;
}
# 称号
if($sogo_lv[$sogo_sel]>0){
$sogo = $sogo_sel;
}
**称号選択を追加 ./inc/ore_sub-infomation_pc.cgi [#w51b06...
<input type=submit value="ポチッ/更新" class="button2" sty...
<input type=reset value="クリア" class="button2" style="wi...
<br>
コメントは全角40文字まで。
</form>
</div>
EOM
↓のように変更
<input type=submit value="ポチッ/更新" class="button2" s...
<input type=reset value="クリア" class="button2" style=...
<br>
コメントは全角40文字まで。
<br>
EOM
&sogo_list;
$log .= qq|</form></div>|;
**ファイルの最後に追加 ./inc/ore_sub-infomation_pc.cgi [#...
#------------------------------------------------------
sub sogo_list{
$sogo_no = 0;
$log .= qq| 称 号:<select name="sogo_sel">|;
foreach(0 .. $#sogo_p){
$sogo_no = $_;
if($sogo_lv[$sogo_no]>0 ){
$log.=qq|<option value="$sogo_no"|;
if($sogo == $sogo_no){
$log.=qq| selected |;
}
$log.=qq|>$sogo_no $sogo_p[$sogo_no]|;
$log.=qq| lv.$sogo_lv[$sogo_no]|;
$log.=qq|</option>|;
}
}
$log .= qq|</select>|;
}
#------------------------------------------------------
1;#削除不可
終了行:
[[罪罰/称号]]
*称号の切り替え [#x24ec4d5]
-称号を変更できるようにする
-旧称号を使っていると使用できません
-罪罰/称号レベルが必要
**切り替え処理を追加する [#f30123e0]
-デコードを追加 ./inc/ore_sub-system.cgi
sub decode {
#
# ・・・
#
$id = $in{'id'};
$sogo_sel = $in{'sogo_sel'}; # ←この行を追加
}
-切り替え処理 ./inc/ore_sub-infomation_pc.cgi
if(length($com)>80){ &error("全角40文字ま...
$com =~ s/\n//g;
$info_mes=$com;
}
# 称号
if($sogo_lv[$sogo_sel]>0){
$sogo = $sogo_sel;
}
**称号選択を追加 ./inc/ore_sub-infomation_pc.cgi [#w51b06...
<input type=submit value="ポチッ/更新" class="button2" sty...
<input type=reset value="クリア" class="button2" style="wi...
<br>
コメントは全角40文字まで。
</form>
</div>
EOM
↓のように変更
<input type=submit value="ポチッ/更新" class="button2" s...
<input type=reset value="クリア" class="button2" style=...
<br>
コメントは全角40文字まで。
<br>
EOM
&sogo_list;
$log .= qq|</form></div>|;
**ファイルの最後に追加 ./inc/ore_sub-infomation_pc.cgi [#...
#------------------------------------------------------
sub sogo_list{
$sogo_no = 0;
$log .= qq| 称 号:<select name="sogo_sel">|;
foreach(0 .. $#sogo_p){
$sogo_no = $_;
if($sogo_lv[$sogo_no]>0 ){
$log.=qq|<option value="$sogo_no"|;
if($sogo == $sogo_no){
$log.=qq| selected |;
}
$log.=qq|>$sogo_no $sogo_p[$sogo_no]|;
$log.=qq| lv.$sogo_lv[$sogo_no]|;
$log.=qq|</option>|;
}
}
$log .= qq|</select>|;
}
#------------------------------------------------------
1;#削除不可
ページ名: