Subversion Repositories wimsdev

Rev

Rev 12325 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 12325 Rev 13642
Line 13... Line 13...
13 
      !if $(default_$i)!=$empty
 13 
      !if $(default_$i)!=$empty
14 
        r_=$(default_$i)
 14 
        r_=$(default_$i)
15 
      !endif
 15 
      !endif
16 
    !endif
 16 
    !endif
17 
    !if $(replytype$i)!=code
 17 
    !if $(replytype$i)!=code
18 
     reply$i=$r_
 18 
      reply$i=$r_
19 
    !endif
 19 
    !endif
20 
    !if $r_=$empty and $(replytype$i)!=coord || \
 20 
    !if $r_=$empty and $(replytype$i)!=coord || \
21 
      $click_x$click_y=$empty and $(replytype$i)=coord || \
 21 
        $click_x$click_y=$empty and $(replytype$i)=coord || \
22 
      ($(reply$i)=?????? and $(replytype$i) iswordof menu)
 22 
        ($(reply$i)=?????? and $(replytype$i) iswordof menu)
23 
     error=empty_data
 23 
      error=empty_data
24 
     !exit
 24 
      !exit
25 
    !endif
 25 
    !endif
26 
    m_reply$i=$(reply$i)
 26 
    m_reply$i=$(reply$i)
27 
    !read oef/screply.proc
 27 
    !read oef/screply.proc
28 
    !default replytype$i=default
 28 
    !default replytype$i=default
29 
    tt=!word 1 of $(replygood$i)
 29 
    tt=!word 1 of $(replygood$i)
30 
    	# analyzed reply
 30 
    # analyzed reply
31 
    !if $tt=?analyze
 31 
    !if $tt=?analyze
32 
      t_=!rows2lines $(replygood$i)
 32 
      t_=!rows2lines $(replygood$i)
33 
      t_=!word 2 of $t_
 33 
      t_=!word 2 of $t_
34 
      !read oef/ans.proc $i nocompare
 34 
      !read oef/ans.proc $i nocompare
35 
      !if $error!=$empty
 35 
      !if $error!=$empty