Ну Вроде работает, хотя я задам ещё три вопроса и надеюсь меню я доделпю сам.
1. Как стереть стандартный курсор. А то он закрывает мой.
2. Курсор двигается рывкамию Как исправить.
3. Задумал звёзды сделать анемированые, но не получается их размножить: У меня экран 800 на 600, а картинка 400 на 300, а ещё это должно двиготся вниз.
Вот код:
;==================================================================
; Star Trash
; Космическая стрелялка. Дата начало работы 27.12.06
;=================================================
Graphics 800,600,32,2
;Фон меню
img=LoadImage("data/menu/galaxi.jpg")
DrawImage img ,0,0 ; Позиция
;звёзы
star=LoadImage("Data/menu/fon.png")
MaskImage star, 0,0,0
TileImage star ;размножение звёзд
;Логотип
Logo=LoadImage("data/menu/logo.bmp")
MaskImage Logo ,0,0,0 ; Маска
;DrawImage Logo ,100,50 ; Позиция
;Музыка
sam=PlayMusic("data/sound/menu.mp3") ;загрузка музыки
;курсор
Global curs=LoadImage("data/menu/cursor.bmp");Загруска курсора
;цикл
Repeat
Cls()
DrawImage(img, 0, 0);Позиция галактики
DrawImage(logo, 100,50);позиция логотипа
DrawImage (star ,0,0 ); Позиция звёзд
DrawImage(curs, MouseX(), MouseY());Позиция Курсора
Flip()
;----------------------------
Until KeyDown(1)
Вот медиа: