罪と罰++二律背反
罪罰改造板3/21
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
] [
リンク元
]
開始行:
* 街中での戦闘呼び出しについて [#l822f1ff]
- ページ: [[罪罰改造板3]]
- 投稿者: [[たぬたぬ]]
- 優先順位: 普通
- 状態: 完了
- カテゴリー: エラーが出ます
- 投稿日: 2007-11-29 (木) 12:31:50
- バージョン:
** メッセージ [#r7f41ac7]
ショッピングモールの中、または待機中でもいいのですが、
ある条件がそろった時にいきなり戦闘に入るようにしたいので...
いろいろ錯誤しているのですがどうも・・・orz
http://tanutanu.sakura.ne.jp/tanu_battle_test.txt
においておきます。
闘うを選んでも進まない状態です、汚いスクリプトで申し訳な...
ぜひご助言をよろしくお願いいたします。
--------
- 急襲(混同を防ぐために勝手に名付けます^^;)に突入した際...
- 現状維持更新時に襲われた場合には、終了後にまた現状維持...
- 例えば、続行メニューに、elsif($type eq '買物で襲われ中'...
- 実装しようとしている場所は、お店の「話す」コマンドです。話...
- 載せたスクリプトは討伐をコピペして$tmの値をいじって加工...
- 載せたスクリプトのまま実行すると、キャラの$tmは1512まで...
- UPされたテキストだと不整合な部分が多くて、そこから原因...
- 討伐の$tmを弄っただけなら、そんなに問題は出ないと思うん...
- 途中までですが、実際にやってみました。
まず、神殿の選択肢にクエストを追加。
神殿処理のリソースを維持するために、$tm==1198(←ぉぃらの...
elsif(($tm>=190 && $tm<200)||$tm==1198){require './inc/o...
(コレをしないとリソースの中に居てくれなくなる)
}elsif($cmd==4){#くえすと?
$log .= "助手「いらっしゃいです〜♪<br> じゃ、まず闘っ...
$tm=1198;
$tnm = "闇$nm"; #名前 敵
$tlv = $lv; #レベル 敵
〜略〜
$tlr = $lr; #LR
$ck=1;
$log .="$tnm が現れた!<br>\n";
$log .="<p>どうしますか?</p>\n";
$log .="<p>敵ステータス - $tnm ( HP $thp MP $tmp UA $tua UD ...
$log2 .=qq|<form action="$script" method="$method" name...
〜略〜
$log2 .=qq|</select><br>\n|;
$log2 .=qq|<input type="submit" $button1 value="NEXT">$...
}
で、
}elsif($tm==1198){#$ckは要るのか?
if($cmd<=0){
$log .= "$nm は慌てて立ち去った。<br>\n";
$tm = $cmd = 0;
&shop_menu;
}elsif($cmd==1){
# 戦闘処理読み込み
require './inc/ore_sub-battle.cgi';
&bt_st;
if($thp<1){
〜略〜
やってみて思ったこと。
神殿の中に作りこもうとした(これだとore_.cgiを弄る必要が...
実際のところ、メニュー表示の調整やら$tm・リソースを持って...
討伐の複製でやってるのなら、タブンshop内でのリソースの保...
(複製の方もやってみますね〜)
-- [[三毛猫]] &new{2007-11-30 (金) 10:24:36};
- ありがとうございますm(_ _)m 三毛猫さんのを参考に改良し...
- 更新版だと、戦闘はするのですが、闘うを選択直後すでに戦...
- すぐに戦闘が始まるのはNEXTボタンで$cmd=-1で$tmを増やし...
- 戦争処理の整合させるのが大変そうなので、途中で諦めたん...
- 討伐をほぼそのまま持ってくるタイプのは、たぶんウチの「...
- ちゃんと動いたのでご報告を。 ~
神殿内の処理。$tm==1198にて、
}elsif($tm==1198){#$ckは要るのか?
if($cmd<=0){
$log .= "$nm は慌てて立ち去った。<br>\n";
$tm = $cmd = 0;
&shop_menu;
}elsif($cmd==1){
$type='くえすと中';
$log .= "戦闘開始!<br>\n";
$tm=65;#←多分ポイント。
$log2 .=qq|<form action="$script" method="$method" nam...
$log2 .=qq|<td align="center" valign="middle">\n| if($...
$log2 .=qq|<input type="hidden" name="id" value="$id">...
$log2 .=qq|<input type="submit" $button1 value="NEXT">...
&dat_write;
}
}
ore_.cgiにて、
elsif($type eq 'くえすと中'){ require './inc/ore_sub-qti...
を追加。
ore_sub-qtime.cgiの中身は
sub quest_st {
if($ck){
# 戦闘処理読み込み
require './inc/ore_sub-battle.cgi';
if(!$b_n && !$tlr){
$tm = 0;
$ck = 0;
$nation = 0;#猫討伐
$type='';
$log .="戦闘中にバグが発生しました!強制的にメイン画...
}
if($tm==65){
$log .="真剣勝負開始!<br>\n";
$tm=75;
}elsif($tm==75){
&bt_cm;
if($thp<1 && $hp>0){
# 獲得金
$G =int(rand(200))+((500*$tlv)-($lv*50));
〜略〜
$ck = $tm = 0;
$nation=0;
$type='';
}elsif($hp<1 && $thp>0){
$bst ='';
$bt =0;
〜略〜
$ck= $tm = 0;
$nation=0;
$type='';
}
}
$log2 .=qq|<form action="$script" method="$method" nam...
$log2 .=qq|<td valign="middle">\n| if($mv_mode eq 'pc');
$log2 .=qq|<input type="hidden" name="id" value="$id">...
if($tsol<1||$sol<1){
$log2 .=qq|<input type="hidden" name="cmd" value="-1"...
}
if($tm==65){
$log2 .=qq|<input type="hidden" name="cmd" value="-1"...
}elsif($tm==75){
&spell_sp;
}
$log2 .=qq|<br>|;#テーブルずれ修正
$log2 .=qq|<input type="submit" $button1 value="NEXT!...
}
&dat_write;
}
こんな感じで。。(必要最小限になっています)-- [[三毛猫]]...
- elsif($tm==1198){〜の中に「NEXT」ボタンと次のステップへ...
- 本当にありがとうございますm(_ _)m。無事に動きました。例...
#comment
終了行:
* 街中での戦闘呼び出しについて [#l822f1ff]
- ページ: [[罪罰改造板3]]
- 投稿者: [[たぬたぬ]]
- 優先順位: 普通
- 状態: 完了
- カテゴリー: エラーが出ます
- 投稿日: 2007-11-29 (木) 12:31:50
- バージョン:
** メッセージ [#r7f41ac7]
ショッピングモールの中、または待機中でもいいのですが、
ある条件がそろった時にいきなり戦闘に入るようにしたいので...
いろいろ錯誤しているのですがどうも・・・orz
http://tanutanu.sakura.ne.jp/tanu_battle_test.txt
においておきます。
闘うを選んでも進まない状態です、汚いスクリプトで申し訳な...
ぜひご助言をよろしくお願いいたします。
--------
- 急襲(混同を防ぐために勝手に名付けます^^;)に突入した際...
- 現状維持更新時に襲われた場合には、終了後にまた現状維持...
- 例えば、続行メニューに、elsif($type eq '買物で襲われ中'...
- 実装しようとしている場所は、お店の「話す」コマンドです。話...
- 載せたスクリプトは討伐をコピペして$tmの値をいじって加工...
- 載せたスクリプトのまま実行すると、キャラの$tmは1512まで...
- UPされたテキストだと不整合な部分が多くて、そこから原因...
- 討伐の$tmを弄っただけなら、そんなに問題は出ないと思うん...
- 途中までですが、実際にやってみました。
まず、神殿の選択肢にクエストを追加。
神殿処理のリソースを維持するために、$tm==1198(←ぉぃらの...
elsif(($tm>=190 && $tm<200)||$tm==1198){require './inc/o...
(コレをしないとリソースの中に居てくれなくなる)
}elsif($cmd==4){#くえすと?
$log .= "助手「いらっしゃいです〜♪<br> じゃ、まず闘っ...
$tm=1198;
$tnm = "闇$nm"; #名前 敵
$tlv = $lv; #レベル 敵
〜略〜
$tlr = $lr; #LR
$ck=1;
$log .="$tnm が現れた!<br>\n";
$log .="<p>どうしますか?</p>\n";
$log .="<p>敵ステータス - $tnm ( HP $thp MP $tmp UA $tua UD ...
$log2 .=qq|<form action="$script" method="$method" name...
〜略〜
$log2 .=qq|</select><br>\n|;
$log2 .=qq|<input type="submit" $button1 value="NEXT">$...
}
で、
}elsif($tm==1198){#$ckは要るのか?
if($cmd<=0){
$log .= "$nm は慌てて立ち去った。<br>\n";
$tm = $cmd = 0;
&shop_menu;
}elsif($cmd==1){
# 戦闘処理読み込み
require './inc/ore_sub-battle.cgi';
&bt_st;
if($thp<1){
〜略〜
やってみて思ったこと。
神殿の中に作りこもうとした(これだとore_.cgiを弄る必要が...
実際のところ、メニュー表示の調整やら$tm・リソースを持って...
討伐の複製でやってるのなら、タブンshop内でのリソースの保...
(複製の方もやってみますね〜)
-- [[三毛猫]] &new{2007-11-30 (金) 10:24:36};
- ありがとうございますm(_ _)m 三毛猫さんのを参考に改良し...
- 更新版だと、戦闘はするのですが、闘うを選択直後すでに戦...
- すぐに戦闘が始まるのはNEXTボタンで$cmd=-1で$tmを増やし...
- 戦争処理の整合させるのが大変そうなので、途中で諦めたん...
- 討伐をほぼそのまま持ってくるタイプのは、たぶんウチの「...
- ちゃんと動いたのでご報告を。 ~
神殿内の処理。$tm==1198にて、
}elsif($tm==1198){#$ckは要るのか?
if($cmd<=0){
$log .= "$nm は慌てて立ち去った。<br>\n";
$tm = $cmd = 0;
&shop_menu;
}elsif($cmd==1){
$type='くえすと中';
$log .= "戦闘開始!<br>\n";
$tm=65;#←多分ポイント。
$log2 .=qq|<form action="$script" method="$method" nam...
$log2 .=qq|<td align="center" valign="middle">\n| if($...
$log2 .=qq|<input type="hidden" name="id" value="$id">...
$log2 .=qq|<input type="submit" $button1 value="NEXT">...
&dat_write;
}
}
ore_.cgiにて、
elsif($type eq 'くえすと中'){ require './inc/ore_sub-qti...
を追加。
ore_sub-qtime.cgiの中身は
sub quest_st {
if($ck){
# 戦闘処理読み込み
require './inc/ore_sub-battle.cgi';
if(!$b_n && !$tlr){
$tm = 0;
$ck = 0;
$nation = 0;#猫討伐
$type='';
$log .="戦闘中にバグが発生しました!強制的にメイン画...
}
if($tm==65){
$log .="真剣勝負開始!<br>\n";
$tm=75;
}elsif($tm==75){
&bt_cm;
if($thp<1 && $hp>0){
# 獲得金
$G =int(rand(200))+((500*$tlv)-($lv*50));
〜略〜
$ck = $tm = 0;
$nation=0;
$type='';
}elsif($hp<1 && $thp>0){
$bst ='';
$bt =0;
〜略〜
$ck= $tm = 0;
$nation=0;
$type='';
}
}
$log2 .=qq|<form action="$script" method="$method" nam...
$log2 .=qq|<td valign="middle">\n| if($mv_mode eq 'pc');
$log2 .=qq|<input type="hidden" name="id" value="$id">...
if($tsol<1||$sol<1){
$log2 .=qq|<input type="hidden" name="cmd" value="-1"...
}
if($tm==65){
$log2 .=qq|<input type="hidden" name="cmd" value="-1"...
}elsif($tm==75){
&spell_sp;
}
$log2 .=qq|<br>|;#テーブルずれ修正
$log2 .=qq|<input type="submit" $button1 value="NEXT!...
}
&dat_write;
}
こんな感じで。。(必要最小限になっています)-- [[三毛猫]]...
- elsif($tm==1198){〜の中に「NEXT」ボタンと次のステップへ...
- 本当にありがとうございますm(_ _)m。無事に動きました。例...
#comment
ページ名: