//---------------------------------------------------------------------------
// Halbrock, Benjamin TG 11-4

#include <vcl.h>
#pragma hdrstop

#include "WSpiel_u.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::btnWuerfelnClick(TObject *Sender)
{
int w1,w2,w3,pkt,sum;

w1 = random(6) +1;
w2 = random(6) +1;
w3 = random(6) +1;

pkt = 0;
sum = w1+w2+w3;

if (w1!=w2 && w1!=w3 && w2!=w3)
    if (sum==6 || ((w1%2)!=0 && (w2%2)!=0 && (w3%2)!=0 && sum==9))
        pkt = 5;
    else
    ;
else
    if (w1==w2 && w2==w3)
        if (sum == 18)
            pkt = 10;
        else
            if (sum == 3 || sum == 9 || sum == 15)
                pkt = 3;
            else
            ;
    else
    ;

edtPkt->Text = IntToStr(pkt);

edtW1->Text = IntToStr(w1);
edtW2->Text = IntToStr(w2);
edtW3->Text = IntToStr(w3);

}
//---------------------------------------------------------------------------