ＳＲＣ質問掲示板Mk2 [One Topic All View / Re[6]: インクルードのミス / Page: 0]

ＳＲＣ質問掲示板Mk2
(現在過去ログ124 を表示中)

[ 最新記事及び返信フォームをトピックトップへ ]

■21609 / inTopicNo.1)

　インクルードのミス

□投稿者/ 猫の知らせ -(2009/06/26(Fri) 09:00:28) [ID:MwMHSIkI]

はじめまして
今作っているインクルードにて途中途中分からない箇所があるので指摘をお願いします

内容としてはバトルの開始前にチーム１～２の味方を登録し
マップコマンドにて入れ替えが可能になるというものです

とりあえず今は味方を全て下げてパーティー２のキャラを出すことには成功しました
しかしこのパーティー１と２のキャラを戦闘開始前に登録し、戦闘中に切り替える方法

また、これは5人いるときの記述ですが5人以下の場合の処理がどうにもわかりません
お願いします

マップコマンドローテーション (味方数 > 5):
#片方のチームを撤退させもう片方のチームを出撃させる
confirm パーティーチェンジをしますか？
if 選択 = 1 then
#味方の位置を記録
ForEach 味方パーティー１[1]
PrevX[対象ユニットＩＤ] = X()
PrevY[対象ユニットＩＤ] = Y()
Next
PlaySound Reload.wav

################パーティー１####################
#パーティー２のチームが出撃されているのならこちらを表示させたい
DrawWidth 1
Color RGB(0, 0, 0)
Line 260 0 480 480 BF
Font 14pt Ｐ明朝 RGB(255, 255, 255) Regular Italic
PaintString 280 40 †パーティー１のキャラ†

#パーティー２に登録しているユニットを表示
paintpicture パーティー１[1] 290 80 - - 保持
PaintString 360 80 $(パーティー１[1])

paintpicture パーティー１[2] 290 150 - - 保持
PaintString 360 150 $(パーティー１[2])

paintpicture パーティー１[3] 290 220 - - 保持
PaintString 360 220 $(パーティー１[3])

paintpicture パーティー１[4] 290 290 - - 保持
PaintString 360 290 $(パーティー１[4])

paintpicture パーティー１[5] 290 360 - - 保持
PaintString 360 360 $(パーティー１[5])

confirm これらのチームと入れ替えますか？
if 選択 = 1 then

escape 味方

Launch パーティー１[1] PrevX[対象ユニットＩＤ] PrevY[対象ユニットＩＤ]
Launch パーティー１[2] X(パーティー１[1]) Y(パーティー１[1])
Launch パーティー１[3] X(パーティー１[1]) Y(パーティー１[1])
Launch パーティー１[4] X(パーティー１[1]) Y(パーティー１[1])
Launch パーティー１[5] X(パーティー１[1]) Y(パーティー１[1])
refresh

endif
#出撃中の味方を撤退
PlaySound Whiz.wav
ForEach 味方パーティー１
escape 味方
Next
endif
################################################
################パーティー２####################
DrawWidth 1
Color RGB(0, 0, 0)
Line 260 0 480 480 BF
Font 14pt Ｐ明朝 RGB(255, 255, 255) Regular Italic
PaintString 280 40 †パーティー２のキャラ†

#パーティー２に登録しているユニットを表示
paintpicture パーティー２[1] 290 80 - - 保持
PaintString 360 80 $(パーティー２[1])

paintpicture パーティー２[2] 290 150 - - 保持
PaintString 360 150 $(パーティー２[2])

paintpicture パーティー２[3] 290 220 - - 保持
PaintString 360 220 $(パーティー２[3])

paintpicture パーティー２[4] 290 290 - - 保持
PaintString 360 290 $(パーティー２[4])

paintpicture パーティー２[5] 290 360 - - 保持
PaintString 360 360 $(パーティー２[5])

confirm これらのチームと入れ替えますか？
if 選択 = 1 then

escape 味方

For i = 1 To 1
Launch パーティー２[1] PrevX[対象ユニットＩＤ] PrevY[対象ユニットＩＤ]
Launch パーティー２[2] X(パーティー２[1]) Y(パーティー２[1])
Launch パーティー２[3] X(パーティー２[1]) Y(パーティー２[1])
Launch パーティー２[4] X(パーティー２[1]) Y(パーティー２[1])
Launch パーティー２[5] X(パーティー２[1]) Y(パーティー２[1])
refresh
next
endif
#出撃中の味方を撤退
PlaySound Whiz.wav
ForEach 味方パーティー１
escape 味方
Next
endif
######################################################
redraw
exit

引用返信/返信削除キー/

■21615 / inTopicNo.2)

　Re[1]: インクルードのミス

▲▼■

□投稿者/ Ｍｒ -(2009/06/27(Sat) 10:57:16) [ID:i5S9sUuV]

＞#パーティー２のチームが出撃されているのならこちらを表示させたい
これは、変数で「出撃中パーティ」を作って管理するといいでしょう。

＞また、これは5人いるときの記述ですが5人以下の場合の処理がどうにもわかりません
配列の要素数を返す「Count関数」を使い、要素数でループ回数を調整してはどうでしょうか。

引用返信/返信削除キー/

■21622 / inTopicNo.3)

　Re[2]: インクルードのミス

▲▼■

□投稿者/ 猫の知らせ -(2009/06/28(Sun) 21:59:11) [ID:MwMHSIkI]

Ｍｒさんコメント遅れました

指摘されたとおりに直していったところ上手く動きました
直したものがしたです
マップコマンドローテーション:
#片方のチームを撤退させもう片方のチームを出撃させる

confirm パーティーチェンジをしますか？
if 選択 = 1 then
#味方の位置を記録
ForEach 味方出撃
PrevX[対象ユニットＩＤ] = X()
PrevY[対象ユニットＩＤ] = Y()
Next
PlaySound Reload.wav
#######################################################
#もしパーティー１が出てないなら
if パーティー１出撃 = 0 then
DrawWidth 1
Color RGB(0, 0, 0)
Line 260 0 480 480 BF
Font 14pt Ｐ明朝 RGB(255, 255, 255) Regular Italic
PaintString 280 40 †パーティー１のキャラ†

#パーティー２に登録しているユニットを表示
paintpicture パーティー１[1] 290 80 - - 保持
PaintString 360 80 $(パーティー１[1])

if パーティー１[2] then
paintpicture パーティー１[2] 290 150 - - 保持
PaintString 360 150 $(パーティー１[2])

elseif パーティー１[3] then
paintpicture パーティー１[3] 290 220 - - 保持
PaintString 360 220 $(パーティー１[3])

elseif パーティー１[4] then
paintpicture パーティー１[4] 290 290 - - 保持
PaintString 360 290 $(パーティー１[4])

elseif パーティー１[5] then
paintpicture パーティー１[5] 290 360 - - 保持
PaintString 360 360 $(パーティー１[5])

endif
######################################################

#######################################################
#もしパーティー１が出てるなら
elseif パーティー１出撃 = 1 then
DrawWidth 1
Color RGB(0, 0, 0)
Line 260 0 480 480 BF
Font 14pt Ｐ明朝 RGB(255, 255, 255) Regular Italic
PaintString 280 40 †パーティー２のキャラ†

#パーティー２に登録しているユニットを表示
paintpicture パーティー２[1] 290 80 - - 保持
PaintString 360 80 $(パーティー２[1])

paintpicture パーティー２[2] 290 150 - - 保持
PaintString 360 150 $(パーティー２[2])

paintpicture パーティー２[3] 290 220 - - 保持
PaintString 360 220 $(パーティー２[3])

paintpicture パーティー２[4] 290 290 - - 保持
PaintString 360 290 $(パーティー２[4])

paintpicture パーティー２[5] 290 360 - - 保持
PaintString 360 360 $(パーティー２[5])

endif
######################################################
confirm これらのチームと入れ替えますか？
if 選択 = 1 then
redraw
wait 4
escape 味方

if パーティー１出撃 = 0 then
Launch パーティー１[1] PrevX[対象ユニットＩＤ] PrevY[対象ユニットＩＤ]

if パーティー１[2] then
Launch パーティー１[2] X(パーティー１[1]) Y(パーティー１[1])

elseif パーティー１[3] then
Launch パーティー１[3] X(パーティー１[1]) Y(パーティー１[1])

elseif パーティー１[4] then
Launch パーティー１[4] X(パーティー１[1]) Y(パーティー１[1])

elseif パーティー１[5] then
Launch パーティー１[5] X(パーティー１[1]) Y(パーティー１[1])

refresh
endif
set パーティー１出撃 1

elseif パーティー１出撃 = 1 then
Launch パーティー２[1] PrevX[対象ユニットＩＤ] PrevY[対象ユニットＩＤ]
Launch パーティー２[2] X(パーティー２[1]) Y(パーティー２[1])
Launch パーティー２[3] X(パーティー２[1]) Y(パーティー２[1])
Launch パーティー２[4] X(パーティー２[1]) Y(パーティー２[1])
Launch パーティー２[5] X(パーティー２[1]) Y(パーティー２[1])
refresh
#next

set パーティー１出撃 0

endif
#出撃中の味方を撤退
PlaySound Whiz.wav
ForEach 味方パーティー１
デモアタック対象ユニットＩＤ対象ユニットＩＤ隠れ身発動
escape 味方
Next

endif
endif
redraw

exit

それで次の質問なのですが
このパーティー１の１人目～５人目
パーティー２の１人目～５人目を選んでもらうにはどうすれば良いのでしょうか？

ざっくばらんに書いてみたのですがそれでは動くはずも無く困っています

#味方一覧という変数を作成
set 味方一覧
#味方一覧というのは味方の数
味方一覧 = 味方数
#選んでもらう
ask 味方一覧パーティー１の味方を選んでください
ask 終了
switch 選択

case 1
set パーティー１[1] $(選択)
$(選択) = Info(ユニット,(),愛称)
incr 味方一覧[$(選択)] -1

case 2
set パーティー１[2] $(選択)
$(選択) = Info(ユニット,(),愛称)
incr 味方一覧[$(選択)] -1

case 3
set パーティー１[3] $(選択)
$(選択) = Info(ユニット,(),愛称)
incr 味方一覧[$(選択)] -1

case 4
set パーティー１[4] $(選択)
$(選択) = Info(ユニット,(),愛称)
incr 味方一覧[$(選択)] -1

case 5
set パーティー１[5] $(選択)
$(選択) = Info(ユニット,(),愛称)
incr 味方一覧[$(選択)] -1

endsw

#今度はパーティー２のキャラ
ask 味方一覧パーティー１の味方を選んでください
ask 終了
switch 選択

case 1
set パーティー２[1] $(選択)
$(選択) = Info(ユニット,(),愛称)
incr 味方一覧[$(選択)] -1

case 2
set パーティー２[2] $(選択)
$(選択) = Info(ユニット,(),愛称)
incr 味方一覧[$(選択)] -1

case 3
set パーティー２[3] $(選択)
$(選択) = Info(ユニット,(),愛称)
incr 味方一覧[$(選択)] -1

case 4
set パーティー２[4] $(選択)
$(選択) = Info(ユニット,(),愛称)
incr 味方一覧[$(選択)] -1

case 5
set パーティー２[5] $(選択)
$(選択) = Info(ユニット,(),愛称)
incr 味方一覧[$(選択)] -1

endsw

引用返信/返信削除キー/

■21624 / inTopicNo.4)

　Re[3]: インクルードのミス

▲▼■

□投稿者/ Ｍｒ -(2009/06/29(Mon) 09:23:19) [ID:LAfz38T0]

想定している動作がつかめないのですが、
パーティを作成するのが上手くいかないのですか？

「５人選ばせる」には、５人選択するまで抜けられないループを作って、
「５人選択する」「もう選べるユニットがいない」「プレイヤーによる選択終了」のいずれかの条件を満たした状態でループを抜ければいいでしょう。

ループ開始（５回）
　Askでユニットを選択させる
　選択に応じて処理
　　ユニットが選択されたらパーティに追加
　　選択がキャンセルされたら強制ループ抜け
　残り０ユニットなら強制ループ抜け
ループ

イメージとしてはこんな感じです。
例なので荒く造ってありますので、必要に応じて丁寧に修正してみてください。
（「これでいい」の選択終了用選択肢を追加したりとか）

引用返信/返信削除キー/

■21625 / inTopicNo.5)

　Re[3]: インクルードのミス

▲▼■

□投稿者/ 中箱 -(2009/06/29(Mon) 13:30:00) [ID:sONr1euU]

＞ざっくばらんに書いてみたのですがそれでは動くはずも無く困っています

提示されたものを見る限りですが、闇雲に動きすぎな気がします。

Mrさんが以前(No21485で)、他の質問に対して書かれたものから抜粋気味の引用ですが

>完成を急がないで、順番を追って作業した方がいいと思いますよ。
>私は、大体以下の様にして作業しています。
>これを端折ったものは自分でも意味不明なものに仕上がります。

>１．実現したいことをできるだけ言葉で書いてみる
>２．どうやって実現するのか、小分けにして考えてみる
>３．実際にコマンドを打っていく

これを実践してみてはどうでしょうか。

現在の猫の知らせさんは、上の１．の段階を飛ばして３に突撃し、まんまと迷子予備軍になってる感じがします。

それと、

　配列の使い方が分からないのであれば、調べながら試しまくったり、「配列の使い方について」の質問をする。
　Askコマンドがを良くわかっていないのであれば、自分の実現させたいことから一度離れ、単純なものでAskコマンドを使う練習をする。

こういったことを怠ってコマンドを使おうとしていませんか？

コマンドに関する知識不足を放置したままで無理やり進もうとするのではなく
(質問するなり色々試すなりして)足りていない部分を解決してから具体的なコマンドを書いていかないと、まず上手くいきません。

コマンドの基本的な使い方が理解できていない状態で、
それらを複雑に組み合わせたものを作ろうとしてもなかなかちゃんと動くものはできませんし
たまたま動く(ように見える)ものが出来ても、様々なバグが潜んでいるかもしれません。
いざバグが出た時にはその修正のままなりませんし、どんなバグが起こるかの事前の予想も難しくなります。良いことは一つもありません。
応用をしたいのであればまず基本から。急がば回れです。

頑張って、ください
では

引用返信/返信削除キー/

■21626 / inTopicNo.6)

　Re[4]: インクルードのミス

▲▼■

□投稿者/ 猫の知らせ -(2009/06/30(Tue) 22:24:41) [ID:MwMHSIkI]

おふた方のコメントを参考に作ってみたのですがask部分が動作せず
混乱しています大変わがままだと思いますが行程ではなく式、つまり解を
掲示してもらえないでしょうか

キャラ選択:
#パーティー１の人数
Set Party_1 0
#パーティー２の人数
set Party_2 0
#味方全ての数
set y 0
ForEach 味方全て
incr y
Next
#選んだキャラの総数が５になるまで繰り返す
#この部分は表示されず飛ばされる
For i = 1 To 5
ask y パーティー１の味方を選んでくださいキャンセル可拡大連続表示
ask 終了

switch y

case ○
#パーティー１を増やす
incr パーティー１[Args(1)] 1
#味方総数を減らす
incr y -1
endsw

If n = 5 Then
#ループを終了
Break
EndIf
Next

exit

引用返信/返信削除キー/

■21627 / inTopicNo.7)

　Re[5]: インクルードのミス

▲▼■

□投稿者/ 中箱 -(2009/07/01(Wed) 00:42:42) [ID:sONr1euU]

2009/07/01(Wed) 00:55:48 編集(投稿者)

＞おふた方のコメントを参考に作ってみたのですがask部分が動作せず混乱しています

作るよりも先に、言葉で書いてみる所から始めたらどうか
…という内容のレスをしたつもりだったのですが。

その部分については一切参考にならなかったようで、割としょんぼりです。

＞行程ではなく式、つまり解を掲示してもらえないでしょうか

全く動作テストをしていないのですが、例えばこんな感じでしょうか。
(エラー出したり動かなかったりしたら直しますので言って下さい。出来るだけ詳しく。言葉で)

また、
解を出すためには、解くべき問題が明確にされている必要があります。
今回は、具体的にどんな変数にどんな情報が入っていてほしいとか、どんな順番でプレイヤーに操作してもらうか、など本来イベントファイルを書くために必要不可欠な情報が欠けているため
これでは、猫の知らせさんが欲しい機能には足りないものになっているでしょう。

キャラ選択:
Foreach 味方全て
　候補[対象ユニットＩＤ] = 対象ユニットＩＤ
next
Unset パーティー１
Unset パーティー2
Local i
For i = 1 to 5
　ask 候補パーティー１の味方を選んでください
　パーティー１[i] = 選択
　Unset 候補[選択]
　If Count(候補) = 0 Then
　　Unset 候補
　　Exit
　Endif
Next
For i = 1 to 5
　ask 候補パーティー２の味方を選んでください
　パーティー2[i] = 選択
　Unset 候補[選択]
　If Count(候補) = 0 Then
　　Unset 候補
　　Exit
　Endif
Next
Unset 候補
Exit

また、これを利用したシナリオをもしも自分以外の誰かに公開する前には、
配列について、askコマンドについて、ForやDoコマンドによるループについて、
などをある程度理解し、
どのような処理を行っているのかを把握した上で公開して欲しいな、と。プレイする側として

引用返信/返信削除キー/

■21628 / inTopicNo.8)

　Re[6]: インクルードのミス

▲▼■

□投稿者/ 猫の知らせ -(2009/07/02(Thu) 17:15:47) [ID:MwMHSIkI]

中箱さん

ありがとうございます。

それと生意気言ってすみませんでした。

解決済み!

引用返信/返信削除キー/

トピック内ページ移動 / << 0 >>

このトピックに書きこむ

過去ログには書き込み不可

HOME HELP 新規作成新着記事トピック表示検索新着情報過去ログ

- Child Tree -
- Antispam Version -