Clone Detect Help

[CharmedOne]

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] 
    } 
  } 
}

[Warrior124]

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.

Edited May 13, 2009 by Warrior124

[CharmedOne]

well thanks for taking time to help me out.

[Warrior124]

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.