Форум
Написать нам
  • Страница 1 из 1
  • 1
Модератор форума: as-master  
Одновременное передвижение нескольких объектов
toizyДата: Суббота, 07 Апреля 2007, 13:16 | Сообщение # 1
Студийная субстанция
Группа: Администраторы
Сообщений: 2309
Репутация: 29
Награды: 12
Статус: Offline
Вопрос не такой простой, как может показаться на первый взгляд. Ведь если для каждого объекта прописать, например, команду MoveTo(), то пока не передвинется первый объект, не начнется передвижение второго и остальных. Ниже приведен скрипт для одновременного передвижения четырех прямоугольников из центра окна, где они соприкасались углами, к углам этого окна.

Code
For i=0 To 25
   i=i*4
   MoveObject("4","150+i,150+i,")
   MoveObject("3","150-w-i,150+i,")
   MoveObject("2","150+i,150-h-i,")
   MoveObject("1","150-w-i,150-h -i,")
   Pause("5")
Next i

I - это переменная, значение которой изменяется пошагово от 0 до 25 (например). Здесь i=i*4 сделано для того, чтобы ускорить раздвигание объектов (произведено умножение на 4, то есть объекты будут раздвинуты на 100 точек с шагом в 4 точки). Для этого же выбрано малым значение Pause("5").

Но самое главное - если объекты раздвигаются из точки с координатами х=150 и y=150, нужно учесть высоту и ширину этих объектов. Поэтому в скрипт введены величины w и h - ширина и высота объектов соответственно (имеется в виду, что все объекты одинаковые). При этом объект 1 - левый верхний, 2 - правый верхний, 3 - левый нижний, 4 - правый нижний.


Жизнь оказалась не такой уж и забавной, как поначалу...
 
  • Страница 1 из 1
  • 1
Поиск: