The Wordgame model illustrates some of the basic functionalities of %dasm and %eden.

It sets up an environment to support interaction somewhat like that represented in the two player game Mastermind.

The essential principle is that one player chooses a four letter word (the 'target'), and the other player guesses the word (the 'guess').

In response to each guess, the first player gives feedback in the form of a display which comprises up to four black or red coloured panels:

• A black panel is included for every letter in the guess that is the same as the letter in the corresponding location of the target.

• A red panel is included for every letter in the guess that matches a letter not in the same location in the target.

The panel display is ordered linearly in such a way that black panels appear to the left of red panels.

---

The following 16 definitions set up observables that record the result of comparing each letter of the target with each letter of the guess:

@wordgame match = (new);

@wordgame match 11 is {@wordgame target 0 == (@wordgame guess 0)};
...

The following 16 definitions convert boolean observables in @wordgame .match to 0s and 1s

@wordgame
	a11 is {if (.match 11) {1} else {0}}
	...
;

The number of letters that appear in the correct position is given by the observable:

@wordgame numsame is {.a11 + (.a22) + (.a33) + (.a44)};

The number of instances of a letter matching the same letter in another position is given by the observable:

@wordgame numcomm is {.a12+(.a13)+(.a14)+(.a21)+(.a23)+(.a24)+(.a31)+(.a32)+(.a34)+(.a41)+(.a42)+(.a43)};

and the total number of matches is given by:

@wordgame nummatch is {.numsame + (.numcomm)};

The panel display, as determined by the target and the guess, can be laid out as an array of four Scout windows, as follows:

%scout
display dispsignal;

screen = dispsignal;

window signal;

signal = {
	type: DONALD
	box: [{10,10}, {110, 35}]
	pict: "sigpict"
	bgcolor: "white"
};

window sign1, sign2, sign3, sign4;
string col1, col2, col3, col4;

sign1 = {
	type: DONALD
	box: [{10,10}, {33, 35}]
	pict: "sigpict"
	bgcolor: col1
	bdcolor: "white"
	border:1
};

...


dispsignal = <sign1 / sign2 / sign3 / sign4 / signal>;

To test the panel display mechanism, you can supply colours for the panels:

%scout
col1 = "red"; 
col2 = "blue";
col3 = "green";
col4 = "black";

(Identical definitions will also work if made in Eden.)

The colours of the panels can be deduced from the values of the observables a11, a12, ..., a44 as follows:

%dasm

@wordgame colsig = (new);

@wordgame colsig
	col1 is {if (1 == (@wordgame numsame) or (1 < (@wordgame numsame))) {
					"black"
		} else {
			if (1 == (@wordgame nummatch) or (1 < (@wordgame nummatch))) {"red"} else {"white"}
		}
    ...
;

---