

!default crosize=6
!set ring_size=5
!set color0=0,0,0
!set color1=255,0,0
!set color2=160,0,160
!set color3=0,0,255
!set color4=155,0,155
!set color5=0,155,155
!set color6=128,128,128
!set coloru=200,200,0
!set crosize=6
!set gcolor=0,0,0



 !if $click_x$click_y!=$empty and $status=waiting
 click_x=$[$click_x]
 click_y=$[$click_y]
 !advance clickcnt

 liste_rep= !append line $click_x, $click_y to $liste_rep 
 
 liste_rep2=

 xc=!eval 2*$xy_size*($click_x-$border)/255-$xy_size+$centrex
 yc=!eval -2*$xy_size*($click_y-$border)/255+$xy_size+$centrey

dessin=$dessin\
circle $xc,$yc,20,black

!!copy $xc,$yc,-1,-1,-1,-1,gifs/circle.gif
!!circle $xc,$yc,$[2*($ring_size)]+3,black


et=10000

!for j=1 to $charges
ee=$[sqrt(($click_x-$(X$j))^2+($click_y-$(Y$j))^2)]
!if $ee<$et
!distribute item $ee,$j into et, en 
!endif

!next  j

!if $et<$(e$en)
!distribute item $et , $click_x-$(X$en), $click_y-$(Y$en) into e$en,nx$en,ny$en
!endif
!endif
click_x=
click_y=

!if $clickcnt=$charges or $continuer=non  
status=done
miss=0
!for i = 1 to $samesign
!if $(e$i) < $[$ring_size*10]
erreur=$[$erreur+ $(e$i)]
!else
!advance miss
!endif
!next i

!if $miss<$samesign
mean=$[(rint($erreur)/($samesign-$miss))/10]
!else 
mean=1000
!endif
!if $sign=0
miss1=$miss
!else
miss1=$[abs($samesign-$clickcnt)]
!endif

module_score=$[max(min(10,round(max((105-15*$mean)*((abs($samesign-($miss+$miss1)/2))/$samesign),0))/10),0)] 
!endif




