начал делать игру. проблема с goto функцией. Нагружается компьютер, хотя ничего такого в игре нету :D
Graphics 840,640,32,2
Global menu = 1
Global m_i_face = 1
Global i_face = LoadImage("media\i_face.bmp")
Global m_i_start = 1
Global i_start = LoadImage("media\i_start.bmp")
Global cursor = LoadImage("media\i_cursor.bmp")
Type stats
Field live
Field rank
Field money
Field score
Field gun
End Type
While Not KeyHit(1)
Cls
If menu = 1
If m_i_face = 1 Then
DrawImage i_face,130,110
EndIf
If m_i_start = 1 Then
DrawImage i_start,150,200
EndIf
If ImagesOverlap(cursor,150,200,i_face,150,200) Then
If MouseDown(1) Then
Goto gamestart
EndIf
EndIf
EndIf
DrawImage cursor,MouseX(),MouseY()
HidePointer()
Flip
Wend
.gamestart
menu = 0
While Not KeyHit(1)
Cls
DrawImage cursor,MouseX(),MouseY()
HidePointer()
Wend