treatment "dutch-auction.ztt"{
	background{
		table globals{
		}
		table subjects{
		}
		table summary{
		}
		table contracts{
		}
		table clients{
		}
		table treatments{
		}
		table sessionglobals{
		}
		table participations{
		}
		numsubjects = 3;
		numgroups = 1;
		numpracticeperiods = 0;
		numactualperiods = 3;
		exchangerate = 1;
		startendowment = 0;
		showupfee = 0;
		noAutoscope = FALSE;
		firstBoxesOnTop = FALSE;
		showupfeeawaytext = "You are making losses. Do you want to invest the showupfee in order to continue?";
		showupfeeawayyestext = "Yes";
		showupfeeawaynotext = "No";
		moneyawaytext = "You are  making losses. Do you want to continue?";
		moneyawayyestext = "Yes";
		moneyawaynotext = "No";
		bancruptwaittext = "Please wait until the experimenter unlocks your PC.";
		program{
			table = subjects;
			do{
				MaxValue = 100;
				Won = 0;
			}
		}
		screen action{
			usesbg = TRUE;
			withalertscreen = FALSE;
			noalertscreen = FALSE;
			headerbox "Header"{
				hasframe = TRUE;
				height = 10%;
				top = 0p;
				cuttop = TRUE;
				showPeriods = TRUE;
				showNumPeriods = TRUE;
				periodtext = "Period";
				periodoftext = "of";
				practiceperiodprefix = "Trial ";
				showtime = TRUE;
				timestr = "Remaining time [sec]:";
				pleasedecidetext = "Please reach a decision.";
			}
		}
		screen wait{
			usesbg = TRUE;
			withalertscreen = FALSE;
			noalertscreen = FALSE;
			standardbox "Text"{
				hasframe = TRUE;
				buttonposition = BOTTOMRIGHT;
				buttonsequence = HORIZONTAL;
				item{
					label = "Please wait until the experiment continues.";
				}
			}
		}
	}
	stage "Auction"{
		startwaitforall = TRUE;
		startConditionStr = "";
		singleentry = FALSE;
		singleentrycontinuation = FALSE;
		timeouttype = always;
		timeout = 45;
		program{
			table = subjects;
			do{
				Value = rounddown(random() * (MaxValue + 1), 1);
			}
		}
		program{
			table = globals;
			do{
				Price = 100;
							PriceStep = 5;
							// The player who bought; 0 while nobody has.
							Buyer = 0;
							SalePrice = 0;
							// The price falls every 2 seconds, until someone buys or it is 0.
							later(2) repeat {
								if (Buyer == 0 & Price > 0) {
									Price = Price - PriceStep;
								}
							}
			}
		}
		screen action{
			usesbg = TRUE;
			withalertscreen = FALSE;
			noalertscreen = FALSE;
			standardbox "Auction"{
				hasframe = TRUE;
				buttonposition = BOTTOMRIGHT;
				buttonsequence = HORIZONTAL;
				item{
					label = "The item is worth to you";
					variable = Value;
					format = "1";
					input = FALSE;
				}
				item{
					label = "Price";
					variable = Price;
					format = "1";
					input = FALSE;
				}
				item{
					label = "The price falls by 5 every 2 seconds. The first bidder to press Buy gets the item at the price then.";
				}
				button "Buy"{
					clearinputafterok = FALSE;
					norecordmadeorselected = FALSE;
					terminatestage = FALSE;
					donotterminatestage = FALSE;
					specialbuttoncolor = FALSE;
					buttoncolor = 0;
					checker{
						condition = Buyer == 0;
						message = "Another bidder was quicker.";
						yesButtonStr = "";
						noButtonStr = "OK";
					}
					program{
						table = subjects;
						do{
							Won = 1;
										\Buyer = Player;
										\SalePrice = Price;
										// The auction is over for everyone in the group.
										subjects.do {
											if (Group == :Group) {
												LeaveStage = 1;
											}
										}
						}
					}
				}
			}
		}
		screen wait{
			usesbg = TRUE;
			withalertscreen = FALSE;
			noalertscreen = FALSE;
		}
	}
	stage "Results"{
		startwaitforall = TRUE;
		startConditionStr = "";
		singleentry = FALSE;
		singleentrycontinuation = FALSE;
		timeouttype = ifnoinput;
		timeout = 30;
		program{
			table = subjects;
			do{
				Profit = if(Won == 1, Value - SalePrice, 0);
			}
		}
		screen action{
			usesbg = TRUE;
			withalertscreen = FALSE;
			noalertscreen = FALSE;
			standardbox "Results"{
				hasframe = TRUE;
				buttonposition = BOTTOMRIGHT;
				buttonsequence = HORIZONTAL;
				item{
					label = "The item was worth to you";
					variable = Value;
					format = "1";
					input = FALSE;
				}
				item{
					label = "The bidder who bought it (0: nobody)";
					variable = Buyer;
					format = "1";
					input = FALSE;
				}
				item{
					label = "The price";
					variable = SalePrice;
					format = "1";
					input = FALSE;
				}
				item{
					label = "Your payoff";
					variable = Profit;
					format = "1";
					input = FALSE;
				}
				button "Continue"{
					clearinputafterok = FALSE;
					norecordmadeorselected = FALSE;
					terminatestage = FALSE;
					donotterminatestage = FALSE;
					specialbuttoncolor = FALSE;
					buttoncolor = 0;
				}
			}
		}
		screen wait{
			usesbg = TRUE;
			withalertscreen = FALSE;
			noalertscreen = FALSE;
		}
	}
	roles{
		role "S 1"{
		}
		role "S 2"{
		}
		role "S 3"{
		}
	}
	period "1"{
		prompt = "";
		subject 1{
			name = "";
			group = 1;
			do{
				Player = 1;
			}
		}
		subject 2{
			name = "";
			group = 1;
			do{
				Player = 2;
			}
		}
		subject 3{
			name = "";
			group = 1;
			do{
				Player = 3;
			}
		}
	}
	period "2"{
		prompt = "";
		subject 1{
			name = "";
			group = 1;
			do{
				Player = 1;
			}
		}
		subject 2{
			name = "";
			group = 1;
			do{
				Player = 2;
			}
		}
		subject 3{
			name = "";
			group = 1;
			do{
				Player = 3;
			}
		}
	}
	period "3"{
		prompt = "";
		subject 1{
			name = "";
			group = 1;
			do{
				Player = 1;
			}
		}
		subject 2{
			name = "";
			group = 1;
			do{
				Player = 2;
			}
		}
		subject 3{
			name = "";
			group = 1;
			do{
				Player = 3;
			}
		}
	}
}