Показать сообщение отдельно
Старый 18.10.2009, 10:59   #6
pkfire
AnyKey`щик
 
Регистрация: 15.10.2009
Сообщений: 2
Написано 0 полезных сообщений
(для 0 пользователей)
Ответ: Помогите пожалуста

спс всем!у меня еще один вопрос
я тут делаю наипростейшее меню
Graphics 800, 600

Global status% = 1
; типа делаю переменные цвета текста
RedNew
% = 100 
BlurNew
% = 100
GreenNew
% = 100

RedOpt
% = 100
BlurOpt
% = 100
GreenOpt
% = 100

RedExit
% = 100
BlurExit
% = 100
GreenExit
% = 100

; условия при которых меняется цвет
If staus%=1 
RedNew
% = 250 And BlurNew% = 0 And GreenNew% = 0 And RedOpt% = 100 And BlurOpt% = 100 And GreenOpt% = 100 And RedExit% = 100 And BlurExit% = 100 And GreenExit% = 100
EndIf
If 
status% = 2 
RedNew
% = 100 And BlurNew% = 100 And GreenNew% = 100 And RedOpt% = 250 And BlurOpt% = 0 And GreenOpt% = 0 And RedExit% = 100 And BlurExit% = 100 And GreenExit% = 100
EndIf

If 
status% = 3
RedNew
% = 100 And BlurNew% = 100 And GreenNew% = 100 And RedOpt% = 100 And BlurOpt% = 100 And GreenOpt% = 100 And RedExit% = 250 And BlurExit% = 0 And GreenExit% = 0
EndIf

While 
Not KeyHit(1)
; 
при нажатии на клавишу статус меняется
If KeyHit(208) = 1
status
% = status%  + 1
EndIf
; 
создаем сам текст
SetFont ArialBlFNT
Color RedNew
%,BlurNew%,GreenNew%
Text 350, 200, "New Game" 
Color RedOpt%,BlurOpt%,GreenOpt%
Text 355,250, "Options"
Color RedExit%,BlurExit%,GreenExit%
Text 365,300, "Exit"

Wend
End 
Меню доделовать не стал т.к. при нажатие на клавишу цвет не меняется(
Помогите плиз!
(Offline)
 
Ответить с цитированием