間違ったオブジャクトやタイプの違うものを選ぶとエラーの元となる。
だから適切なオブジャクトや種類のものを選別する必要がある。
条件判定を行なう場合は以下のようなステートメントを使用します。
if <条件> then
<条件を満たすときの処理内容>
else
<条件を満たさないときの処理内容>
end if
また、判定条件を更に追加する場合は以下のように記述することもできます。
if <条件A> then
<条件Aを満たすときの処理内容>
else if <条件Aを満たさないものに対する条件B> then
<条件Bを満たすときの処理内容>
else
<条件A・Bともに満たさないときの処理内容>
end if
end if
この場合、if または else if の数だけ end if が必要になります。
選んだものがライトでなおかつインフィニットライトの時のみ実行されるスクリプト。そうでないときはメッセージボックスを表示する。
これはスクリプトの一部の文章
'---------------------------------------------
' Check Object Type
'---------------------------------------------
'サブプロシージャCheckObjectTypeの宣言
Sub CheckObjectType
’もしoDL（選んだもの）がライトだったらCheckLightTypeを実行
If oDL.Type = "light" then
CheckLightType
’違かったらメッセージボックスを表示
Else Msgbox "Please Select a Light Object."
End If
End Sub
'---------------------------------------------
' Check Light Type
'---------------------------------------------
'サブプロシージャ"CheckLightType"の宣言
Sub CheckLightType
'ライトタイプが infinit であるときサブプロシージャ CreateDirLight を実行。１がインフィニットライトを示す
If oDL.OGLLight.Type = 1 then
CreateDirLight
'ライトタイプが infinit でないとき、警告メッセージ表示
Else Msgbox "Please Select a Infinite Light."
End If
End Sub