// Dice 4 Backgammon

@cid "YG";
@name "";
@dbname "";

#define RAD 4

draw(int i, int d) {
     rect(0, 45 + 44 * d, 65, 75 + 44 * d, 95, RAD);
     if(i % 2) {
     	rect(1, 57 + 44 * d, 77, 63 + 44 * d, 83, 3);
     	i--;
     }
     switch(i) {
     case 6:
     	rect(1, 49 + 44 * d, 77, 55 + 44 * d, 83, 3);
     	rect(1, 65 + 44 * d, 77, 71 + 44 * d, 83, 3);
     case 4:
     	rect(1, 49 + 44 * d, 85, 55 + 44 * d, 91, 3);
     	rect(1, 65 + 44 * d, 69, 71 + 44 * d, 75, 3);
     case 2:
     	rect(1, 49 + 44 * d, 69, 55 + 44 * d, 75, 3);
     	rect(1, 65 + 44 * d, 85, 71 + 44 * d, 91, 3);
     }
}

main() {
     graph_on();
     frame(1, 44, 64, 76, 96, RAD);
     frame(1, 88, 64, 120, 96, RAD);
     textalign(11);
     while(1) {
     	event(1);
     	text(80, 112, "Spinning...");
     	while(pstate()) {event(1);}
     	event(25);
     	rect(0,  40, 100, 120, 124, 0);
     	draw((random(6) + 1), 0);
     	draw((random(6) + 1), 1);
     }
/*
     textattr(7, 1, 0);
     while(1) {
     	text(75, 80, random(6) + 1));
     	text(85, 80, random(6) + 1));
     	event(1);
     }
*/
}