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

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

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

■20142 / inTopicNo.1) 　パイロット売買ショップインクル
  ▼■
□投稿者/ SeEd -(2007/07/14(Sat) 08:08:54) [ID:2jWxhHN9]

    ################################################/
    ## 清算 /
    ################################################/
    ショップ_清算処理:
    Local idx i j

    ## アイテムが選択されているかチェック
    If (ホールド総額 = 0) Then
    Call ショップ_メッセージ表示 "アイテムが選択されていません"
    Return

    ## 資金のチェック
    ElseIf ((資金 - ホールド総額) < 0) Then
    Call ショップ_メッセージ表示 "資金が足りません"
    Return
    Endif

    ## 購入確認
    If (全体設定["清算時確認"] = 1) Then
    Confirm "清算して宜しいですか？"
    If (選択 = 0) Then
    Return
    Endif
    Endif

    Call ショップ_メッセージ表示 "購入しました"
    If (全体設定["複数売買"] = 1) Then

    ForEach idx In ホールドリスト
    If (ホールドリスト[idx] = 0) Then
    Skip
    Endif

    ## ホールドリストで設定された件数アイテム入手
    For i = 1 To ホールドリスト[idx]

    If (商品リスト詳細[idx,"オプション"] = "ユニット") Then
    Unit idx Eval(商品リスト詳細[idx,"NUM"])
    ElseIf (商品リスト詳細[idx,"オプション"] = "パイロット") Then
    　　　　For j = 1 To 商品リスト詳細[idx,"パイロット詳細"]
    　　　　　　　　Item 商品リスト詳細[idx,Eval("パイロット詳細" & j)]
    Else
    Item idx
    Endif
    Next
    Unset ホールドリスト[idx]
    Next
    Else

    idx = ホールドリスト["選択アイテム"]
    If (商品リスト詳細[idx,"オプション"] = "ユニット") Then
    Unit idx Eval(商品リスト詳細[idx,"NUM"])
    ElseIf (商品リスト詳細[idx,"オプション"] = "パイロット") Then
    For j = 1 To 商品リスト詳細[idx,"パイロット詳細"]
    Item 商品リスト詳細[idx,Eval("パイロット詳細" & j)]
    Next
    Else
    Item idx
    Endif
    ホールドリスト["選択アイテム"] = ""
    Endif

    Money (ホールド総額 * -1)
    ホールド総額 = 0
    Call ショップ_資金表示
    Call ショップ_残金表示

    Return

    ################################################/
    ## 清算 /
    ################################################/
    ショップ_売却清算処理:
    Local idx i j

    ## アイテムが選択されているかチェック
    If (ホールド総額売却 = 0) Then
    Call ショップ_メッセージ表示 "アイテムが選択されていません"
    Return
    Endif

    ## 購入確認
    If (全体設定["清算時確認"] = 1) Then
    Confirm "清算して宜しいですか？"
    If (選択 = 0) Then
    Return
    Endif
    Endif

    Call ショップ_メッセージ表示 "売却しました"
    If (全体設定["複数売買"] = 1) Then

    ForEach idx In ホールドリスト売却
    If (ホールドリスト売却[idx] = 0) Then
    Skip
    Endif

    ## ホールドリストで設定された件数アイテム入手
    For i = 1 To ホールドリスト売却[idx]

    If (商品リスト詳細[idx,"オプション"] = "パイロット販売") Then
    For j = 1 To 商品リスト詳細[idx,"パイロット"]
    RemoveItem 商品リスト詳細[idx,Eval("パイロット内容" & j)]
    Next
    Else
    RemoveItem idx
    Endif
    Next

    売却リスト個数[idx] = 売却リスト個数[idx] - ホールドリスト売却[idx]
    Unset ホールドリスト売却[idx]
    Next
    Else

    idx = ホールドリスト売却["選択アイテム"]
    If (商品リスト詳細[idx,"オプション"] = "パイロット販売") Then
    For j = 1 To 商品リスト詳細[idx,"パイロット内容数"]
    Item 商品リスト詳細[idx,Eval("パイロット内容" & j)]
    Next
    Else
    Item idx
    Endif

    売却リスト個数[idx] = 売却リスト[idx] - 1
    ホールドリスト売却["選択アイテム"] = ""
    Endif

    Money ホールド総額売却
    ホールド総額売却 = 0
    Call ショップ_資金表示
    Call ショップ_残金表示

    Return



    とショップインクルをいじくってみたのですが。

    EndIFに対応するifが有りません。
    とか
    Nextに対応する・・・

    とか出るのですが。

    どうすればパイロットの売買ができるのでしょうか？
引用返信/返信 削除キー/
■20145 / inTopicNo.2) 　パッと見た感じですが
□投稿者/ 千奈 -(2007/07/14(Sat) 16:02:37) [ID:JK58Kupu]
    > ElseIf (商品リスト詳細[idx,"オプション"] = "パイロット") Then
    > 　　　　For j = 1 To 商品リスト詳細[idx,"パイロット詳細"]
    > 　　　　　　　　Item 商品リスト詳細[idx,Eval("パイロット詳細" & j)]
    > Else

    For j = 1 To 商品リスト詳細[idx,"パイロット詳細"]
    に対するNextが足りない気がします。


    If〜Endifに関してはちょっとわからないです。
引用返信/返信 削除キー/
■20146 / inTopicNo.3) 　Re[1]: パイロット売買ショップインクル
□投稿者/ Zauberrute -(2007/07/14(Sat) 16:14:15) [ID:PrxddAG3]
    　とりあえず、ぱっと見で分かる部分だけ。

    >## 購入確認
    >If (全体設定["清算時確認"] = 1) Then
    >Confirm "清算して宜しいですか？"
    >If (選択 = 0) Then
    >Return
    >Endif
    >Endif

    　最後の二つ並ぶEndIfの一方が余分のようです。…見つけられたのはこれだけですが。
    　それでは。

引用返信/返信 削除キー/
■20151 / inTopicNo.4) 　Re[2]: パイロット売買ショップインクル
□投稿者/ Zauberrute -(2007/07/14(Sat) 21:09:50) [ID:PrxddAG3]
    　先ほど指摘したEndIfですが、必要な部分のようです…
    　余計な指摘の上にミスまで重ねてしまい、申し訳ありませんでした。

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


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

このトピックに書きこむ

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

Pass/

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

- Child Tree -
- Antispam Version -