Revise paste code

var %i = 1,%y = $numtok($wd($($+(%,spamfilter.,$cid,.edit),2),3,32),32)
      while (%i <= %y) {
        tokenize 32 $wd($wd($($+(%,spamfilter.,$cid,.edit),2),3,32),%i,32)
        if (c isincs $1) { did -c $dname 10 | var %ac = c }
        else { var %ac = 0 }
        if (p isincs $1) { did -c $dname 11 | var %ae = p }
        else { var %ae = 0 }
        if (n isincs $1) { did -c $dname 13 | var %an = n }
        else { var %an = 0 }
        if (N isincs $1) { did -c $dname 12 | var %al = N }
        else { var %al = 0 }
        if (P isincs $1) { did -c $dname 15 | var %aP = P }
        else { var %aP = 0 }
        if (q isincs $1) { did -c $dname 16 | var %aq = q }
        else { var %aq = 0 }
        if (d isincs $1) { did -c $dname 21 | var %ad = d }
        else { var %ad = 0 }
        if (u isincs $1) { did -c $dname 20 | var %au = u }
        else { var %au = 0 }
        if (a isincs $1) { did -c $dname 14 | var %aa = a }
        else { var %aa = 0 }
        if (t isincs $1) { did -c $dname 18 | var %ak = t }
        else { var %ak = 0 }
        if (T isincs $1) { did -c $dname 17 | var %aT = T }
        else { var %aT = 0 }
        if (R isincs $1) { did -c $dname 19 | var %aR = R }
        else { var %aR = 0 }
        inc %i
        set %spamfilter. [ $+ [ $cid ] $+ ] .target %ac %ae %an %al %aP %aq %ad %au %aa %ak %aT %aR
      }