target=click1

#include "header.inc"
#include "confparm.inc"

\title{Click en la tabla}

#include "data.inc"
#include "position.inc"

\integer{f1=\given isitemof 2,3?\given:randitem(2,3)}
\integer{pick=randint(1..\datacnt)}
\text{dataline=\data[\pick;]}
\integer{pick=item(1,\dataline)}
\integer{xs=30}
\integer{ys=30}
\text{xlist=column(4,\Pdata)}
\text{ylist=column(3,\Pdata)}
\text{blist=}
\for{i=1 to \end}{
 \integer{x=\xlist[\i]*\xs}
 \integer{y=\ylist[\i]*\ys}
 \integer{y=\ylist[\i]>8?\y+5}
 \integer{x=\ylist[\i]>8?\x+\xs*2}
 \text{blist=\blist r,\x,\y,\x+\xs,\y+\ys;}
 \if{\i=\pick}{\text{glist=r,\x,\y,\x+\xs,\y+\ys}}
}
\text{give=\dataline[\f1]}
\text{flist=\Data[;\f1]}
\text{namelist=número, símbolo, nombre, masa atómica}

\statement{En la tabla periódica de los elementos mostrada más abajo,
haz click en la casilla del elemento cuyo \namelist[\f1] es \give.
<p><center>
\embed{r1}
</center>
}

\answer{The position}{\imagedir/table2.gif;\glist;\blist}{type=coord}

\if{\result1>1}{
 \text{clicked=\flist[\result1-1]}
}

\feedback{\result1>1}{
Has hecho click en la casilla de \clicked en lugar de la de \give.
}
