| 2007/07/15(Sun) 15:29:08 編集(投稿者)
どうも、リューです。 今回、資金を出してユニットの地形適応をAからSに上昇させるインクルードを作ったのですが、うまく動作してくれません
===以下、インクル===
プロローグ: UnSet ユニット名 Cls show
ForEach 味方 待機 If Unit() <> "" Then ユニット名[Unit()] = Nickname(Unit()) Endif Next
ユニットリスト:
Cls Refresh Ask ユニット名 "ユニットを選択してください(右クリックでインターミッションへ)" キャンセル可
If 選択 = "" Then Continue Else EndIf 枠描画Mk-2 表描画 Call 強化開始 Continue
表描画:
Font 12pt RGB(0,0,0) PaintString 50 40 "上昇させる地形を選んでください" PaintString 50 60 "現在の資金 $(資金)" PaintString 50 90 "地形" PaintString 300 90 "必要資金"
Local C_List CP C_List[1] = 空適応上昇 CP[1] = 空適応をSに上昇 C_COST[1] = 12000
C_List[2] = 陸適応上昇 CP[2] = 陸適応をSに上昇 C_COST[2] = 12000
C_List[3] = 海適応上昇 CP[3] = 海適応をSに上昇 C_COST[3] = 9000
C_List[4] = 宇宙適応上昇 CP[4] = 宇宙適応をSに上昇 C_COST[4] = 12000
C_List[5] = ユニット選択へ戻る CP[5] = ユニット選択へ戻る C_List[6] = インターミッションへ戻る CP[6] = インターミッションへ戻る
BaseY = 120
For i = 1 To 6 PaintString 50 0 C_List[i] PaintString 300 0 C_COST[i] HotPoint i 50 0 300 TextHeight(C_List[i]) CP[i] BaseY = BaseY + TextHeight(C_List[i]) Next BaseY = 0 Return
強化開始:
Do Wait Click If 選択 <> "" Then Break EndIf
Loop While 1
Switch 選択
Case 1 If 資金 < 12000 Then Talk システム 資金が足りません End Else Item 空S Equip 対象ユニットID 空S 資金 = 資金 - 12000 Talk システム 強化されました End EndIf
Case 2 If 資金 < 12000 Then Talk システム 資金が足りません End Else Item 陸S Equip 対象ユニットID 陸S 資金 = 資金 - 12000 Talk システム 強化されました End EndIf
Case 3 If 資金 < 9000 Then Talk システム 資金が足りません End Else Item 海S Equip 対象ユニットID 海S 資金 = 資金 - 9000 Talk システム 強化されました End EndIf
Case 4 If 資金 < 12000 Then Talk システム 資金が足りません End Else Item 宇宙S Equip 対象ユニットID 宇宙S 資金 = 資金 - 12000 Talk システム 強化されました End EndIf
Case 5 Escape ClearPicture ClearObj Goto ユニットリスト
Case 6 Continue
EndSw ClearPicture ClearObj PaintPicture Event\夜.jpg - - 枠描画Mk-2 表描画 Goto 強化開始 Exit
#===============================================================================================
枠描画Mk-2: Line 30 30 451 465 RGB(230, 200, 100) BF F_Line 横 30 30 453 30 F_Line 縦 30 30 30 465 F_Line 横 30 463 453 463 F_Line 縦 451 30 451 465
F_Line 横 30 80 453 80
Return
#================================================================================================
F_Line: Switch Args(1) Case 縦 Line (Args(2)) Args(3) (Args(4)) Args(5) #B46400 Line (Args(2) + 1) Args(3) (Args(4) + 1) Args(5) #8C3C00 Line (Args(2) + 2) Args(3) (Args(4) + 2) Args(5) #641400 Case 横 Line Args(2) (Args(3)) Args(4) (Args(5)) #B46400 Line Args(2) (Args(3) + 1) Args(4) (Args(5) + 1) #8C3C00 Line Args(2) (Args(3) + 2) Args(4) (Args(5) + 2) #641400 EndSw Return
===ここまで===
Info関数を使って調べてみたところ、アイテムは装備されているようなのですが、ユニットの能力に反映されないのです。
===以下、アイテムデータ===
空S 空S, そらえす, 汎用, 非表示 特殊能力 地形適応固定変更=5 0 0 0 0, 0, 0, 0, 0
陸S 陸S, りくえす, 汎用, 非表示 特殊能力 地形適応固定変更=0 5 0 0 0, 0, 0, 0, 0
海S 海S, うみえす, 汎用, 非表示 特殊能力 地形適応固定変更=0 0 5 0 0, 0, 0, 0, 0
宇宙S 宇宙S, うちゅうえす, 汎用, 非表示 特殊能力 地形適応固定変更=0 0 0 5 0, 0, 0, 0, 0
===ここまで===
書式ミスでしょうか、それともバグでしょうか? よろしくお願いします ちなみに、インクルードは 星夜 雪様のパイロット養成インクルードを基に作成させていただいております
|