Subversion Repositories wimsdev

!if $wims_read_parm=def
 !exit
!endif
!set layer_width=600
!set lenlimit=25
!set parm_name=reply$i
!set font_height=!item 1 of $(replygood$i)
!set imgs=!item 2 to -1 of $(replygood$i)
!set imgs=!translate internal | to , in $imgs
!set imgs=!rows2lines $imgs
!set atest=!line 1 of $imgs
!if ?analyze iswordof $atest
 !set imgs=!line 2 to -1 of $imgs
!endif
!set imgs=!lines2items $imgs
!set imgs=!words2items $imgs
!set imgs=!nonempty items $imgs
!set imgs=!listuniq $imgs
!set imgs=!shuffle $imgs
!set imgcnt=!itemcnt $imgs
!set imgs=!nospace $imgs
!set imgarr=!replace internal , by "," in "$imgs"
!set Imgs=!replace internal , by ,$imagedir/ in $imagedir/$imgs
!set Imgarr=!replace internal , by "," in "$Imgs"
!reset imgn,imgdest
!for i_=1 to $imgcnt
 !set imgn=!append item "i$i_" to $imgn
 !set imgdest=!append item "dest$i_" to $imgdest
!next i_

<script language=javascript>
 var imgcnt=0;
 Imgs=new Array($Imgarr);
 imgs=new Array($imgarr);
 imgn=new Array($imgn);
 imgdest=new Array($imgdest);
 posis=new Array($lenlimit+1);
 strs=new Array($lenlimit+1);
 posis[0]=0;
 strs[0]="";
 
 function addone(t) {
  var w, h;
  w=document.images[imgn[t]].width;
  h=document.images[imgn[t]].height;
  if(t<0 || imgcnt>=$lenlimit) return;
  document.images[imgdest[imgcnt]].src=Imgs[t];
  document.images[imgdest[imgcnt]].width=w;
  document.images[imgdest[imgcnt]].height=h;
  if(imgcnt>0) strs[imgcnt+1]=strs[imgcnt]+","+imgs[t];
  else strs[imgcnt+1]=imgs[t];
  document.forms['replyform'].$parm_name.value=strs[imgcnt+1];
  imgcnt++;
 }

 function backone() {
  if(imgcnt<1) return;
  imgcnt--;
  document.images[imgdest[imgcnt]].src="gifs/zero.gif";
  document.images[imgdest[imgcnt]].width=0;
  document.images[imgdest[imgcnt]].height=0;
  document.forms['replyform'].$parm_name.value=strs[imgcnt];
 }
 
 function cleanall() {
  var i;
  if(imgcnt<1) return;
  for(i=0; i<imgcnt; i++) {
   document.images[imgdest[i]].src="gifs/zero.gif";
   document.images[imgdest[i]].width=0;
   document.images[imgdest[i]].height=0;
  }
  document.forms['replyform'].$parm_name.value="";
  imgcnt=0;
 }

</script>

<p><input type=hidden name=$parm_name>
!if $module_language=fr
 Composez votre réponse en cliquant sur les images ci-dessous.
 !goto cont
!endif

!if $module_language=nl
 Geef Uw antwoord door op de onderstaande plaatjes te klikken..
 !goto cont
!endif

Compose your reply by clicking on the images below.
:cont
<p><table border=0 bgcolor=#C0C0F0><tr><td nowrap>&nbsp;
!for i_=1 to $lenlimit
<img border=0 name=dest$i_ src=gifs/zero.gif align=middle>
!next i_
<p>
!for i_=1 to $imgcnt
 !set src=!item $i_ of $Imgarr
 <a href=# onClick=addone($i_-1)><img name=i$i_ align=middle
  src=$src border=1></a>
!next i_
<a href=# onClick=backone()><img height=$font_height border=1 align=middle
 src=gifs/arrows/left3.32.gif></a>
<a href=# onClick=cleanall()><img height=$font_height border=1 align=middle
 src=gifs/reset.gif></a>
</td></tr></table> <p>