| 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 対象ユニットＩＤ 空S
資金 = 資金 - 12000
Talk システム
強化されました
End
EndIf
Case 2
If 資金 < 12000 Then
Talk システム
資金が足りません
End
Else
Item 陸S
Equip 対象ユニットＩＤ 陸S
資金 = 資金 - 12000
Talk システム
強化されました
End
EndIf
Case 3
If 資金 < 9000 Then
Talk システム
資金が足りません
End
Else
Item 海S
Equip 対象ユニットＩＤ 海S
資金 = 資金 - 9000
Talk システム
強化されました
End
EndIf
Case 4
If 資金 < 12000 Then
Talk システム
資金が足りません
End
Else
Item 宇宙S
Equip 対象ユニットＩＤ 宇宙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
===ここまで===
書式ミスでしょうか、それともバグでしょうか？
よろしくお願いします
ちなみに、インクルードは 星夜 雪様のパイロット養成インクルードを基に作成させていただいております
|
新着情報