----------------------------------------------------------------------------------------
-- Script Name: MonkeyTools------array_asteroidv1.0.ms
-- Version: v1.0
-- Started:       　　　 28 June 2013
-- Last Modified:  28 June 2013
-- Code by: Saori Yoshimoto
----------------------------------------------------------------------------------------
/*
6種類あるオブジェクトに任意のパーティクルIDの3point情報をコピー（配置）する。
*/



filePath = "F:/BSR4/shot/op\s016/c016/max/scripts/"
readFile = #("array_PflowID_hi_obj_plus02" )
objSets = #( $meteorite_Hi_A_003, $meteorite_Hi_B_003, $meteorite_Hi_C_003, $meteorite_Hi_D_004, $meteorite_Hi_D_005, $meteorite_Hi_E_003 )


for i = 1 to readFile.count do

(
open_dir = filePath + readFile[i] + ".txt"
file = openFile open_dir

p = 1
q = 1
while eof file != true do
(

readTXT = readLine file

if  readTXT == undefined then 
(
close file
exit

)else(
--print readTXT

newDmy = point()
newDmy.transform = $PFmeteo.getparticleTMByID (execute readTXT)

case q of (
1: (print "1"; newObj = instance objSets[1]; newObj.transform = newDmy.transform; newDmy.name = "Dmy_" +  newObj.name; newObj.parent = newDmy; newObj.wirecolor = color 176 26 26; q = 2 )
2: (print "2"; newObj = instance objSets[2]; newObj.transform = newDmy.transform; newDmy.name = "Dmy_" +  newObj.name; newObj.parent = newDmy; newObj.wirecolor = color 177 148 27; q = 3 )
3: (print "3"; newObj = instance objSets[3]; newObj.transform = newDmy.transform; newDmy.name = "Dmy_" +  newObj.name; newObj.parent = newDmy; newObj.wirecolor = color 88 177 27; q = 4 )
4: (print "4"; newObj = instance objSets[4]; newObj.transform = newDmy.transform; newDmy.name = "Dmy_" +  newObj.name; newObj.parent = newDmy; newObj.wirecolor = color 27 177 148; q = 5 )
5: (print "5"; newObj = instance objSets[5]; newObj.transform = newDmy.transform; newDmy.name = "Dmy_" +  newObj.name; newObj.parent = newDmy; newObj.wirecolor = color 28 89 177; q = 6 )
6: (print "6"; newObj = instance objSets[5]; newObj.transform = newDmy.transform; newDmy.name = "Dmy_" +  newObj.name; newObj.parent = newDmy; newObj.wirecolor = color 85 28 177; q = 1 )
)


)
p += 1
)

i += 1
)


--------------array_PflowID_hi_obj_plus02-------------

15
117
141
160
294
428
446
488
496
515
546
558
588
621
652
662
670
700
748
966
987
990
1079
1096
1097
1114
1150
1163
1248
1308
1324
1356
1365
1435
1490
1503
1517
1521
1566
1629
1694
1723
1821
1828
1932
1966