[Atomikc]

Вот сижу и думаю. как сделать так, чтоб при нажатии кнопки ниже появлялся текст и не исчезал, пока не нажмёш другую кнопку. Я нажимаю, он появляется, я отжимаю, он исчезает.

;================================================================== 
; Star Trash
; Космическая стрелялка. Дата начало работы 27.12.06
;=================================================


Graphics 800,600,32,2
SetBuffer BackBuffer() 


;шрифт
font=LoadFont("Arial Cyr",30,1) 
Tex=LoadFont("Arial Cyr",20,1) 
dat=LoadFont("Arial Cyr",13,1) 

;Фон меню
img=LoadImage("data/menu/galaxi.jpg")

;звёзы
star=LoadImage("Data/menu/fon.png")
star2=LoadImage("Data/menu/fon2.png")

;Логотип
 Logo=LoadImage("data/menu/logo.bmp")
MaskImage  logo,0,0,0 ; Маска

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

;курсор
Global curs=LoadImage("data/menu/cursor.bmp");Загруска курсора
HidePointer; Курсор невидим 

;Загрузка кнопки
knop=LoadAnimImage("Data/menu/knop.png",175,40,0,2)
knop2=knop
knop3=knop
knop4=knop

; Загрузка диалогового окна
windialog=LoadImage("data/menu/windialog.png")

;цикл
Repeat
Cls()
  DrawImage(img, 0, 0);Позиция галактики

  TileImage star,0,qq:qq=qq- -3
  TileImage star2,0,hh:hh=hh- -1
  DrawImage(logo, 100,50);позиция логотипа
  DrawImage(knop, 310,200);позиция кнопки1
  DrawImage(knop2, 310,245);позиция кнопки2
  DrawImage(knop3, 310,290);позиция кнопки3
  DrawImage(knop4, 310,335);позиция кнопки4
  DrawImage(windialog, 100,385);позиция логотипа

; Если если курсор  над кнопой  Новая игра  и нажата мыш то..
 If MouseX()>310 And MouseY()>200 And MouseX()<485 And MouseY()<240
  DrawImage(knop, 310,200,1)
If MouseDown(1)
 TileImage star2,0,hh:hh=hh- 3 ; Проверить работает ли кнопка
EndIf
EndIf
;Если если курсор  над кнопой Помощь и нажата мыш то..
 If MouseX()>310 And MouseY()>245 And MouseX()<485 And MouseY()<285
  DrawImage(knop2, 310,245,1)
If MouseDown(1)

;Текст Описание
 SetFont tex Color 255,255,255:Text 160,410,"Помощь:",1,1
 SetFont tex Color 255,255,255:Text 175,426,"w - Вперёд",1,1
 SetFont tex Color 255,255,255:Text 167,442,"s - Назад",1,1
 SetFont tex Color 255,255,255:Text 168,458,"a - Влево",1,1
 SetFont tex Color 255,255,255:Text 172,474,"d - Вправо",1,1
 SetFont tex Color 255,255,255:Text 225,490,"Кнопка мыши 1 - пушка",1,1
 SetFont tex Color 255,255,255:Text 229,506,"Кнопка мыши 2 - ракеты",1,1

EndIf
EndIf
; Если если курсор  над кнопой Авторы и нажата мыш то..
 If MouseX()>310 And MouseY()>290 And MouseX()<485 And MouseY()<330
  DrawImage(knop3, 310,290,1)
If MouseDown(1)

;Текст Авторы
 SetFont tex Color 255,255,255:Text 150,410,"Автор:",1,1
 SetFont tex Color 255,255,255:Text 200,426,"Миха aka Atomikc",1,1
 SetFont tex Color 255,255,255:Text 190,442,"[email protected]",1,1
 SetFont tex Color 255,255,255:Text 268,458,"________________________________",1,1
 SetFont tex Color 255,255,255:Text 380,484,"Отдельное спасибо Shad0w agent, за предоставление семплов",1,1
 SetFont tex Color 255,255,255:Text 385,500,"А также сайту www.Boolean.name и всем тем, кто мне помогал...",1,1

EndIf
EndIf
;Если если курсор  над кнопой Выход и нажата мыш то выход
 If MouseX()>310 And MouseY()>335 And MouseX()<485 And MouseY()<375
  DrawImage(knop4, 310,335,1)
If MouseDown(1)
:Exit
EndIf
EndIf

;Текст кнопок
 SetFont font:Color 0,170,255:Text 399,219,"Новая игра",1,1 
 SetFont font:Color 0,170,255:Text 399,264,"Помощь",1,1 
 SetFont font:Color 0,170,255:Text 399,309,"Авторы",1,1 
 SetFont font:Color 0,170,255:Text 399,354,"Выход",1,1 

;Текст версии игры
 SetFont dat Color 255,255,255:Text 615,560,"Star Trash.    Версия игры  0.1",1,1 
  DrawImage(curs, MouseX(), MouseY());Позиция Курсора
  If ChannelPlaying(sam)=0 Then sam=PlayMusic("data/sound/menu.mp3") ; Играть заного
 
Flip()
;----------------------------

Until KeyDown(1)