Попробуй рендерить только те звёзды которые на экране.
Делается это так:
Для начала нужна функция. Вставляем её куданибуть в конец сорца.
Function RectInScreen:int(x:Float, y:Float, w:Float, h:Float)
Local x2:Float = GetScrX(x + w / 2.0)
Local y2:Float = GetScrY(y + h / 2.0)
Local x3:Float = GetScrX(x - w / 2.0)
Local y3:Float = GetScrY(y - h / 2.0)
If (x2 >= 0) And (x3 <= GraphicsWidth()) And (y2 >= 0) And (y3 <= GraphicsHeight()) Then
Return True
Else
Return False
EndIf
EndFunction
Дальше где идёт DrawImage звезды пишем:
IF RectInScreen(x,y,w,h) then DrawImage star,x,y
x - х звезды
y - y звезды
w - её ширина
h - её высота
И получаем прирост FPS.
Косательно управления, я даже не знаю как лучше сделать. Но то, что есть меня както немного скарёжило.