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