Sorry your browser is not supported!

struct VS_INPUT
{
    // other stuff
    float2 texCoord_diffuse : TEXCOORD0;
    float2 texCoord_lightmap : TEXCOORD1;
};

struct VS_OUTPUT
{
    // other stuff
    float2 texCoord_diffuse : TEXCOORD0;
    float2 texCoord_lightmap : TEXCOORD1;
}

struct PS_INPUT
{
    // other stuff
    float2 texCoord_diffuse : TEXCOORD0;
    float2 texCoord_lightmap : TEXCOORD1;
}

VS_OUTPUT vs_main(VS_INPUT input)
{
    VS_OUTPUT output;

    // other stuff

    // pass both sets of UV coordinates to pixel shader
    output.texCoord_diffuse = input.texCoord_diffuse;
    output.texCoord_lightmap = input.texCoord_lightmap;

    return output;
}

PS_OUTPUT ps_main(PS_INPUT input)
{
    PS_OUTPUT output;

    // other stuff

    // if you're sampling from the diffuse/normal/specular/emissive/bump texture, use diffuse coordinates
    foo = tex2D(fooSampler, input.texCoord_diffuse);

    // if you're sampling from the lightmap texture, use lightmap coordinates
    bar = tex2D(lightmapSampler, input.texCoord_lightmap);

    return output;
}

 `Load Textures
      load image "Media Packs\Textures\GRAPHTEST\Floor.dds",155
      load image "Media Packs\Textures\GRAPHTEST\Floor_n.dds",156
      load image "Media Packs\Textures\GRAPHTEST\Normalize.dds",357,2


load effect "Media Packs\Shaders\Object\Shaders\Bump\2.fx",1,0

set object effect 5,1

texture object 5,0,355
      texture object 5,1,356
      texture object 5,2,357

//====================================================
// NormalMapping
//====================================================
// By EVOLVED
// www.evolved-software.com
//====================================================

//--------------
// un-tweaks
//--------------
   matrix WorldVP:WorldViewProjection; 
   matrix World:World;    
   matrix ViewInv:ViewInverse; 
   matrix WorldInv:WorldInverse;

//--------------
// tweaks
//--------------
   float3 Ambient={0.1f,0.1f,0.1f};  
   float3 LightPosition={850.0f,3050.0f,0.0f};    
   float3 LightColor={1.0f,1.0f,1.0f};    
   float LightRange=58500.0f;         
   float4 FogColor={0.8f,0.8f,0.8f,1.0f};
   float FogRange=25000000.0f;
   float Alpha=1.0f;

//--------------
// Textures
//--------------
   texture BaseTX <string Name="";>;	
   sampler2D Base = sampler_state 
    {
 	texture = <BaseTX>;
    };
   texture NormalTX <string Name="";>;	
   sampler2D Normal = sampler_state 
    {
 	texture = <NormalTX>;
    };
   texture NormalizerTX <string Name = "";>;
   samplerCUBE Normalizer  = sampler_state 
    {
	Texture = <NormalizerTX>;
 	ADDRESSU =  Clamp;
	ADDRESSV =  Clamp;
    };

//--------------
// structs 
//--------------
   struct input
     {
 	float4 Pos:POSITION; 
 	float2 UV:TEXCOORD1; 
	float3 Normal:NORMAL;
 	float3 Tangent:TANGENT;
 	float3 Binormal:BINORMAL;
     };
   struct output
     {
	float4 OPos:POSITION; 
 	float2 Tex:TEXCOORD0; 
  	float3 LightVec:TEXCOORD1; 
	float3 Attenuation:TEXCOORD2;
	float3 ViewVec:TEXCOORD3; 
	float Fog:FOG;
     };

//--------------
// vertex shader
//--------------
   output VS(input IN) 
     {
 	output OUT;
	OUT.OPos=mul(IN.Pos,WorldVP); 
 	OUT.Tex=IN.UV;
	float3x3 TBN={-IN.Tangent,IN.Binormal,IN.Normal};
	TBN=transpose(mul(TBN,World));
	float3 WPos=mul(IN.Pos,World);  
	float3 LightPos=LightPosition-WPos; 
	float3 ViewPos=ViewInv[3].xyz-WPos;
	OUT.LightVec=mul(LightPos,TBN);
	OUT.Attenuation=-(LightPos/LightRange); 
 	OUT.ViewVec=mul(ViewPos,TBN); 
	OUT.Fog=1-saturate(dot(ViewPos/FogRange,ViewPos/FogRange));
	return OUT;
     }

//--------------
// pixel shader
//--------------
   float4 PS(output IN)  : COLOR
     {
	float4 Texture=tex2D(Base,IN.Tex); 
	float3 NormalMap=tex2D(Normal,IN.Tex)*2-1; 
	float3 LightV=texCUBE(Normalizer,IN.LightVec)*2-1;  	
	float3 View=texCUBE(Normalizer,IN.ViewVec)*2-1;
	float Normal=saturate(dot(reflect(-View,NormalMap),LightV));
	Normal=Normal*Normal; Normal=Normal*Normal; Normal=Normal*Normal; 
	Normal=Normal+saturate(dot(NormalMap,LightV)); 
	float PixelLight=1-saturate(dot(IN.Attenuation,IN.Attenuation));
	float3 Light=PixelLight*LightColor;
	return float4(Texture*((Normal*Light)+Ambient),Texture.w*Alpha);
     }

//--------------
// techniques   
//--------------
   technique NormalMapping
      {
 	pass p1
      {		
 	vertexShader = compile vs_1_1 VS(); 
 	pixelShader  = compile ps_1_4 PS();
	FOGCOLOR=(FogColor); 
	FOGENABLE=TRUE;	
      }
      }

//====================================================
// NormalMapping
//====================================================
// By EVOLVED
// www.evolved-software.com
//====================================================

//--------------
// un-tweaks
//--------------
   matrix WorldVP:WorldViewProjection; 
   matrix World:World;    
   matrix ViewInv:ViewInverse; 
   matrix WorldInv:WorldInverse;

//--------------
// tweaks
//--------------
   float3 Ambient={0.1f,0.1f,0.1f};  
   float3 LightPosition={850.0f,3050.0f,0.0f};    
   float3 LightColor={1.0f,1.0f,1.0f};    
   float LightRange=58500.0f;         
   float4 FogColor={0.8f,0.8f,0.8f,1.0f};
   float FogRange=25000000.0f;
   float Alpha=1.0f;

//--------------
// Textures
//--------------
   texture BaseTX <string Name="";>;	
   sampler2D Base = sampler_state 
    {
 	texture = <BaseTX>;
    };
   texture NormalTX <string Name="";>;	
   sampler2D Normal = sampler_state 
    {
 	texture = <NormalTX>;
    };
   texture NormalizerTX <string Name = "";>;
   samplerCUBE Normalizer  = sampler_state 
    {
	Texture = <NormalizerTX>;
 	ADDRESSU =  Clamp;
	ADDRESSV =  Clamp;
    };
   texture LightMapTX <string Name="";>;
   sampler2D LightMap = sampler_state
    {
 	texture = <LightMapTX>;
    }

//--------------
// structs 
//--------------
   struct input
     {
 	float4 Pos:POSITION; 
 	float2 UV_lightmap:TEXCOORD0;
 	float2 UV:TEXCOORD1; 
	float3 Normal:NORMAL;
 	float3 Tangent:TANGENT;
 	float3 Binormal:BINORMAL;
     };
   struct output
     {
	float4 OPos:POSITION; 
 	float2 Tex:TEXCOORD0; 
  	float2 Tex_lightmap:TEXCOORD1;
  	float3 LightVec:TEXCOORD2;
	float3 Attenuation:TEXCOORD3;
	float3 ViewVec:TEXCOORD4; 
	float Fog:FOG;
     };

//--------------
// vertex shader
//--------------
   output VS(input IN) 
     {
 	output OUT;
	OUT.OPos=mul(IN.Pos,WorldVP); 
 	OUT.Tex=IN.UV;
 	OUT.Tex_lightmap = IN.UV_lightmap;
	float3x3 TBN={-IN.Tangent,IN.Binormal,IN.Normal};
	TBN=transpose(mul(TBN,World));
	float3 WPos=mul(IN.Pos,World);  
	float3 LightPos=LightPosition-WPos; 
	float3 ViewPos=ViewInv[3].xyz-WPos;
	OUT.LightVec=mul(LightPos,TBN);
	OUT.Attenuation=-(LightPos/LightRange); 
 	OUT.ViewVec=mul(ViewPos,TBN); 
	OUT.Fog=1-saturate(dot(ViewPos/FogRange,ViewPos/FogRange));
	return OUT;
     }

//--------------
// pixel shader
//--------------
   float4 PS(output IN)  : COLOR
     {
	float4 Texture=tex2D(Base,IN.Tex); 
	float3 NormalMap=tex2D(Normal,IN.Tex)*2-1; 
  	float3 LM=tex2D(LightMap,IN.Tex_lightmap).xyz;
	float3 LightV=texCUBE(Normalizer,IN.LightVec)*2-1;  	
	float3 View=texCUBE(Normalizer,IN.ViewVec)*2-1;
	float Normal=saturate(dot(reflect(-View,NormalMap),LightV));
	Normal=Normal*Normal; Normal=Normal*Normal; Normal=Normal*Normal; 
	Normal=Normal+saturate(dot(NormalMap,LightV)); 
	float PixelLight=1-saturate(dot(IN.Attenuation,IN.Attenuation));
	float3 Light=PixelLight*LightColor;
	return float4(Texture*((Normal*Light)+Ambient)*LM,Texture.w*Alpha);
     }

//--------------
// techniques   
//--------------
   technique NormalMapping
      {
 	pass p1
      {		
 	vertexShader = compile vs_1_1 VS(); 
 	pixelShader  = compile ps_1_4 PS();
	FOGCOLOR=(FogColor); 
	FOGENABLE=TRUE;	
      }
      }

load image "effects\Floor.dds",155
      load image "effects\Floor_n.dds",156
      load image "effects\Normalize.dds",357,2
      
      load effect "effects\2.fx",1,0
      set object effect 999,1
texture object 999,0,155
      texture object 999,1,156
      texture object 999,2,357
      
      
      load image "maps\map_lm1.bmp",457,3
      load image "maps\map_lm2.bmp",458,3
      load image "maps\map_lm3.bmp",459,3
      load image "maps\map_lm4.bmp",460,3
      load image "maps\map_lm5.bmp",461,3
      texture object 999,3,457
      texture object 999,3,458
      texture object 999,3,459
      texture object 999,3,460
      texture object 999,3,461

//====================================================
// NormalMapping
//====================================================
// By EVOLVED
// www.evolved-software.com
//====================================================

//--------------
// un-tweaks
//--------------
   matrix WorldVP:WorldViewProjection; 
   matrix World:World;    
   matrix ViewInv:ViewInverse; 
   matrix WorldInv:WorldInverse;

//--------------
// tweaks
//--------------
   float3 Ambient={0.1f,0.1f,0.1f};  
   float3 LightPosition={850.0f,3050.0f,0.0f};    
   float3 LightColor={1.0f,1.0f,1.0f};    
   float LightRange=58500.0f;         
   float4 FogColor={0.8f,0.8f,0.8f,1.0f};
   float FogRange=25000000.0f;
   float Alpha=1.0f;

//--------------
// Textures
//--------------
   texture BaseTX <string Name="";>;	
   sampler2D Base = sampler_state 
    {
 	texture = <BaseTX>;
    };
   texture NormalTX <string Name="";>;	
   sampler2D Normal = sampler_state 
    {
 	texture = <NormalTX>;
    };
   texture NormalizerTX <string Name = "";>;
   samplerCUBE Normalizer  = sampler_state 
    {
	Texture = <NormalizerTX>;
 	ADDRESSU =  Clamp;
	ADDRESSV =  Clamp;
    };
   texture LightMapTX <string Name="";>;
   sampler2D LightMap = sampler_state
    {
 	texture = <LightMapTX>;
    };

//--------------
// structs 
//--------------
   struct input
     {
 	float4 Pos:POSITION; 
 	float2 UV_lightmap:TEXCOORD0;
 	float2 UV:TEXCOORD1; 
	float3 Normal:NORMAL;
 	float3 Tangent:TANGENT;
 	float3 Binormal:BINORMAL;
     };
   struct output
     {
	float4 OPos:POSITION; 
 	float2 Tex:TEXCOORD0; 
  	float2 Tex_lightmap:TEXCOORD1;
  	float3 LightVec:TEXCOORD2;
	float3 Attenuation:TEXCOORD3;
	float3 ViewVec:TEXCOORD4; 
	float Fog:FOG;
     };

//--------------
// vertex shader
//--------------
   output VS(input IN) 
     {
 	output OUT;
	OUT.OPos=mul(IN.Pos,WorldVP); 
 	OUT.Tex=IN.UV;
 	OUT.Tex_lightmap = IN.UV_lightmap;
	float3x3 TBN={-IN.Tangent,IN.Binormal,IN.Normal};
	TBN=transpose(mul(TBN,World));
	float3 WPos=mul(IN.Pos,World);  
	float3 LightPos=LightPosition-WPos; 
	float3 ViewPos=ViewInv[3].xyz-WPos;
	OUT.LightVec=mul(LightPos,TBN);
	OUT.Attenuation=-(LightPos/LightRange); 
 	OUT.ViewVec=mul(ViewPos,TBN); 
	OUT.Fog=1-saturate(dot(ViewPos/FogRange,ViewPos/FogRange));
	return OUT;
     }

//--------------
// pixel shader
//--------------
   float4 PS(output IN)  : COLOR
     {
	float4 Texture=tex2D(Base,IN.Tex); 
	float3 NormalMap=tex2D(Normal,IN.Tex)*2-1; 
  	float3 LM=tex2D(LightMap,IN.Tex_lightmap).xyz;
	float3 LightV=texCUBE(Normalizer,IN.LightVec)*2-1;  	
	float3 View=texCUBE(Normalizer,IN.ViewVec)*2-1;
	float Normal=saturate(dot(reflect(-View,NormalMap),LightV));
	Normal=Normal*Normal; Normal=Normal*Normal; Normal=Normal*Normal; 
	Normal=Normal+saturate(dot(NormalMap,LightV)); 
	float PixelLight=1-saturate(dot(IN.Attenuation,IN.Attenuation));
	float3 Light=PixelLight*LightColor;
	return float4(Texture*((Normal*Light)+Ambient)*LM,Texture.w*Alpha);
     }

//--------------
// techniques   
//--------------
   technique NormalMapping
      {
 	pass p1
      {		
 	vertexShader = compile vs_1_1 VS(); 
 	pixelShader  = compile ps_1_4 PS();
	FOGCOLOR=(FogColor); 
	FOGENABLE=TRUE;	
      }
      }

      texture limb 999,1,3,457
      texture limb 999,2,3,458
      texture limb 999,3,3,459
      texture limb 999,4,3,460
      texture limb 999,5,3,461

`SHADER TEST!
load image "effects\Floor.dds",155
   load image "effects\Floor_n.dds",156
     load image "effects\Normalize.dds",357,2
      
    load effect "effects\2.fx",1,0
     set object effect 999,1
     
      texture limb 999,0,155
      texture limb 999,1,156
      texture limb 999,2,357
      
      
      load image "maps\map_lm1.bmp",457,3
     load image "maps\map_lm2.bmp",458,3
      load image "maps\map_lm3.bmp",459,3
     load image "maps\map_lm4.bmp",460,3
     load image "maps\map_lm5.bmp",461,3
      texture limb 999,1,3,457
      texture limb 999,2,3,458
      texture limb 999,3,3,459
      texture limb 999,4,3,460
      texture limb 999,5,3,461
`SHADER TEST!

`load map
`map
load object "maps/map.dbo",999
position object 999, camera position x(0) , camera position y(0) + 100, camera position z(0)
position camera 0, object position x(999), camera position y(0), object position z(999) + 35
set object light 999,1
add limb 999,1,1

`SHADER TEST!
load image "effects\Floor.dds",155
   load image "effects\Floor_n.dds",156
     load image "effects\Normalize.dds",357,2
      
    load effect "effects\2.fx",1,0
     set limb effect 999, 1,1
     
      texture limb 1,0,155
      texture limb 1,1,156
      texture limb 1,2,357
      
      
      load image "maps\map_lm1.bmp",457,3
     load image "maps\map_lm2.bmp",458,3
      load image "maps\map_lm3.bmp",459,3
     load image "maps\map_lm4.bmp",460,3
     load image "maps\map_lm5.bmp",461,3
      texture limb 1,1,3,457
      texture limb 1,2,3,458
      texture limb 1,3,3,459
      texture limb 1,4,3,460
      texture limb 1,5,3,461
`SHADER TEST!

return float4(Texture*((Normal*Light)+Ambient)*LM,Texture.w*Alpha);

return float4(Texture*((Normal*Light)+Ambient),Texture.w*Alpha);

perform checklist for effect errors
for n = 1 to checklist quantity()
    print checklist string$(n)
next n

`load map
`map
load object "maps/map.dbo",999
position object 999, camera position x(0) , camera position y(0) + 100, camera position z(0)
position camera 0, object position x(999), camera position y(0), object position z(999) + 35
set object light 999,1

load image "effects\Floor.dds",155
   load image "effects\Floor_n.dds",156
    load image "effects\Normalize.dds",357,2
      
 load effect "effects\2.fx",1,0
   set object effect 999, 1

 load image "maps\map_lm1.bmp",457,3
    load image "maps\map_lm2.bmp",458,3
     load image "maps\map_lm3.bmp",459,3
    load image "maps\map_lm4.bmp",460,3
    load image "maps\map_lm5.bmp",461,3

 texture object 999,0,155
      texture object 999,1,156
      texture object 999,2,357
      
       texture object 999,3,457
      texture object 999,3,458
      texture object 999,3,459
      texture object 999,3,460
      texture object 999,3,461

       texture object 999,3,457
      texture object 999,3,458
      texture object 999,3,459
      texture object 999,3,460
      texture object 999,3,461

//====================================================
// NormalMapping
//====================================================
// By EVOLVED
// www.evolved-software.com
//====================================================

//--------------
// un-tweaks
//--------------
   matrix WorldVP:WorldViewProjection; 
   matrix World:World;    
   matrix ViewInv:ViewInverse; 
   matrix WorldInv:WorldInverse;

//--------------
// tweaks
//--------------
   float3 Ambient={0.1f,0.1f,0.1f};  
   float3 LightPosition={850.0f,3050.0f,0.0f};    
   float3 LightColor={1.0f,1.0f,1.0f};    
   float LightRange=58500.0f;         
   float4 FogColor={0.8f,0.8f,0.8f,1.0f};
   float FogRange=25000000.0f;
   float Alpha=1.0f;

//--------------
// Textures
//--------------
   texture LightMapTX <string Name="";>;
   sampler2D LightMap = sampler_state
    {
 	texture = <LightMapTX>;
    };
   texture BaseTX <string Name="";>;	
   sampler2D Base = sampler_state 
    {
 	texture = <BaseTX>;
    };
   texture NormalTX <string Name="";>;	
   sampler2D Normal = sampler_state 
    {
 	texture = <NormalTX>;
    };
   texture NormalizerTX <string Name = "";>;
   samplerCUBE Normalizer  = sampler_state 
    {
	Texture = <NormalizerTX>;
 	ADDRESSU =  Clamp;
	ADDRESSV =  Clamp;
    };

//--------------
// structs 
//--------------
   struct input
     {
 	float4 Pos:POSITION; 
 	float2 UV_lightmap:TEXCOORD0;
 	float2 UV:TEXCOORD1; 
	float3 Normal:NORMAL;
 	float3 Tangent:TANGENT;
 	float3 Binormal:BINORMAL;
     };
   struct output
     {
	float4 OPos:POSITION; 
 	float2 Tex:TEXCOORD0; 
  	float2 Tex_lightmap:TEXCOORD1;
  	float3 LightVec:TEXCOORD2;
	float3 Attenuation:TEXCOORD3;
	float3 ViewVec:TEXCOORD4; 
	float Fog:FOG;
     };

//--------------
// vertex shader
//--------------
   output VS(input IN) 
     {
 	output OUT;
	OUT.OPos=mul(IN.Pos,WorldVP); 
 	OUT.Tex=IN.UV;
 	OUT.Tex_lightmap = IN.UV_lightmap;
	float3x3 TBN={-IN.Tangent,IN.Binormal,IN.Normal};
	TBN=transpose(mul(TBN,World));
	float3 WPos=mul(IN.Pos,World);  
	float3 LightPos=LightPosition-WPos; 
	float3 ViewPos=ViewInv[3].xyz-WPos;
	OUT.LightVec=mul(LightPos,TBN);
	OUT.Attenuation=-(LightPos/LightRange); 
 	OUT.ViewVec=mul(ViewPos,TBN); 
	OUT.Fog=1-saturate(dot(ViewPos/FogRange,ViewPos/FogRange));
	return OUT;
     }

//--------------
// pixel shader
//--------------
   float4 PS(output IN)  : COLOR
     {
	float4 Texture=tex2D(Base,IN.Tex); 
	float3 NormalMap=tex2D(Normal,IN.Tex)*2-1; 
  	float3 LM=tex2D(LightMap,IN.Tex_lightmap).xyz;
	float3 LightV=texCUBE(Normalizer,IN.LightVec)*2-1;  	
	float3 View=texCUBE(Normalizer,IN.ViewVec)*2-1;
	float Normal=saturate(dot(reflect(-View,NormalMap),LightV));
	Normal=Normal*Normal; Normal=Normal*Normal; Normal=Normal*Normal; 
	Normal=Normal+saturate(dot(NormalMap,LightV)); 
	float PixelLight=1-saturate(dot(IN.Attenuation,IN.Attenuation));
	float3 Light=PixelLight*LightColor;
	return float4(Texture*((Normal*Light)+Ambient)*LM,Texture.w*Alpha);
     }

//--------------
// techniques   
//--------------
   technique NormalMapping
      {
 	pass p1
      {		
 	vertexShader = compile vs_1_1 VS(); 
 	pixelShader  = compile ps_1_4 PS();
	FOGCOLOR=(FogColor); 
	FOGENABLE=TRUE;	
      }
      }

 load image "effects\Floor.dds",155
 load image "effects\Floor_n.dds",156
 load image "effects\Normalize.dds",357,2
      
 load effect "effects\2.fx",1,0
 set object effect 999, 1

 rem NOTE: Don't texture stage 0 and let DBP automatically load the lightmaps
 texture object 999,1,155
 texture object 999,2,156
 texture object 999,3,357

`muzzle flash light glock
make light 1
color light 1, rgb(255,255,153)
set light range 1, 1555
hide light 1

`muzzle flash light special weapon
make light 3
color light 3, rgb(255,0,0)
set light range 3, 1555
hide light 3

`muzzle flash light spas12
make light 4
color light 4, rgb(255,255,153)
set light range 4, 1555
hide light 4

`muzzle flash light uzi
make light 5
color light 5, rgb(255,255,153)
set light range 5, 1555
hide light 5

`flash light light
make light 2
set spot light 2,50,50
rotate light 2, light direction x(2), light direction y(2), 90
color light 2, rgb(255,255,255)
hide light 2

`position muzzle flash light in real - time
if light exist(1) = 1
position light 1, camera position x(0) + 25, camera position y(0) - 15, camera position z(0) + 75
rotate light 1, camera angle x(0), camera angle y(0), camera angle z(0)
endif
`special weapon
if light exist(3) = 1
position light 3, camera position x(0) + 25, camera position y(0) - 15, camera position z(0) + 75
rotate light 3, camera angle x(0), camera angle y(0), camera angle z(0)
endif
`spas12
if light exist(4) = 1
position light 4, camera position x(0) + 25, camera position y(0) - 15, camera position z(0) + 75
rotate light 4, camera angle x(0), camera angle y(0), camera angle z(0)
endif
`uzi
if light exist(5) = 1
position light 5, camera position x(0) + 25, camera position y(0) - 15, camera position z(0) + 75
rotate light 5, camera angle x(0), camera angle y(0), camera angle z(0)
endif
`end position muzzle flash light in real - time

Function Fall()
   ox#=Object Position x(ColliderObjNum)
   oy#=Object Position y(ColliderObjNum)
   oz#=Object Position z(ColliderObjNum)

   Delta#=Gravity/Screen FPS()

   ny#=EyeHeight + (oy#-Intersect Object(999, ox#, oy#, oz#, ox#, -1000, oz#))

   If (oy#-ny#)<=Delta#
      Position Object ColliderObjNum, ox#, ny#, oz#
      Position Camera 0, ox#, ny#, oz#
      Airborn = 0
   Else
      Position Object ColliderObjNum, ox#, oy#-delta#, oz#
      Position Camera 0, ox#, oy#-delta#, oz#

   EndIf


EndFunction

Function CheckCollision()
   Moving = 0
   
   ox#=Object Position x(ColliderObjNum)
   oy#=Object Position y(ColliderObjNum)
   oz#=Object Position z(ColliderObjNum)
   
   Delta#=MovePerSec/Screen FPS()

   If Delta#>EyeHeight
      Delta#=EyeHeight
   EndIf

   Rotate Object ColliderObjNum, Object Angle x(ColliderObjNum)+(MouseMovey()/MouseSens),Object Angle y(ColliderObjNum)+(MouseMovex()/MouseSens),0

   If Object Angle x(ColliderObjNum)>90 then XRotate Object ColliderObjNum,90
   If Object Angle x(ColliderObjNum)<-90 then XRotate Object ColliderObjNum,-90
   cx#=Object Angle x(ColliderObjNum)
   cy#=Object Angle y(ColliderObjNum)
   cz#=Object Angle z(ColliderObjNum)
   Rotate Camera cx#, cy#, cz#
   Rotate Object ColliderObjNum, cx#, cy#, cz#

if keystate(17) = 1
    XRotate Object ColliderObjNum,0
   Move Object ColliderObjNum,Delta#
    XRotate Object ColliderObjNum,cx#
     endif
     
    if keystate(31) = 1
   XRotate Object ColliderObjNum,0
  Move Object ColliderObjNum,0-Delta#
 XRotate Object ColliderObjNum,cx#
endif

      if keystate(30) = 1
     XRotate Object ColliderObjNum,0
    YRotate Object ColliderObjNum,cy#-90
   Move Object ColliderObjNum,Delta#
    YRotate Object ColliderObjNum,cy#
     XRotate Object ColliderObjNum,cx#
endif

if keystate(32) = 1
     XRotate Object ColliderObjNum,0
    YRotate Object ColliderObjNum,cy#-90
    Move Object ColliderObjNum,0-Delta#
     YRotate Object ColliderObjNum,cy#
     XRotate Object ColliderObjNum,cx#
endif

   nx#=Object Position x(ColliderObjNum)
   nz#=Object Position z(ColliderObjNum)
   ny#=EyeHeight + (oy#-Intersect Object(999, nx#, oy#, nz#, nx#, -1000, nz#))
   
   if nx# > ox#
      newxwest# = intersect object(999,nx#,ny#,nz#,nx#+(EyeHeight/2),ny#,nz#)
   endif
   
   if newxwest# > 0
      if newxwest# < object size x(55)/2
         nx# = ox#
      endif
   endif
   
   if object collision(ColliderObjNum,0) <> 0
      position object ColliderObjNum, ox#, ny#, nz#
      if object collision(ColliderObjNum, 0)<>0
         Position object ColliderObjNum, nx#, ny#, oz#
         If Object Collision(ColliderObjNum, 0)<>0
            Position Object ColliderObjNum, nx#, oy#, nz#

            If Object Collision(ColliderObjNum, 0)<>0
               ny#=oy#
               nx#=ox#
               nz#=oz#
            Else
               ny#=oy#
            EndIf
         Else
            nz#=oz#
         EndIf
     else
        nx# = ox#
     endif
   EndIf

   if (oy#-ny#) > EyeHeight
      AirBorn = 1
      ny#=oy#
      CheckFall()
   EndIF
   
   Position Camera 0, nx#, ny#, nz#
   Position Object ColliderObjNum, nx#, ny#, nz#
   
EndFunction

Function CheckFall()

   ox#=Object Position x(ColliderObjNum)
   oy#=Object Position y(ColliderObjNum)
   oz#=Object Position z(ColliderObjNum)
   ny#=EyeHeight + (oy#-Intersect Object(999, ox#, oy#, oz#, ox#, -1000, oz#))
   
   position object ColliderObjNum, ox#, ny#, oz#

   if object collision(ColliderObjNum,0) <> 0
      Airborn=0
   EndIf
   
EndFunction