It used to work in 187 which was the last time I ever used B3D. I'm getting an 'EndFunction Expected' in this section of code.
Function makeSkybox(skyFolder$,skyName$,skyScale%)
skybox = CreateMesh()
mainFolder$ = CurrentDir$()
ChangeDir("skys")
front
brush = LoadBrush(skyName$ + "_front.png",49)
surface = CreateSurface(skybox,brush)
AddVertex(surface,-1,+1,-1,0,0)
AddVertex(surface,+1,+1,-1,1,0)
AddVertex(surface,+1,-1,-1,1,1)
AddVertex(surface,-1,-1,-1,0,1)
AddTriangle(surface,0,1,2)
AddTriangle(surface,0,2,3)
FreeBrush(brush)
right
brush = LoadBrush(skyName$ + "_right.png",49)
surface = CreateSurface(skybox,brush)
AddVertex(surface,+1,+1,-1,0,0)
AddVertex(surface,+1,+1,+1,1,0)
AddVertex(surface,+1,-1,+1,1,1)
AddVertex(surface,+1,-1,-1,0,1)
AddTriangle(surface,0,1,2)
AddTriangle(surface,0,2,3)
FreeBrush(brush)
back
brush = LoadBrush(skyName$ + "_back.png",49)
surface = CreateSurface(skybox,brush)
AddVertex(surface,+1,+1,+1,0,0)
AddVertex(surface,-1,+1,+1,1,0)
AddVertex(surface,-1,-1,+1,1,1)
AddVertex(surface,+1,-1,+1,0,1)
AddTriangle(surface,0,1,2)
AddTriangle(surface,0,2,3)
FreeBrush(brush)
left
brush = LoadBrush(skyName$ + "_left.png",49)
surface = CreateSurface(skybox,brush)
AddVertex(surface,-1,+1,+1,0,0)
AddVertex(surface,-1,+1,-1,1,0)
AddVertex(surface,-1,-1,-1,1,1)
AddVertex(surface,-1,-1,+1,0,1)
AddTriangle(surface,0,1,2)
AddTriangle(surface,0,2,3)
FreeBrush(brush)
top
brush = LoadBrush(skyName$ + "_top.png",49)
surface = CreateSurface(skybox,brush)
AddVertex(surface,-1,+1,+1,0,1)
AddVertex(surface,+1,+1,+1,0,0)
AddVertex(surface,+1,+1,-1,1,0)
AddVertex(surface,-1,+1,-1,1,1)
AddTriangle(surface,0,1,2)
AddTriangle(surface,0,2,3)
FreeBrush(brush)
bottom
brush = LoadBrush(skyName$ + "_bottom.png",49)
surface = CreateSurface(skybox,brush)
AddVertex(surface,-1,-1,-1,1,0)
AddVertex(surface,+1,-1,-1,1,1)
AddVertex(surface,+1,-1,+1,0,1)
AddVertex(surface,-1,-1,+1,0,0)
AddTriangle(surface,0,1,2)
AddTriangle(surface,0,2,3)
FreeBrush(brush)
scale, flip, make fullbright and unfogged
ScaleMesh(skybox,skyScale%,skyScale%,skyScale%)
FlipMesh(skybox)
EntityFX(skybox,9)
ChangeDir(mainFolder$)
Return(skybox)
End Function
|