Звёздопад - Форум MMB

Страница 1 из 1 1
Модератор форума: as-master

Звёздопад

Serg

Дата: Суббота, 18 Апреля 2009, 20:26 | Сообщение # 1

Ветеран форума

Группа: Проверенные

Сообщений: 959

Репутация: 6

Награды: 8

Статус: Offline

Вот есть скрипт

Code

For Check=1 To Infinity
Check=Check+1
a=a+1
Number=RND(900)
If (a=650) Then
x=Number
i=i+1
image$='<Embedded>\image' + CHAR(i) + '.jpg'
ReplaceImage("Image","image$")
a=0
End
MoveObject("Image","x,a,")
If (i=6) Then
i=1
End
Next Check

Как можно улучшить его?
Нужно чтобы был эффект звездопада.
Вот пример чего хочу.

Добавлено (18 Апрель 2009, 17:56)
---------------------------------------------
ГГ,файл много весит,2 метра,невыкладывается

Добавлено (18 Апрель 2009, 20:26)
---------------------------------------------
Вот файл.
Пароль 123456789
http://www.sharemania.ru/0226742

Звёздопад

Страница 1 из 1
1