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

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

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

■456 / inTopicNo.1) 　リストアップ
  ▼■
□投稿者/ トッシュ -(2001/11/18(Sun) 08:00:57)
    はじめましてトッシュです。
    今持っているユニット、アイテムを、Ａｓｋの選択肢としてリストアップするにはどうすれば良いでしょうか？
    アイテムショップのインクルードを見ても意味が解からなかったので･･･
    どなたか教えて下さい。

    では。
引用返信/返信 削除キー/
■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 新規作成 新着記事 トピック表示 検索 掲示板新着情報RSS配信新着情報 過去ログ

- Child Tree -
- Antispam Version -