#-----------------------------------------------------------#
#  죄와 벌++ 이율배반										#
#  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;#삭제 불가
