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.
works with clear and vincula.
____________________________________________________________________________

*Do not edit this file.
__________________________________________________________________________
alias -l hfont { return S Tahoma;0 }
alias -l h2font { return S eTahoma;0 }

on *:JOIN:*:{
  if ($nick == $me) return
  if (> isin $nick) goto guest
  if ($$ial($nick $+ *,1).addr == $gettok($read(Lists/history.txt, w,* $+ $$ial($nick $+ *,1).addr $+ *),1,32)) { var %line $readn | goto old }
  else { goto new }
  :new {
    echo $color(highlight text) $chan [New Visitor - $nick ] 
    write Lists/history.txt $$ial($nick $+ *,1).addr $nick $time $date $chan
    write Lists/historyz.txt $$ial($nick $+ *,1).addr $nick $time $date $chan
    return
  }
  :old {
    if ($nick == $gettok($read(Lists/history.txt,%line),2,32)) {
      echo $color(highlight text) $chan [Return Visitor] $nick was last here on the $gettok($read(Lists/history.txt,%line),4,32) at $gettok($read(Lists/history.txt,%line),3,32) $+ . 
      write -l %line Lists/history.txt $$ial($nick $+ *,1).addr $nick $time $date $chan
      write Lists/historyz.txt $$ial($nick $+ *,1).addr $nick $time $date $chan
      return
    }
    else {
      echo $color(kick text) $chan [Clone Detected] $nick was last here on the $gettok($read(Lists/history.txt,%line),4,32) at $gettok($read(Lists/history.txt,%line),3,32) and were known as $gettok($read(Lists/history.txt,%line),2,32)) $+ . 
      write -l %line Lists/history.txt $$ial($nick $+ *,1).addr $nick $time $date $chan
      write Lists/historyz.txt $$ial($nick $+ *,1).addr $nick $time $date $chan
      return
    }
    :guest { 
      echo $color(kick text) $chan [Guest Visitor - $nick ]
      write Lists/historyz.txt $$ial($nick $+ *,1).addr $nick $time $date $chan
      return
    }
  }
}
on *:LOAD:{ set %cloneonoff $=cld On | /splay notify.wav
}

on *:UNLOAD:{ set %cloneonoff $=cld Off | /splay unload.wav
} 

#history end
; november 2004 modified settings for use with christianethics to replace its current clone detect
; modified my MFD on 030805
; changed the displayed info for inside Hybrid
; added a full history log historyz.txt





------------------------------------------
old clone detect file below:
------------------------------------------
;on *:join:*:{ 
if (%cloneonoff == on) {
  if ($nick != $me) && (!$read(Lists/clonelist.txt,w,* $+ $address($nick,1) $+ *)) {
    write Lists/clonelist.txt $address($nick,1) $nick
    /echo $color(kick text) -at [New Visitor - $nick ]
  }
  else {
    if ($nick != $me) && ($read(Lists/clonelist.txt,s, $address($nick,1)) != $nick) {
      /echo $color(kick text) -at [Clone Detected. $nick is $ifmatch ] 
      write -l $+ $readn Lists/clonelist.txt $address($nick,1) $nick
    }
  }
  else { 
    if ($nick != $me) /echo $color(kick text) -at [Return Visitor - $nick ] 
  }
}
}

;on *:LOAD:{ set %cloneonoff $=cld On | /splay notify.wav
}

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


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