sanjeok77
123 lines
3.3 KiB
Perl
123 lines
3.3 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.1
|
||
#--- [注意事項] --------------------------------------------#
|
||
# 1.このスクリプトは以下の利用規程に従って配布しています。 #
|
||
# http://www24.big.or.jp/~obo/game/ore_/gild/ #
|
||
#-----------------------------------------------------------#
|
||
|
||
#-------------------------------------------------------------------------------
|
||
# 診療所
|
||
sub medical{
|
||
|
||
if($tm==120){
|
||
|
||
if($cmd<=0){
|
||
$log .= "またお越しください…<br>\n";
|
||
$tm = $cmd = 0;
|
||
&shop_menu;
|
||
|
||
# 治療-1
|
||
}elsif($cmd==1){
|
||
|
||
$S = ($lv < 50) ? $lv*2000 : 100000;
|
||
$log .= "…ここでは古の秘術によって体力と魔力を<br>瞬時に全快まで回復してさしあげられます<br>…ただし$SＧ\頂きますが…<br>\n";
|
||
$tm=125;
|
||
|
||
$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|;
|
||
$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">$td_end</form>\n|;
|
||
|
||
# 性転換-1
|
||
}elsif($cmd==2){
|
||
|
||
$log.="ここでは性転換手術を受けられます。<br>ただし入院と手術費に20万G ほどかかりますが･･･<br>";
|
||
$tm=135;
|
||
|
||
$log2 .= qq|<form action="$script" method="$method" name="ore_">|;
|
||
$log2 .= qq|<td align="center" valign="middle">\n| if($mv_mode eq 'pc');
|
||
$log2 .= qq|<input type="hidden" name="id" value="$id">\n|;
|
||
$log2 .= qq|<input type="hidden" name="pw" value="$pw">\n|;
|
||
$log2 .= qq|<select name="cmd">\n|;
|
||
|
||
$log2 .= qq|<option value="0">逃げる</option>\n|;
|
||
$log2 .= ($sei==1) ?
|
||
qq|<option value="3">女になる</option>\n|:
|
||
qq|<option value="3">男になる</option>\n|;
|
||
|
||
$log2 .= qq|</select><br>\n|;
|
||
$log2 .= qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
|
||
}
|
||
|
||
# 治療-2
|
||
}elsif($tm==125){
|
||
|
||
if($cmd<=0){
|
||
$log .= "$nm は立ち去った。<br>\n";
|
||
$tm = $cmd = 0;
|
||
&shop_menu;
|
||
}else{
|
||
$S = ($lv < 50) ? $lv*2000 : 100000;
|
||
if($S < $gold){
|
||
$hp = $max_hp;
|
||
$mp = $max_mp;
|
||
$gold -= $S;
|
||
$log .= "$SＧを支払った…<br>体力と魔力が全回復した。<br>\n";
|
||
$tm = $cmd = 0;
|
||
&shop_menu;
|
||
}else{
|
||
$log .= "お金が足りないわ…<br>\n";
|
||
$tm=0;
|
||
&shop_menu;
|
||
}
|
||
}
|
||
|
||
# 性転換-2
|
||
}elsif($tm==135){
|
||
|
||
if($cmd<=0){
|
||
$log .= "$nm は何事も無かったように立ち去った。<br>\n";
|
||
$tm = $cmd = 0;
|
||
&shop_menu;
|
||
}else{
|
||
if($gold>=200000){
|
||
|
||
$gold-=200000;
|
||
$log.="ｵﾍﾟを開始します。目覚めるとそこは別世界になっていることでしょう。<br>";
|
||
$pr=$GMT*8;
|
||
|
||
if($sei==1){
|
||
$sei=2;
|
||
$sei2="女性";
|
||
}else{
|
||
$sei=1;
|
||
$sei2="男性";
|
||
}
|
||
$mes.= qq|麻酔から目を覚ました。$nm は $sei2 になった。|;
|
||
$tm = $cmd = 0;
|
||
$type='';
|
||
&call_main_st;
|
||
}else{
|
||
$log2.="お金が足りません。";
|
||
$tm = $cmd = 0;
|
||
&shop_menu;
|
||
}
|
||
}
|
||
}
|
||
}
|
||
|
||
|
||
|
||
|
||
|
||
1;
|