罪と罰++二律背反
罪罰改造板2/561
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
] [
リンク元
]
開始行:
* 道具屋の不具合について [#n6fb1b61]
- ページ: [[罪罰改造板2]]
- 投稿者: [[JUST]]
- 優先順位: 低
- 状態: 提案
- カテゴリー: 罪罰管理者の雑談
- 投稿日: 2007-08-26 (日) 22:46:31
- バージョン:
** 内容 [#wfbe06b1]
こんばんわ。お久しぶりです。RIGHT改めJUSTです。
今回は下記のような不具合が生じたため、書き込みさせてもら...
ショッピングモール→道具屋→買う
と、このように作業すると販売リストはでるのですが
購入/やめるのコマンドの下に120000Gを支払い、賢者の石 を購...
当罪罰ではデフォルトは1~10の間がレアアイテムと設定されていますが
何番のアイテムでも購入できるようになっています。
# 道具屋 - 買 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;
}
$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"...
}
}
if($tm==52){
if($cmd<=0){#消
$log .= "他なにか御用ですか?<br>\n";
}else{
foreach(1 .. $#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;
道具の部分はこのようになっています。
それではよろしくお願いします。
--------
#comment
終了行:
* 道具屋の不具合について [#n6fb1b61]
- ページ: [[罪罰改造板2]]
- 投稿者: [[JUST]]
- 優先順位: 低
- 状態: 提案
- カテゴリー: 罪罰管理者の雑談
- 投稿日: 2007-08-26 (日) 22:46:31
- バージョン:
** 内容 [#wfbe06b1]
こんばんわ。お久しぶりです。RIGHT改めJUSTです。
今回は下記のような不具合が生じたため、書き込みさせてもら...
ショッピングモール→道具屋→買う
と、このように作業すると販売リストはでるのですが
購入/やめるのコマンドの下に120000Gを支払い、賢者の石 を購...
当罪罰ではデフォルトは1~10の間がレアアイテムと設定されていますが
何番のアイテムでも購入できるようになっています。
# 道具屋 - 買 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;
}
$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"...
}
}
if($tm==52){
if($cmd<=0){#消
$log .= "他なにか御用ですか?<br>\n";
}else{
foreach(1 .. $#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;
道具の部分はこのようになっています。
それではよろしくお願いします。
--------
#comment
ページ名: