罪と罰++二律背反
罪罰改造掲示板/173
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
] [
リンク元
]
開始行:
*戦闘中に「逃げる」「降伏」 [#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 == ○ はデフォルトを...
-逃げる処理に関しては 討伐 や 戦争時 の逃げる(撤退)を参...
-降伏に関しては &battle_lost; だけで大丈夫かと思います。 ...
-わたし自身は降伏のようなものを実装していて、その際はペナ...
-分岐部分を少し変えましたがうまくいきました。ありがとうご...
#----------------------------------------------------...
# 〜〜〜〜〜逃げるの処理〜〜〜〜〜
# 逃走
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 は脱兎のごとく逃げ出した!!<...
$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|逃げ道をふさがれた!!逃走に失敗!!<...
}
#---------------------------------------------------...
#comment
終了行:
*戦闘中に「逃げる」「降伏」 [#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 == ○ はデフォルトを...
-逃げる処理に関しては 討伐 や 戦争時 の逃げる(撤退)を参...
-降伏に関しては &battle_lost; だけで大丈夫かと思います。 ...
-わたし自身は降伏のようなものを実装していて、その際はペナ...
-分岐部分を少し変えましたがうまくいきました。ありがとうご...
#----------------------------------------------------...
# 〜〜〜〜〜逃げるの処理〜〜〜〜〜
# 逃走
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 は脱兎のごとく逃げ出した!!<...
$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|逃げ道をふさがれた!!逃走に失敗!!<...
}
#---------------------------------------------------...
#comment
ページ名: