Subversion Repositories wimsdev

thcomp=
thr=!record 0 of $forumdir/.threads/$th_orig
th_start=!translate / to _ in $th_start
thtcnt=!linecnt $thr
count_$th_orig=0
!for i=1 to $thtcnt
 l=!line $i of $thr
 l=!translate / to _ in $l
 !distribute word $l into a_,b_
 !if $a_=$th_start
  startnum=$i
 !endif
 count_$a_=$i
 F_$(count_$b_)=!append item $i to $(F_$(count_$b_))
 a_=!translate _ to $ $ in $a_
 thcomp=!append line $a_ to $thcomp
!next i

!if $startnum=$empty
 startnum=0
 th_start=$th_orig
!endif

s_=!translate /_ to ,, in $th_start
!distribute item $s_ into o1,o2