Показать сообщение отдельно
Старый 12.08.2009, 14:47   #6
MISHA
AnyKey`щик
 
Регистрация: 29.07.2009
Сообщений: 9
Написано 0 полезных сообщений
(для 0 пользователей)
Ответ: Баг при загрузке

Вот кусок кода
...
700 Repeat
	If (AppTerminate())		
		End;
	End If

	Select GameState
	Case "Start"		
		If (MilliSecs() - tick) / 10 > 1 Then
		SetBlend alphablend
		tick = MilliSecs()
		shat:+1
		If shat > 360 Then shat = 0
		animt:+8
		If animt >= 10 Then
			anim:+1
			animt = 0

			If anim >= 3 Then anim = 0		
		EndIf
		Cls
		
		SetAlpha(fon_a)
		DrawImage(LoadingFon , 0 , fon_y) 
		SetAlpha(1)
		
		fon_a:+0.5
		If fon_a > 1 Then fon_a = 1
		

		DrawImage(LB_FlyStart[anim], fly_x, 200 + Sin(shat * 15) * 5)		
		If fly_x > 1024 + 100 Then fly_x = 1024 + 100
		
		SetAlpha(icon_alpha) 
		DrawImage(Icon, 300, 85)		
		SetAlpha(1)
		
		SetAlpha(logo_a) 
		SetScale(logo_s, logo_s)
		DrawImage(Logo, logo_x, logo_y)
		SetAlpha(1) 
		SetScale(1 , 1)
		
746		DrawImage(flower, 29, flower_y)
...
5292 Forever
но тут навряд ли можно что-то увидеть
(Offline)
 
Ответить с цитированием