Код:
PERL:
-----------------
#!usr/bin/perl
print "content-type: text/html\n\n";
@koordX #массив с коорд по Х
@koordY #массив с коорд по Y
print "b=1&kol=",@koordX.lenght; #b=1 - ненужная переменная:)
#kol - кол-во элементов в koordX
for($i=0;$i<@koordX.length;$i++)
{print "&tx$i=@koordX[$i]&ty$i=@koordY[$i]";}
#т.е. примерно: &tx0=15&ty0=30&tx1=45&ty1=33
#т.е. координаты 1 точки по Х & коорд 1 точки по Y & коорд 2 точки по Х и т.д.
print "&e=1"; # конец передачи
-----------------
делай loadVariables во флэше, а там размещай:
FLASH:
-----------------
for (i=0;i<=kol;i++)
{
attachMovie("to4ka","to4ka"+i,i+10);
setProperty(eval("to4ka"+i),_x,eval("tx"+i));
setProperty(eval("to4ka"+i),_y,eval("ty"+i));
}
-----------------