//---------------------------------------------------------------------------

#include <vcl.h>
#include <mmsystem.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;

int die1, die2, sum;
AnsiString myString;

void rollDice (void) {
	sum = 0;
	die1 = random(6) + 1;
	die2 = random(6) + 1;
	sum = die1 + die2;

	// Make all the images invisible
	Form1->ImageA1->Visible = false;
	Form1->ImageA2->Visible = false;
	Form1->ImageA4->Visible = false;
	Form1->ImageA3->Visible = false;
	Form1->ImageA5->Visible = false;
	Form1->ImageA6->Visible = false;
	Form1->ImageB1->Visible = false;
	Form1->ImageB2->Visible = false;
	Form1->ImageB3->Visible = false;
	Form1->ImageB4->Visible = false;
	Form1->ImageB5->Visible = false;
	Form1->ImageB6->Visible = false;
	// Make the appropriate images visible
	switch (die1) {
		case 1: Form1->ImageA1->Visible = true; break;
		case 2: Form1->ImageA2->Visible = true; break;
		case 3: Form1->ImageA3->Visible = true; break;
		case 4: Form1->ImageA4->Visible = true; break;
		case 5: Form1->ImageA5->Visible = true; break;
		case 6: Form1->ImageA6->Visible = true; break;
	}
	switch (die2) {
		case 1: Form1->ImageB1->Visible = true; break;
		case 2: Form1->ImageB2->Visible = true; break;
		case 3: Form1->ImageB3->Visible = true; break;
		case 4: Form1->ImageB4->Visible = true; break;
		case 5: Form1->ImageB5->Visible = true; break;
		case 6: Form1->ImageB6->Visible = true; break;
	}
	Application->ProcessMessages();
	switch (sum) {
		case 2: PlaySound(MAKEINTRESOURCE(2), HInstance, SND_RESOURCE); break;
		case 3: PlaySound(MAKEINTRESOURCE(3), HInstance, SND_RESOURCE); break;
		case 4: PlaySound(MAKEINTRESOURCE(4), HInstance, SND_RESOURCE); break;
		case 5: PlaySound(MAKEINTRESOURCE(5), HInstance, SND_RESOURCE); break;
		case 6: PlaySound(MAKEINTRESOURCE(6), HInstance, SND_RESOURCE); break;
		case 7: PlaySound(MAKEINTRESOURCE(7), HInstance, SND_RESOURCE); break;
		case 8: PlaySound(MAKEINTRESOURCE(8), HInstance, SND_RESOURCE); break;
		case 9: PlaySound(MAKEINTRESOURCE(9), HInstance, SND_RESOURCE); break;
		case 10: PlaySound(MAKEINTRESOURCE(10), HInstance, SND_RESOURCE); break;
		case 11: PlaySound(MAKEINTRESOURCE(11), HInstance, SND_RESOURCE); break;
		case 12: PlaySound(MAKEINTRESOURCE(12), HInstance, SND_RESOURCE); break;
	}

	//Assemble a string
	myString =
		" " + IntToStr(die1) + " + " + IntToStr(die2) + " = " + IntToStr(sum);
	// Clear the Window
	Form1->Refresh();
	// Various ways to place strings on the Window:
	Form1->Canvas->TextOutA(50, 50, myString);
	Form1->Caption =  myString;
	Form1->Label1->Caption =  myString;
	Form1->Button1->Caption =  myString;
	Form1->GroupBox1->Caption =  myString;
	Form1->Edit1->Text =  myString;
	Form1->Memo1->Lines->Append(myString);

}

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
	randomize();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
	rollDice();
}
//---------------------------------------------------------------------------