SetErrorMode(2)
SetWindowTitle( "a game" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 )
SetVirtualResolution( 1024, 768 )
SetOrientationAllowed( 1, 1, 1, 1 )
SetSyncRate( 30, 0 )
SetScissor( 0,0,0,0 )
UseNewDefaultFonts( 1 )
setVsync(1) //vertical sync
//create plane
snow = LoadImage( "snow1.jpg" )
ground = CreateObjectPlane(128, 128)
rotateObjectGlobalX(ground, 90)
setobjectimage(ground, snow , 0)
//mesh player
player = createobjectbox(2 , 6 , 2)
setObjectposition(player, 0, 3, 0)
//create camera
setcamerarotation(1, 0, 0, 0)
speed# = 0.5
SetRawMouseVisible(0)
#include"skybox.agc"
do
//camera movement
if getrawkeystate(87) = 1
MoveobjectlocalZ(player, speed#)
endif
if GetRawKeyState(86) = 1
MoveObjectLocalZ(player, -speed#)
endif
if GetRawKeyState(66) = 1
moveobjectlocalX(player, -speed#)
endif
if getrawkeystate(67) = 1
moveobjectlocalX(player, speed#)
endif
if getrawkeystate(20) = 1
endif
mx# = getpointerX() - 512
my# = getpointerY() - 384
xmove = xmove + (mx#)
ymove = ymove + (my#)
if ymove# < 800
ymove# = -800
endif
if ymove# >800
ymove# = 800
endif
setcamerarotation(1, ymove / 16, xmove / 16, 0)
setobjectrotation(player, getobjectangleX(player), getcameraangleY(1), GetObjectAngleZ(player))
setcameraposition(1, getobjectX(player), getobjectY(player), getobjectZ(player))
setrawmouseposition(512, 384)
Print( ScreenFPS() )
Sync()
loop
and I created a resource file where I wrote the skybox command and wrote the command to connect to the main project
do
SetSkyBoxVisible(1)
loop
