Показать сообщение отдельно
Старый 09.11.2015, 15:59   #5
Тоха
AnyKey`щик
 
Аватар для Тоха
 
Регистрация: 26.10.2015
Адрес: Пермь
Сообщений: 9
Написано 0 полезных сообщений
(для 0 пользователей)
Ответ: Привязка файла

вот код экрана
.game 

Graphics3D 800
,600,32,
SetBuffer BackBuffer
() 



Global 
fntArial,fntArialB,fntArialI 
fntArial
=LoadFont("font.ttf",54,True,True,False
fntArialB=LoadFont("arial",34,True,True,False
fntArialI=LoadFont("arial",34,True,False,False
SetFont(LoadFont("font.ttf",22)) 


snd=LoadSound("sound/67.mp3")
SoundVolume snd,.1
PlaySound snd 

Repeat 



Cls 



mx
=MouseX() 
my=MouseY() 



SetFont fntArial 
Color 120
,120,
Text 300
,27,"Elected" 



SetFont fntArialb 
Color 0
,255,
Text 330
,207,"New Game" 

SetFont fntArialb 
Color 0
,255,
Text 370
,257,"Exit" 



SetFont fntArialI 
Color 60
,60,120 
Text mx
,my,"^" 

If MouseX()>290 And MouseX()<490 And MouseY()>190 And MouseY()<230 

SetFont fntArialB 
Color 255
,0,
Text 330
,207,"New Game" 

EndIf 

If 
MouseX()>290 And MouseX()<490 And MouseY()>190 And MouseY()<230 And MouseDown(1
Goto 
game 

EndIf 


If 
MouseX()>320 And MouseX()<430 And MouseY()>240 And MouseY()<280 

SetFont fntArialB 
Color 255
,0,
Text 370
,257,"Exit" 

EndIf 

If 
MouseX()>320 And MouseX()<430 And MouseY()>240 And MouseY()<280 And MouseDown(1
End 
EndIf 



UpdateWorld 
RenderWorld 
Flip 
Until KeyDown
(1
End 
(Offline)
 
Ответить с цитированием