私設SoS2オーナー応援BBS

新規発言一覧最新記事過去一覧検索ダウンロードページHOME

No.737  Re[2]:移転報告と、別れるについて
発言者: masaki
発言日: 2003 08/19 13:22
ありがとうございます(^^
やろうとしていた改造は、探索中に出会ったNPCと別れるときダメージを受けたり所持金を失ったりするものですが、前に諦めたエラーが出てしまいました(;;
http://box6-6.hp.infoseek.co.jp/sos.jpg
かなり汚い画像ですが、&headerを実行しているところはないと思うのですが(^^;;
改造内容は
&input('radio','mode','goodbye','',"別れる\n");を
if($psp =~ /Ng/ && $find){&input('radio','mode','see_you','',"逃げる\n");}
else{&input('radio','mode','goodbye','',"別れる\n");}
として、sos2内に
sub see_you{
@rcdlines = &get_user("$Fm{'id'}");
$seeyou = rand(20);
if($seeyou <= "4" && $mn > "10"){
$lostmoney = (5,6,7,8,9,10) [int(rand(6))];
push (@msg,"逃げる際に$lostmoney\Gを落とした");
$mn -= "$lostmoney";
}elsif($seeyou <= "9" && $hp >= "4"){
$losthp = (1,2,3) [int(rand(3))];
push (@msg,"逃げる際に$losthpのダメージを受けた");
$hp -= $losthp;
}elsif($seeyou >= "10"){
push (@msg,"無事逃げ切りました");
}
&normal_action}
を追加。
そして、main_programに
if ($Fm{'mode'} eq 'see_you') {&play_form }
play_formに
&see_you if $Fm{'mode'} eq 'see_you';
を追加しました。(&headerの上です)
どこがおかしいのでしょうか?(^^;;
いつもすみません。。。

▼関連発言

735:移転報告と、別れるについて [masaki] 08/19 08:16
 └736:Re:移転報告と、別れるについて [moon] 08/19 10:31
  └737:Re[2]:移転報告と、別れるについて [masaki] 08/19 13:22
   └738:Re[3]:移転報告と、別れるについて [moon] 08/19 14:19
    └739:余談 [moon] 08/19 14:23
     └740:Re:余談 [masaki] 08/19 14:54
      └741:余談の余談 [moon] 08/19 15:39
       └742:Re:余談の余談 [moon] 08/19 15:45
        └743:Re[2]:余談の余談 [masaki] 08/19 18:14<-last

Pass 保存


CGIROOM