罪と罰++二律背反
罪罰改造板2/98
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
] [
リンク元
]
開始行:
*馬屋の設置についてなのですが [#l4538760]
-ページ: [[罪罰改造板2]]
-投稿者: [[kururu]]
-優先順位: 緊急
-状態: 完了
-カテゴリー: エラーが出ます
-投稿日: 2005-03-28 (月) 13:23:15
-バージョン:
**内容 [#i6ff1d08]
お忙しいところ失礼いたします。AGが上がる馬というものを作...
}elsif($cmd==11){
$log .= "いらっしゃいませ。当店では色々な種類の馬を御用...
$tm=180;
$log2 .=qq|<form action="$script" method="$method" name=...
$log2 .=qq|<td align="center" valign="middle">\n| if($mv...
$log2 .=qq|<input type="hidden" name="id" value="$id">\n...
$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">$t...
}
# 馬
}elsif($tm==180){
if($cmd<=0){#消
$log .= "またおこしください。<br>\n";
$tm = $cmd = 0;
&shop_menu;
}elsif($cmd==1){#買-1
if($sogo==9||$sogo==10){
$log .= "$sogo_p[$sogo] の烙印ついてる方はお買い上げ...
$tm=0;
&shop_menu;
}else{
$log .= "どの馬をお求めですか?<br>馬の所持は1頭まで...
$tm=181;
require "./inc/ore_sub-shop-p1_$mv_mode\.cgi";&uma_s;
}
}elsif($cmd==2){#売-1
if($uma_a==0){
$log .= "$nm さまは馬を所持できません。<br>\n";
$tm = $cmd = 0;
&shop_menu;
}else{
if($uma_a<=10){
my $v = int(($uma_data[$uma_a][2]-$uma_data[$uma_a][...
$log .= "これは! 隠し騎馬の$uma_data[$uma_a][1] です...
$tm=182;
}else{
my $v = int(($uma_data[$uma_a][2]-$uma_data[$uma_a][...
$log .= "そうですね・・・ $uma_data[$uma_a][1] は $v Gで...
$tm=182;
}
$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==181){#買-2
if($cmd<=0){#消
$log .= "その他に何かありますか?<br>\n";
}else{
foreach(11 .. $#uma_data){
if($cmd eq $_ && $gold >= $uma_data[$_][2]){
$log .= "$uma_data[$_][2]Gを支払い、$uma_data[$_][1]...
$gold -= $uma_data[$_][2];
$uma_a = $_;
$uma_cnt = $uma_data[$_][3];
}elsif($cmd eq $_ && $gold<$uma_data[$_][2]){
$log .= "お金が足りません。<br>\n";
}
}
}
$tm = $cmd = 0;
&shop_menu;
}elsif($tm==182){#売-2
if($cmd<=0){#消
$log .= "他にどうしますか?<br>\n";
}elsif($cmd==1){
my $v = int(($uma_data[$uma_a][2]-$uma_data[$uma_a][2]...
$log .= "$uma_data[$uma_a][1] を $v G で売却しました。...
$gold += $v;
$uma_a = $uma_cnt = 0;
}
$tm = $cmd = 0;
&shop_menu;
----
-コマンドが出ない状態で「$tm」はいくつになっていますか? ...
-180になっています。 -- [[kururu]] &new{2005-03-30 (水) 1...
-その時にメッセージは表示されるのでしょうか?メニューの選...
-あとキャンセルと買うのはうまくいくのですよね? -- [[あく...
-メッセージが表示されず止まってしまいます。後キャンセルと...
-ここを見る限りでは間違いないような気がしますねー、制御系...
-ではどこら辺を調べてみれば良いのでしょうか?いくつかファ...
-いくつかファイルって言われているのは↑以外にどこか変更を...
-ore_sub-shop-p1_pcとかを変更しました。お忙しい中ありがと...
-お騒がせしました。道具屋の上ではなく防具屋の上に上と同じ...
#comment
終了行:
*馬屋の設置についてなのですが [#l4538760]
-ページ: [[罪罰改造板2]]
-投稿者: [[kururu]]
-優先順位: 緊急
-状態: 完了
-カテゴリー: エラーが出ます
-投稿日: 2005-03-28 (月) 13:23:15
-バージョン:
**内容 [#i6ff1d08]
お忙しいところ失礼いたします。AGが上がる馬というものを作...
}elsif($cmd==11){
$log .= "いらっしゃいませ。当店では色々な種類の馬を御用...
$tm=180;
$log2 .=qq|<form action="$script" method="$method" name=...
$log2 .=qq|<td align="center" valign="middle">\n| if($mv...
$log2 .=qq|<input type="hidden" name="id" value="$id">\n...
$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">$t...
}
# 馬
}elsif($tm==180){
if($cmd<=0){#消
$log .= "またおこしください。<br>\n";
$tm = $cmd = 0;
&shop_menu;
}elsif($cmd==1){#買-1
if($sogo==9||$sogo==10){
$log .= "$sogo_p[$sogo] の烙印ついてる方はお買い上げ...
$tm=0;
&shop_menu;
}else{
$log .= "どの馬をお求めですか?<br>馬の所持は1頭まで...
$tm=181;
require "./inc/ore_sub-shop-p1_$mv_mode\.cgi";&uma_s;
}
}elsif($cmd==2){#売-1
if($uma_a==0){
$log .= "$nm さまは馬を所持できません。<br>\n";
$tm = $cmd = 0;
&shop_menu;
}else{
if($uma_a<=10){
my $v = int(($uma_data[$uma_a][2]-$uma_data[$uma_a][...
$log .= "これは! 隠し騎馬の$uma_data[$uma_a][1] です...
$tm=182;
}else{
my $v = int(($uma_data[$uma_a][2]-$uma_data[$uma_a][...
$log .= "そうですね・・・ $uma_data[$uma_a][1] は $v Gで...
$tm=182;
}
$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==181){#買-2
if($cmd<=0){#消
$log .= "その他に何かありますか?<br>\n";
}else{
foreach(11 .. $#uma_data){
if($cmd eq $_ && $gold >= $uma_data[$_][2]){
$log .= "$uma_data[$_][2]Gを支払い、$uma_data[$_][1]...
$gold -= $uma_data[$_][2];
$uma_a = $_;
$uma_cnt = $uma_data[$_][3];
}elsif($cmd eq $_ && $gold<$uma_data[$_][2]){
$log .= "お金が足りません。<br>\n";
}
}
}
$tm = $cmd = 0;
&shop_menu;
}elsif($tm==182){#売-2
if($cmd<=0){#消
$log .= "他にどうしますか?<br>\n";
}elsif($cmd==1){
my $v = int(($uma_data[$uma_a][2]-$uma_data[$uma_a][2]...
$log .= "$uma_data[$uma_a][1] を $v G で売却しました。...
$gold += $v;
$uma_a = $uma_cnt = 0;
}
$tm = $cmd = 0;
&shop_menu;
----
-コマンドが出ない状態で「$tm」はいくつになっていますか? ...
-180になっています。 -- [[kururu]] &new{2005-03-30 (水) 1...
-その時にメッセージは表示されるのでしょうか?メニューの選...
-あとキャンセルと買うのはうまくいくのですよね? -- [[あく...
-メッセージが表示されず止まってしまいます。後キャンセルと...
-ここを見る限りでは間違いないような気がしますねー、制御系...
-ではどこら辺を調べてみれば良いのでしょうか?いくつかファ...
-いくつかファイルって言われているのは↑以外にどこか変更を...
-ore_sub-shop-p1_pcとかを変更しました。お忙しい中ありがと...
-お騒がせしました。道具屋の上ではなく防具屋の上に上と同じ...
#comment
ページ名: