- 代碼: 選擇全部
elsif (($F{'mode'} eq 'bar_trade') || ($F{'mode'} eq 'adven')) { require 'bar.cgi' }
更換為
- 代碼: 選擇全部
elsif (($F{'mode'} eq 'bar_trade') || ($F{'mode'} eq 'adven') || ($F{'mode'} eq 'bank') || ($F{'mode'} eq 'inbk')|| ($F{'mode'} eq 'outbk')) { require 'bar.cgi' }
2:bar.cgi 請在Sub Bar 下自行加入按鈕
3:bar.cg的最後,複製和貼上以下的語法
- 代碼: 選擇全部
# Sub Bank #
sub bank {
&form_table('up','100%',1);
&get_me;
my @citybank = split(/△/,$city_line);
foreach (@citybank) {
($bnum,$bquan) = split(/,/);
if ($bnum == $port) { $find = 1; last }
}
$bquan = $find ? $bquan : 0;
print qq|UFJ銀行$p_name支店|;
print <<CBKU;
</td></tr><tr><td align=center>
$name的存款額 :$bquan G<br><br>
預入 <input type=text name=quan class=text size=15>G
<input type=hidden name=mode value="inbk">
CBKU
&reload;
&id_ps;
&submit_button;
print <<CBKD;
</form><form method=$method action=$seacgi>
引出 <input type=text name=quan class=text size=15>G
<input type=hidden name=mode value="outbk">
CBKD
&reload;
&id_ps;
&submit_button;
&form_table('down');
}
# Sub In Bank #
sub inbk {
&get_me($F{'id'});
if ($action ne $F{'reload'}) { &play; exit }
if ($F{'quan'} =~ /[^0-9]/) { &play("請確認數量的輸入 ");exit }
if ($money < $F{'quan'}) { &play("為了手邊的資金沒夠..."); exit }
$money -= $F{'quan'};
my @citybank = split(/△/,$city_line);
foreach (0 .. $#citybank) {
($bnum,$bquan) = split(/,/,$citybank[$_]);
if ($bnum == $port) {
$bquan += $F{'quan'};
splice(@citybank , $_ , 1 , "$bnum,$bquan");
$city_line = join('△' , @citybank);
$find = 1;
last
}
}
if (!$find) { $city_line = join('△' , @citybank , "$port,$F{'quan'}") }
&msg("$F{'quan'} G 寄存了");
&get_port($area,$port);
&add_record("UFJ$p_name在分店$F{'quan'} G 存款");
&play;
}
# Sub Out Bank #
sub outbk {
&get_me($F{'id'});
if ($action ne $F{'reload'}) { &play; exit }
if ($F{'quan'} =~ /[^0-9]/) { &play("數量的輸入是不正");exit }
my @citybank = split(/△/,$city_line);
foreach (0 .. $#citybank) {
($bnum,$bquan) = split(/,/,$citybank[$_]);
if ($bnum == $port) {
$bquan -= $F{'quan'};
if ($bquan < 0) { &play("予 \超過計算"); exit }
splice(@citybank , $_ , 1 , "$bnum,$bquan");
$city_line = join('△' , @citybank);
last
}
}
$money += $F{'quan'};
&get_port($area,$port);
&msg("$F{'quan'} G 拿出了");
&add_record("UFJ$p_name從分店$F{'quan'} G 拿出");
&play;
}
ver2.72在運作確認