SRC質問掲示板Mk2
(現在 過去ログ3 を表示中)
HOME
HELP
新規作成
新着記事
トピック表示
検索
新着情報
過去ログ
[
最新記事及び返信フォームをトピックトップへ
]
[ トピック内全3記事(1-3 表示) ] <<
0
>>
■456
/ inTopicNo.1)
リストアップ
▼
■
□投稿者/ トッシュ
-(2001/11/18(Sun) 08:00:57)
はじめましてトッシュです。
今持っているユニット、アイテムを、Askの選択肢としてリストアップするにはどうすれば良いでしょうか?
アイテムショップのインクルードを見ても意味が解からなかったので・・・
どなたか教えて下さい。
では。
引用返信
/
返信
削除キー/
編集
削除
■457
/ inTopicNo.2)
Re[1]: リストアップ
▲
▼
■
□投稿者/ トッシュ
-(2001/11/18(Sun) 08:24:58)
即席で作ってみましたが、やっぱりうまくいきません。
どこが間違っているのでしょうか?
ForEach 味方 全て
所持ユニット[対象ユニット] = Info(ユニットデータ,対象ユニット,名称)
Next
Ask 所持ユニット さて? キャンセル可
ちなみに、動かないのはAskの方です。
選択肢のウィンドウが出ないようで・・・。
引用返信
/
返信
削除キー/
編集
削除
■461
/ inTopicNo.3)
Re[2]: リストアップ
▲
▼
■
□投稿者/ 幻魔の公子
@
-(2001/11/18(Sun) 11:52:17)
幻魔の公子です。
うーんと、それで動くような気はするんですが……インデックスを数字にしてみたらどうでしょう?
Set i 1
ForEach 味方 全て
Set 所持ユニット[i] Unit()
Incr i
Next
Ask 所持ユニット さて? キャンセル可
これで出来ませんか? 確か、これで以前動いた記憶があります。
アイテムですが、まずCountItem関数でアイテム数を調べ、その数だけ、Item関数で装備アイテムを確認していけばよろしいかと。
Set l 1
ForEach 味方 全て
If CountItem(Pilot()) != 0 Then
For i = 1 To CountItem(Pilot())
Set 所持アイテム[l] Item(Pilot().i)
Incr l
Next
Endif
Next
If CountItem(未装備) != 0 Then
For i = 1 To CountItem(未装備)
Set 所持アイテム[l] Item(未装備.i)
Incr l
Next
Endif
こんな感じですね。
それでは。
引用返信
/
返信
削除キー/
編集
削除
トピック内ページ移動 / <<
0
>>
このトピックに書きこむ
過去ログには書き込み不可
Pass/
HOME
HELP
新規作成
新着記事
トピック表示
検索
新着情報
過去ログ
-
Child Tree
-
-
Antispam Version
-