Graphics3D 640,480,32,2
SetBuffer BackBuffer()
HidePointer()
tex=LoadSprite( "fon.jpg")
ScaleSprite tex,2,1.5
Cur=LoadImage("cur.png")
Cam=CreateCamera()
PositionEntity Cam,0,0,-2
Light=CreateLight()
PositionEntity Light,0,90,-1
fntArial=LoadFont("Arial",32,False,True,False)
SetFont fntArial
Pivot=CreatePivot()
PositionEntity Pivot,0,-.3,0
Helm=LoadMesh("Helm.x",Pivot)
ScaleEntity Helm,5,5,5
EntityShininess Helm,5
EntityPickMode Helm, 2
NameEntity Helm, "Helm"
PositionEntity Helm,0,.1,-.2
RotateEntity Helm,-20,0,0
KKK=LoadMesh("KKK.x",Pivot)
ScaleEntity KKK,5,5,5
EntityShininess KKK,5
EntityPickMode KKK, 2
NameEntity KKK, "KKK"
xit=LoadMesh("Exit.x",Pivot)
ScaleEntity xit,5,5,5
EntityShininess xit,5
EntityPickMode xit, 2
NameEntity xit, "xit"
load=LoadMesh("Load.x",Pivot)
ScaleEntity load,5,5,5
EntityShininess load,5
EntityPickMode load, 2
NameEntity load, "load"
sawe=LoadMesh("Sawe.x",Pivot)
ScaleEntity sawe,5,5,5
EntityShininess sawe,5
EntityPickMode sawe, 2
NameEntity sawe, "sawe"
While Not KeyDown( 1 )
;TurnEntity Pivot,Rand(1,-1),Rand(1,-1),.5
TurnEntity Light ,Rand(1,-1),Rand(0),Rand(-1,1)
If MouseDown(1); = True
ent= CameraPick(Cam,MouseX(),MouseY())
;If ent <> 0
If ent = KKK Then
Goto game
;EndIf
EndIf
If ent <> 0
If ent = xit Then
End
EndIf
EndIf
If ent <> 0
If ent = load Then
Text 400,300,"Load",True,False
EndIf
EndIf
If ent <> 0
If ent = sawe Then
Text 400,300,"Sawe",True,False
EndIf
EndIf
Flip()
EndIf
UpdateWorld
RenderWorld
;Text 320,50,"TESEY",True,False
DrawImage Cur,MouseX(),MouseY()
Flip()
Wend
End
.game: