Sorry your browser is not supported!

Color Backdrop 0
Make Object Cube 1, 1
Set Object Mask 1, 2^1 ` For camera 1 only

Make Object Plane 2, 5, 5
Color Object 2, RGB(255,0,0)
XRotate Object 2, 270 : Fix Object Pivot 2
Move Object Down 2, 2
Set Object Mask 2, 2^1 ` For camera 1 only


`Create camera one
Make Camera 1
Move Camera 1, -10
Color Backdrop 1, 0

Set Camera To Image 1, 1, Screen Width(), Screen Height()
`Sprite 1,0,0,1	` You may use sprites if you do not wish to use the Advanced 2D upgrade
`Hide Sprite 1

CLS

` Switch current camera from 1 to 0 and prepare the scene
Sync On : Sync Rate 60
Set Current Camera 0
fSpeed# = 0.0
MotionBlurMode = 1
Do
	
	` Do not wipe out the previous frame, leave it off whilst in motion blur mode
	If MotionBlurMode
		Backdrop Off 
	Else
		Backdrop On
	endif
	
	MotionBlurMode = 1 - Spacekey() : While Spacekey() : Nice Wait 10 : EndWhile
	
	` Draw camera with semi-transparency 
	a2DrawImage 1, 0, 0, 0, 0,0, 1.0, 0, 0x30FFFFFF	`(The two D's represent the alpha channel; try 20,30,AA,FF and see...)
																									` Or with Matrix1: RGB(a,r,g,b)
	` Simulate motion
	fSpeed# = CurveValue( 0.1, fSpeed#, 10 )
	Position Object 1, Sin( Timer() * fSpeed# ), Cos( Timer() * fSpeed# ), 0.0
	Turn Object Left 2, 0.5
	
	` Provide camera with movement
	Control Camera Using Arrowkeys 1, 1, 1

	` Synchronize both cameras
	Sync
	
Loop

CLS
SET DISPLAY MODE 1024,768,32
SET WINDOW ON
SYNC ON
SYNC RATE 60
SET IMAGE COLORKEY 255,0,255
MAKE CAMERA 1
SET CAMERA FOV 1, 25
LOAD OBJECT "teapot.x", 1
LOAD IMAGE "teapot.jpg", 1
TEXTURE OBJECT 1, 1
POSITION OBJECT 1, 0, 0, 0
MAKE OBJECT PLAIN 2, 10, 10
ROTATE OBJECT 2, 90, 0, 0
POSITION OBJECT 2, 0, -3, 0

LOAD EFFECT "Ambient.fx", 1, 0
SET OBJECT EFFECT 1, 1

Angle = 0
REPEAT
IF RIGHTKEY() = 1 THEN Angle = Angle + 1
IF LEFTKEY() = 1 THEN Angle = Angle -1
IF Angle > 360 THEN Angle = Angle - 360
IF Angle < 0 THEN Angle = Angle + 360

POSITION CAMERA 1, COS(Angle)*10, 3, SIN(Angle)*10
POINT CAMERA 1, 0, 0, 0

SYNC
UNTIL SPACEKEY() = 1

texture ModelTexture
< string Name = ""; >;

/// Image 25 is the scoreboard display.  The player
/// will see the scoreboard until they pres the space bar.	
GET IMAGE 25, 0, 0, 1920, 1080, 1
	
REPEAT
	PASTE IMAGE 25, 0, 0
	SYNC
UNTIL SPACEKEY() = 1
        
/// Object 24 is the scoreboard
TEXTURE OBJECT 24, 25

TEXTURE OBJECT 24, 25

TEXTURE OBJECT 24, 0, 25

texture object 10, 0, 3 ` objId, stageId, imageId
texture object 10, 1, 5
texture object 10, 2, 6

GET IMAGE 25, 0, 0, 1920, 1080, 1
	
REPEAT
	PASTE IMAGE 25, 0, 0
	SYNC
UNTIL SPACEKEY() = 1
        
TEXTURE OBJECT 24, 0, 25
LOAD EFFECT "Scoreboard.fx", 1, 0
SET OBJECT EFFECT 24, 1

texture ModelTexture
< string Name = ""; >;

// example 1
texture ModelTexture;
//                  ^
//                  |
//           This semi-colon...




texture ModelTexture
< string Name = ""; >;
//                   ^
//                   |
//       ...is the same as this one


// and "decompressed" it looks like this:
texture ModelTexture
<
   string Name = "";
   // further attributes here
>;

float someValue
<
    string UIWidget = "slider"; // use a slider
    float UIMax = 10.0; // maximum value of slider
    float UIMin = 0.0; // minimum value of slider
    float UIStep = 0.01; // step value of slider
>;

float4x4 World : World;
float4x4 View : View;
float4x4 Projection : Projection;
float4x4 WorldInverseTranspose : WorldInverseTranspose;
 
float4 AmbientColor = float4(1, 1, 1, 1);
float AmbientIntensity = 1.0;
 
float3 DiffuseLightDirection = float3(0, 1, 0);
float4 DiffuseColor = float4(1, 1, 1, 1);
float DiffuseIntensity = 0.2;
 
texture ModelTexture
< string Name = ""; >;
sampler2D textureSampler = sampler_state {
    Texture = (ModelTexture);
    MinFilter = Linear;
    MagFilter = Linear;
    AddressU = Clamp;
    AddressV = Clamp;
};
 
struct VertexShaderInput
{
    float4 Position : POSITION0;
    float4 Normal : NORMAL0;
    float2 TextureCoordinate : TEXCOORD0;
};
 
struct VertexShaderOutput
{
    float4 Position : POSITION0;
    float4 Color : COLOR0;
    float3 Normal : TEXCOORD0;
    float2 TextureCoordinate : TEXCOORD1;
};
 
VertexShaderOutput VertexShaderFunction(VertexShaderInput input)
{
    VertexShaderOutput output;
 
    float4 worldPosition = mul(input.Position, World);
    float4 viewPosition = mul(worldPosition, View);
    output.Position = mul(viewPosition, Projection);
 
    float4 normal = normalize(mul(input.Normal, WorldInverseTranspose));
    float lightIntensity = dot(normal, DiffuseLightDirection);
    output.Color = saturate(DiffuseColor * DiffuseIntensity * lightIntensity);
 
    output.Normal = normal;
 
    output.TextureCoordinate = input.TextureCoordinate;
    return output;
}
 
float4 PixelShaderFunction(VertexShaderOutput input) : COLOR0
{
    float3 light = normalize(DiffuseLightDirection);
    float3 normal = normalize(input.Normal);
 
    float4 textureColor = tex2D(textureSampler, input.TextureCoordinate);
    textureColor.a = 1;
 
    return saturate(textureColor * (input.Color) * AmbientColor * AmbientIntensity);
}
 
technique Textured
{
    pass Pass1
    {
        VertexShader = compile vs_1_1 VertexShaderFunction();
        PixelShader = compile ps_2_0 PixelShaderFunction();
    }
}

texture ModelTexture
< string Name = ""; >;
sampler2D textureSampler = sampler_state {
    Texture = (ModelTexture);
    MinFilter = Linear;
    MagFilter = Linear;
    AddressU = Clamp;
    AddressV = Clamp;
};

texture ModelTexture
< string Name = ""; >;
sampler2D textureSampler = sampler_state {
    Texture = <ModelTexture>;
    MinFilter = Linear;
    MagFilter = Linear;
    AddressU = Clamp;
    AddressV = Clamp;
};

GET IMAGE 25, 0, 0, 1920, 1080, 1
	
REPEAT
	PASTE IMAGE 25, 0, 0
	SYNC
UNTIL SPACEKEY() = 1
TEXTURE OBJECT 24, 0, 25
LOAD EFFECT "Scoreboard.fx", 1, 0
SET OBJECT EFFECT 24, 1

DisplayScoreboard:
	CLS 0
		SET TEXT FONT "Times Square"
		SET TEXT SIZE 44
		DRAW SPRITES LAST
                BoardEvent$ = Upper$(Event$)
		IF Round < 3
			BoardEvent$ = BoardEvent$ + " GROUP B"
			FirstLifter = GroupACutoff + 1
			LastLifter = Athletes
		ELSE
			BoardEvent$ = BoardEvent$ + " GROUP A"
			FirstLifter = 1
			LastLifter = GroupACutoff
		ENDIF
		
		INK 0, 0
		BOX 0, 0, 1920, 1080
		INK RGB(255,255,255), 0
		TEXT 50, 20, BoardEvent$
		TEXT 50, 59, "RANK"
		TEXT 160, 59, "NAME"
		TEXT 634, 59, "NOC"
		TEXT 722, 59, "BWEIGHT"
		TEXT 894, 59, "BORN"
		TEXT 1100, 59, "1"
		TEXT 1210, 59, "2"
		TEXT 1320, 59, "3"
		TEXT 1452, 59, "1"
		TEXT 1562, 59, "2"
		TEXT 1672, 59, "3"
		TEXT 1166, 20, "SNATCH"
		TEXT 1430, 20, "CLEAN & JERK"
		TEXT 1760, 20, "TOTAL"
		
		FOR T = 1 TO (LastLifter - FirstLifter + 1)
			INK RGB(255, 200, 0), 0
			DrawLifter = T + FirstLifter - 1
			IF T > 9 THEN XPos = 94 ELSE XPos = 116
			TEXT XPos, 59 + T * 39, STR$(T)
			TEXT 160, 59 + T * 39, Upper$(FirstName$(Place(DrawLifter))) + " " + Upper$(LastName$(Place(DrawLifter)))
			TEXT 634, 59 + T * 39, Country$(Place(DrawLifter))
			IF PlayerWeight(Place(DrawLifter)) > 9999 THEN XPos = 752 ELSE XPos = 774
			CurrentWeight# = PlayerWeight(Place(DrawLifter))
			CurrentWeight# = CurrentWeight# / 100
			CurrentWeight$ = STR$(CurrentWeight#, 2)
			TEXT XPos, 59 + T * 39, CurrentWeight$
			TEXT 894, 59 + T * 39, STR$(PlayerBorn(Place(DrawLifter)))
			
			REM Write Total Score
			IF PlayerCandJFinal(Place(DrawLifter)) > 0 THEN TEXT 1784, 59 + T * 39, STR$(PlayerTotal(Place(DrawLifter)))
			
			REM Put score of first Snatch lift
			IF PlayerSnatchScore(Place(DrawLifter), 2) = 0 THEN INK RGB(255,200,0),0
			IF PlayerSnatchScore(Place(DrawLifter), 2) = 1 THEN INK RGB(200,0,0),0
			IF PlayerSnatchScore(Place(DrawLifter), 2) > 1 THEN INK RGB(0,255,0),0
			IF PlayerSnatchScore(Place(DrawLifter), 1) > 99 THEN XPos = 1058 ELSE XPos = 1082
			
			IF PlayerSnatchScore(Place(DrawLifter), 2) > 1 AND PlayerSnatchScore(Place(DrawLifter), 4) = 1 AND PlayerSnatchScore(Place(DrawLifter), 6) = 1
					INK RGB(0,255,0),RGB(0,255,0)
					BOX 1058, (64 + T * 39), 1126, (101 + T * 39)
					INK 0, RGB(0,255,0)
				ENDIF
			
			TEXT XPos, 59 + T * 39, STR$(PlayerSnatchScore(Place(DrawLifter),1))
			
			REM Put score of second Snatch lift
			IF PlayerSnatchScore(Place(DrawLifter), 4) = 0 THEN INK RGB(255,200,0),0
			IF PlayerSnatchScore(Place(DrawLifter), 4) = 1 THEN INK RGB(200,0,0),0
			IF PlayerSnatchScore(Place(DrawLifter), 4) > 1 THEN INK RGB(0,255,0),0
			IF PlayerSnatchScore(Place(DrawLifter), 3) > 99 THEN XPos = 1168 ELSE XPos = 1192
			
			IF PlayerSnatchScore(Place(DrawLifter), 4) > 1 AND PlayerSnatchScore(Place(DrawLifter), 6) = 1
					INK RGB(0,255,0),RGB(0,255,0)
					BOX 1168, (64 + T * 39), 1236, (101 + T * 39)
					INK 0, RGB(0,255,0)
				ENDIF
			
			IF PlayerSnatchScore(Place(DrawLifter), 3) > 0 THEN TEXT XPos, 59 + T * 39, STR$(PlayerSnatchScore(Place(DrawLifter),3))
			
			REM Put score of final Snatch lift
			IF PlayerSnatchScore(Place(DrawLifter), 6) = 0 THEN INK RGB(255,200,0),0
			IF PlayerSnatchScore(Place(DrawLifter), 6) = 1 THEN INK RGB(200,0,0),0
			IF PlayerSnatchScore(Place(DrawLifter), 6) > 1 THEN INK RGB(0,255,0),0
			IF PlayerSnatchScore(Place(DrawLifter), 5) > 99 THEN XPos = 1278 ELSE XPos = 1302
			
			IF PlayerSnatchScore(Place(DrawLifter), 6) > 1
					INK RGB(0,255,0),RGB(0,255,0)
					BOX 1278, (64 + T * 39), 1346, (101 + T * 39)
					INK 0, RGB(0,255,0)
				ENDIF
			
			IF PlayerSnatchScore(Place(DrawLifter), 5) > 0 THEN TEXT XPos, 59 + T * 39, STR$(PlayerSnatchScore(Place(DrawLifter),5))
			
			REM Put score of first Clean and Jerk lift
			IF PlayerCandJScore(Place(DrawLifter), 2) = 0 THEN INK RGB(255,200,0),0
			IF PlayerCandJScore(Place(DrawLifter), 2) = 1 THEN INK RGB(200,0,0),0
			IF PlayerCandJScore(Place(DrawLifter), 2) > 1 THEN INK RGB(0,255,0),0
			IF PlayerCandJScore(Place(DrawLifter), 1) > 99 THEN XPos = 1410 ELSE XPos = 1434
			
			IF PlayerCandJScore(Place(DrawLifter), 2) > 1 AND PlayerCandJScore(Place(DrawLifter), 4) = 1 AND PlayerCandJScore(Place(DrawLifter), 6) = 1
					INK RGB(0,255,0),RGB(0,255,0)
					BOX 1410, (64 + T * 39), 1478, (101 + T * 39)
					INK 0, RGB(0,255,0)
				ENDIF
			
			TEXT XPos, 59 + T * 39, STR$(PlayerCandJScore(Place(DrawLifter),1))
			
			REM Put score of second Clean and Jerk lift
			IF PlayerCandJScore(Place(DrawLifter), 4) = 0 THEN INK RGB(255,200,0),0
			IF PlayerCandJScore(Place(DrawLifter), 4) = 1 THEN INK RGB(200,0,0),0
			IF PlayerCandJScore(Place(DrawLifter), 4) > 1 THEN INK RGB(0,255,0),0
			IF PlayerCandJScore(Place(DrawLifter), 3) > 99 THEN XPos = 1520 ELSE XPos = 1544
			
			IF PlayerCandJScore(Place(DrawLifter), 4) > 1 AND PlayerCandJScore(Place(DrawLifter), 6) = 1
					INK RGB(0,255,0),RGB(0,255,0)
					BOX 1520, (64 + T * 39), 1588, (101 + T * 39)
					INK 0, RGB(0,255,0)
				ENDIF
			
			IF PlayerCandJScore(Place(DrawLifter), 3) > 0 THEN TEXT XPos, 59 + T * 39, STR$(PlayerCandJScore(Place(DrawLifter),3))
			
			REM Put score of third Clean and Jerk lift
			IF PlayerCandJScore(Place(DrawLifter), 6) = 0 THEN INK RGB(255,200,0),0
			IF PlayerCandJScore(Place(DrawLifter), 6) = 1 THEN INK RGB(200,0,0),0
			IF PlayerCandJScore(Place(DrawLifter), 6) > 1 THEN INK RGB(0,255,0),0
			IF PlayerCandJScore(Place(DrawLifter), 5) > 99 THEN XPos = 1630 ELSE XPos = 1654
			
			IF PlayerCandJScore(Place(DrawLifter), 6) > 1
					INK RGB(0,255,0),RGB(0,255,0)
					BOX 1630, (64 + T * 39), 1698, (101 + T * 39)
					INK 0, RGB(0,255,0)
				ENDIF
			
			IF PlayerCandJScore(Place(DrawLifter), 5) > 0 THEN TEXT XPos, 59 + T * 39, STR$(PlayerCandJScore(Place(DrawLifter),5))
		NEXT T
		
		TEXT 150, 900, "NEXT ATTEMPT: " + FirstName$(CurrentLifter) + " " + LastName$(CurrentLifter) + " - " + STR$(Weight) + " kg"
		
	REM Image 25 will be used to texture the scoreboard and image 26 will repeat on screen until the button is pressed	
	GET IMAGE 25, 0, 0, 1920, 1080, 1
	
	REPEAT
		PASTE IMAGE 25, 0, 0
		SYNC
	UNTIL SPACEKEY() = 1
	TEXTURE OBJECT 24, 0, 25
	LOAD EFFECT "Scoreboard.fx", 1, 0
	SET OBJECT EFFECT 24, 1
RETURN

GET IMAGE 25, 0, 0, 1920, 1080, 1
	
REPEAT
	PASTE IMAGE 25, 0, 0
	SYNC
UNTIL SPACEKEY() = 1
TEXTURE OBJECT 24, 0, 25
LOAD EFFECT "Scoreboard.fx", 1, 0
`SET OBJECT EFFECT 24, 1

GET IMAGE 25, 0, 0, 1920, 1080, 1
	
REPEAT
	PASTE IMAGE 25, 0, 0
	SYNC
UNTIL SPACEKEY() = 1
TEXTURE OBJECT 24, 0, 25
LOAD EFFECT "Scoreboard.fx", 1, 0
SET OBJECT EFFECT 24, 1

float4x4 World : World;
float4x4 View : View;
float4x4 Projection : Projection;
float4x4 WorldInverseTranspose : WorldInverseTranspose;
 
float4 AmbientColor = float4(1, 1, 1, 1);
float AmbientIntensity = 1.0;
 
float3 DiffuseLightDirection = float3(0, 1, 0);
float4 DiffuseColor = float4(1, 1, 1, 1);
float DiffuseIntensity = 0.2;
 
texture ModelTexture
< string Name = ""; >;
sampler2D textureSampler = sampler_state {
    Texture = <ModelTexture>;
    MinFilter = Linear;
    MagFilter = Linear;
    AddressU = Clamp;
    AddressV = Clamp;
};
 
struct VertexShaderInput
{
    float4 Position : POSITION0;
    float4 Normal : NORMAL0;
    float2 TextureCoordinate : TEXCOORD0;
};
 
struct VertexShaderOutput
{
    float4 Position : POSITION0;
    float4 Color : COLOR0;
    float3 Normal : TEXCOORD0;
    float2 TextureCoordinate : TEXCOORD1;
};
 
VertexShaderOutput VertexShaderFunction(VertexShaderInput input)
{
    VertexShaderOutput output;
 
    float4 worldPosition = mul(input.Position, World);
    float4 viewPosition = mul(worldPosition, View);
    output.Position = mul(viewPosition, Projection);
 
    float4 normal = normalize(mul(input.Normal, WorldInverseTranspose));
    float lightIntensity = dot(normal, DiffuseLightDirection);
    output.Color = saturate(DiffuseColor * DiffuseIntensity * lightIntensity);
 
    output.Normal = normal;
 
    output.TextureCoordinate = input.TextureCoordinate;
    return output;
}
 
float4 PixelShaderFunction(VertexShaderOutput input) : COLOR0
{
    float3 light = normalize(DiffuseLightDirection);
    float3 normal = normalize(input.Normal);
 
    float4 textureColor = tex2D(textureSampler, input.TextureCoordinate);
    textureColor.a = 1;
 
    return saturate(textureColor * (input.Color) * AmbientColor * AmbientIntensity);
}
 
technique Textured
{
    pass Pass1
    {
        VertexShader = compile vs_1_1 VertexShaderFunction();
        PixelShader = compile ps_2_0 PixelShaderFunction();
    }
}

return saturate(textureColor * (input.Color) * AmbientColor * AmbientIntensity)

return saturate(textureColor * AmbientColor * AmbientIntensity)