SRC質問掲示板Mk2
(現在 過去ログ17 を表示中)

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

[ 親記事をトピックトップへ ]

このトピックに書きこむ

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

■2989 / inTopicNo.1)  上手くいきました!
  
□投稿者/ 深那 優 -(2002/04/19(Fri) 18:35:05)
http://51038.com/users/tu/src/src.htm
    テクスさんありがとうございます。
    おかげで上手くいきました!
    リスト処理の関数って、今まで使い道が良く分からなかったので、その点でも、とても勉強になりました。
    また質問をすることがあると思うので、その時はまたよろしくお願いします。
解決済み!
引用返信/返信 削除キー/
■2983 / inTopicNo.2)  Re[3]: 大迷惑ですな…(−−;
□投稿者/ テクス -(2002/04/19(Fri) 05:04:02)
    編集するつもりが、2度も削除してるし…(−−;
    大失敗のお詫びに、作り直させていただきました。
    転載改変ご自由にどうぞ。
    何かのお役に立てば幸いです。
    では、いずれまた因果の彼方で…♪(鬱

    http://gatezelk.hoops.ne.jp/uriii.lzh


引用返信/返信 削除キー/
■2978 / inTopicNo.3)  アイテム売却機能の作り方
□投稿者/ 深那 優 -(2002/04/19(Fri) 01:12:54)
http://51038.com/users/tu/src/src.htm
    現在、お店のインクルードを作っているのですが、その中でアイテムを売却できるようにしたいんです。
    ……ですが、毎度の如く、なかなか上手くいきません。

    2954番の記事で、幻魔の公子さんに教えていただいた、Askコマンドを利用した全所持アイテムを表示させる方法を利用して表示させたダイアログの中から、売却したいアイテムを選択すると、アイテムを売却することが出来る。

    という風にしたいんですけど……

    UnSet BOG_Item
    Set ItemC 0
    ForEach 味方 全て
    For i = 1 To BOGC
    For a = 1 To CountItem(対象ユニットID )
    Set Seeker 対象ユニットID
    If Item(Seeker,a) = BOG[i] Then
    BOG_Item[Seeker,i] = BOG[i]
    Incr ItemC
    EndIf
    Next
    Next
    Next
    For a = 1 To CountItem(未装備)
    For i = 1 To BOGC
    Set Seeker 未装備
    If Item(Seeker,a) = BOG[i] Then
    BOG_Item[Seeker,i] = BOG[i]
    Incr ItemC
    EndIf
    Next
    Next
    Ask BOG_Item "売るものを選択してください"
    Switch 選択
    For i = 1 To ItemC
    If 選択 = BOG_Item[Seeker,i] Then
    Confirm 本当に売却してよろしいですか?
    If 選択 = 1 Then
    RemoveItem BOG_Item[Seeker,i]
    Incr 資金 BOG_COST[i]
    売却後会話
    Else
    売却処理
    EndIf
    EndIf
    Next
    EndSw
    Return

    こんな感じに作ってみたんですけど、ダメでした。
    方法が分かる方がいらっしゃいましたら、ご助言お願いいたします。
引用返信/返信 削除キー/



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

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

- Child Tree -
- Antispam Version -