sanjeok77
173 lines
3.7 KiB
Perl
173 lines
3.7 KiB
Perl
#-----------------------------------------------------------#
|
|
# 罪と罰++ 二律背反 #
|
|
# 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 ability{
|
|
|
|
if(!$type){
|
|
|
|
&abi_up_data;
|
|
|
|
$log .= "UA $va G UD $vd G LR $vl G AG $vg G<br>体力・精神を15000 G を使いそれぞれの能\力を上げます<br>\n";
|
|
$tm=0;
|
|
$type='能力';
|
|
|
|
&ability_menu;
|
|
|
|
}
|
|
|
|
&dat_write;
|
|
}
|
|
|
|
sub ability_menu{
|
|
|
|
# 能力コマンド
|
|
@st = ('やめる','HP-UP','MP-UP','UA-UP','UD-UP','LR-UP','AG-UP');
|
|
|
|
$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|;
|
|
foreach(0 .. $#st){ $log2 .= "<option value=$_>$st[$_]</option>\n";}
|
|
$log2 .=qq|</select><br>\n|;
|
|
$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
|
|
}
|
|
|
|
#-------------------------------------------------------------------------------
|
|
# 能力処理
|
|
sub ability_exe{
|
|
|
|
if(!$tm){
|
|
|
|
&abi_up_data;
|
|
|
|
if($cmd<=0){
|
|
$log .= "止めておきます<br>\n";
|
|
$tm = $cmd = 0;
|
|
$type='';
|
|
&call_main_st;
|
|
}elsif($cmd==1){
|
|
if($gold<15000){
|
|
$log .= "お金が足りません<br>\n";
|
|
$tm = $cmd = 0;
|
|
$type='';
|
|
&ability_menu;
|
|
}else{
|
|
$log .= "最大HPが３上がった<br>\n";
|
|
$max_hp+=3;
|
|
$gold-=15000;
|
|
$tm = $cmd = 0;
|
|
$type='';
|
|
&call_main_st;
|
|
}
|
|
}elsif($cmd==2){
|
|
if($gold<15000){
|
|
$log .= "お金が足りません<br>\n";
|
|
$tm = $cmd = 0;
|
|
$type='';
|
|
&ability_menu;
|
|
}else{
|
|
$log .= "最大MPが３上がった<br>\n";
|
|
$max_mp+=3;
|
|
$gold-=15000;
|
|
$tm = $cmd = 0;
|
|
$type='';
|
|
&call_main_st;
|
|
}
|
|
}elsif($cmd==3){
|
|
if($gold<$va){
|
|
$log .= "お金が足りません<br>\n";
|
|
$tm = $cmd = 0;
|
|
&ability_menu;
|
|
}else{
|
|
$log .= "攻撃力が１上がった<br>\n";
|
|
$ua++;
|
|
$gold-=$va;
|
|
$tm = $cmd = 0;
|
|
$type='';
|
|
&call_main_st;
|
|
}
|
|
}elsif($cmd==4){
|
|
if($gold<$vd){
|
|
$log .= "お金が足りません<br>\n";
|
|
$tm = $cmd = 0;
|
|
&ability_menu;
|
|
}else{
|
|
$log .= "防御力が１上がった<br>\n";
|
|
$ud++;
|
|
$gold-=$vd;
|
|
$tm = $cmd = 0;
|
|
$type='';
|
|
&call_main_st;
|
|
}
|
|
}elsif($cmd==5){
|
|
if($gold<$vl){
|
|
$log .= "お金が足りません<br>\n";
|
|
$tm = $cmd = 0;
|
|
&ability_menu;
|
|
}else{
|
|
$log .= "指揮力が１上がった<br>\n";
|
|
$lr++;
|
|
$gold-=$vl;
|
|
$tm = $cmd = 0;
|
|
$type='';
|
|
&call_main_st;
|
|
}
|
|
}elsif($cmd==6){
|
|
if($gold<$vg){
|
|
$log .= "お金が足りません<br>\n";
|
|
$tm = $cmd = 0;
|
|
&ability_menu;
|
|
}else{
|
|
$log .= "敏捷力が１上がった<br>\n";
|
|
$ag++;
|
|
$gold-=$vg;
|
|
$tm = $cmd = 0;
|
|
$type='';
|
|
&call_main_st;
|
|
}
|
|
}
|
|
}
|
|
|
|
&dat_write;
|
|
|
|
}
|
|
|
|
# 能力上昇値計算
|
|
sub abi_up_data{
|
|
|
|
$va=int($ua*$ua)*100;
|
|
$va=15000 if($va<15000);
|
|
$va=500000 if($va>500000);
|
|
$vd=int($ud*$ud)*100;
|
|
$vd=15000 if($vd<15000);
|
|
$vd=500000 if($vd>500000);
|
|
$vl=int($lr*$lr)*100;
|
|
$vl=30000 if($vl<30000);
|
|
$vl=500000 if($vl>500000);
|
|
$vg=int($ag*$ag)*100;
|
|
$vg=15000 if($vg<15000);
|
|
$vg=500000 if($vg>500000);
|
|
|
|
return ($va,$vd,$vl,$vg);
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
1;
|