罪と罰++二律背反
罪罰改造板2/198
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
] [
リンク元
]
開始行:
*ギャンブルの設置 [#u6a7bd0f]
-ページ: [[罪罰改造板2]]
-投稿者: [[ドライブ]]
-優先順位: 緊急
-状態: 提案
-カテゴリー: こんなのが欲しい♪
-投稿日: 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"...
$log2 .=qq|<td align="center" valign="middle">\n| ...
$log2 .=qq|<input type="hidden" name="id" value="$...
$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="NE...
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" n...
$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>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...
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...
$tm = $cmd = 0;
}else{
$gold-=$go;
$log .=・・・ギャンブルに負けた・・・$go G失った・・・ ...
$tm = $cmd = 0;
}
####
}
} # ←★ここが多いので、上の★のところあたりに移...
1;
----
-問題はそれだけじゃなさそうですが、まず、エラーが出なくな...
#comment
終了行:
*ギャンブルの設置 [#u6a7bd0f]
-ページ: [[罪罰改造板2]]
-投稿者: [[ドライブ]]
-優先順位: 緊急
-状態: 提案
-カテゴリー: こんなのが欲しい♪
-投稿日: 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"...
$log2 .=qq|<td align="center" valign="middle">\n| ...
$log2 .=qq|<input type="hidden" name="id" value="$...
$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="NE...
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" n...
$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>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...
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...
$tm = $cmd = 0;
}else{
$gold-=$go;
$log .=・・・ギャンブルに負けた・・・$go G失った・・・ ...
$tm = $cmd = 0;
}
####
}
} # ←★ここが多いので、上の★のところあたりに移...
1;
----
-問題はそれだけじゃなさそうですが、まず、エラーが出なくな...
#comment
ページ名: