ºá¤Èȳ++ÆóΧÇØÈ¿
ºáȳ²þ¤ÈÄ£²/514
¤ò¥Æ¥ó¥×¥ì¡¼¥È¤Ë¤·¤ÆºîÀ®
[
¥È¥Ã¥×
] [
¿·µ¬
|
°ìÍ÷
|
ñ¸ì¸¡º÷
|
ºÇ½ª¹¹¿·
|
¥Ø¥ë¥×
] [
¥ê¥ó¥¯¸µ
]
³«»Ï¹Ô:
*¥·¥ç¥Ã¥Ô¥ó¥°¥â¡¼¥ë¡²Ç㤤ʪ [#o4b17cb9]
-¥Ú¡¼¥¸: [[ºáȳ²þ¤ÈÄ£²]]
-Åê¹Æ¼Ô: [[ÉõÅ·Íë̽]]
-Í¥Àè½ç°Ì: ½ÅÍ×
-¾õÂÖ: ´°Î»
-¥«¥Æ¥´¥ê¡¼: ¥¨¥é¡¼¤¬½Ð¤Þ¤¹
-Åê¹ÆÆü: 2007-03-24 (ÅÚ) 09:53:27
-¥Ð¡¼¥¸¥ç¥ó:
**ÆâÍÆ [#ed7b0dd9]
²ò·è~
¡ã¾õ¶·¡ä~
¥·¥ç¥Ã¥Ô¥ó¥°¥â¡¼¥ë¢ª¡Ê¤É¤ì¤Ç¤âÎɤ¤¤«¤éÁª¤Ö¡Ë¢ª¢ª¡Ê°ìÈÖ¾å¤Î¥³...
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¢~
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡ ¢ª¢ª¡Ê¾å¤«¤é£²ÈÖÌܤΥ³¥Þ...
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¢~
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡ ¢ª¢ª¡Ê¾å¤«¤é£³ÈÖÌܤΥ³¥Þ...
¡Öµî¤ë¡×¥³¥Þ¥ó¥É¤Ï¡¢Ä̾ïÄ̤êÆ°¤¤Þ¤¹¡£
¤È¤¤¤¦¤è¤¦¤Ë¤Ê¤ë¡£~
¤³¤ì¤¸¤ã¤¢¡¢¥·¥ç¥Ã¥Ô¥ó¥°¥â¡¼¥ë¤¬¡¢Æ°¤¤Þ¤»¤ó¡£¤É¤¦¤·¤¿¤é...
----
-$tm¤¬°ã¤Ã¤Æ¤ë¤Î¤Ç¤Ï¤Ê¤¤¤Ç¤·¤ç¤¦¤«¡© -- [[six]] &new{2007...
-¤É¤Î¤è¤¦¤Ë¤·¤¿¤é¤¦¤Þ¤¯¤¤¤¤Þ¤¹¤«¤Í¡©¶µ¤¨¤Æ¤â¤é¤¨¤Þ¤»¤ó¤«...
-¥¹¥¯¥ê¥×¥È¤Ï¥Ç¥Õ¥©¥ë¥È¤Î¾õÂ֤Ǥ¹¤«¡©²¿¤¬°ã¤¦¤Î¤«¡¢²¿¤ò¤·...
-ore_sub-shop.cgi¡ÊVer.1.1¡Ë¤Î¡¢¥·¥ç¥Ã¥Ô¥ó¥°¥â¡¼¥ë½èÍý¤Î...
-¢¤¬¡¢ore_sub-shop.cgi¤Ç¤¹¡£ -- [[ÉõÅ·Íë̽]] &new{2007-03...
#-------------------------------------------------------...
#Ž¼Ž®Ž¯ŽËŽßŽÝŽ¸ŽÞŽÓŽ°ŽÙ½èÍý
sub shop_exe{
# ¹Ô¤ÀèÁªÂò
if(!$tm){
if($cmd<=0){
$log .= "$nm ¤Ïƨ¤²¤ë¤è¤¦¤ËΩ¤Áµî¤Ã¤¿¡£<br>\n";
$tm = $cmd = 0;
$type='';
&call_main_st;
}elsif($cmd==1){
$log .= "¤¤¤é¤Ã¤·¤ã¤¤¡£º£Æü¤Ï¤É¤¦¤¹¤ë¤ó¤À¤¤¡©<br>\n";
$tm=10;
$log2 .=qq|<form action="$script" method="$method" nam...
$log2 .=qq|<td align="center" valign="middle">\n| if($...
$log2 .=qq|<input type="hidden" name="id" value="$id">...
$log2 .=qq|<select name="cmd" size="1">\n|;
$log2 .=qq|<option value="0">¤ä¤á¤ë</option>\n|;
$log2 .=qq|<option value="1">Ç㤦</option>\n|;
$log2 .=qq|<option value="2">Çä¤ë</option>\n|;
$log2 .=qq|</select><br>\n|;
$log2 .=qq|<input type="submit" $button1 value="NEXT">...
}elsif($cmd==2){
$log .= "¤¤¤é¤Ã¤·¤ã¤¤¤Þ¤»¡£²¿¤ò¤ªµá¤á¤Ç¤¹¤«¡©<br>\n";
$tm=30;
$log2 .=qq|<form action="$script" method="$method" nam...
$log2 .=qq|<td align="center" valign="middle">\n| if($...
$log2 .=qq|<input type="hidden" name="id" value="$id">...
$log2 .=qq|<select name="cmd" size="1">\n|;
$log2 .=qq|<option value="0">¤ä¤á¤ë</option>\n|;
$log2 .=qq|<option value="1">Ç㤦</option>\n|;
$log2 .=qq|<option value="2">Çä¤ë</option>\n|;
$log2 .=qq|</select><br>\n|;
$log2 .=qq|<input type="submit" $button1 value="NEXT">...
}elsif($cmd==3){
$log .= "¤è¤¦¤³¤½¡£¿§¡¹¤Ê¤â¤Î¤ò°·¤Ã¤Æ¤Þ¤¹¡£<br>\n";
$tm=50;
$log2 .=qq|<form action="$script" method="$method" nam...
$log2 .=qq|<td align="center" valign="middle">\n| if($...
$log2 .=qq|<input type="hidden" name="id" value="$id">...
$log2 .=qq|<select name="cmd" size="1">\n|;
$log2 .=qq|<option value="0">¤ä¤á¤ë</option>\n|;
$log2 .=qq|<option value="1">Ç㤦</option>\n|;
$log2 .=qq|<option value="2">Çä¤ë</option>\n|;
$log2 .=qq|</select><br>\n|;
$log2 .=qq|<input type="submit" $button1 value="NEXT">...
}elsif($cmd==4){
$log .= "¤¤¤é¤Ã¤·¤ã¤¤¡£ŽÏŽÈŽ°Ž¼Ž®Ž¯ŽÌŽß¤Ë¤è¤¦¤³¤½¡£<br>\n";
$tm=70;
$log2 .=qq|<form action="$script" method="$method" nam...
$log2 .=qq|<td align="center" valign="middle">\n| if($...
$log2 .=qq|<input type="hidden" name="id" value="$id">...
$log2 .=qq|<select name=cmd size=1>\n|;
$log2 .=qq|<option value=0>¤ä¤á¤ë</option>\n|;
$log2 .=qq|<option value=1>¼Ú¶â</option>\n|;
$log2 .=qq|<option value=2>ÊÖºÑ</option>\n|;
$log2 .=qq|</select><br>\n|;
$log2 .=qq|<input type="submit" $button1 value="NEXT">...
}elsif($cmd==5){
$log .= "¥¤¥é¥Ã¥·¥ã¥¤¥Þ¥»¥§¡Á¢ö°ìËç¸ÞÉ´£Ç¤Ë¤Ê¤ê¤Þ¤¡¤¹¢ö<...
$tm=90;
$log2 .=qq|<form action="$script" method="$method" nam...
$log2 .=qq|<td align="center" valign="middle">\n| if($...
$log2 .=qq|<input type="hidden" name="id" value="$id">...
$log2 .=qq|<select name=cmd size=1>\n|;
$log2 .=qq|<option value=0>¤ä¤á¤ë</option>\n|;
$log2 .=qq|<option value=1>Ä©Àï</option>\n|;
$log2 .=qq|</select><br>\n|;
$log2 .=qq|<input type="submit" $button1 value="NEXT">...
}elsif($cmd==6){
$log .= "¤¤¤é¤Ã¤·¤ã¤¤¡£ºáȳ¿ÇÎŽê¤Ë¤è¤¦¤³¤½¡£<br>\n";
$tm=120;
$log2 .=qq|<form action="$script" method="$method" nam...
$log2 .=qq|<td align="center" valign="middle">\n| if($...
$log2 .=qq|<input type="hidden" name="id" value="$id">...
$log2 .=qq|<select name=cmd size=1>\n|;
$log2 .=qq|<option value=0>¤ä¤á¤ë</option>\n|;
$log2 .=qq|<option value=1>¼£ÎÅ</option>\n|;
$log2 .=qq|<option value=2>Àž´¹</option>\n|;
$log2 .=qq|</select><br>\n|;
$log2 .=qq|<input type="submit" $button1 value="NEXT">...
}elsif($cmd==7){
$log .= "¤¤¤é¤Ã¤·¤ã¤¤!¤¤¤í¤¤¤í¤Ê¤â¤Î°·¤Ã¤Æ¤ë¤è!<br>\n";
$tm=140;
$log2 .=qq|<form action="$script" method="$method" nam...
$log2 .=qq|<td align="center" valign="middle">\n| if($...
$log2 .=qq|<input type="hidden" name="id" value="$id">...
$log2 .=qq|<select name="cmd" size="1">\n|;
$log2 .=qq|<option value="0">¤ä¤á¤ë</option>\n|;
$log2 .=qq|<option value="1">Ç㤦</option>\n|;
$log2 .=qq|<option value="2">Çä¤ë</option>\n|;
$log2 .=qq|</select><br>\n|;
$log2 .=qq|<input type="submit" $button1 value="NEXT">...
}elsif($cmd==20){
$log .= "¤¤Ã¤ÈÁÇŨ¤ÊÎø»Ï¤Þ¤ë!? ·ëº§ÁêÃ̽ê¤Ø¤è¤¦¤³¤½¢ö<...
$tm=150;
$log2 .=qq|<form action="$script" method="$method" nam...
$log2 .=qq|<td align="center" valign="middle">\n| if($...
$log2 .=qq|<input type="hidden" name="id" value="$id">...
$log2 .=qq|<select name=cmd size=1>\n|;
$log2 .=qq|<option value=0>¸å²ó¤·</option>\n|;
$log2 .=($sei==1) ? qq|<option value=2>¤ª²Ç¤µ¤óÁܺ÷</o...
$log2 .=qq|</select><br>\n|;
$log2 .=qq|<input type="submit" $button1 value="NEXT">...
}
# Éð¶ñ²° - Çã or Çä
}elsif($tm==10){
if($cmd<=0){#¾Ã
$log .= "¤Ê¤ó¤À¡¢¤ä¤á¤ë¤Î¤«¤¤¡£¤Þ¤¿Íè¤Æ¤¯¤ì¤è¤Ê¡ª<br>\...
$tm = $cmd = 0;
&shop_menu;
}elsif($cmd==1){#Çã-1
if($sogo==3||$sogo==4){
$log .= "$sogo_p[$sogo] ¤Îßà°õ¤Ä¤¤¤Æ¤Á¤ãÇ㤤ʪ¤Ï¤Ç¤...
$tm = $cmd = 0;
&shop_menu;
}else{
$log .= "²¿¤òÇ㤦¤ó¤À¤¤¡©<br>¤Á¤Ê¤ß¤ËÉð¶ñ¤Ï1¸Ä¤·¤«½ê...
$tm=12;
require "./inc/ore_sub-shop-p1_$mv_mode\.cgi";&bugu_s;
}
}elsif($cmd==2){#Çä-1
if($dg_a==0){
$log .= "$nm ¤µ¤ó¤ÏÉð¶ñ¤ò½ê»ý¤·¤Æ¤Ê¤¤¤¼¡ª<br>\n";
$tm = $cmd = 0;
&shop_menu;
}else{
if($dg_a<=10){
my $v = int(($dg_data[$dg_a][2]-$dg_data[$dg_a][2]/$...
$log .= "¤ª¡ª ±£¤·Éð´ï¤Î$dg_data[$dg_a][1] ¤¸¤ã¤Ê¤¤...
$tm=25;
}else{
my $v = int(($dg_data[$dg_a][2]-$dg_data[$dg_a][2]/$...
$log .= "¤½¤¦¤À¤Í¤¨¡¢$dg_data[$dg_a][1] ¤Ï $v G¤ÇÇã...
$tm=25;
}
$log2 .=qq|<form action="$script" method="$method" na...
$log2 .=qq|<td align="center" valign="middle">\n| if(...
$log2 .=qq|<input type="hidden" name="id" value="$id"...
$log2 .=qq|<select name=cmd size=1>\n|;
$log2 .=qq|<option value=0>¤ä¤á¤ë</option>\n|;
$log2 .=qq|<option value=1>Çä¤ë</option>\n|;
$log2 .=qq|</select><br>\n|;
$log2 .=qq|<input type="submit" $button1 value="NEXT"...
}
}
}elsif($tm==12){#Çã-2
if($cmd<=0){#¾Ã
$log .= "¤Ê¤ó¤À¤ä¤á¤ë¤Î¤«¤¤¡£¤Ç¡¢Â¾¤Ë¤É¤¦¤¹¤ë¤ó¤À¡©<br...
}else{
foreach(11 .. $#dg_data){
if($cmd eq $_ && $gold >= $dg_data[$_][2]){
$log .= "$dg_data[$_][2]G¤ò»Ùʧ¤¤¡¢$dg_data[$_][1] ...
$gold -= $dg_data[$_][2];
$dg_a = $_;
$dg_cnt = $dg_data[$_][3];
}elsif($cmd eq $_ && $gold<$dg_data[$_][2]){
$log .= "¤ª¶â¤¬Â¤ê¤Ê¤¤¤è¡ª<br>\n";
}
}
}
$tm = $cmd = 0;
&shop_menu;
}elsif($tm==25){#Çä-2
if($cmd<=0){#¾Ã
$log .= "¤Ê¤ó¤À¤ä¤á¤ë¤Î¤«¤¤¡£¤Ç¡¢Â¾¤Ë¤É¤¦¤¹¤ë¤ó¤À¡©<br...
}elsif($cmd==1){
my $v = int(($dg_data[$dg_a][2]-$dg_data[$dg_a][2]/$dg...
$log .= "$dg_data[$dg_a][1] ¤ò $v G ¤ÇÇäµÑ¤·¤Þ¤·¤¿¡£<b...
$gold += $v;
$dg_a = $dg_cnt = 0;
}
$tm = $cmd = 0;
&shop_menu;
# Ëɶñ²° - Çã or Çä
}elsif($tm==30){
if($cmd<=0){#¾Ã
$log .= "¤Þ¤¿¤ª¤³¤·¤¯¤À¤µ¤¤¡£<br>\n";
$tm = $cmd = 0;
&shop_menu;
}elsif($cmd==1){#Çã-1
if($sogo==3||$sogo==4){
$log .= "$sogo_p[$sogo] ¤Îßà°õ¤Ä¤¤¤Æ¤ëÊý¤Ï¤ªÇ㤤¾å¤²...
$tm=0;
&shop_menu;
}else{
$log .= "²¿¤ò¤ªµá¤á¤Ç¤¹¤«¡©<br>Ëɶñ¤Î½ê»ý¤Ï1¸Ä¤Þ¤Ç¤È...
$tm=32;
require "./inc/ore_sub-shop-p1_$mv_mode\.cgi";&bogu_s;
}
}elsif($cmd==2){#Çä-1
if($df_a==0){
$log .= "$nm ¤µ¤Þ¤ÏËɶñ¤ò½ê»ý¤Ç¤¤Þ¤»¤ó¡£<br>\n";
$tm = $cmd = 0;
&shop_menu;
}else{
if($df_a<=10){
my $v = int(($df_data[$df_a][2]-$df_data[$df_a][2]/$...
$log .= "¤ª¡ª ±£¤·Ëɶñ¤Î$df_data[$df_a][1] ¤Ç¤¹¤Í! ¤É...
$tm=45;
}else{
my $v = int(($df_data[$df_a][2]-$df_data[$df_a][2]/$...
$log .= "¤½¤¦¤Ç¤¹¤ÍŽ¥Ž¥Ž¥ $df_data[$df_a][1] ¤Ï $v G¤ÇÇã...
$tm=45;
}
$log2 .=qq|<form action="$script" method="$method" na...
$log2 .=qq|<td align="center" valign="middle">\n| if(...
$log2 .=qq|<input type="hidden" name="id" value="$id"...
$log2 .=qq|<select name=cmd size=1>\n|;
$log2 .=qq|<option value=0>¤ä¤á¤ë</option>\n|;
$log2 .=qq|<option value=1>Çä¤ë</option>\n|;
$log2 .=qq|</select><br>\n|;
$log2 .=qq|<input type="submit" $button1 value="NEXT"...
}
}
}elsif($tm==32){#Çä-2
if($cmd<=0){#¾Ã
$log .= "¤½¤Î¾¤Ï¤É¤¦¤·¤Þ¤¹¤«¡©<br>\n";
}else{
foreach(11 .. $#df_data){
if($cmd eq $_ && $gold >= $df_data[$_][2]){
$log .= "$df_data[$_][2]G¤ò»Ùʧ¤¤¡¢$df_data[$_][1] ...
$gold -= $df_data[$_][2];
$df_a = $_;
$df_cnt = $df_data[$_][3];
}elsif($cmd eq $_ && $gold<$df_data[$_][2]){
$log .= "¤ª¶â¤¬Â¤ê¤Þ¤»¤ó¡£<br>\n";
}
}
}
$tm = $cmd = 0;
&shop_menu;
}elsif($tm==45){#Çã-2
if($cmd<=0){#¾Ã
$log .= "¾¤Ë¤É¤¦¤·¤Þ¤¹¤«¡©<br>\n";
}elsif($cmd==1){
my $v = int(($df_data[$df_a][2]-$df_data[$df_a][2]/$df...
$log .= "$df_data[$df_a][1] ¤ò $v G ¤ÇÇäµÑ¤·¤Þ¤·¤¿¡£<b...
$gold += $v;
$df_a = $df_cnt = 0;
}
$tm = $cmd = 0;
&shop_menu;
# Æ»¶ñ²° - Çã or Çä
}elsif($tm==50){
if($cmd<=0){#¾Ã
$log .= "¾¤Ê¤Ë¤«¸æÍѤǤ¹¤«¡©<br>\n";
$tm = $cmd = 0;
&shop_menu;
}elsif($cmd==1){#Çã-1
if($sogo==3||$sogo==4){
$log .= "$sogo_p[$sogo] ¤Îßà°õ¤¬¤Ä¤¤¤Æ¤¤¤Æ¤ÏÇ㤤ʪ¤Ï...
$tm = $cmd = 0;
&shop_menu;
}else{
$log .= "²¿¤ò¤ªÇ㤤¾å¤²¤Ç¤¹¤«¡©<br>¤Á¤Ê¤ß¤ËÆ»¶ñ¤Ï1¸Ä...
$tm=52;
require "./inc/ore_sub-shop-p1_$mv_mode\.cgi";&dogu_s;
}
}elsif($cmd==2){#Çä-1
if(!$di_a){
$log .= "$nm ¤µ¤ó¤ÏÆ»¶ñ¤ò½ê»ý¤·¤Æ¤¤¤Þ¤»¤ó¡£<br>\n";
$tm = $cmd = 0;
&shop_menu;
}else{
if($di_a<=10){
my $v = int(($di_data[$di_a][2])/2);
$log .= "¤ª¡ª ±£¤·Ž±Ž²ŽÃŽÑ¤Î$di_data[$di_a][1] ¤¸¤ã¤Ê¤¤...
$tm=65;
}else{
my $v = int(($di_data[$di_a][2])/2);
$log .= "¤½¤¦¤Ç¤¹¤Í¤¨¡¢$di_data[$di_a][1] ¤Ï $v G ¤Ç...
$tm=65;
}
$log2 .=qq|<form action="$script" method="$method" na...
$log2 .=qq|<td align="center" valign="middle">\n| if(...
$log2 .=qq|<input type="hidden" name="id" value="$id"...
$log2 .=qq|<select name=cmd size=1>\n|;
$log2 .=qq|<option value=0>¤ä¤á¤ë</option>\n|;
$log2 .=qq|<option value=1>Çä¤ë</option>\n|;
$log2 .=qq|</select><br>\n|;
$log2 .=qq|<input type="submit" $button1 value="NEXT"...
}
}
}elsif($tm==52){#Çã-2
if($cmd<=0){#¾Ã
$log .= "¾²¿¤«¸æÍѤǤ¹¤«¡©<br>\n";
}else{
foreach(11 .. $#di_data){
if($cmd eq $_ && $gold >= $di_data[$_][2]){
$log .= "$di_data[$_][2]G¤ò»Ùʧ¤¤¡¢$di_data[$_][1] ...
$gold -= $di_data[$_][2];
$di_a = $_;
$di_cnt = $di_data[$_][3];
}elsif($cmd eq $_ && $gold<$di_data[$_][2]){
$log .= "¤ª¶â¤¬Â¤ê¤Þ¤»¤ó¡£¤ª°ú¼è¤ê´ê¤¤¤Þ¤¹¡£<br>\n";
}
}
}
$tm = $cmd = 0;
&shop_menu;
}elsif($tm==65){
if($cmd<=0){#¾Ã
$log .= "¾²¿¤«¸æÍѤǤ¹¤«¡©<br>\n";
}elsif($cmd==1){
my $v = int(($di_data[$di_a][2])/2);
$log .= "$di_data[$di_a][1] ¤ò $v G ¤ÇÇäµÑ¤·¤Þ¤·¤¿¡£<b...
$gold += $v;
$di_a = 0;
}
$tm = $cmd = 0;
&shop_menu;
# ¶âÍ»¶È
}elsif($tm==70){
if($cmd<=0){#¾Ã
$log .= "¤´ÍøÍѤϤ´·×²èŪ¤Ë¢ö<br>\n";
$tm = $cmd = 0;
&shop_menu;
}elsif($cmd==1){#¼Ú
if($sogo==3||$sogo==4){
$log .= "¤³¤ì°Ê¾å¤Ï¿È¤Î¤¿¤á¤Ë¤Ê¤é¤Ê¤¤¤è¡£ÁᤤŽÄŽºÊÖ¤·¤Æ...
$tm = $cmd = 0;
&shop_menu;
}else{
&syakin;
$log .= "¶â¼Ú¤ê¤¿¤¤¤Î¤«¤¤¡£¤¤¤¯¤é¼Ú¤ê¤¿¤¤¤ó¤À¡©<br>$v...
$tm=72;
$log2 .=qq|<form action="$script" method="$method" na...
$log2 .=qq|<td align="center" valign="middle">\n| if(...
$log2 .=qq|<input type="hidden" name="id" value="$id"...
$log2 .=qq|<select name=cmd size=1>\n|;
$log2 .=qq|<option value="0">¤ä¤á¤ë</option>\n|;
$log2 .=qq|<option value="1">$vw G</option>\n|;
$log2 .=qq|<option value="2">$vx G</option>\n|;
$log2 .=qq|</select><br>\n|;
$log2 .=qq|<input type="submit" $button1 value="NEXT"...
}
}elsif($cmd==2){#ÊÖ
if($sogo!=3&&$sogo!=4){
$log .= "$nm ¤µ¤ó¤ËÊֺѵÁ̳¤Ï¤Ê¤¤¤è¡£<br>\n";
$tm = $cmd = 0;
&shop_menu;
}else{
$log .= "¤ä¤Ã¤È¼Ú¶âÊֺѤ·¤Æ¤¯¤ì¤ë¤Î¤«¤¤¡£$nm ¤µ¤ó¤ÎÊÖ...
&syakin;
if($sogo==3){
$log .= "<b>$vw2 G</b>¤À¤è¡£\n";
}elsif($sogo==4){
$log .= "<b>$vx2 G</b>¤À¤è¡£\n";
}
$log2 .=qq|<form action="$script" method="$method" na...
$log2 .=qq|<td align="center" valign="middle">\n| if(...
$log2 .=qq|<input type="hidden" name="id" value="$id"...
$log2 .=qq|<select name="cmd" size="1">\n|;
$log2 .=qq|<option value="0">¤ä¤á¤ë</option>\n|;
$log2 .=qq|<option value="1">»Ùʧ¤¦</option>\n|;
$log2 .=qq|</select><br>\n|;
$log2 .=qq|<input type="submit" $button1 value="NEXT"...
$tm=74;
}
}
}elsif($tm==72){#¼Ú - ³Û
if($cmd<=0){#¾Ã
$log .= "¤Ê¤ó¤À¤ä¤á¤ë¤Î¤«¤¤¡£¤Ç¡¢Â¾¤Ë¤É¤¦¤¹¤ë¤ó¤À¡©<br...
$tm = $cmd = 0;
&shop_menu;
}elsif($cmd==1){
&syakin;
$gold +=$vw;
$sogo =3;
$log .= "$vw G ¤ò¼Ú¤ê¤Þ¤·¤¿¡£$nm ¤Ï<b>$sogo_p[3]</b> ...
$tm = $cmd = 0;
&shop_menu;
}elsif($cmd==2){
&syakin;
$gold +=$vx;
$sogo =4;
$log .= "$vx G ¤ò¼Ú¤ê¤Þ¤·¤¿¡£$nm ¤Ï<b>$sogo_p[4]</b> ...
$tm = $cmd = 0;
&shop_menu;
}
}elsif($tm==74){#ÊÖ - ³Û
if($cmd<=0){#¾Ã
$log .= "Áᤤ¤È¤³¡¢¶âÊÖ¤·¤Æ¤¯¤ì¤è¡ª ¤Ç¡¢Â¾¤Ë¤É¤¦¤¹¤ë¤ó...
$tm = $cmd = 0;
&shop_menu;
}elsif($cmd==1){
&syakin;
if($sogo==3){
if($gold > $vw2){
$gold -=$vw2;
$log .= "¼Ú¶â$vw2 G ¤òÊֺѤ·¤Þ¤·¤¿¡£<br>\n";
$sogo =0;
}else{
$log .= "¤½¤ó¤Ê ¤Ï¤·¤¿¶â¤¸¤ã¤ê¤Ê¤¤¤è¡ª<br>\n";
}
}elsif($sogo==4){
if($gold > $vx2){
$gold -=$vx2;
$log .= "¼Ú¶â$vx2 G ¤òÊֺѤ·¤Þ¤·¤¿¡£<br>\n";
$sogo =0;
}else{
$log .= "¤½¤ó¤Ê¡¡¤Ï¤·¤¿¶â¤¸¤ã¤ê¤Ê¤¤¤è¡ª<br>\n";
}
}
$tm = $cmd = 0;
&shop_menu;
}
}
# Êõ¤¯¤¸
elsif($tm>=90 && $tm<120){require './inc/ore_sub-shop-lo...
# ¿ÇÎŽê
elsif($tm>=120 && $tm<140){require './inc/ore_sub-shop-m...
# ¾è¤êʪ²° - Çã or Çä
elsif($tm==140){
if($cmd<=0){#¾Ã
$log .= "¤Þ¤¿¡¢¤¤¤Ä¤Ç¤âÍ褤¤ä¡£<br>\n";
$tm = $cmd = 0;
&shop_menu;
}elsif($cmd==1){#Çã-1
if($sogo==3||$sogo==4){
$log .= "$sogo_p[$sogo] ¤Îßà°õ¤Ä¤¤¤Æ¤ëÊý¤Ï¤ªÇ㤤¾å¤²...
$tm=0;
&shop_menu;
}else{
$log .= "²¿¤ò¤ªµá¤á¤Ç¤¹¤«¡©<br>¾è¤êʪ¤Î½ê»ý¤Ï1¸Ä¤Þ¤Ç...
$tm=142;
require "./inc/ore_sub-shop-p1_$mv_mode\.cgi";&norimo...
}
}elsif($cmd==2){#Çä-1
if($dn_a==0){
$log .= "$nm ¤µ¤Þ¤Ï¾è¤êʪ¤ò½ê»ý¤Ç¤¤Þ¤»¤ó¡£<br>\n";
$tm = $cmd = 0;
&shop_menu;
}else{
if($dn_a<=10){
my $v = int(($dn_data[$dn_a][2]-$dn_data[$dn_a][2]/$...
$log .= "¤ª¡ª ±£¤·¾è¤êʪ¤Î$dn_data[$dn_a][1] ¤Ç¤¹¤Í! ...
$tm=145;
}else{
my $v = int(($dn_data[$dn_a][2]-$dn_data[$dn_a][2]/$...
$log .= "¤½¤¦¤Ç¤¹¤ÍŽ¥Ž¥Ž¥ $dn_data[$dn_a][1] ¤Ï $v G¤ÇÇã...
$tm=145;
}
$log2 .=qq|<form action="$script" method="$method" na...
$log2 .=qq|<td align="center" valign="middle">\n| if(...
$log2 .=qq|<input type="hidden" name="id" value="$id"...
$log2 .=qq|<select name=cmd size=1>\n|;
$log2 .=qq|<option value=0>¤ä¤á¤ë</option>\n|;
$log2 .=qq|<option value=1>Çä¤ë</option>\n|;
$log2 .=qq|</select><br>\n|;
$log2 .=qq|<input type="submit" $button1 value="NEXT"...
}
}
# ·ëº§ÁêÃ̽ê
elsif($tm>=160 && $tm<200 && $mv_mode eq 'pc' &&
$lv>=15 && $lv<=50){require './inc/ore_sub-shop-marry....
&dat_write;
}
#-------------------------------------------------------...
---
-¸«¤Å¤é¤¯¡¢¤·¤«¤âŤ¤¤Ç¤¹¤¬¡¢¤è¤í¤·¤¯¤ª´ê¤¤¤·¤Þ¤¹¡£ -- [[...
-¾è¤êʪ²°¤Î¤Ï $tm=140; ¤È¤Ê¤Ã¤Æ¤Þ¤¹¤¬¡¢}elsif($tm==140){ ...
-¸½ºß¤Î¥Õ¥¡¥¤¥ë¤Ï¾åµ¤ÎÄ̤ê¤Ç¤¹¤«¡©°ìÈÖ²¼¤Î·ë¹½ÁêÃ̽ê¤Î¤È...
->>¤È¡¢Á´³Ñ¥¹¥Ú¡¼¥¹¤Ï¡¢¤³¤³¤Ë¡¢½ñ¤¯¤È¤¤Ë´Ö°ã¤¨¤Æ½ñ¤¤¤¿¤Î...
-elsif¤ò¡¢Ä¾¤·¤Þ¤·¤Æ¤ß¤Þ¤·¤¿¤¬¡¢¾åµ¤Î¾õ¶·¤«¤éÊѲ½¤Ï¤¢¤ê...
--Äɲä·¤¿SHOP¤âƱ¤¸¤È½ñ¤«¤ì¤Æ¤¤¤Þ¤¹¤¬¡¢$tm=140¤À¤ÈÄɲäÎ...
-¤¨¤Ã¡ª140¤¸¤ã¤¢¡¢¤À¤á¤À¤Ã¤¿¤ó¤Ç¤¹¤«¡©¤É¤Î¿ôÃͤÀ¤Ã¤¿¤éÂç...
--¤¤¤ä¡¢140¤Ç¤â¤¤¤¤¤ó¤Ç¤¹¤¬¡¢½èÍý¤ÎÉôʬ¤È¿©¤¤°ã¤Ã¤Æ¤Þ¤·¤¿...
-¤¢¤¢¡¢¤½¤¦¤¤¤¦¤³¤È¤Ç¤¹¤«¡£½èÍýÉôʬ¤ò¡¢$tm=140¤Ë¤·¤¿·ë²Ì...
-ºÆ·Ç¼ºÎ餷¤Þ¤¹¡£¡ä¾è¤êʪ²°¤Î¤Ï $tm=140; ¤È¤Ê¤Ã¤Æ¤Þ¤¹¤¬¡¢...
-½ñ¤Ä¾¤·¤Æ¤ª¤¤Þ¤¹¤Í¡£¡Êľ¤¹¤Î¤ò˺¤ì¤Æ¤Þ¤·¤¿¡£¡Ë -- [[Éõ...
-¾õ¶·¤¬°²½¤·¤Þ¤·¤¿¡£Éð´ï¡¦Ëɶñ¡¦¾è¤êʪ²°¤ËÆþ¤Ã¤Æ¡Ö¤ä¤á¤ë...
-Æ»¶ñ²°¤â¡¢Æ±¤¸¤è¤¦¤Ê¾õ¶·¤Ë´Ù¤ê¤Þ¤·¤¿Ž¥Ž¥Ž¥Ž¥¡£¾Ü¤·¤¯¤Ï¾åµ¤Î...
-¤È¤¦¤È¤¦¡¢¥·¥ç¥Ã¥Ô¥ó¥°¥â¡¼¥ëÆâ¤ÎÁ´¤Æ¤Î¡¢¥³¥Þ¥ó¥É¤¬¡¢Æ±¤¸...
-²¿¤ò¤·¤Æ¤½¤¦¤Ê¤Ã¤¿¤Î¤«¤ò½ñ¤¯¤È¡¢¥³¥á¥ó¥È¤¹¤ë¦¤Ë¤â¸å¤«¤é...
-¤½¤ì¤È¡¢¢¬¤Ç´ÝŽ¤ê¤µ¤ì¤Æ¤¤¤ë¥¹¥¯¥ê¥×¥È°Ê³°¤Ï¡¢°ìÀÚÏ®¤Ã¤Æ...
-¥ê¥ó¥¯¤¹¤ë¤È¤Ï¡¢²¿¤Ë¥ê¥ó¥¯¤¹¤ë¤Î¤Ç¤¹¤«¡©CGIËÜÂΤ˥ê¥ó¥¯...
-¤¨¤Ã¤È¡£¡£¡£²¿¤ò¤·¤Æ¤½¤¦¤Ê¤Ã¤¿¤«¡£¤Ç¤¹¤¬¡¢ore_config.cgi...
-¤½¤ì¤À¤±¤ÇŽ¼Ž®Ž¯ŽÌŽß¤¬¤ª¤«¤·¤¯¤Ê¤ê¤½¤¦¤Ë¤Ï¤Ê¤¤¤È»×¤¤¤Þ¤¹¤¬¡Ä¥Ð...
-¥Ð¥Ã¥¯¥¢¥Ã¥×¤È¤¤¤¦¤Î¤Ï¡¢¥·¥ç¥Ã¥×¤òÄɲ乤ëÁ°¤Î¡¢¥¹¥×¥ê¥¯...
-¾è¤êʪ²°¤Î²þ¤¤ò²Ã¤¨¤ëÁ°¤Î¤Ç¤¹¤Í¡£¡¡¤È¤³¤í¤Ç¡¢¢¬¤Îshop¤Î...
-¤§¡¼¢¬¤Îµ½Ò¤Ç»î¤·¤Æ¤ß¤¿¤Î¤Ç¤¹¤¬¡¢shop¼«ÂΤËÉÔ¶ñ¹ç¤Ï¤Ê¤¤...
-}¤ò¡¢Äɲ䷤ƻ¤Æ¤ß¤¿¤È¤³¤í¡¢£µ£°£°¥¨¥é¡¼¤¬½Ð¤Þ¤·¤¿¡£p...
-http://melcha.zone.ne.jp/ebs/dl/pc/¤Ç¡¢´ØÏ¢¤Î¤¢¤ê¤½¤¦¤Ê...
-¤¢¤ì¡©»ä¤Î´ª°ã¤¤¤Ç¤·¤¿¤«¡¦¡¦¡¦¡Ê¤§¡¡¼ºÎ餷¤Þ¤·¤¿¡£ -- [[...
-¤ª¿´¸¯¤¤´¶¼Õ¤·¤Æ¤¤¤Þ¤¹¡£Â¾¤Ë¤â¡¢¤É¤ó¤É¤óµ¤ÉÕ¤¤¤¿¤³¤È¤ò¹Ô...
-¾ðÊó¤¬Ìµ¤±¤ì¤Ð¡¢¥³¥á¥ó¥È¤Î¤·¤è¤¦¤¬Ìµ¤¤µ¤¤¬¡£¡£¡£ -- [[»°...
-$tm¤ò¡¢140¤«¤é£±£°¤Å¤ÄÁý¤ä¤·¤Æ¤¤¤Ã¤Æ200¤Þ¤Ç¤ä¤Ã¤¿·ë²Ì¤Ç...
-¤½¤¦¤¤¤¨¤Ð¡¢Ã±½ã¤ËËɶñ²°¤ò»²¹Í¤Ë¤·¤Æ¡¢¾è¤êʪ¤ä¤òÄɲä·¤¿...
-·ë¶ÉÆ°¤¯¤è¤¦¤Ë¤Ê¤Ã¤¿¤È¤¤Î¡¢Ê¸ËöÉôʬ¤ò¢¤ËÄ¥¤Ã¤Æ¤ª¤¤Þ¤¹...
# ·ëº§ÁêÃ̽ê
elsif( $tm>=150 && $tm<200 && $mv_mode eq 'pc' &&
$lv>=15 && $lv<=50){require './inc/ore_sub-shop-marry....
&dat_write;
}
#-------------------------------------------------------...
#¼Ú¶â·×»»
sub syakin {
if($lv < 40){
$vw = int($lv*1000);
$vx = int($lv*2000);
$vw2 = int($lv*1250);
$vx2 = int($lv*2500);
}else{
$vw = 40000;
$vx = 80000;
$vw2 = 50000;
$vx2 = 100000;
}
}}1;
-$tm=xxx¤Èif($tm==xxx){}¤Î -- [[»°ÌÓÇ]] &new{2007-03-31 ...
-ÅÓÃæÀڤ켺Îé¡£¡Ê´À¡ä¡Á{}¤Îxxx¤¬(¾¤Ç»È¤ï¤ì¤Æ¤¤¤Ê¤¤¿ô¤Ç¡Ë...
-ÊÑ¿ô¤È¡¢¾ò·ïʬ´ô¤Ç¡¢¹½À®¤µ¤ì¤Æ¤¤¤¿¤Î¤Ç¡¢$tmÃͤνÅÊ£¤¬¤Ê...
-²áµî¥í¥°¤ò³Îǧ¤·¡¢¿·¤·¤¤SHOP¤Î¾ì½ê¤òÊѤ¨¤¿¤éŽ¥Ž¥Ž¥¤È¤¤¤¦¤Î...
-¤È¤³¤í¤Ç¡¢¿·¤¿¤Ê¥Ð¥°¤Ç¤¹¤¬¡¢¾è¤êʪ²°¤ÇÇ㤤ʪ¤ò¤¹¤ëºÝ¤Ç¤¹...
-
$log .= "²¿¤ò¤ªµá¤á¤Ç¤¹¤«¡©<br>Ëɶñ¤Î½ê»ý¤Ï1¸Ä¤Þ¤Ç¤È¤Ê¤Ã...
$tm=32;
require "./inc/ore_sub-shop-p1_$mv_mode\.cgi";&bogu_s;
¤Î$tm¤Î»ØÄ꤬°ã¤¦¤ó¤¸¤ã¤Ê¤¤¤Ç¤¹¤«¡©¢¬¤Î¤ÏËɶñ²°¤Î¤Ç¤¹¤¬¡£ ...
-¾è¤êʪ²°¤Î$tm¤Ç¤¹¤«¡©¤½¤ì¤È¤â¡¢Ëɶñ²°¤Î$tm¤Ç¤¹¤«¡©¤½¤ì¤È...
-¾å¤Î¥¹¥¯¥ê¥×¥È¤À¤È¡¢¾èʪ¤òÇ㤦¤È¤³¤í¤Ç¡Ö&norimono_s;¡×¤Ç...
-¥Õ¥¡¥¤¥ë¤Ï¡¢./inc/ore_sub-shop-p1_pc.cgi¤È./inc/ore_sub-...
¤³¤ì¤¬¡¢./inc/ore_sub-shop-p1_pc.cgi¤ËÄɲä·¤¿ÆâÍƤǤ¹¡£
Ëɶñ²°¤Î¤ä¤Ä¤Î¾å¤Ë¡¢Äɲä·¤Þ¤·¤¿¡£PERL¥Á¥§¥Ã¥«¤Ç³Îǧ¤·¤Æ...
ÉԳФˤ⡢¡Á¡Ámv.cgi¤Ë¤ÏÄɲäò˺¤ì¤Æ¤Þ¤·¤¿¡£Äɲ䷤ƥƥ¹...
# ¾è¤êʪŽ¼Ž®Ž¯ŽËŽßŽÝŽ¸ŽÞ)
sub norimono_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>
<table border=0 cellpadding=2 cellspacing=2 width=100%>
<tr align=center bgcolor="#ccccee">
<td> </td>
<td>¾è¤êʪ</td>
<td>ÃÍÃÊ</td>
<td>²ó¿ô</td>
<td>ÀâÌÀ</td>
</tr>
EOM
foreach(11 .. $#dn_data){
$log .=qq|<tr align="center" bgcolor="#ccccee">\n|;
$log .=qq|<td><input type="radio" value="$_" name="cmd"...
$log .=qq|<td>$dn_data[$_][1]</td><td>$dn_data[$_][2]</...
}
$log .=qq|</table>\n|;
$log .=qq|<tt><br></tt><input type="submit" value="¹ØÆþ/...
$layout_flag=1;
}
-./inc/ore_sub-shop-p1_mv.cgi¤Î¡¢Ëɶñ²°¤ä¤Ä¤Î¾å¤Ë¡¢Ëɶñ²°...
-¤³¤Î¡¢¹ØÆþ¥Ü¥¿¥ó¤ò²¡¤·¤¿¸å¤Î½èÍý¤Ï¡¢¤É¤³¤Ç¹Ô¤ï¤ì¤Æ¤¤¤ë¤Î...
-»ä¤¬¾å¤Ç¸À¤Ã¤Æ¤ë$tm¤À¤È»×¤¤¤Þ¤¹¤¬¡£
$log .= "²¿¤ò¤ªµá¤á¤Ç¤¹¤«¡©<br>¾è¤êʪ¤Î½ê»ý¤Ï1¸Ä¤Þ¤Ç¤È¤Ê...
$tm=142;
require "./inc/ore_sub-shop-p1_$mv_mode\.cgi";&norimono_s;
}elsif($tm==142){¤¬µ½Ò¤µ¤ì¤Æ¤Ê¤¤¤«¤é¤Ç¤Ï¤Ê¤¤¤Ç¤·¤ç¤¦¤«¡£...
-¤É¤³¤Ë¡¢}elsif($tm==142){¤òµ½Ò¤¹¤ì¤Ð¤¤¤¤¤Î¤Ç¤·¤ç¤¦¤«¡£ ...
-Éð´ï²°¤Ê¤É¤Î½èÍý¤ò»²¹Í¤Ëµ½Ò¤·¤Æ¤¯¤À¤µ¤¤¡£¾ì½ê¤Ï·ëº§ÁêÃÌ...
-./inc/ore_sub-shop.cgi¤Ç¤¹¤è¤Í¡£$tm¤È¡¢$d~_data¤È¡¢$log ...
# ¾è¤êʪ²° - Çã or Çä
}elsif($tm==140){
if($cmd<=0){#¾Ã
$log .= "¤Þ¤¿¡¢¤¤¤Ä¤Ç¤âÍ褤¤ä¡£<br>\n";
$tm = $cmd = 0;
&shop_menu;
}elsif($cmd==1){#Çã-1
if($sogo==3||$sogo==4){
$log .= "$sogo_p[$sogo] ¤Îßà°õ¤Ä¤¤¤Æ¤ëÊý¤Ï¤ªÇ㤤¾å¤²...
$tm=0;
&shop_menu;
}else{
$log .= "²¿¤ò¤ªµá¤á¤Ç¤¹¤«¡©<br>¾è¤êʪ¤Î½ê»ý¤Ï1¸Ä¤Þ¤Ç...
$tm=142;
require "./inc/ore_sub-shop-p1_$mv_mode\.cgi";&norimo...
}
}elsif($cmd==2){#Çä-1
if($dn_a==0){
$log .= "$nm ¤µ¤Þ¤Ï¾è¤êʪ¤ò½ê»ý¤Ç¤¤Þ¤»¤ó¡£<br>\n";
$tm = $cmd = 0;
&shop_menu;
}else{
if($dn_a<=10){
my $v = int(($dn_data[$dn_a][2]-$dn_data[$dn_a][2]/$...
$log .= "¤ª¡ª ±£¤·¾è¤êʪ¤Î$dn_data[$dn_a][1] ¤Ç¤¹¤Í! ...
$tm=145;
}else{
my $v = int(($dn_data[$dn_a][2]-$dn_data[$dn_a][2]/$...
$log .= "¤½¤¦¤Ç¤¹¤ÍŽ¥Ž¥Ž¥ $dn_data[$dn_a][1] ¤Ï $v G¤ÇÇã...
$tm=145;
}
$log2 .=qq|<form action="$script" method="$method" na...
$log2 .=qq|<td align="center" valign="middle">\n| if(...
$log2 .=qq|<input type="hidden" name="id" value="$id"...
$log2 .=qq|<select name=cmd size=1>\n|;
$log2 .=qq|<option value=0>¤ä¤á¤ë</option>\n|;
$log2 .=qq|<option value=1>Çä¤ë</option>\n|;
$log2 .=qq|</select><br>\n|;
$log2 .=qq|<input type="submit" $button1 value="NEXT"...
}
}
#------------------------------¥³¥³¤«¤é
}elsif($tm==142){#Çã-2
if($cmd<=0){#¾Ã
$log .= "¾²¿¤«¸æÍѤǤ¹¤«¡©<br>\n";
}else{
foreach(11 .. $#di_data){
if($cmd eq $_ && $gold >= $di_data[$_][2]){
$log .= "$di_data[$_][2]G¤ò»Ùʧ¤¤¡¢$di_data[$_][1] ...
$gold -= $di_data[$_][2];
$di_a = $_;
$di_cnt = $di_data[$_][3];
}elsif($cmd eq $_ && $gold<$di_data[$_][2]){
$log .= "¤ª¶â¤¬Â¤ê¤Þ¤»¤ó¡£¤ª°ú¼è¤ê´ê¤¤¤Þ¤¹¡£<br>\n";
}
}
}
$tm = $cmd = 0;
&shop_menu;
}elsif($tm==145){
if($cmd<=0){#¾Ã
$log .= "¾²¿¤«¸æÍѤǤ¹¤«¡©<br>\n";
}elsif($cmd==1){
my $v = int(($di_data[$di_a][2])/2);
$log .= "$di_data[$di_a][1] ¤ò $v G ¤ÇÇäµÑ¤·¤Þ¤·¤¿¡£<b...
$gold += $v;
$di_a = 0;
}
$tm = $cmd = 0;
&shop_menu;
#---------------------¥³¥³¤Þ¤Ç
¤Î¤É¤³¤Ë}elsif($tm==142){¤òÆþ¤ì¤ì¤Ð¤¤¤¤¤ó¤Ç¤¹¤«?¢¬¤Ï¡¢¾è¤ê...
-$tm¤·¤«Êѹ¹¤·¤Æ̵¤¤¤Î¤Ç¡¢ºÙ¤«¤¤¤È¤³¤í¤Ï¤´¼«Ê¬¤Ç½¤Àµ¤·¤Æ...
-¤¢¤Ã¡£¡£¡£¤Á¤ç¤Ã¤È¤·¤¿¤³¤È¤ò˺¤ì¤Æ¤¤¤¿¤À¤±¤À¤Ã¤¿¤ó¤Ç¤·¤¿...
-¤µ¤Æ¡¢¿·¤·¤¤¥Ð¥°¤Ç¤¹¤¬¡¢Æ°¤¤¤Æ¡¢¡Ö¡û¡ûG¤ò»Ùʧ¤¤¡Á¡Á¤ò¹ØÆþ...
-¡$di_a¤ò$dn_a¤Ë¡¢$di_cnt¤ò$dn_cnt¤ËÊѹ¹¤·¤Æ¤¤¤Ê¤¤¢ÊÑ¿ô¤ò...
-ÃѤº¤«¤·¤Ê¤¬¤é¢¤Ç¤·¤¿¡£¡£¡£ºáȳ/ÊÑ¿ô¤ÎÄɲᡤò»²¹Í¤Ë¤·¤Æ...
#comment
½ªÎ»¹Ô:
*¥·¥ç¥Ã¥Ô¥ó¥°¥â¡¼¥ë¡²Ç㤤ʪ [#o4b17cb9]
-¥Ú¡¼¥¸: [[ºáȳ²þ¤ÈÄ£²]]
-Åê¹Æ¼Ô: [[ÉõÅ·Íë̽]]
-Í¥Àè½ç°Ì: ½ÅÍ×
-¾õÂÖ: ´°Î»
-¥«¥Æ¥´¥ê¡¼: ¥¨¥é¡¼¤¬½Ð¤Þ¤¹
-Åê¹ÆÆü: 2007-03-24 (ÅÚ) 09:53:27
-¥Ð¡¼¥¸¥ç¥ó:
**ÆâÍÆ [#ed7b0dd9]
²ò·è~
¡ã¾õ¶·¡ä~
¥·¥ç¥Ã¥Ô¥ó¥°¥â¡¼¥ë¢ª¡Ê¤É¤ì¤Ç¤âÎɤ¤¤«¤éÁª¤Ö¡Ë¢ª¢ª¡Ê°ìÈÖ¾å¤Î¥³...
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¢~
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡ ¢ª¢ª¡Ê¾å¤«¤é£²ÈÖÌܤΥ³¥Þ...
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¢~
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡ ¢ª¢ª¡Ê¾å¤«¤é£³ÈÖÌܤΥ³¥Þ...
¡Öµî¤ë¡×¥³¥Þ¥ó¥É¤Ï¡¢Ä̾ïÄ̤êÆ°¤¤Þ¤¹¡£
¤È¤¤¤¦¤è¤¦¤Ë¤Ê¤ë¡£~
¤³¤ì¤¸¤ã¤¢¡¢¥·¥ç¥Ã¥Ô¥ó¥°¥â¡¼¥ë¤¬¡¢Æ°¤¤Þ¤»¤ó¡£¤É¤¦¤·¤¿¤é...
----
-$tm¤¬°ã¤Ã¤Æ¤ë¤Î¤Ç¤Ï¤Ê¤¤¤Ç¤·¤ç¤¦¤«¡© -- [[six]] &new{2007...
-¤É¤Î¤è¤¦¤Ë¤·¤¿¤é¤¦¤Þ¤¯¤¤¤¤Þ¤¹¤«¤Í¡©¶µ¤¨¤Æ¤â¤é¤¨¤Þ¤»¤ó¤«...
-¥¹¥¯¥ê¥×¥È¤Ï¥Ç¥Õ¥©¥ë¥È¤Î¾õÂ֤Ǥ¹¤«¡©²¿¤¬°ã¤¦¤Î¤«¡¢²¿¤ò¤·...
-ore_sub-shop.cgi¡ÊVer.1.1¡Ë¤Î¡¢¥·¥ç¥Ã¥Ô¥ó¥°¥â¡¼¥ë½èÍý¤Î...
-¢¤¬¡¢ore_sub-shop.cgi¤Ç¤¹¡£ -- [[ÉõÅ·Íë̽]] &new{2007-03...
#-------------------------------------------------------...
#Ž¼Ž®Ž¯ŽËŽßŽÝŽ¸ŽÞŽÓŽ°ŽÙ½èÍý
sub shop_exe{
# ¹Ô¤ÀèÁªÂò
if(!$tm){
if($cmd<=0){
$log .= "$nm ¤Ïƨ¤²¤ë¤è¤¦¤ËΩ¤Áµî¤Ã¤¿¡£<br>\n";
$tm = $cmd = 0;
$type='';
&call_main_st;
}elsif($cmd==1){
$log .= "¤¤¤é¤Ã¤·¤ã¤¤¡£º£Æü¤Ï¤É¤¦¤¹¤ë¤ó¤À¤¤¡©<br>\n";
$tm=10;
$log2 .=qq|<form action="$script" method="$method" nam...
$log2 .=qq|<td align="center" valign="middle">\n| if($...
$log2 .=qq|<input type="hidden" name="id" value="$id">...
$log2 .=qq|<select name="cmd" size="1">\n|;
$log2 .=qq|<option value="0">¤ä¤á¤ë</option>\n|;
$log2 .=qq|<option value="1">Ç㤦</option>\n|;
$log2 .=qq|<option value="2">Çä¤ë</option>\n|;
$log2 .=qq|</select><br>\n|;
$log2 .=qq|<input type="submit" $button1 value="NEXT">...
}elsif($cmd==2){
$log .= "¤¤¤é¤Ã¤·¤ã¤¤¤Þ¤»¡£²¿¤ò¤ªµá¤á¤Ç¤¹¤«¡©<br>\n";
$tm=30;
$log2 .=qq|<form action="$script" method="$method" nam...
$log2 .=qq|<td align="center" valign="middle">\n| if($...
$log2 .=qq|<input type="hidden" name="id" value="$id">...
$log2 .=qq|<select name="cmd" size="1">\n|;
$log2 .=qq|<option value="0">¤ä¤á¤ë</option>\n|;
$log2 .=qq|<option value="1">Ç㤦</option>\n|;
$log2 .=qq|<option value="2">Çä¤ë</option>\n|;
$log2 .=qq|</select><br>\n|;
$log2 .=qq|<input type="submit" $button1 value="NEXT">...
}elsif($cmd==3){
$log .= "¤è¤¦¤³¤½¡£¿§¡¹¤Ê¤â¤Î¤ò°·¤Ã¤Æ¤Þ¤¹¡£<br>\n";
$tm=50;
$log2 .=qq|<form action="$script" method="$method" nam...
$log2 .=qq|<td align="center" valign="middle">\n| if($...
$log2 .=qq|<input type="hidden" name="id" value="$id">...
$log2 .=qq|<select name="cmd" size="1">\n|;
$log2 .=qq|<option value="0">¤ä¤á¤ë</option>\n|;
$log2 .=qq|<option value="1">Ç㤦</option>\n|;
$log2 .=qq|<option value="2">Çä¤ë</option>\n|;
$log2 .=qq|</select><br>\n|;
$log2 .=qq|<input type="submit" $button1 value="NEXT">...
}elsif($cmd==4){
$log .= "¤¤¤é¤Ã¤·¤ã¤¤¡£ŽÏŽÈŽ°Ž¼Ž®Ž¯ŽÌŽß¤Ë¤è¤¦¤³¤½¡£<br>\n";
$tm=70;
$log2 .=qq|<form action="$script" method="$method" nam...
$log2 .=qq|<td align="center" valign="middle">\n| if($...
$log2 .=qq|<input type="hidden" name="id" value="$id">...
$log2 .=qq|<select name=cmd size=1>\n|;
$log2 .=qq|<option value=0>¤ä¤á¤ë</option>\n|;
$log2 .=qq|<option value=1>¼Ú¶â</option>\n|;
$log2 .=qq|<option value=2>ÊÖºÑ</option>\n|;
$log2 .=qq|</select><br>\n|;
$log2 .=qq|<input type="submit" $button1 value="NEXT">...
}elsif($cmd==5){
$log .= "¥¤¥é¥Ã¥·¥ã¥¤¥Þ¥»¥§¡Á¢ö°ìËç¸ÞÉ´£Ç¤Ë¤Ê¤ê¤Þ¤¡¤¹¢ö<...
$tm=90;
$log2 .=qq|<form action="$script" method="$method" nam...
$log2 .=qq|<td align="center" valign="middle">\n| if($...
$log2 .=qq|<input type="hidden" name="id" value="$id">...
$log2 .=qq|<select name=cmd size=1>\n|;
$log2 .=qq|<option value=0>¤ä¤á¤ë</option>\n|;
$log2 .=qq|<option value=1>Ä©Àï</option>\n|;
$log2 .=qq|</select><br>\n|;
$log2 .=qq|<input type="submit" $button1 value="NEXT">...
}elsif($cmd==6){
$log .= "¤¤¤é¤Ã¤·¤ã¤¤¡£ºáȳ¿ÇÎŽê¤Ë¤è¤¦¤³¤½¡£<br>\n";
$tm=120;
$log2 .=qq|<form action="$script" method="$method" nam...
$log2 .=qq|<td align="center" valign="middle">\n| if($...
$log2 .=qq|<input type="hidden" name="id" value="$id">...
$log2 .=qq|<select name=cmd size=1>\n|;
$log2 .=qq|<option value=0>¤ä¤á¤ë</option>\n|;
$log2 .=qq|<option value=1>¼£ÎÅ</option>\n|;
$log2 .=qq|<option value=2>Àž´¹</option>\n|;
$log2 .=qq|</select><br>\n|;
$log2 .=qq|<input type="submit" $button1 value="NEXT">...
}elsif($cmd==7){
$log .= "¤¤¤é¤Ã¤·¤ã¤¤!¤¤¤í¤¤¤í¤Ê¤â¤Î°·¤Ã¤Æ¤ë¤è!<br>\n";
$tm=140;
$log2 .=qq|<form action="$script" method="$method" nam...
$log2 .=qq|<td align="center" valign="middle">\n| if($...
$log2 .=qq|<input type="hidden" name="id" value="$id">...
$log2 .=qq|<select name="cmd" size="1">\n|;
$log2 .=qq|<option value="0">¤ä¤á¤ë</option>\n|;
$log2 .=qq|<option value="1">Ç㤦</option>\n|;
$log2 .=qq|<option value="2">Çä¤ë</option>\n|;
$log2 .=qq|</select><br>\n|;
$log2 .=qq|<input type="submit" $button1 value="NEXT">...
}elsif($cmd==20){
$log .= "¤¤Ã¤ÈÁÇŨ¤ÊÎø»Ï¤Þ¤ë!? ·ëº§ÁêÃ̽ê¤Ø¤è¤¦¤³¤½¢ö<...
$tm=150;
$log2 .=qq|<form action="$script" method="$method" nam...
$log2 .=qq|<td align="center" valign="middle">\n| if($...
$log2 .=qq|<input type="hidden" name="id" value="$id">...
$log2 .=qq|<select name=cmd size=1>\n|;
$log2 .=qq|<option value=0>¸å²ó¤·</option>\n|;
$log2 .=($sei==1) ? qq|<option value=2>¤ª²Ç¤µ¤óÁܺ÷</o...
$log2 .=qq|</select><br>\n|;
$log2 .=qq|<input type="submit" $button1 value="NEXT">...
}
# Éð¶ñ²° - Çã or Çä
}elsif($tm==10){
if($cmd<=0){#¾Ã
$log .= "¤Ê¤ó¤À¡¢¤ä¤á¤ë¤Î¤«¤¤¡£¤Þ¤¿Íè¤Æ¤¯¤ì¤è¤Ê¡ª<br>\...
$tm = $cmd = 0;
&shop_menu;
}elsif($cmd==1){#Çã-1
if($sogo==3||$sogo==4){
$log .= "$sogo_p[$sogo] ¤Îßà°õ¤Ä¤¤¤Æ¤Á¤ãÇ㤤ʪ¤Ï¤Ç¤...
$tm = $cmd = 0;
&shop_menu;
}else{
$log .= "²¿¤òÇ㤦¤ó¤À¤¤¡©<br>¤Á¤Ê¤ß¤ËÉð¶ñ¤Ï1¸Ä¤·¤«½ê...
$tm=12;
require "./inc/ore_sub-shop-p1_$mv_mode\.cgi";&bugu_s;
}
}elsif($cmd==2){#Çä-1
if($dg_a==0){
$log .= "$nm ¤µ¤ó¤ÏÉð¶ñ¤ò½ê»ý¤·¤Æ¤Ê¤¤¤¼¡ª<br>\n";
$tm = $cmd = 0;
&shop_menu;
}else{
if($dg_a<=10){
my $v = int(($dg_data[$dg_a][2]-$dg_data[$dg_a][2]/$...
$log .= "¤ª¡ª ±£¤·Éð´ï¤Î$dg_data[$dg_a][1] ¤¸¤ã¤Ê¤¤...
$tm=25;
}else{
my $v = int(($dg_data[$dg_a][2]-$dg_data[$dg_a][2]/$...
$log .= "¤½¤¦¤À¤Í¤¨¡¢$dg_data[$dg_a][1] ¤Ï $v G¤ÇÇã...
$tm=25;
}
$log2 .=qq|<form action="$script" method="$method" na...
$log2 .=qq|<td align="center" valign="middle">\n| if(...
$log2 .=qq|<input type="hidden" name="id" value="$id"...
$log2 .=qq|<select name=cmd size=1>\n|;
$log2 .=qq|<option value=0>¤ä¤á¤ë</option>\n|;
$log2 .=qq|<option value=1>Çä¤ë</option>\n|;
$log2 .=qq|</select><br>\n|;
$log2 .=qq|<input type="submit" $button1 value="NEXT"...
}
}
}elsif($tm==12){#Çã-2
if($cmd<=0){#¾Ã
$log .= "¤Ê¤ó¤À¤ä¤á¤ë¤Î¤«¤¤¡£¤Ç¡¢Â¾¤Ë¤É¤¦¤¹¤ë¤ó¤À¡©<br...
}else{
foreach(11 .. $#dg_data){
if($cmd eq $_ && $gold >= $dg_data[$_][2]){
$log .= "$dg_data[$_][2]G¤ò»Ùʧ¤¤¡¢$dg_data[$_][1] ...
$gold -= $dg_data[$_][2];
$dg_a = $_;
$dg_cnt = $dg_data[$_][3];
}elsif($cmd eq $_ && $gold<$dg_data[$_][2]){
$log .= "¤ª¶â¤¬Â¤ê¤Ê¤¤¤è¡ª<br>\n";
}
}
}
$tm = $cmd = 0;
&shop_menu;
}elsif($tm==25){#Çä-2
if($cmd<=0){#¾Ã
$log .= "¤Ê¤ó¤À¤ä¤á¤ë¤Î¤«¤¤¡£¤Ç¡¢Â¾¤Ë¤É¤¦¤¹¤ë¤ó¤À¡©<br...
}elsif($cmd==1){
my $v = int(($dg_data[$dg_a][2]-$dg_data[$dg_a][2]/$dg...
$log .= "$dg_data[$dg_a][1] ¤ò $v G ¤ÇÇäµÑ¤·¤Þ¤·¤¿¡£<b...
$gold += $v;
$dg_a = $dg_cnt = 0;
}
$tm = $cmd = 0;
&shop_menu;
# Ëɶñ²° - Çã or Çä
}elsif($tm==30){
if($cmd<=0){#¾Ã
$log .= "¤Þ¤¿¤ª¤³¤·¤¯¤À¤µ¤¤¡£<br>\n";
$tm = $cmd = 0;
&shop_menu;
}elsif($cmd==1){#Çã-1
if($sogo==3||$sogo==4){
$log .= "$sogo_p[$sogo] ¤Îßà°õ¤Ä¤¤¤Æ¤ëÊý¤Ï¤ªÇ㤤¾å¤²...
$tm=0;
&shop_menu;
}else{
$log .= "²¿¤ò¤ªµá¤á¤Ç¤¹¤«¡©<br>Ëɶñ¤Î½ê»ý¤Ï1¸Ä¤Þ¤Ç¤È...
$tm=32;
require "./inc/ore_sub-shop-p1_$mv_mode\.cgi";&bogu_s;
}
}elsif($cmd==2){#Çä-1
if($df_a==0){
$log .= "$nm ¤µ¤Þ¤ÏËɶñ¤ò½ê»ý¤Ç¤¤Þ¤»¤ó¡£<br>\n";
$tm = $cmd = 0;
&shop_menu;
}else{
if($df_a<=10){
my $v = int(($df_data[$df_a][2]-$df_data[$df_a][2]/$...
$log .= "¤ª¡ª ±£¤·Ëɶñ¤Î$df_data[$df_a][1] ¤Ç¤¹¤Í! ¤É...
$tm=45;
}else{
my $v = int(($df_data[$df_a][2]-$df_data[$df_a][2]/$...
$log .= "¤½¤¦¤Ç¤¹¤ÍŽ¥Ž¥Ž¥ $df_data[$df_a][1] ¤Ï $v G¤ÇÇã...
$tm=45;
}
$log2 .=qq|<form action="$script" method="$method" na...
$log2 .=qq|<td align="center" valign="middle">\n| if(...
$log2 .=qq|<input type="hidden" name="id" value="$id"...
$log2 .=qq|<select name=cmd size=1>\n|;
$log2 .=qq|<option value=0>¤ä¤á¤ë</option>\n|;
$log2 .=qq|<option value=1>Çä¤ë</option>\n|;
$log2 .=qq|</select><br>\n|;
$log2 .=qq|<input type="submit" $button1 value="NEXT"...
}
}
}elsif($tm==32){#Çä-2
if($cmd<=0){#¾Ã
$log .= "¤½¤Î¾¤Ï¤É¤¦¤·¤Þ¤¹¤«¡©<br>\n";
}else{
foreach(11 .. $#df_data){
if($cmd eq $_ && $gold >= $df_data[$_][2]){
$log .= "$df_data[$_][2]G¤ò»Ùʧ¤¤¡¢$df_data[$_][1] ...
$gold -= $df_data[$_][2];
$df_a = $_;
$df_cnt = $df_data[$_][3];
}elsif($cmd eq $_ && $gold<$df_data[$_][2]){
$log .= "¤ª¶â¤¬Â¤ê¤Þ¤»¤ó¡£<br>\n";
}
}
}
$tm = $cmd = 0;
&shop_menu;
}elsif($tm==45){#Çã-2
if($cmd<=0){#¾Ã
$log .= "¾¤Ë¤É¤¦¤·¤Þ¤¹¤«¡©<br>\n";
}elsif($cmd==1){
my $v = int(($df_data[$df_a][2]-$df_data[$df_a][2]/$df...
$log .= "$df_data[$df_a][1] ¤ò $v G ¤ÇÇäµÑ¤·¤Þ¤·¤¿¡£<b...
$gold += $v;
$df_a = $df_cnt = 0;
}
$tm = $cmd = 0;
&shop_menu;
# Æ»¶ñ²° - Çã or Çä
}elsif($tm==50){
if($cmd<=0){#¾Ã
$log .= "¾¤Ê¤Ë¤«¸æÍѤǤ¹¤«¡©<br>\n";
$tm = $cmd = 0;
&shop_menu;
}elsif($cmd==1){#Çã-1
if($sogo==3||$sogo==4){
$log .= "$sogo_p[$sogo] ¤Îßà°õ¤¬¤Ä¤¤¤Æ¤¤¤Æ¤ÏÇ㤤ʪ¤Ï...
$tm = $cmd = 0;
&shop_menu;
}else{
$log .= "²¿¤ò¤ªÇ㤤¾å¤²¤Ç¤¹¤«¡©<br>¤Á¤Ê¤ß¤ËÆ»¶ñ¤Ï1¸Ä...
$tm=52;
require "./inc/ore_sub-shop-p1_$mv_mode\.cgi";&dogu_s;
}
}elsif($cmd==2){#Çä-1
if(!$di_a){
$log .= "$nm ¤µ¤ó¤ÏÆ»¶ñ¤ò½ê»ý¤·¤Æ¤¤¤Þ¤»¤ó¡£<br>\n";
$tm = $cmd = 0;
&shop_menu;
}else{
if($di_a<=10){
my $v = int(($di_data[$di_a][2])/2);
$log .= "¤ª¡ª ±£¤·Ž±Ž²ŽÃŽÑ¤Î$di_data[$di_a][1] ¤¸¤ã¤Ê¤¤...
$tm=65;
}else{
my $v = int(($di_data[$di_a][2])/2);
$log .= "¤½¤¦¤Ç¤¹¤Í¤¨¡¢$di_data[$di_a][1] ¤Ï $v G ¤Ç...
$tm=65;
}
$log2 .=qq|<form action="$script" method="$method" na...
$log2 .=qq|<td align="center" valign="middle">\n| if(...
$log2 .=qq|<input type="hidden" name="id" value="$id"...
$log2 .=qq|<select name=cmd size=1>\n|;
$log2 .=qq|<option value=0>¤ä¤á¤ë</option>\n|;
$log2 .=qq|<option value=1>Çä¤ë</option>\n|;
$log2 .=qq|</select><br>\n|;
$log2 .=qq|<input type="submit" $button1 value="NEXT"...
}
}
}elsif($tm==52){#Çã-2
if($cmd<=0){#¾Ã
$log .= "¾²¿¤«¸æÍѤǤ¹¤«¡©<br>\n";
}else{
foreach(11 .. $#di_data){
if($cmd eq $_ && $gold >= $di_data[$_][2]){
$log .= "$di_data[$_][2]G¤ò»Ùʧ¤¤¡¢$di_data[$_][1] ...
$gold -= $di_data[$_][2];
$di_a = $_;
$di_cnt = $di_data[$_][3];
}elsif($cmd eq $_ && $gold<$di_data[$_][2]){
$log .= "¤ª¶â¤¬Â¤ê¤Þ¤»¤ó¡£¤ª°ú¼è¤ê´ê¤¤¤Þ¤¹¡£<br>\n";
}
}
}
$tm = $cmd = 0;
&shop_menu;
}elsif($tm==65){
if($cmd<=0){#¾Ã
$log .= "¾²¿¤«¸æÍѤǤ¹¤«¡©<br>\n";
}elsif($cmd==1){
my $v = int(($di_data[$di_a][2])/2);
$log .= "$di_data[$di_a][1] ¤ò $v G ¤ÇÇäµÑ¤·¤Þ¤·¤¿¡£<b...
$gold += $v;
$di_a = 0;
}
$tm = $cmd = 0;
&shop_menu;
# ¶âÍ»¶È
}elsif($tm==70){
if($cmd<=0){#¾Ã
$log .= "¤´ÍøÍѤϤ´·×²èŪ¤Ë¢ö<br>\n";
$tm = $cmd = 0;
&shop_menu;
}elsif($cmd==1){#¼Ú
if($sogo==3||$sogo==4){
$log .= "¤³¤ì°Ê¾å¤Ï¿È¤Î¤¿¤á¤Ë¤Ê¤é¤Ê¤¤¤è¡£ÁᤤŽÄŽºÊÖ¤·¤Æ...
$tm = $cmd = 0;
&shop_menu;
}else{
&syakin;
$log .= "¶â¼Ú¤ê¤¿¤¤¤Î¤«¤¤¡£¤¤¤¯¤é¼Ú¤ê¤¿¤¤¤ó¤À¡©<br>$v...
$tm=72;
$log2 .=qq|<form action="$script" method="$method" na...
$log2 .=qq|<td align="center" valign="middle">\n| if(...
$log2 .=qq|<input type="hidden" name="id" value="$id"...
$log2 .=qq|<select name=cmd size=1>\n|;
$log2 .=qq|<option value="0">¤ä¤á¤ë</option>\n|;
$log2 .=qq|<option value="1">$vw G</option>\n|;
$log2 .=qq|<option value="2">$vx G</option>\n|;
$log2 .=qq|</select><br>\n|;
$log2 .=qq|<input type="submit" $button1 value="NEXT"...
}
}elsif($cmd==2){#ÊÖ
if($sogo!=3&&$sogo!=4){
$log .= "$nm ¤µ¤ó¤ËÊֺѵÁ̳¤Ï¤Ê¤¤¤è¡£<br>\n";
$tm = $cmd = 0;
&shop_menu;
}else{
$log .= "¤ä¤Ã¤È¼Ú¶âÊֺѤ·¤Æ¤¯¤ì¤ë¤Î¤«¤¤¡£$nm ¤µ¤ó¤ÎÊÖ...
&syakin;
if($sogo==3){
$log .= "<b>$vw2 G</b>¤À¤è¡£\n";
}elsif($sogo==4){
$log .= "<b>$vx2 G</b>¤À¤è¡£\n";
}
$log2 .=qq|<form action="$script" method="$method" na...
$log2 .=qq|<td align="center" valign="middle">\n| if(...
$log2 .=qq|<input type="hidden" name="id" value="$id"...
$log2 .=qq|<select name="cmd" size="1">\n|;
$log2 .=qq|<option value="0">¤ä¤á¤ë</option>\n|;
$log2 .=qq|<option value="1">»Ùʧ¤¦</option>\n|;
$log2 .=qq|</select><br>\n|;
$log2 .=qq|<input type="submit" $button1 value="NEXT"...
$tm=74;
}
}
}elsif($tm==72){#¼Ú - ³Û
if($cmd<=0){#¾Ã
$log .= "¤Ê¤ó¤À¤ä¤á¤ë¤Î¤«¤¤¡£¤Ç¡¢Â¾¤Ë¤É¤¦¤¹¤ë¤ó¤À¡©<br...
$tm = $cmd = 0;
&shop_menu;
}elsif($cmd==1){
&syakin;
$gold +=$vw;
$sogo =3;
$log .= "$vw G ¤ò¼Ú¤ê¤Þ¤·¤¿¡£$nm ¤Ï<b>$sogo_p[3]</b> ...
$tm = $cmd = 0;
&shop_menu;
}elsif($cmd==2){
&syakin;
$gold +=$vx;
$sogo =4;
$log .= "$vx G ¤ò¼Ú¤ê¤Þ¤·¤¿¡£$nm ¤Ï<b>$sogo_p[4]</b> ...
$tm = $cmd = 0;
&shop_menu;
}
}elsif($tm==74){#ÊÖ - ³Û
if($cmd<=0){#¾Ã
$log .= "Áᤤ¤È¤³¡¢¶âÊÖ¤·¤Æ¤¯¤ì¤è¡ª ¤Ç¡¢Â¾¤Ë¤É¤¦¤¹¤ë¤ó...
$tm = $cmd = 0;
&shop_menu;
}elsif($cmd==1){
&syakin;
if($sogo==3){
if($gold > $vw2){
$gold -=$vw2;
$log .= "¼Ú¶â$vw2 G ¤òÊֺѤ·¤Þ¤·¤¿¡£<br>\n";
$sogo =0;
}else{
$log .= "¤½¤ó¤Ê ¤Ï¤·¤¿¶â¤¸¤ã¤ê¤Ê¤¤¤è¡ª<br>\n";
}
}elsif($sogo==4){
if($gold > $vx2){
$gold -=$vx2;
$log .= "¼Ú¶â$vx2 G ¤òÊֺѤ·¤Þ¤·¤¿¡£<br>\n";
$sogo =0;
}else{
$log .= "¤½¤ó¤Ê¡¡¤Ï¤·¤¿¶â¤¸¤ã¤ê¤Ê¤¤¤è¡ª<br>\n";
}
}
$tm = $cmd = 0;
&shop_menu;
}
}
# Êõ¤¯¤¸
elsif($tm>=90 && $tm<120){require './inc/ore_sub-shop-lo...
# ¿ÇÎŽê
elsif($tm>=120 && $tm<140){require './inc/ore_sub-shop-m...
# ¾è¤êʪ²° - Çã or Çä
elsif($tm==140){
if($cmd<=0){#¾Ã
$log .= "¤Þ¤¿¡¢¤¤¤Ä¤Ç¤âÍ褤¤ä¡£<br>\n";
$tm = $cmd = 0;
&shop_menu;
}elsif($cmd==1){#Çã-1
if($sogo==3||$sogo==4){
$log .= "$sogo_p[$sogo] ¤Îßà°õ¤Ä¤¤¤Æ¤ëÊý¤Ï¤ªÇ㤤¾å¤²...
$tm=0;
&shop_menu;
}else{
$log .= "²¿¤ò¤ªµá¤á¤Ç¤¹¤«¡©<br>¾è¤êʪ¤Î½ê»ý¤Ï1¸Ä¤Þ¤Ç...
$tm=142;
require "./inc/ore_sub-shop-p1_$mv_mode\.cgi";&norimo...
}
}elsif($cmd==2){#Çä-1
if($dn_a==0){
$log .= "$nm ¤µ¤Þ¤Ï¾è¤êʪ¤ò½ê»ý¤Ç¤¤Þ¤»¤ó¡£<br>\n";
$tm = $cmd = 0;
&shop_menu;
}else{
if($dn_a<=10){
my $v = int(($dn_data[$dn_a][2]-$dn_data[$dn_a][2]/$...
$log .= "¤ª¡ª ±£¤·¾è¤êʪ¤Î$dn_data[$dn_a][1] ¤Ç¤¹¤Í! ...
$tm=145;
}else{
my $v = int(($dn_data[$dn_a][2]-$dn_data[$dn_a][2]/$...
$log .= "¤½¤¦¤Ç¤¹¤ÍŽ¥Ž¥Ž¥ $dn_data[$dn_a][1] ¤Ï $v G¤ÇÇã...
$tm=145;
}
$log2 .=qq|<form action="$script" method="$method" na...
$log2 .=qq|<td align="center" valign="middle">\n| if(...
$log2 .=qq|<input type="hidden" name="id" value="$id"...
$log2 .=qq|<select name=cmd size=1>\n|;
$log2 .=qq|<option value=0>¤ä¤á¤ë</option>\n|;
$log2 .=qq|<option value=1>Çä¤ë</option>\n|;
$log2 .=qq|</select><br>\n|;
$log2 .=qq|<input type="submit" $button1 value="NEXT"...
}
}
# ·ëº§ÁêÃ̽ê
elsif($tm>=160 && $tm<200 && $mv_mode eq 'pc' &&
$lv>=15 && $lv<=50){require './inc/ore_sub-shop-marry....
&dat_write;
}
#-------------------------------------------------------...
---
-¸«¤Å¤é¤¯¡¢¤·¤«¤âŤ¤¤Ç¤¹¤¬¡¢¤è¤í¤·¤¯¤ª´ê¤¤¤·¤Þ¤¹¡£ -- [[...
-¾è¤êʪ²°¤Î¤Ï $tm=140; ¤È¤Ê¤Ã¤Æ¤Þ¤¹¤¬¡¢}elsif($tm==140){ ...
-¸½ºß¤Î¥Õ¥¡¥¤¥ë¤Ï¾åµ¤ÎÄ̤ê¤Ç¤¹¤«¡©°ìÈÖ²¼¤Î·ë¹½ÁêÃ̽ê¤Î¤È...
->>¤È¡¢Á´³Ñ¥¹¥Ú¡¼¥¹¤Ï¡¢¤³¤³¤Ë¡¢½ñ¤¯¤È¤¤Ë´Ö°ã¤¨¤Æ½ñ¤¤¤¿¤Î...
-elsif¤ò¡¢Ä¾¤·¤Þ¤·¤Æ¤ß¤Þ¤·¤¿¤¬¡¢¾åµ¤Î¾õ¶·¤«¤éÊѲ½¤Ï¤¢¤ê...
--Äɲä·¤¿SHOP¤âƱ¤¸¤È½ñ¤«¤ì¤Æ¤¤¤Þ¤¹¤¬¡¢$tm=140¤À¤ÈÄɲäÎ...
-¤¨¤Ã¡ª140¤¸¤ã¤¢¡¢¤À¤á¤À¤Ã¤¿¤ó¤Ç¤¹¤«¡©¤É¤Î¿ôÃͤÀ¤Ã¤¿¤éÂç...
--¤¤¤ä¡¢140¤Ç¤â¤¤¤¤¤ó¤Ç¤¹¤¬¡¢½èÍý¤ÎÉôʬ¤È¿©¤¤°ã¤Ã¤Æ¤Þ¤·¤¿...
-¤¢¤¢¡¢¤½¤¦¤¤¤¦¤³¤È¤Ç¤¹¤«¡£½èÍýÉôʬ¤ò¡¢$tm=140¤Ë¤·¤¿·ë²Ì...
-ºÆ·Ç¼ºÎ餷¤Þ¤¹¡£¡ä¾è¤êʪ²°¤Î¤Ï $tm=140; ¤È¤Ê¤Ã¤Æ¤Þ¤¹¤¬¡¢...
-½ñ¤Ä¾¤·¤Æ¤ª¤¤Þ¤¹¤Í¡£¡Êľ¤¹¤Î¤ò˺¤ì¤Æ¤Þ¤·¤¿¡£¡Ë -- [[Éõ...
-¾õ¶·¤¬°²½¤·¤Þ¤·¤¿¡£Éð´ï¡¦Ëɶñ¡¦¾è¤êʪ²°¤ËÆþ¤Ã¤Æ¡Ö¤ä¤á¤ë...
-Æ»¶ñ²°¤â¡¢Æ±¤¸¤è¤¦¤Ê¾õ¶·¤Ë´Ù¤ê¤Þ¤·¤¿Ž¥Ž¥Ž¥Ž¥¡£¾Ü¤·¤¯¤Ï¾åµ¤Î...
-¤È¤¦¤È¤¦¡¢¥·¥ç¥Ã¥Ô¥ó¥°¥â¡¼¥ëÆâ¤ÎÁ´¤Æ¤Î¡¢¥³¥Þ¥ó¥É¤¬¡¢Æ±¤¸...
-²¿¤ò¤·¤Æ¤½¤¦¤Ê¤Ã¤¿¤Î¤«¤ò½ñ¤¯¤È¡¢¥³¥á¥ó¥È¤¹¤ë¦¤Ë¤â¸å¤«¤é...
-¤½¤ì¤È¡¢¢¬¤Ç´ÝŽ¤ê¤µ¤ì¤Æ¤¤¤ë¥¹¥¯¥ê¥×¥È°Ê³°¤Ï¡¢°ìÀÚÏ®¤Ã¤Æ...
-¥ê¥ó¥¯¤¹¤ë¤È¤Ï¡¢²¿¤Ë¥ê¥ó¥¯¤¹¤ë¤Î¤Ç¤¹¤«¡©CGIËÜÂΤ˥ê¥ó¥¯...
-¤¨¤Ã¤È¡£¡£¡£²¿¤ò¤·¤Æ¤½¤¦¤Ê¤Ã¤¿¤«¡£¤Ç¤¹¤¬¡¢ore_config.cgi...
-¤½¤ì¤À¤±¤ÇŽ¼Ž®Ž¯ŽÌŽß¤¬¤ª¤«¤·¤¯¤Ê¤ê¤½¤¦¤Ë¤Ï¤Ê¤¤¤È»×¤¤¤Þ¤¹¤¬¡Ä¥Ð...
-¥Ð¥Ã¥¯¥¢¥Ã¥×¤È¤¤¤¦¤Î¤Ï¡¢¥·¥ç¥Ã¥×¤òÄɲ乤ëÁ°¤Î¡¢¥¹¥×¥ê¥¯...
-¾è¤êʪ²°¤Î²þ¤¤ò²Ã¤¨¤ëÁ°¤Î¤Ç¤¹¤Í¡£¡¡¤È¤³¤í¤Ç¡¢¢¬¤Îshop¤Î...
-¤§¡¼¢¬¤Îµ½Ò¤Ç»î¤·¤Æ¤ß¤¿¤Î¤Ç¤¹¤¬¡¢shop¼«ÂΤËÉÔ¶ñ¹ç¤Ï¤Ê¤¤...
-}¤ò¡¢Äɲ䷤ƻ¤Æ¤ß¤¿¤È¤³¤í¡¢£µ£°£°¥¨¥é¡¼¤¬½Ð¤Þ¤·¤¿¡£p...
-http://melcha.zone.ne.jp/ebs/dl/pc/¤Ç¡¢´ØÏ¢¤Î¤¢¤ê¤½¤¦¤Ê...
-¤¢¤ì¡©»ä¤Î´ª°ã¤¤¤Ç¤·¤¿¤«¡¦¡¦¡¦¡Ê¤§¡¡¼ºÎ餷¤Þ¤·¤¿¡£ -- [[...
-¤ª¿´¸¯¤¤´¶¼Õ¤·¤Æ¤¤¤Þ¤¹¡£Â¾¤Ë¤â¡¢¤É¤ó¤É¤óµ¤ÉÕ¤¤¤¿¤³¤È¤ò¹Ô...
-¾ðÊó¤¬Ìµ¤±¤ì¤Ð¡¢¥³¥á¥ó¥È¤Î¤·¤è¤¦¤¬Ìµ¤¤µ¤¤¬¡£¡£¡£ -- [[»°...
-$tm¤ò¡¢140¤«¤é£±£°¤Å¤ÄÁý¤ä¤·¤Æ¤¤¤Ã¤Æ200¤Þ¤Ç¤ä¤Ã¤¿·ë²Ì¤Ç...
-¤½¤¦¤¤¤¨¤Ð¡¢Ã±½ã¤ËËɶñ²°¤ò»²¹Í¤Ë¤·¤Æ¡¢¾è¤êʪ¤ä¤òÄɲä·¤¿...
-·ë¶ÉÆ°¤¯¤è¤¦¤Ë¤Ê¤Ã¤¿¤È¤¤Î¡¢Ê¸ËöÉôʬ¤ò¢¤ËÄ¥¤Ã¤Æ¤ª¤¤Þ¤¹...
# ·ëº§ÁêÃ̽ê
elsif( $tm>=150 && $tm<200 && $mv_mode eq 'pc' &&
$lv>=15 && $lv<=50){require './inc/ore_sub-shop-marry....
&dat_write;
}
#-------------------------------------------------------...
#¼Ú¶â·×»»
sub syakin {
if($lv < 40){
$vw = int($lv*1000);
$vx = int($lv*2000);
$vw2 = int($lv*1250);
$vx2 = int($lv*2500);
}else{
$vw = 40000;
$vx = 80000;
$vw2 = 50000;
$vx2 = 100000;
}
}}1;
-$tm=xxx¤Èif($tm==xxx){}¤Î -- [[»°ÌÓÇ]] &new{2007-03-31 ...
-ÅÓÃæÀڤ켺Îé¡£¡Ê´À¡ä¡Á{}¤Îxxx¤¬(¾¤Ç»È¤ï¤ì¤Æ¤¤¤Ê¤¤¿ô¤Ç¡Ë...
-ÊÑ¿ô¤È¡¢¾ò·ïʬ´ô¤Ç¡¢¹½À®¤µ¤ì¤Æ¤¤¤¿¤Î¤Ç¡¢$tmÃͤνÅÊ£¤¬¤Ê...
-²áµî¥í¥°¤ò³Îǧ¤·¡¢¿·¤·¤¤SHOP¤Î¾ì½ê¤òÊѤ¨¤¿¤éŽ¥Ž¥Ž¥¤È¤¤¤¦¤Î...
-¤È¤³¤í¤Ç¡¢¿·¤¿¤Ê¥Ð¥°¤Ç¤¹¤¬¡¢¾è¤êʪ²°¤ÇÇ㤤ʪ¤ò¤¹¤ëºÝ¤Ç¤¹...
-
$log .= "²¿¤ò¤ªµá¤á¤Ç¤¹¤«¡©<br>Ëɶñ¤Î½ê»ý¤Ï1¸Ä¤Þ¤Ç¤È¤Ê¤Ã...
$tm=32;
require "./inc/ore_sub-shop-p1_$mv_mode\.cgi";&bogu_s;
¤Î$tm¤Î»ØÄ꤬°ã¤¦¤ó¤¸¤ã¤Ê¤¤¤Ç¤¹¤«¡©¢¬¤Î¤ÏËɶñ²°¤Î¤Ç¤¹¤¬¡£ ...
-¾è¤êʪ²°¤Î$tm¤Ç¤¹¤«¡©¤½¤ì¤È¤â¡¢Ëɶñ²°¤Î$tm¤Ç¤¹¤«¡©¤½¤ì¤È...
-¾å¤Î¥¹¥¯¥ê¥×¥È¤À¤È¡¢¾èʪ¤òÇ㤦¤È¤³¤í¤Ç¡Ö&norimono_s;¡×¤Ç...
-¥Õ¥¡¥¤¥ë¤Ï¡¢./inc/ore_sub-shop-p1_pc.cgi¤È./inc/ore_sub-...
¤³¤ì¤¬¡¢./inc/ore_sub-shop-p1_pc.cgi¤ËÄɲä·¤¿ÆâÍƤǤ¹¡£
Ëɶñ²°¤Î¤ä¤Ä¤Î¾å¤Ë¡¢Äɲä·¤Þ¤·¤¿¡£PERL¥Á¥§¥Ã¥«¤Ç³Îǧ¤·¤Æ...
ÉԳФˤ⡢¡Á¡Ámv.cgi¤Ë¤ÏÄɲäò˺¤ì¤Æ¤Þ¤·¤¿¡£Äɲ䷤ƥƥ¹...
# ¾è¤êʪŽ¼Ž®Ž¯ŽËŽßŽÝŽ¸ŽÞ)
sub norimono_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>
<table border=0 cellpadding=2 cellspacing=2 width=100%>
<tr align=center bgcolor="#ccccee">
<td> </td>
<td>¾è¤êʪ</td>
<td>ÃÍÃÊ</td>
<td>²ó¿ô</td>
<td>ÀâÌÀ</td>
</tr>
EOM
foreach(11 .. $#dn_data){
$log .=qq|<tr align="center" bgcolor="#ccccee">\n|;
$log .=qq|<td><input type="radio" value="$_" name="cmd"...
$log .=qq|<td>$dn_data[$_][1]</td><td>$dn_data[$_][2]</...
}
$log .=qq|</table>\n|;
$log .=qq|<tt><br></tt><input type="submit" value="¹ØÆþ/...
$layout_flag=1;
}
-./inc/ore_sub-shop-p1_mv.cgi¤Î¡¢Ëɶñ²°¤ä¤Ä¤Î¾å¤Ë¡¢Ëɶñ²°...
-¤³¤Î¡¢¹ØÆþ¥Ü¥¿¥ó¤ò²¡¤·¤¿¸å¤Î½èÍý¤Ï¡¢¤É¤³¤Ç¹Ô¤ï¤ì¤Æ¤¤¤ë¤Î...
-»ä¤¬¾å¤Ç¸À¤Ã¤Æ¤ë$tm¤À¤È»×¤¤¤Þ¤¹¤¬¡£
$log .= "²¿¤ò¤ªµá¤á¤Ç¤¹¤«¡©<br>¾è¤êʪ¤Î½ê»ý¤Ï1¸Ä¤Þ¤Ç¤È¤Ê...
$tm=142;
require "./inc/ore_sub-shop-p1_$mv_mode\.cgi";&norimono_s;
}elsif($tm==142){¤¬µ½Ò¤µ¤ì¤Æ¤Ê¤¤¤«¤é¤Ç¤Ï¤Ê¤¤¤Ç¤·¤ç¤¦¤«¡£...
-¤É¤³¤Ë¡¢}elsif($tm==142){¤òµ½Ò¤¹¤ì¤Ð¤¤¤¤¤Î¤Ç¤·¤ç¤¦¤«¡£ ...
-Éð´ï²°¤Ê¤É¤Î½èÍý¤ò»²¹Í¤Ëµ½Ò¤·¤Æ¤¯¤À¤µ¤¤¡£¾ì½ê¤Ï·ëº§ÁêÃÌ...
-./inc/ore_sub-shop.cgi¤Ç¤¹¤è¤Í¡£$tm¤È¡¢$d~_data¤È¡¢$log ...
# ¾è¤êʪ²° - Çã or Çä
}elsif($tm==140){
if($cmd<=0){#¾Ã
$log .= "¤Þ¤¿¡¢¤¤¤Ä¤Ç¤âÍ褤¤ä¡£<br>\n";
$tm = $cmd = 0;
&shop_menu;
}elsif($cmd==1){#Çã-1
if($sogo==3||$sogo==4){
$log .= "$sogo_p[$sogo] ¤Îßà°õ¤Ä¤¤¤Æ¤ëÊý¤Ï¤ªÇ㤤¾å¤²...
$tm=0;
&shop_menu;
}else{
$log .= "²¿¤ò¤ªµá¤á¤Ç¤¹¤«¡©<br>¾è¤êʪ¤Î½ê»ý¤Ï1¸Ä¤Þ¤Ç...
$tm=142;
require "./inc/ore_sub-shop-p1_$mv_mode\.cgi";&norimo...
}
}elsif($cmd==2){#Çä-1
if($dn_a==0){
$log .= "$nm ¤µ¤Þ¤Ï¾è¤êʪ¤ò½ê»ý¤Ç¤¤Þ¤»¤ó¡£<br>\n";
$tm = $cmd = 0;
&shop_menu;
}else{
if($dn_a<=10){
my $v = int(($dn_data[$dn_a][2]-$dn_data[$dn_a][2]/$...
$log .= "¤ª¡ª ±£¤·¾è¤êʪ¤Î$dn_data[$dn_a][1] ¤Ç¤¹¤Í! ...
$tm=145;
}else{
my $v = int(($dn_data[$dn_a][2]-$dn_data[$dn_a][2]/$...
$log .= "¤½¤¦¤Ç¤¹¤ÍŽ¥Ž¥Ž¥ $dn_data[$dn_a][1] ¤Ï $v G¤ÇÇã...
$tm=145;
}
$log2 .=qq|<form action="$script" method="$method" na...
$log2 .=qq|<td align="center" valign="middle">\n| if(...
$log2 .=qq|<input type="hidden" name="id" value="$id"...
$log2 .=qq|<select name=cmd size=1>\n|;
$log2 .=qq|<option value=0>¤ä¤á¤ë</option>\n|;
$log2 .=qq|<option value=1>Çä¤ë</option>\n|;
$log2 .=qq|</select><br>\n|;
$log2 .=qq|<input type="submit" $button1 value="NEXT"...
}
}
#------------------------------¥³¥³¤«¤é
}elsif($tm==142){#Çã-2
if($cmd<=0){#¾Ã
$log .= "¾²¿¤«¸æÍѤǤ¹¤«¡©<br>\n";
}else{
foreach(11 .. $#di_data){
if($cmd eq $_ && $gold >= $di_data[$_][2]){
$log .= "$di_data[$_][2]G¤ò»Ùʧ¤¤¡¢$di_data[$_][1] ...
$gold -= $di_data[$_][2];
$di_a = $_;
$di_cnt = $di_data[$_][3];
}elsif($cmd eq $_ && $gold<$di_data[$_][2]){
$log .= "¤ª¶â¤¬Â¤ê¤Þ¤»¤ó¡£¤ª°ú¼è¤ê´ê¤¤¤Þ¤¹¡£<br>\n";
}
}
}
$tm = $cmd = 0;
&shop_menu;
}elsif($tm==145){
if($cmd<=0){#¾Ã
$log .= "¾²¿¤«¸æÍѤǤ¹¤«¡©<br>\n";
}elsif($cmd==1){
my $v = int(($di_data[$di_a][2])/2);
$log .= "$di_data[$di_a][1] ¤ò $v G ¤ÇÇäµÑ¤·¤Þ¤·¤¿¡£<b...
$gold += $v;
$di_a = 0;
}
$tm = $cmd = 0;
&shop_menu;
#---------------------¥³¥³¤Þ¤Ç
¤Î¤É¤³¤Ë}elsif($tm==142){¤òÆþ¤ì¤ì¤Ð¤¤¤¤¤ó¤Ç¤¹¤«?¢¬¤Ï¡¢¾è¤ê...
-$tm¤·¤«Êѹ¹¤·¤Æ̵¤¤¤Î¤Ç¡¢ºÙ¤«¤¤¤È¤³¤í¤Ï¤´¼«Ê¬¤Ç½¤Àµ¤·¤Æ...
-¤¢¤Ã¡£¡£¡£¤Á¤ç¤Ã¤È¤·¤¿¤³¤È¤ò˺¤ì¤Æ¤¤¤¿¤À¤±¤À¤Ã¤¿¤ó¤Ç¤·¤¿...
-¤µ¤Æ¡¢¿·¤·¤¤¥Ð¥°¤Ç¤¹¤¬¡¢Æ°¤¤¤Æ¡¢¡Ö¡û¡ûG¤ò»Ùʧ¤¤¡Á¡Á¤ò¹ØÆþ...
-¡$di_a¤ò$dn_a¤Ë¡¢$di_cnt¤ò$dn_cnt¤ËÊѹ¹¤·¤Æ¤¤¤Ê¤¤¢ÊÑ¿ô¤ò...
-ÃѤº¤«¤·¤Ê¤¬¤é¢¤Ç¤·¤¿¡£¡£¡£ºáȳ/ÊÑ¿ô¤ÎÄɲᡤò»²¹Í¤Ë¤·¤Æ...
#comment
¥Ú¡¼¥¸Ì¾: