罪罰改造板２/198

#-----------------------------------------------------------#
#  罪と罰++ 二律背反 										#
#  Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD		#
#  Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ]	#
#  BLANK BOARD [ http://pom.to/ ]							#
#-----------------------------------------------------------#
# 宝くじ Version 1.0
#--- [注意事項] --------------------------------------------#
# 1.このスクリプトは以下の利用規程に従って配布しています。	#
#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
#-----------------------------------------------------------#

#-------------------------------------------------------------------------------
# 宝くじ処理
sub gan{
  
  if($tm==200){
    if($cmd<=0){
      $log .= "また来いよ・・・<br>\n";
      $tm = $cmd = 0;
      &shop_menu;
    }elsif($cmd==1){
      $log .= "賭け金を選択しな・・・<br>\n";
      $log2 .=qq|<form action="$script" method="$method" name="ore_">\n|;
      $log2 .=qq|<td align="center" valign="middle">\n| if($mv_mode eq 'pc');
      $log2 .=qq|<input type="hidden" name="id" value="$id">\n<input type="hidden" name="pw" value="$pw">\n|;
      $log2 .=qq|<select name=cmd size=1>\n|;
      $log2 .=qq|<option value=0>やめる</option>\n|;
      $log2 .=qq|<option value=1>1000G</option>\n|;
      $log2 .=qq|<option value=2>5000G</option>\n|;
      $log2 .=qq|<option value=3>10000G</option>\n|;
      $log2 .=qq|<option value=4>50000G</option>\n|;
      $log2 .=qq|<option value=5>100000G</option>\n|;
      $log2 .=qq|<option value=6>500000G</option>\n|;
      $log2 .=qq|<option value=7>1000000G</option>\n|;
      $log2 .=qq|</select><br>\n|;
      $log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
      
      if($cmd==0){
        $log .= "また来いよ・・・<br>\n";
        $tm = $cmd = 0;
      }elsif($cmd==1){
        my $go=1000;
        &gan_bai;
      }elsif($cmd==2){
        my $go=5000;
        &gan_bai;
      }elsif($cmd==3){
        my $go=10000;
        &gan_bai;
      }elsif($cmd==4){
        my $go=50000;
        &gan_bai;
      }elsif($cmd==5){
        my $go=100000;
        &gan_bai;
      }elsif($cmd==6){
        my $go=500000;
        &gan_bai;
      }elsif($cmd==7){               # ↓↓↓　★ここから 
        my $go=1000000;
        &gan_bai;
      }
      
      &gan_bat;
    }
  }                                  # ↑↑↑　★ここまで
  ####
  sub gan_bai{
    $log .= "賭けの倍率を選択しな・・・<br>\n";
    $log2 .=qq|<form action="$script" method="$method" name="ore_">\n|;
    $log2 .=qq|<td align="center" valign="middle">\n| if($mv_mode eq 'pc');
    $log2 .=qq|<input type="hidden" name="id" value="$id">\n<input type="hidden" name="pw" value="$pw">\n|;
    $log2 .=qq|<select name=cmd size=1>\n|;
    $log2 .=qq|<option value=0>やめる</option>\n|;
    $log2 .=qq|<option value=1>2倍</option>\n|;
    $log2 .=qq|<option value=2>3倍</option>\n|;
    $log2 .=qq|<option value=3>4倍</option>\n|;
    $log2 .=qq|<option value=4>6倍</option>\n|;
    $log2 .=qq|<option value=5>8倍</option>\n|;
    $log2 .=qq|<option value=6>10倍</option>\n|;
    $log2 .=qq|<option value=7>15倍</option>\n|;
    $log2 .=qq|<option value=8>30倍</option>\n|;
    $log2 .=qq|</select><br>\n|;
    $log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
    
    if($cmd==0){
      $log .= "また来いよ・・・<br>\n";
      $tm = $cmd = 0;
    }elsif($cmd==1){
      my $lo =120;
      my $wg =1;
    }elsif($cmd==2){
      my $lo =80;
      my $wg =2;
    }elsif($cmd==3){
      my $lo =60;
      my $wg =3;
    }elsif($cmd==4){
      my $lo =40;
      my $wg =5;
    }elsif($cmd==5){
      my $lo =30;
      my $wg =7;
    }elsif($cmd==6){
      my $lo =24;
      my $wg =9;
    }elsif($cmd==7){
      my $lo =16;
      my $wg =14;
    }elsif($cmd==8){ 
      my $lo =8;
      my $wg =29;
    }
  }
}  
####
sub gan_bat{
  $ga=int(rand(240));
  if($lo>$ga){
    $gold+=$gv=$go*$wg;
    $log .=・・・ｷﾞｬﾝﾌﾞﾙに勝った！$wg G手に入れた！ "<br>\n";
    $tm = $cmd = 0;
  }else{
    $gold-=$go;
    $log .=・・・ｷﾞｬﾝﾌﾞﾙに負けた・・・$go G失った・・・ "<br>\n";
    $tm = $cmd = 0;
  }
  ####
}
}           # ←★ここが多いので、上の★のところあたりに移動させる

1;