ChristianEthics 9.4
_________________________________________________________________________
E-mail: ChristianEthics2@yahoo.ca 
Messenger: ChristianEthics@hotmail.com 
Home page: http://ca.geocities.com/christianethics2
Message Board: http://groups.yahoo.com/group/ChristianEthics_BibleBotDownloadZone/
__________________________________________________________________________

Clone detect greeting.
Edited Sept 2004 works with clear and vincula.
Edited May 2006 to add unique bot color to auto posting.
____________________________________________________________________________

*Do not edit this file.
__________________________________________________________________________
on *:LOAD:{ set %clond $=cld On | /splay notify.wav
}

on *:UNLOAD:{ unset %clond | /splay unload.wav
} 

if (%clond == on) {
  if ($nick == $me) halt
  if ($nick == $mi) halt
  if (!$read(Lists/clonegreetinglist.txt,w,* $+ $address($nick,1) $+ *)) {
    write Lists/clonegreetinglist.txt $address($nick,1) $nick
    msg $chan S Trebuchet\bMS;0 hi $nick 
  }
  else {
    if ($read(Lists/clonegreetinglist.txt,s, $address($nick,1)) != $nick) {
      msg $chan S Trebuchet\bMS;0 hi again $ifmatch 
      write -l $+ $readn Lists/clonegreetinglist.txt $address($nick,1) $nick
    }
    else {
      msg $chan S Trebuchet\bMS;0 hi again $nick 
    }
  }
}






*******Script Writter Known by God, Unknown to me*******
