Sorry your browser is not supported!

uniform sampler2D texture0;
uniform sampler2D texture1;
uniform sampler2D texture2;
uniform sampler2D texture3;
varying highp vec3 posVarying;
varying mediump vec3 normalVarying;
varying mediump vec2 uvVarying;
varying mediump vec3 lightVarying;
mediump vec3 GetPSLighting( mediump vec3 normal, highp vec3 pos );
mediump vec3 ApplyFog( mediump vec3 color, highp vec3 pointPos );
uniform vec4 myColor;
uniform mediump vec4 agk_MeshDiffuse;
mediump vec4 colorResult;
uniform float lightint;
uniform float lightson;
uniform float stage;
void main()
{
	mediump vec3 norm = normalize(normalVarying);
	mediump vec3 light = lightVarying + GetPSLighting( norm, posVarying );
	vec4 colorA = texture2D(texture0, uvVarying);
	vec4 colorB;
	if (stage < 1.1) {
		colorB = texture2D(texture1, uvVarying);
 	} else {
		if (stage < 2.1) {
			colorB = texture2D(texture2, uvVarying);
 		} else {
			if (stage < 3.1) {
			colorB = texture2D(texture3, uvVarying);
			}
		}
	}
	if (lightson < 1.0) {
		colorResult = vec4(colorA * vec4(light,1.0))*lightint;
 	} else {
		if (colorB.a > 0.0) {
			colorResult = vec4 ((colorA * vec4(light,1.0))*lightint) + (colorB*colorB.a);
		} else {
			colorResult =vec4(colorA * vec4(light,1.0))*lightint;
		}
	}
gl_FragColor = colorResult;
}

attribute highp vec3 position;
attribute mediump vec3 normal;
attribute mediump vec2 uv;
varying highp vec3 posVarying;
varying mediump vec3 normalVarying;
varying mediump vec2 uvVarying;
varying mediump vec3 lightVarying;
uniform highp mat3 agk_WorldNormal;
uniform highp mat4 agk_World;
uniform highp mat4 agk_ViewProj;
uniform mediump vec4 uvBounds0;
mediump vec3 GetVSLighting( mediump vec3 normal, highp vec3 pos );
void main()
{
    uvVarying = uv * uvBounds0.xy + uvBounds0.zw;
    highp vec4 pos = agk_World * vec4(position,1.0);
    gl_Position = agk_ViewProj * pos;
    mediump vec3 norm = normalize(agk_WorldNormal * normal);
    posVarying = pos.xyz;
    normalVarying = norm;
    lightVarying = GetVSLighting( norm, posVarying );
}

color *= step(yourUniform.x, uv.y)*step(uv.y, yourUniform.y);

color.rgb *= max(step(yourUniform.x, uv.y)*step(uv.y, yourUniform.y), color.a);

vec3 cl = vec3(0.0);
if (uv.y > yourUniform.x && uv.y < yourUniform.y) cl = texture2D(texture0, uv).rgb;

	
//Rotating rooflight(sirene).
	// create armature..
	Global rooflightstand
	rooflightstand = CreateObjectCylinder (60,40,10) //( height, diameter, segments ) 
	SetObjectColor (rooflightstand,155,155,155,255)
	SetObjectCastShadow(rooflightstand,1)

	Global roofLightBulb
	roofLightBulb = CreateObjectCapsule(40.0, 80.0, 90) //( diameter, height, axis )
	SetObjectColor (roofLightBulb,255,255,255,50)
	SetObjectTransparency(roofLightBulb,1)
	SetObjectColorEmissive(roofLightBulb,255,255,255)
	MoveObjectLocalY(roofLightBulb, 50)
	FixObjectToObject( roofLightBulb, rooflightstand ) 

	// create the mechanics..
	Global lightSource
	lightSource = CreateObjectBox(10.0, 10.0, 10.0)
	SetObjectPosition (lightSource, 0, 0,0)
	SetObjectColor (lightSource,0,0,0,50)
	SetObjectTransparency(lightSource,1)
	SetObjectColorEmissive(lightSource,0,0,0)
	FixObjectToObject( lightSource,roofLightBulb )

	 // bluelightObject and redLightObject are thingies the pointlights are fixed to:
	Global blueLightObject
	blueLightObject = CreateObjectBox (10, 10, 10)
	SetObjectPosition (blueLightObject, getObjectX (lightSource)-200.0, getObjectY (lightSource), getObjectZ (lightSource))
	FixObjectToObject( blueLightObject, lightSource )
	SetObjectColor (blueLightObject,0,0,255,255)
	SetObjectVisible (blueLightObject, 0)
	SetObjectCollisionMode(blueLightObject, 0)

	blucone=CreateObjectCone(200,160,32)
	SetObjectRotation(blucone,90,90,0)
	SetObjectColor (blucone,0,0,255,10)
	SetObjectVisible (blucone, 0)
	FixObjectToObject( blucone, blueLightObject )
	MoveObjectLocalY(blucone,100)
	SetObjectTransparency(blucone,1)
	SetObjectColorEmissive(blucone,0,0,1255)
	SetObjectCollisionMode(blucone, 0)

	Global redLightObject 
	redLightObject = CreateObjectBox (10, 10, 10)
	SetObjectPosition (redLightObject, getObjectX (lightSource)+200.0, getObjectY (lightSource), getObjectZ (lightSource))
	FixObjectToObject( redLightObject, lightSource )
	SetObjectColor (redLightObject,255,0,0,255)
	SetObjectVisible (redLightObject, 0)
	SetObjectCollisionMode(redLightObject, 1)
	
	redcone=CreateObjectCone(200,160,32)
	SetObjectRotation(redcone,90,-90,0)
	SetObjectColor (redcone,255,0,0,10)
	SetObjectVisible (redcone, 0)
	FixObjectToObject( redcone, redLightObject )
	MoveObjectLocalY(redcone,100) //-20)
	//MoveObjectLocalZ(redcone,50)
	SetObjectTransparency(redcone,1)
	SetObjectColorEmissive(redcone,1255,0,0)
	SetObjectCollisionMode(redcone, 0)

	// Here's the lights:
	Global blueLight as Integer
	blueLight = 123
	CreatePointLight( blueLight, getObjectWorldX (blueLightObject), getObjectWorldY (blueLightObject), getObjectWorldZ (blueLightObject), 400, 0, 0, 255 ) 
	SetPointLightMode( blueLight, 1 ) 
	Global redLight as Integer
	redLight = 124
	CreatePointLight( redLight, getObjectWorldX (redLightObject), getObjectWorldY (redLightObject), getObjectWorldZ (redLightObject), 800, 255, 0, 0 ) 
	SetPointLightMode( redLight, 1 )
	
	SetObjectPosition (rooflightstand, GetObjectWorldX(floor3A), GetObjectWorldY(floor3A)+50,GetObjectWorldZ(floor3A))

function createHeadlights(carBlock as integer)


	if GetObjectExists(carLightObj) then DeleteObject(carLightObj)
	if GetObjectExists(carLightObj+1) then DeleteObject(carLightObj+1)
	
	CreateObjectBox (carLightObj,10.0, 10.0, 10.0)
	SetObjectPosition (carLightObj,-40.0, 32, 400)
	CreateObjectBox (carLightObj+1,10.0, 10.0, 10.0)
	SetObjectPosition (carLightObj+1,35.0, 32, 400)
	SetObjectVisible(carLightObj,0)
	SetObjectCollisionMode(carLightObj,0)
	SetObjectVisible(carLightObj+1,0)
	SetObjectCollisionMode(carLightObj+1,0)

	
	if GetPointLightExists(carLight) then DeletePointLight(carLight)
	if GetPointLightExists(carLight+1) then DeletePointLight(carLight+1)
	
	CreatePointLight( carLight, getObjectX (carLightObj), getObjectY (carLightObj), getObjectZ (carLightObj), 400.0, 255, 255, 255 ) 
	SetPointLightMode(carLight, 1 )
	CreatePointLight( carLight+1, getObjectX (carLightObj+1), getObjectY (carLightObj+1), getObjectZ (carLightObj+1), 400.0, 255, 255, 255 ) 
	SetPointLightMode(carLight+1, 1 )

	FixObjectToObject( carLightObj, carBlock ) 
	FixObjectToObject( carLightObj+1, carBlock)

	
	SetPointLightPosition( carLight, GetObjectWorldX (carLightObj), getObjectWorldY (carLightObj), getObjectWorldZ (carLightObj)) 
	SetPointLightPosition( carLight+1, GetObjectWorldX (carLightObj+1), getObjectWorldY (carLightObj+1), getObjectWorldZ (carLightObj+1)) 
	
endfunction 

SetPointLightPosition( carLight, GetObjectWorldX (carLightObj), getObjectWorldY (carLightObj), getObjectWorldZ (carLightObj)) 
SetPointLightPosition( carLight+1, GetObjectWorldX (carLightObj+1), getObjectWorldY (carLightObj+1), getObjectWorldZ (carLightObj+1)) 

Function UpdateProjectile()

	for n = 0 to bulletcount // k to total ammount of bullits (sofar)..
		//bulletcount = bulletcount + 1
		//if bulletcount > 30 then bulletcount = 0

			//if bullet[n].objectID >0 // if object exists
				//if GetObjectExists(bullet[n].objectID) = 1
				//x#=  getspritex (bullit[bullitcount].id)
				//y#=  getspritey(bullit[bullitcount].id)
				//y#=y#-4
				//x#=x#
				//setspriteposition (bullit[bullitcount].id, x# ,y# )
				MoveObjectLocalZ(bullet[n].objectID,bulletspeed#)

				
				//remstart // enable for light following bullet..
				bullx#=GetObjectX(bullet[n].objectID)
				bully#=GetObjectY(bullet[n].objectID)
				bullz#=GetObjectZ(bullet[n].objectID)
				SetPointLightPosition(bulletLight[n], bullx#,bully#,bullz#)
				//remend

				remstart
					// update position of light gunfire flash ..
					gunendIDx#=GetObjectWorldX(gunendID) 
					gunendIDy#=GetObjectWorldY(gunendID)
					gunendIDz#=GetObjectWorldZ(gunendID)
					
					If GetPointLightExists( gunFire ) = 1 and timer()< gunFireFlashDelay#
						SetPointLightPosition(gunFire, gunendIDx#,gunendIDy#, gunendIDz#)
					ElseIf  GetPointLightExists(gunFire) = 1 and timer()> gunFireFlashDelay#
						//SetObjectColorEmissive(gunendID,0,0,0)
						DeletePointLight( gunFire )
					Endif
				remend
		
				if  timer() > bullet[n].lifetime
					//DeleteObject(bullet[n].objectID)
					
					DeletePointLight(bulletLight[n])  // enable if  bullet following light is active
					
					//if timer()>GunFireLightdelay#
					//		DeletePointLight ( GunFireLight )
					//endif
					
					//bulletcount=bulletcount-1
				endif	

			//endif
		//endif
	next n

EndFunction