| こんにちは、烈です。返信、そしてアドバイスありがとうございます。 水間さんの助言どおりを参考にさせてもらい、
地形適応修正:
Switch Area(Args(1))
Case 空中 If Mid(Info(ユニット,Args(1),地形適応),1,1) = S Then set 修正値 1.1 ElseIf Mid(Info(ユニット,Args(1),地形適応),1,1) = A Then set 修正値 1.0 ElseIf Mid(Info(ユニット,Args(1),地形適応),1,1) = B Then set 修正値 0.9 ElseIf Mid(Info(ユニット,Args(1),地形適応),1,1) = C Then set 修正値 0.8 ElseIf Mid(Info(ユニット,Args(1),地形適応),1,1) = D Then set 修正値 0.7 Else set 修正値 0 EndIf
Case 地上 水上 If Mid(Info(ユニット,Args(1),地形適応),2,1) = S Then set 修正値 1.1 ElseIf Mid(Info(ユニット,Args(1),地形適応),2,1) = A Then set 修正値 1.0 ElseIf Mid(Info(ユニット,Args(1),地形適応),2,1) = B Then set 修正値 0.9 ElseIf Mid(Info(ユニット,Args(1),地形適応),2,1) = C Then set 修正値 0.8 ElseIf Mid(Info(ユニット,Args(1),地形適応),2,1) = D Then set 修正値 0.7 Else set 修正値 0 EndIf
Case 水中 If Mid(Info(ユニット,Args(1),地形適応),3,1) = S Then set 修正値 1.1 ElseIf Mid(Info(ユニット,Args(1),地形適応),3,1) = A Then set 修正値 1.0 ElseIf Mid(Info(ユニット,Args(1),地形適応),3,1) = B Then set 修正値 0.9 ElseIf Mid(Info(ユニット,Args(1),地形適応),3,1) = C Then set 修正値 0.8 ElseIf Mid(Info(ユニット,Args(1),地形適応),3,1) = D Then set 修正値 0.7 Else set 修正値 0 EndIf
Case 宇宙 If Mid(Info(ユニット,Args(1),地形適応),4,1) = S Then set 修正値 1.1 ElseIf Mid(Info(ユニット,Args(1),地形適応),4,1) = A Then set 修正値 1.0 ElseIf Mid(Info(ユニット,Args(1),地形適応),4,1) = B Then set 修正値 0.9 ElseIf Mid(Info(ユニット,Args(1),地形適応),4,1) = C Then set 修正値 0.8 ElseIf Mid(Info(ユニット,Args(1),地形適応),4,1) = D Then set 修正値 0.7 Else set 修正値 0 EndIf EndSw
Return 修正値
とすると上手くできました。 これも水間さんのアドバイスのおかげです。 とても親切なアドバイスありがとうございました。
|