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

Подскажите плиз где тут ашибки.

вроде всё правильно, а тормозит ничего не грузит и вообще, такое построение кода логично в блице???
Graphics 800,600,32,2
SetBuffer BackBuffer() 
SeedRnd MilliSecs() 

Type t_MaunMenu 
 Field Buttons
End Type 

Type t_Players 
 Field Image_t 
 Field Hp, Amp, Frags 
 Field PosX, PosY 
End Type 

Type t_Map 
 Field level, Space, Window, Cursor, Font 
End Type 

Type t_Amor 
 Field Image_t1, Image_t2 
End Type 

;========================================== 
Global Amor.t_Amor 
Global Map.t_Map 
Global Vrag.t_Players 
Global Player.t_Players 
Global Manu.t_MaunMenu 
;========================================== 

Function CreateWorld() 
 ;Amor.t_Amor = New t_Amor 
 Map.t_Map = New t_Map 
 ;Vrag.t_Players = New t_Players 
 ;Player.t_Players = New t_Players 

 ;Amor\Image_t1  = LoadImage("data/data/galaxi_2.jpg") 
 ;Amor\Image_t2 = LoadImage("data/data/galaxi_2.jpg") 
 ;Map\Space   = LoadImage("data/data/galaxi_2.jpg") 
 ;Map\Window  = LoadImage("data/data/galaxi_2.jpg") 
 Map\Cursor   = LoadImage("data/menu/cursor.bmp")

 HidePointer; Курсор невидим 
 ;MidHandle Map\Cursor; Посередине картинки

 Map\Font=LoadFont("Arial Cyr",30,1) 
End Function 


Function l_Menu() 
 

 Cls()
 DrawImage(Map\Cursor, MouseX(), MouseY());
 SetFont Map\Font:Color 0,170,255:Text 399,219,MouseX(),1,1 
End Function 



Function l_Game() 
 
End Function 
;========================================== 

CreateWorld() 
Repeat 
     l_Menu() 
Forever
(Offline)
 
Ответить с цитированием