Hi, trying to make a simple 3d game, not really a game, maybe just a demo, but i am really trying to get comfortable with the app game kit syntax.
have`nt been touching programing for allmost 3 years.
So far so god, every thing is working, but the glass shader i did aplied to the teapot object (teapot.obj) is not transperent, i do admit i have`nt touch much shader programming, so my
understanding in shader programming is very limit, dont get me wrong, i know what a shader is , and i am used to blender, not an expert really.
The shader i am using, is from the shader pack.
Allso, i would like to apply a mouse movement, so when user move mouse left, then camera moves left, if mouse is moving forward, then camera should look up, just like in those "look around of the environment effect", or whatever it is called.
Here is my code.
rem C:\Users\henri\Documents\appgamekit-studio project\Templates\ShaderPack\Includes
SP_Init()
SP_SkyBox_SetVisible(1)
#include ".\..\Templates\ShaderPack\Includes\ShaderPack.agc"
// Project: 3dbox
// Created: 23-02-14
// show all errors
SetErrorMode(2)
// set window properties
SetWindowTitle( "3dbox" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window
// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 )
SetGenerateMipmaps(1)
mypic=LoadImage("wood.png")
NormalImageID=LoadImage("Tiles 2_Nor.jpg")
rem SetImageWrapU(NormalImageID,1)
rem SetImageWrapV(NormalImageID,1)
mypicplane=LoadImage("stone.png")
teapotmatt=LoadImage("shiny.png")
SetImageWrapU(mypicplane,10)
SetImageWrapV(mypicplane,10)
mymesh=LoadObject("teapot.obj")
SetObjectImage(mymesh,teapotmatt,0)
SetSkyBoxHorizonColor(1,100,285)
SetSkyBoxSkyColor(155,5,55)
SetSkyBoxVisible(1)
SetSkyBoxSunSize(3.5,5.5)
SetSkyBoxSunColor(200,200,1)
SetSkyBoxSunVisible(1)
myplanee=CreateObjectPlane(172.2,172.3)
SetObjectRotation(myplanee,90.1,1.2,1.2)
SetObjectPosition(myplanee,2.1,-18.1,10.1)
SetObjectImage(myplanee,mypicplane,0)
SetObjectUVScale(myplanee,0,30,30)
SetObjectPosition(mymesh,-12.1,-18.1,10.1)
myobject=CreateObjectBox(5,5,5)
SetObjectImage(myobject,mypic,0)
SetObjectPosition(myobject,2.1,-10.1,10.1)
rem SP_Glass_AddObject(mymesh,NormalImageID,-1)
SP_Glass_AddObject(mymesh,-1,-1)
keyup=38
keydown=40
keyleft=37
keyright=39
angx=1.1
angy=1.1
angz=1.1
camx=1
camy=-2
camz=-50
do
SetObjectRotation(mymesh,22.2,yy,1.2)
yy=yy+3
if getrawkeypressed(keyup)
SetObjectRotation(myobject,angx,1.2,1.2)
rem angx=angx+10
camz=camz+5
endif
if getrawkeypressed(keydown)
rem SetObjectRotation(myobject,angx,1.2,1.2)
rem angx=angx-10
camz=camz-5
endif
if getrawkeypressed(keyleft)
rem SetObjectRotation(myobject,1.1,angy,1.2)
rem angy=angy+10
camx=camx-5
endif
if getrawkeypressed(keyright)
rem SetObjectRotation(myobject,1.1,angy,1.2)
rem angy=angy-10
camx=camx+5
endif
SetCameraPosition(1,camx,camy,camz)
rem sync()
SP_Sync()
loop
picture atachment of the 3d demo.