ChristianEthics-VSIXc V3.1
Updated Sept 2006 to work on VSIXc Chat Network
www.VSIXc.com

_________________________________________________________________________
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 ($address($nick,2) == $gettok($read(Lists/history.txt,w,* $+ $address($nick,2) $+ *),1,32)) { var %line $readn | goto old }
  else { goto new }
  :new { 
    echo $color(highlight text) $chan [New Visitor - $nick ] 
    write Lists/history.txt $address($nick,2) $nick $time $date $chan
    ;write Lists/historyz.txt $address $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 $address($nick,2) $nick $time $date $chan
      ;write -1 %line Lists/historyz.txt $address $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 was known as $gettok($read(Lists/history.txt,%line),2,32)) $+ . 
      write -l %line Lists/history.txt $address($nick,2) $nick $time $date $chan
      ;write -1 $line Lists/historyz.txt $address $time $date $chan
      return
    }
  }
}
on *:LOAD:{ set %cloneonoff On | /splay notify.wav
}

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

#history end


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