Function MakeSkyBox( file$ )
file$="tex/skies/"+file$
ms=CreateMesh()
;front face
b=LoadBrush( file$+"_FT.jpg",49 )
s=CreateSurface( ms,b )
AddVertex s,-1,+1,-1,0,0:AddVertex s,+1,+1,-1,1,0
AddVertex s,+1,-1,-1,1,1:AddVertex s,-1,-1,-1,0,1
AddTriangle s,0,1,2:AddTriangle s,0,2,3
FreeBrush b
;right face
b=LoadBrush( file$+"_LF.jpg",49 )
s=CreateSurface( ms,b )
AddVertex s,+1,+1,-1,0,0:AddVertex s,+1,+1,+1,1,0
AddVertex s,+1,-1,+1,1,1:AddVertex s,+1,-1,-1,0,1
AddTriangle s,0,1,2:AddTriangle s,0,2,3
FreeBrush b
;back face
b=LoadBrush( file$+"_BK.jpg",49 )
s=CreateSurface( ms,b )
AddVertex s,+1,+1,+1,0,0:AddVertex s,-1,+1,+1,1,0
AddVertex s,-1,-1,+1,1,1:AddVertex s,+1,-1,+1,0,1
AddTriangle s,0,1,2:AddTriangle s,0,2,3
FreeBrush b
;left face
b=LoadBrush( file$+"_RT.jpg",49 )
s=CreateSurface( ms,b )
AddVertex s,-1,+1,+1,0,0:AddVertex s,-1,+1,-1,1,0
AddVertex s,-1,-1,-1,1,1:AddVertex s,-1,-1,+1,0,1
AddTriangle s,0,1,2:AddTriangle s,0,2,3
FreeBrush b
;top face
b=LoadBrush( file$+"_UP.jpg",49 )
s=CreateSurface( ms,b )
AddVertex s,-1,+1,+1,0,1:AddVertex s,+1,+1,+1,0,0
AddVertex s,+1,+1,-1,1,0:AddVertex s,-1,+1,-1,1,1
AddTriangle s,0,1,2:AddTriangle s,0,2,3
FreeBrush b
; down face
; If FileType(file$+"_DN.jpg")=1 Then
; b=LoadBrush( file$+"_DN.jpg",49 )
; s=CreateSurface( ms,b )
; AddVertex s,-1,-1,-1,1,0:AddVertex s,+1,-1,-1,1,1
; AddVertex s,+1,-1,+1,0,1:AddVertex s,-1,-1,+1,0,0
; AddTriangle s,0,1,2:AddTriangle s,0,2,3
; FreeBrush b
; EndIf
ScaleMesh ms,490,490,490
FlipMesh ms
EntityFX ms,8+1
EntityOrder ms,10
EntityColor ms,200,200,200
;EntityBlend m,3
Return ms
;devil, its your string ;|
End Function