Помогите с кодом
Подскажите плиз где тут ашибки.
вроде всё правильно, а тормозит ничего не грузит и вообще, такое построение кода логично в блице???
Код:
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
|
