I downloaded skybox from dice.
In my case it's useless.
At the moment I will use now a box of sky + large landscape + moving clouds.
It will look like this.
Because your method did not help me.
_load_sky_box:
object123=free_object()
global clouds_object_id
global land_object_id
dim land_image_id(3)
land_object_id=free_object()
clouds_object_id=free_object()
global cloud_image_id
cloud_image_id=free_image()
load image "tile_planets\cloud.png",cloud_image_id
make object sphere object123,100
hide object object123
land_image_id(1)=free_image()
load image "tile_planets\grass_ground.bmp",land_image_id(1)
land_image_id(2)=free_image()
load image "tile_planets\desert_ground.jpg",land_image_id(2)
land_image_id(3)=free_image()
load image "tile_planets\snow_ground.bmp",land_image_id(3)
rem make object box land_object_id,10002,1,10002
load object "tile_planets\tile.x",land_object_id
scale object land_object_id,10000,5000,10000
position object land_object_id,-25000,-500,-25000
texture object land_object_id,land_image_id(1)
hide object land_object_id
SCALE OBJECT TEXTURE land_object_id, 1000, 1000
rem cloud
make object box clouds_object_id,100002,1,100002
position object clouds_object_id,0,1000,0
texture object clouds_object_id,cloud_image_id
hide object clouds_object_id
ghost object on clouds_object_id
SCALE OBJECT TEXTURE clouds_object_id, 10, 10
return
It is work.
SET OBJECT TEXTURE SkyBox, 2, 0
And I do not even get an example of help from skybox. The error gives
rem Terrain Functionality
rem Standard Setup Code for all examples
sync on : sync rate 0 : color backdrop 0
set text font "arial" : set text size 16
set text to bold : set text transparent
rem Make Simple Terrain
TerrainNumber=1
make terrain TerrainNumber,"land.bmp"
rem Position The Terrain
position terrain TerrainNumber, 0, 0, 1025
rem Texture terrain
ImageNumber=1
load image "grass.bmp",ImageNumber
texture terrain TerrainNumber,ImageNumber
size#=1025
rem Load sky object
load object "sky\sb.x",1
scale object 1,40,40,40
set object cull 1,0
set object light 1,0
set object texture 1,2,1
rem Position camera in center of terrain
position camera 512,10,512
rem Main loop
desc$="LOD Terrain from Bitmap"
while mouseclick()=0
rem Control camera over terrain
control camera using arrowkeys 0,1,1
cx#=camera position x(0)
cz#=camera position z(0)
if cx#<0.0 then cx#=0
if cx#>size# then cx#=size#
if cz#<0.0 then cz#=0
if cz#>size# then cz#=size#
position camera cx#,get terrain height(TerrainNumber,cx#,cz#)+5,cz#
rem Terrain Data
set cursor 0,0
print "TERRAIN DATA"
print " exist:";terrain exist(TerrainNumber)
if terrain exist(TerrainNumber)=1
print " x:";terrain position x(TerrainNumber)
print " y:";terrain position y(TerrainNumber)
print " z:";terrain position z(TerrainNumber)
print " height:";get terrain height(TerrainNumber, cx#, cz#)
print " totalheight:";get total terrain height(TerrainNumber)
endif
print
print "CAMERA DATA"
print " x:";camera position x(0)
print " y:";camera position y(0)
print " z:";camera position z(0)
rem Position sky at player
position object 1,camera position x(0),camera position y(0)-150,camera position z(0)
rem Show Framerate
text 20,screen height()-40,desc$
fps$="DBPro Fps: "+str$(screen fps())
text screen width()-20-text width(fps$),screen height()-40,fps$
rem Update screen
sync
rem End loop
endwhile
rem Delete Terrain
delete terrain TerrainNumber
