Clone Detect Help

Someone wanted one that tells them of new users or a clone in whisper so what I did was modify one of Gewns old codes (she said I could use it) & try to help the guy out, problem is I cant get it to write to the notepad can someone help pls.

raw whisper:*:{  
  if (!$read(Lists/querylist.txt,w,* $+ $address($nick,1) $+ *)) { 
    write Lists/querylist.txt $address($nick,1) $nick 
    .echo $active 0[ 8New Query 0- 9 $nick  0] 
  } 
  else { 
    if ($read(Lists/querylist.txt,s, $address($nick,1)) != $nick) { 
      .echo $active 0[ 9Clone Detected. 4 $nick  8is 9 $ifmatch  0] 
      write -l $+ $readn Lists/querylist.txt $address($nick,1) $nick 
    } 
    else { 
      .echo $active 0[8Return Query 0- 9 $nick  0] 
    } 
  } 
}

Try this...

raw whisper:*:{  
  if (!$read($shortfn($nofile($mircexe) $+ \Lists\querylist.txt),w,* $+ $address($nick,1) $+ *)) {
    write $shortfn($nofile($mircexe) $+ \Lists\querylist.txt) $address($nick,1) $nick
    .echo $active 0[ 8New Query 0- 9 $nick  0]
  }
  else {
    if ($read($shortfn($nofile($mircexe) $+ \Lists\querylist.txt) ,s, $address($nick,1)) != $nick) {
      .echo $active 0[ 9Clone Detected. 4 $nick  8is 9 $ifmatch  0]
      write -l $+ $readn $shortfn($nofile($mircexe) $+ \Lists\querylist.txt) $address($nick,1) $nick
    }
    else {
      .echo $active 0[8Return Query 0- 9 $nick  0]
    }
  }
}

For one thing you had / in there when you needed \ instead. Plus, if you're using one of the newer mirc's you may need to use $shortfn($nofile($mircexe)) to point to your mirc's true directory.

well thanks for taking time to help me out.

No problem, lol. Glad to help. If you can, please let us know if it works. If it doesn't we'll try to come up with something.