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

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
//------------------------------------------------------------------VARIABLES
//---------------------------------------------------------------------------
int diceValueA;
int diceValueB;
//---------------------------------------------------------------------------
//------------------------------------------------------------------FUNCTIONS
//---------------------------------------------------------------------------
//--------------------------------------------------------------Roll The Dice
void run (void) {
	diceValueA = (random(6) + 1);
	diceValueB = (random(6) + 1);

	if (diceValueA + diceValueB == 2) {
		Form1->Label1->Caption = "Snake-Eyes";
	}
	else if (diceValueA + diceValueB == 12) {
		Form1->Label1->Caption = "Box-Cars";
	}
	else {
		Form1->Label1->Caption = "Roll Again";
    }
}
//--------------------------------------------------------------Display Roll
void roll (void) {
	if (diceValueA + diceValueB == 1) {
		Form1->Edit1->Text == "1";
	}
	else if (diceValueA + diceValueB == 2) {
		Form1->Edit1->Text = "2";
	}
	else if (diceValueA + diceValueB == 3) {
		Form1->Edit1->Text = "3";
	}
	else if (diceValueA + diceValueB == 4) {
		Form1->Edit1->Text = "4";
	}
	else if (diceValueA + diceValueB == 5) {
		Form1->Edit1->Text = "5";
	}
	else if (diceValueA + diceValueB == 6) {
		Form1->Edit1->Text = "6";
	}
	else if (diceValueA + diceValueB == 7) {
		Form1->Edit1->Text = "7";
	}
	else if (diceValueA + diceValueB == 8) {
		Form1->Edit1->Text = "8";
	}
	else if (diceValueA + diceValueB == 9) {
		Form1->Edit1->Text = "9";
	}
	else if (diceValueA + diceValueB == 10) {
		Form1->Edit1->Text = "10";
	}
	else if (diceValueA + diceValueB == 11) {
		Form1->Edit1->Text = "11";
	}
	else if (diceValueA + diceValueB == 12) {
		Form1->Edit1->Text = "12";
	}
	}
//---------------------------------------------------------------------------
//-------------------------------------------------------------EVENT HANDLERS
//---------------------------------------------------------------------------
//-----------------------------------------------------------Roll and Display
void __fastcall TForm1::Button1MouseDown(TObject *Sender, TMouseButton Button,
	  TShiftState Shift, int X, int Y)
{
	run();
	roll();
}
//---------------------------------------------------------------------------