*ギャンブルの設置 [#u6a7bd0f]
-ページ: [[罪罰改造板２]]
-投稿者: [[ドライブ]]
-優先順位: 緊急
-状態: 提案
-カテゴリー: こんなのが欲しい♪
-投稿日: 2005-08-31 (水) 21:58:52
-バージョン:
**内容 [#jf522c28]
ギャンブルの設置をしようとしているのですがエラーが出ます。
下はスプリクトです。
#-----------------------------------------------------------#
# 罪と罰++ 二律背反 #
# 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;
----
-問題はそれだけじゃなさそうですが、まず、エラーが出なくなるようにしましょう -- [[あくあ]] &new{2005-08-31 (水) 22:28:33};
#comment
