Sorry your browser is not supported!

`CREATED BY <master13>
`DATE STARTED: <5/20/08>
`INSERT CODE
SYNC ON
SYNC RATE 0
HIDE MOUSE
`LOAD EFFECTS
LOAD EFFECT "Normal Mapping.fx",1,0
LOAD EFFECT "Per Pixel Lighting.fx",2,0
`MAKE OBJECTS
`PLAYER
MAKE OBJECT SPHERE 1,50
COLOR OBJECT 1,RGB(000,255,000)
POSITION OBJECT 1,0,200,-400
`GROUND
LOAD IMAGE "f_d_03_D2.dds",1
LOAD IMAGE "f_d_03_N.dds",2
MAKE OBJECT PLAIN 2,1000,1000
XROTATE OBJECT 2,90
TEXTURE OBJECT 2,0,1
TEXTURE OBJECT 2,1,2
SET OBJECT EFFECT 2,1
SET EFFECT TECHNIQUE 1,"DBLight1"
SET EFFECT CONSTANT FLOAT 1,"SpecularPower1",1.0
`MAKE LIGHT
MAKE LIGHT 1
SET POINT LIGHT 1,0,50,-300
COLOR LIGHT 1,RGB(255,255,255)
SET LIGHT RANGE 1,700
`PASS LIGHT TO SHADERS
`NORMAL MAPPING
   NULL=MAKE VECTOR4(1)
   NULL=MAKE VECTOR4(2)
   NULL=MAKE VECTOR4(3)
   `AMBIENT LIGHT
   SET VECTOR4 1,0.5,0.5,0.5,0
   SET EFFECT CONSTANT VECTOR 1,"AmbientColor",1
   `LIGHT POSITION
   SET VECTOR4 1,LIGHT POSITION X(1),LIGHT POSITION Y(1),LIGHT POSITION Z(1),LIGHT RANGE(1)
   SET EFFECT CONSTANT VECTOR 1,"LightPos",2
   `LIGHT COLOR
   SET VECTOR4 1,255,255,255,1.0
   SET EFFECT CONSTANT VECTOR 1,"LightColor",3
`Define the main variables needed
ScreenWidth#=SCREEN WIDTH()
ScreenHeight#=SCREEN HEIGHT()
`Start main DO/LOOP
DO
`Screen FPS
FPS=SCREEN FPS()
TEXT 0,0,"FPS: "+STR$(FPS)
`Movement Controls
IF KEYSTATE(17)=1
XAngle#=OBJECT ANGLE X(1)
XROTATE OBJECT 1,0
MOVE OBJECT 1,2
XROTATE OBJECT 1,XAngle#
ENDIF

IF KEYSTATE(31)=1
XAngle#=OBJECT ANGLE X(1)
XROTATE OBJECT 1,0
MOVE OBJECT 1,-2
XROTATE OBJECT 1,XAngle#
ENDIF

IF KEYSTATE(30)=1 THEN MOVE OBJECT LEFT 1,2
IF KEYSTATE(32)=1 THEN MOVE OBJECT RIGHT 1,2
IF UPKEY()=1 THEN MOVE OBJECT UP 1,3
IF DOWNKEY()=1 THEN MOVE OBJECT DOWN 1,3
`Define variables for lag reduction
X#=OBJECT POSITION X(1)
Y#=OBJECT POSITION Y(1)
Z#=OBJECT POSITION Z(1)
`Camera Positioning
POSITION CAMERA X#,Y#,Z#
`Mouse Camera Movement
Camy#=Camy#+MOUSEMOVEX()*.5
Camx#=Camx#+MOUSEMOVEY()*.5
IF Camx#>90 AND Camx#<135 THEN Camx#=90
IF Camx#>270 AND Camx#<225 THEN Camx#=90
YROTATE CAMERA Camy#
XROTATE CAMERA Camx#
YROTATE OBJECT 1,Camy#
XROTATE OBJECT 1,Camx#
`Add a target reticule to the screen
CIRCLE ScreenWidth#/2,ScreenHeight#/2,5
`Refresh the screen(SYNC) and call the LOOP function
SYNC
LOOP