sanjeok77
74 lines
2.4 KiB
Perl
74 lines
2.4 KiB
Perl
#-----------------------------------------------------------#
|
|
# 罪と罰++ 二律背反 #
|
|
# Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD #
|
|
# Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ] #
|
|
# BLANK BOARD [ http://pom.to/ ] #
|
|
#-----------------------------------------------------------#
|
|
# お買い物 PC用パーツ1 Version 1.0 #
|
|
#--- [注意事項] --------------------------------------------#
|
|
# 1.このスクリプトは以下の利用規程に従って配布しています。 #
|
|
# http://www24.big.or.jp/~obo/game/ore_/gild/ #
|
|
#############################################################
|
|
# 以下処理 基本的にこれ以下はいじらないように。
|
|
|
|
#-------------------------------------------------------------------------------
|
|
#武具(ｼｮｯﾋﾟﾝｸﾞ)
|
|
sub bugu_s{
|
|
|
|
$log.=<<EOM;
|
|
<form action=$script method=$method name=ore_>
|
|
<input type=hidden name=id value="$id_p">
|
|
<input type=hidden name=pw value="$pw_p">
|
|
<input type=hidden name=cmd value=-1>
|
|
EOM
|
|
|
|
foreach(11 .. $#dg_data){
|
|
$log .=qq|<hr color=white><input type=radio value="$_" name=cmd>\n|;
|
|
$log .=qq|$dg_data[$_][1] $dg_data[$_][2]G 回数$dg_data[$_][3] $dg_data[$_][5]\n|;
|
|
}
|
|
$log .=qq|<hr color=white><input type=submit value="購入/やめる"></form>\n|;
|
|
|
|
}
|
|
|
|
#-------------------------------------------------------------------------------
|
|
#防具(ｼｮｯﾋﾟﾝｸﾞ)
|
|
sub bogu_s{
|
|
|
|
$log.=<<EOM;
|
|
<form action=$script method=$method name=ore_>
|
|
<input type=hidden name=id value="$id_p">
|
|
<input type=hidden name=pw value="$pw_p">
|
|
<input type=hidden name=cmd value=-1>
|
|
EOM
|
|
|
|
foreach(11 .. $#df_data){
|
|
$log .=qq|<hr color=white><input type=radio value="$_" name=cmd>\n|;
|
|
$log .=qq|$df_data[$_][1] $df_data[$_][2]G 回数$df_data[$_][3] $df_data[$_][5]\n|;
|
|
}
|
|
$log .=qq|<hr color=white><input type=submit value="購入/やめる"></form>\n|;
|
|
|
|
}
|
|
|
|
#-------------------------------------------------------------------------------
|
|
#道具(ｼｮｯﾋﾟﾝｸﾞ)
|
|
sub dogu_s{
|
|
$log.=<<EOM;
|
|
<form action=$script method=$method name=ore_>
|
|
<input type=hidden name=id value="$id_p">
|
|
<input type=hidden name=pw value="$pw_p">
|
|
<input type=hidden name=cmd value=-1>
|
|
EOM
|
|
|
|
foreach(11 .. $#di_data){
|
|
$log .=qq|<hr color=white><input type=radio value="$_" name=cmd>\n|;
|
|
$log .=qq|$di_data[$_][1] $di_data[$_][2]G 回数$di_data[$_][3] $di_data[$_][4]\n|;
|
|
}
|
|
$log .=qq|<hr color=white><input type=submit value="購入/やめる"></form>\n|;
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
1;#削除不可
|