Subversion Repositories wimsdev

Rev

Rev 20 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 20 Rev 12325
Line 1... Line 1...
1 
!nocache
 1 
!nocache
2 
!reset replynames, replytypes, replyoptions, replystyles, replyweights,\
 2 
!reset replynames, replytypes, replyoptions, replystyles, replyweights,\
3 
	choicenames, choicegoods, choicebads, choicelists, choiceitemss
 3 
	choicenames, choicegoods, choicebads, choicelists, choiceitemss
4 
 
 4 
 
5 
!for i=1 to $replycnt
 5 
!for i=1 to $replycnt
6 
 !read oef/replytype.proc
 6 
  !read oef/replytype.proc
7 
 replystyle$i=$anstyle
 7 
  replystyle$i=$anstyle
8 
 replynames=$replynames$(replyname$i)\
 8 
  replynames=$replynames$(replyname$i)\
9 
 
 9 
 
10 
 replytypes=$replytypes$(replytype$i)\
 10 
  replytypes=$replytypes$(replytype$i)\
11 
 
 11 
 
12 
 replystyles=$replystyles$anstyle\
 12 
  replystyles=$replystyles$anstyle\
13 
 
 13 
 
14 
 ro=!items2words $ro
 14 
  ro=!items2words $ro
15 
 ro=!singlespace $(replyoption$i)
 15 
  ro=!singlespace $(replyoption$i)
16 
 replyoptions=$replyoptions$ro\
 16 
  replyoptions=$replyoptions$ro\
17 
 
 17 
 
18 
 replyweights=$replyweights$(replyweight$i)\
 18 
  replyweights=$replyweights$(replyweight$i)\
19 
 
 19 
 
20 
!next i
 20 
  !next i
21 
 
 21 
 
22 
!for i=1 to $choicecnt
 22 
!for i=1 to $choicecnt
23 
 !for n in name,good,bad,list,items,option,weight
 23 
  !for n in name,good,bad,list,items,option,weight
24 
  choice$(n)s=$(choice$(n)s)$(choice$n$i)\
 24 
    choice$(n)s=$(choice$(n)s)$(choice$n$i)\
25 
 
 25 
 
26 
 !next n
 26 
  !next n
27 
!next i
 27 
!next i
28 
 
 28 
 
29 
!if $vsavelist=$empty
 29 
!if $vsavelist=$empty
30 
 !for i=1 to $varcnt+1
 30 
  !for i=1 to $varcnt+1
31 
  vsavelist=!append item $i to $vsavelist
 31 
    vsavelist=!append item $i to $vsavelist
32 
 !next i
 32 
  !next i
33 
!endif
 33 
!endif
34 
vsavelist=!nospace $vsavelist
 34 
vsavelist=!nospace $vsavelist
35 
vsave=
 35 
vsave=
36 
!for v in $vsavelist
 36 
!for v in $vsavelist
37 
 vv=!translate internal $\
 37 
  vv=!translate internal $\
38 
$ to $	$ in $(val$v)
 38 
$ to $	$ in $(val$v)
39 
 vsave=$vsave$(vv)\
 39 
  vsave=$vsave$(vv)\
40 
 
 40 
 
41 
!next v
 41 
!next v
42 
 
 -