[Ganociy]

А если в этом Коде ???
Graphics3D 800,600,32,1
SetBuffer BackBuffer ()

Global Out
Global Dr
Global tShift
Global FontT=LoadFont (" Verdana ",20,1,1)
Global cur=LoadImage ("Data\Menu\cursor.png")
Global credits=LoadImage ("Data\Menu\Credits.jpg")
Global background1=LoadImage ("Data\Menu\BackGround1.jpg")
Global background2=LoadImage ("Data\Menu\BackGround.jpg")
Global logo=LoadImage ("Data\Menu\logo.jpg")
Global intro=LoadSound ("Data\Music\intro.mp3")
SoundVolume intro,0.3
PlaySound intro

Function CreateMenu ()
tShift=0
If RectsOverlap(MouseX(),MouseY(),2,2,110-70,400,150,15) tShift=1
If RectsOverlap(MouseX(),MouseY(),2,2,110-65,450,130,15) tShift=2
If RectsOverlap(MouseX(),MouseY(),2,2,95-70,500,70,15) tShift=3

Cls
Color 128,128,128

DrawImage background1,1,1
DrawImage background2,200,200
DrawImage logo,200,10
SetFont FontT
If tShift=1 Color 255,0,0 Else Color 255,255,255
Text 110,400,"N e w G a m e",True,True
If tShift=2 Color 255,0,0 Else Color 255,255,255
Text 96,450,"C r e d i t s",True,True
If tShift=3 Color 255,0,0 Else Color 255,255,255
Text 60,500,"O u t",True,True
If Dr=1 DrawImage credits,500,200
DrawImage cur,MouseX(),MouseY()
End Function

Repeat
CreateMenu ()
If MouseHit (1)
If tShift=3 Out=1
If tShift=2 Dr=1
If tShift=1 Exit StopChannel intro

EndIf
Flip
Until Out

Graphics3D 1024,768,32,1
SetBuffer BackBuffer ()

Function CreatingLight ()
light=CreateLight ()
RotateEntity light ,90,0,0
End Function

Type Player
Field Model
Field Cam
End Type

Function CreatePlayer ()
a.Player=New Player
a\cam=CreateCamera ()
PositionEntity a\cam,0,0,-3
End Function

Type World
Field model
End Type
Function CreateWorld ()
a.World=New World
a\model=CreateCube ()
End Function

CreatingLight ()
CreatePlayer ()
CreateWorld ()

Repeat

RenderWorld ()
UpdateWorld ()

Flip
Until Out Or KeyHit (1)
End

Тут у меня сколько хочешь DrawImage ))) Я спрашиваю как вывести слово Загрузка после включения второго Graphics3D