Программа "Звездное небо" (10 мин)
Эта программа похожа на программу создания леса.
Изменим программу с роботом (эти строки нужно добавить после строк текстурирования). Загружаем спрайт:
star = LOADSPRITE("C:\media\star.jpg")
Увеличиваем его размеры в 3 раза:
SCALESPRITE star, 3, 3
Создаем цикл, размещающий случайным образом 100 спрайтов над лесом:
FOR x = 1 TO 100
star2 = COPYENTITY(star)
POSITIONENTITY star2, RND(-120, 120), RND(20, 50), RND(1, 240)
NEXT