Тема: Меню
Показать сообщение отдельно
Старый 10.05.2006, 00:21   #68
Fant
Бывалый
 
Регистрация: 05.09.2005
Сообщений: 623
Написано 4 полезных сообщений
(для 5 пользователей)
Ну...и смех и слезы...

А ларчик-то просто открывался. Вот как я решил траблу, и все пашет:

Function fnMenuGame()

Repeat
	Cls
	mhit1= MouseHit(1) 
	mhit2= MouseHit(2) 
	EnterKey = KeyHit(28)

Delay 2



If gamestate$="mainmenu"
	fnmainmenu()
EndIf

; ВОТ ЭТОГО НЕ ХВАТАЛО В ЦИКЛЕ
If gamestate$="game"
	Exit 
EndIf

If KeyHit(1) 
	ClearWorld()
	Graphics 640,480,16,2
	SetBuffer BackBuffer() 
	
	loadimages()
	gamestate$="mainmenu"
End If

If enterkey=1 Then gamestate$="game"


Flip
Forever
End Function
Но если хорошо извратиться, и поставить бомбу, не дать ей взорваться и выйти в главное меню (2 раза ecs) то будет ошибка
ScaleEntity (bomb\obj,scale#,scale#,scale#)
Удивительно! Но ведь я через clearWorld все объекты удаляю! Почему такая ошибочка?

Можно пойти на хитрость)
fnDestroyField() если esc нажали, но тогда будет ошибка в удаоении: типа объекта нет, а вы удаляете (как я растолковал это для себя)

Как мне быть в этой ситуации?
(Offline)
 
Ответить с цитированием