PurseQueryText is Text("How much in purse?", 11.3*scaleWidth,0.5*scaleWidth, "blue", 18);
CoinsInHandQueryText is Text("How much offered?", 11.3*scaleWidth,2.5*scaleWidth, "red", 18);
BasketQueryText is Text("How much to buy items?", 11.3*scaleWidth,4*scaleWidth, "red", 18);
StatusText is Text("Is it enough?", 11.3*scaleWidth,6*scaleWidth, "blue", 18);

picture is [coin1pic,coin2pic,coin3pic,coin4pic,coin5pic,coin6pic,coin7pic,coin8pic, item1pic,item2pic,item3pic,item4pic,item5pic,item6pic, 
coin1text,coin2text,coin3text,coin4text,coin5text,coin6text,coin7text,coin8text,item1text,item2text,item3text,item4text,item5text,item6text,
PurseContentText,CoinsInHandText,BasketContentText,ItemsForSaleText, PurseQueryText, CoinsInHandQueryText, BasketQueryText, StatusText];

PurseQueryContent is (showpurse) ? displaycurrency(spendingmoney) : "How much money in total?";
CoinsInHandQueryContent is (showamountoffered) ? displaycurrency(tendered): "How much offered?";
BasketQueryContent is (showcost) ? displaycurrency(bill) : "How much to buy items?";
StatusTextContent is ((bill==0) || (tendered==0)) ? "" : ((tendered >= bill) ? "YES" : "NO!");

PurseQueryText is Text(PurseQueryContent, 11.3*scaleWidth,0.5*scaleWidth, "blue", 18);
CoinsInHandQueryText is Text(CoinsInHandQueryContent, 11.3*scaleWidth,2.5*scaleWidth, "red", 18);
BasketQueryText is Text(BasketQueryContent, 11.3*scaleWidth,4*scaleWidth, "red", 18);
StatusText is Text(StatusTextContent, 11.3*scaleWidth,6*scaleWidth, "blue", 18);
StatusText is Text(StatusTextContent, 11.3*scaleWidth,3.25*scaleWidth, "blue", 18);

NewGame is Text("New game", 8.3*scaleWidth,7*scaleWidth, "black", 18);


showpurse = 1;
showamountoffered = 1;
showcost = 1;

PurseContentText is Text("Content of purse", 8.3*scaleWidth, 0.5*scaleWidth, "blue", 18);
CoinsInHandText is Text("Coins to hand", 8.3*scaleWidth, 2.5*scaleWidth, "red", 18);
BasketContentText is Text("Content of basket", 8.3*scaleWidth, 4*scaleWidth, "red", 18);
ItemsForSaleText is Text("Items for sale", 8.3*scaleWidth, 6*scaleWidth, "blue", 18);

proc showpursecont : mousePressed {
	if (mousePressed && (mousePosition.x > 8.3*scaleWidth) && (mousePosition.x < 10.3*scaleWidth)
		&& (mousePosition.y > 0) && (mousePosition.y < scaleWidth)) showpurse = 1 - showpurse; 
}

proc showamountofferedcont : mousePressed {
	if (mousePressed && (mousePosition.x > 8.3*scaleWidth) && (mousePosition.x < 10.3*scaleWidth)
		&& (mousePosition.y >2*scaleWidth) && (mousePosition.y < 3*scaleWidth)) showamountoffered = 1 - showamountoffered; 
}

proc showcostcont : mousePressed {
	if (mousePressed && (mousePosition.x > 8.3*scaleWidth) && (mousePosition.x < 10.3*scaleWidth)
		&& (mousePosition.y > 3.5*scaleWidth) && (mousePosition.y < 4.5*scaleWidth)) showcost= 1 - showcost; 
}

proc nextgame : mousePressed {
	if (mousePressed && (mousePosition.x > 8.3*scaleWidth) && (mousePosition.x < 10.3*scaleWidth)
		&& (mousePosition.y > 6.5*scaleWidth) && (mousePosition.y < 7.5*scaleWidth)) {
		ix1 = randomInteger(1, 8);
		ix2 = randomInteger(1, 8);
		ix3 = randomInteger(1, 8);
		ix4 = randomInteger(1, 8);
		ix5 = randomInteger(1, 8);
		ix6 = randomInteger(1, 8);
		ix7 = randomInteger(1, 8);
		ix8 = randomInteger(1, 8);
	}; 
}

picture is [coin1pic,coin2pic,coin3pic,coin4pic,coin5pic,coin6pic,coin7pic,coin8pic, item1pic,item2pic,item3pic,item4pic,item5pic,item6pic, 
coin1text,coin2text,coin3text,coin4text,coin5text,coin6text,coin7text,coin8text,item1text,item2text,item3text,item4text,item5text,item6text,
PurseContentText,CoinsInHandText,BasketContentText,ItemsForSaleText, PurseQueryText, CoinsInHandQueryText, BasketQueryText, StatusText, NewGame];

item1text is Text(pricedisplay(1, items), 0.4*scaleWidth,5*scaleWidth, "black", 18);
item2text is Text(pricedisplay(2, items), 1.7*scaleWidth,5*scaleWidth, "black", 18);
item3text is Text(pricedisplay(3, items), 3.0*scaleWidth,5*scaleWidth, "black", 18);
item4text is Text(pricedisplay(4, items), 4.5*scaleWidth,5*scaleWidth, "black", 18);
item5text is Text(pricedisplay(5, items), 5.6*scaleWidth,5*scaleWidth, "black", 18);
item6text is Text(pricedisplay(6, items), 6.9*scaleWidth,5*scaleWidth, "black", 18);


coin1text is Text(denomdisplay(ix1), 0.2*scaleWidth,1.5*scaleWidth, "black", 18);
coin2text is Text(denomdisplay(ix2), 1.2*scaleWidth,1.5*scaleWidth, "black", 18);
coin3text is Text(denomdisplay(ix3), 2.2*scaleWidth,1.5*scaleWidth, "black", 18);
coin4text is Text(denomdisplay(ix4), 3.2*scaleWidth,1.5*scaleWidth, "black", 18);
coin5text is Text(denomdisplay(ix5), 4.2*scaleWidth,1.5*scaleWidth, "black", 18);
coin6text is Text(denomdisplay(ix6), 5.2*scaleWidth,1.5*scaleWidth, "black", 18);
coin7text is Text(denomdisplay(ix7), 6.2*scaleWidth,1.5*scaleWidth, "black", 18);
coin8text is Text(denomdisplay(ix8), 7.2*scaleWidth,1.5*scaleWidth, "black", 18);