Subversion Repositories wimsdev

type=game

textarea="data"

:A crossword made from words and clues to the words.

<p class="wims_credits">

Author of the model: Bernadette Perrin-Riou <bpr@math.u-psud.fr>

</p>

:%%%%%%%%%%%%%%%%%      ATTENTION      %%%%%%%%%%%%%%%%%%%%

Remove the above header if you destroy the model tags i.e. the lines starting

with a ':'. Otherwise the exercise might not be recognised by Createxo..

:%%%%%%%% Example parameters to redefine %%%%%%%%%%%%%%%%%

:\title{Crossword}

:\author{Csilla, Ducrocq}

:\email{}

:\credits{}

:Instruction

\text{instruction= Use the clues provided to write the corresponding words in the crossword puzzle}

:Maximum number of words

\text{N=7}

:Options

If the parameter chosen is  <span class="tt wims_code_words">allhelp</span>, all the clues are displayed.

If the parameter chosen is <span class="tt wims_code_words">tooltip</span>,

 the clues will be displayed in a pop-up window when clicking on the number in the crossword.

en "pop-up". Add a space to display the clues one by one on the side.

\text{none=allhelp}

:Name of the data file

Only enter a name if you wish to create a separate data file

(in an OEF module)

of the following type

<pre>

   :accounting, the department that deals with finances

   :marketing, the department that deals with customer relations

   :head, Chief executive officer

   :sales, the department that is in charge of selling the product

</pre>

\text{file=}

:Main data.

Write the words in lower case in the first column (no spaces allowed in a word),

write the clues in the second column.

\text{data=purchasing,the department that buys supplies.

maintenance, the department that is in charge of repairing technical installations

accounting, the department that deals with finances

marketing, the department that deals with customer relations

head, Chief executive officer

sales, the department that is in charge of selling the product

production, the department that makes the product

accountant, the person who is responsible for making out bills

secretary, the person who helps a manager by organising events and making phone calls or writing letters

receptionist, the person who receives visitors when they arrive

premises, the firm's buildings

headquarters,the administrative center of the firm

subsidiary, a company which is owned by a larger company}

:Embraced random items

$embraced_randitem

\text{accolade=item(1,1 yes,

2 no)}

:%%%%%%%%%%%%%% Nothing to modify before the statement %%%%%%%%%%%%%%%%

\text{accolade=wims(word 1 of \accolade)}

\if{\file notsametext}{

  \text{file=randitem(\file)}

  \integer{datacnt=wims(recordcnt \file)}

  \integer{N=min(\N,\datacnt)}

  \text{choix=shuffle(\datacnt)}

  \text{choix=\choix[1..\N]}

  \text{data=}

  \for{s in \choix}{

    \text{data=\data

wims(record \s of \file)}

  }

  \matrix{data=\accolade=1 ?wims(randitem embraced \data)}

  \text{data=wims(replace internal ;; by ; in \data)}

}{

  \text{objet_cnt=rows(\data)}

  \integer{N=min(\N,\objet_cnt)}

  \text{bat=shuffle(\objet_cnt)}

  \text{bat=\bat[1..\N]}

  \matrix{data=\data}

  \matrix{data=\data[\bat;]}

}

\text{data=slib(text/crossword \data) }

\statement{ \instruction

\embed{r1} }

\answer{}{\data}{type=crossword}{option=\none}