Тема: Курсор
Показать сообщение отдельно
Старый 28.12.2006, 17:58   #1
Atomikc
Бывалый
 
Регистрация: 14.12.2006
Сообщений: 811
Написано 93 полезных сообщений
(для 257 пользователей)
Курсор

Вот сижу и думаю. Как сделать нормальный рабочий курсор.
Вот код, и один фиг неработает. Помогите плиз


Graphics 800,600,32,2

;курсор

Global curs=LoadImage("data/menu/cursor.bmp")
MidHandle curs

Function curs_Update()


End Function

;Фон меню
img=LoadImage("data/menu/galaxi.jpg")
DrawImage img ,0,0 ; Позиция

;Логотип
Logo=LoadImage("data/menu/logo.bmp")
MaskImage Logo ,0,0,0 ; Маска
DrawImage Logo ,100,50 ; Позиция


;Музыка
sam =LoadSound ("data/sound/menu.mp3") ;загрузка музыки
PlaySound sam; Старт музыки

While Not KeyHit(1)=1

curs_update()
DrawImage curs,MouseX(),MouseY()
Flip
Wend

;----------------------------
End
(Offline)
 
Ответить с цитированием