*戦闘中に「逃げる」「降伏」 [#x3bb4c71]
-ページ: [[罪罰改造掲示板]]
-投稿者: [[こじこ]]
-優先順位: 緊急
-状態: 完了
-カテゴリー: こんなのが欲しい♪
-投稿日: 2004-11-15 (月) 15:04:36
-バージョン:
**メッセージ [#c9abb795]
「MPを使い切ったが高価な武器なので負けそうな戦いには使いたくない」
「敵も自分も精魂尽き果てて攻撃が1や2になり、なかなか勝負がつかない」
このようなときに戦闘をやめられるようにしたいです。
「逃げる」を選ぶとAGなど条件次第で逃げられる=負け。
「降伏」を選ぶと完全に戦闘終了=負け。
----
-sub spell_sp の 道具部分の後あたりに
$log2 .="<option value=16>逃げる</option>\n";
$log2 .="<option value=17>降伏</option>\n";
というようにして、sub attack_myself で
}elsif($cmd >= 2){
〜〜〜〜〜中略〜〜〜〜〜
}
部分を
}elsif($cmd >= 2 && $cmd <= 15){
〜〜〜〜〜中略〜〜〜〜〜
}
というようにし、この後に
elsif($cmd == 16){
〜〜〜〜〜逃げるの処理〜〜〜〜〜
}elsif($cmd == 17){
〜〜〜〜〜降伏の処理〜〜〜〜〜
}
としてみてはいかがでしょうか？
-- [[ZONE]] &new{2004-11-15 (月) 19:29:19};
-ちなみに上記 option value=○ や $cmd == ○ はデフォルトを基準にしているので、技等の追加があるのであれば、調整してくださいませ。 -- [[ZONE]] &new{2004-11-15 (月) 19:36:37};
-逃げる処理に関しては 討伐 や 戦争時 の逃げる（撤退）を参考に。 -- [[ZONE]] &new{2004-11-15 (月) 19:39:55};
-降伏に関しては &battle_lost; だけで大丈夫かと思います。 -- [[ZONE]] &new{2004-11-15 (月) 19:40:45};
-わたし自身は降伏のようなものを実装していて、その際はペナルティとしてHPを0にする処理も加えてますけどね。 -- [[ZONE]] &new{2004-11-15 (月) 19:41:40};
-分岐部分を少し変えましたがうまくいきました。ありがとうございました^^ -- [[こじこ]] &new{2004-11-15 (月) 22:20:28};
#---------------------------------------------------------
# 〜〜〜〜〜逃げるの処理〜〜〜〜〜
# 逃走
my $escape = int(20+10*( ($ag+1)/($tag+$ag+1) ));
my $escape = int(50+10*( ($ag+1)/($tag+$ag+1) ));
if(rand(100)<$escape){
# 成功
if($type eq '戦争中' || $type eq '遭遇'
||$type eq '討伐中'||$type eq '闘技場'){
$log .= qq|$nmは逃げ出した・・<br>|;
$tm=120;
}else{
$log .= qq|$nm は脱兎のごとく逃げ出した！！<br>|;
$thp=$tm=$bt=$ck=0;
$cmd=-1;
$G=int(rand(10))+1;
$E=int(rand(5))+1;
$gold+=$G;
$exe+=$E;
$log .="$G の金 と $E の経験値を得た<br>\n";
$tnm_p = $tnm;
$bst=$est=$type=$tnm='';
}
}else{
# 逃走に失敗
$log .= qq|逃げ道をふさがれた！！逃走に失敗！！<br>|;
}
#---------------------------------------------------------
#comment
