'--------------------------------------
'Pick a Souse
'--------------------------------------
'oDL,oDRにピックした名前が返る
PickElement "","Pick a skeleton", "", oDL, iSelBtn
PickElement "","Pick a skeleton", "", oDR, iSelBtn
'oDL,oDRを直に次に使えなかった為名前を置き換える
oAA = oDL
oBB = oDR
'-------------------------------------------------------
'crieit_dialog
'------------------------------------------------------
'シーンルートにパラメータを作る。テキストにはいる部分を変数にしている。oAA,oBB
SelectObj "Scene_Root"
AddProp "Custom_parameter_list", , , "CustomPSet",oparm
SIAddCustomParameter "Scene_Root", "souse", siString,oAA , 0, 1, , 4, 0, 1
SIAddCustomParameter "Scene_Root", "souse_2", siString,oBB , 0, 1, , 4, 0, 1
'oparmは開くパラメーターの名前。siModal にするとＯＫボタンが出る。On Error Resume Nextは無くてもいいぽい？
On Error Resume Next
InspectObj oparm,,"crieit_dialog", siModal
'OKを押すと０が返るみたい。ＯＫを押すとパラメーターの値を取る
if Err.Number = 0 then
logMessage "OK押したね"
else
logMessage "Cansel押したね"
end if
'パラメーターの削除
DeleteObj oparm