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/
__________________________________________________________________________


Welcome Whisper.
Edited Sept 2004, works with clearmsn and vincula.
__________________________________________________________________________

*Do not edit this file.
__________________________________________________________________________
alias ctrgd.set {
  set %ctrgd $?="Enter the room name to DISABLE the ctcp time welcome in. *Note: Make sure to add a 'percent sign(shift 5)' and 'number sign (shift 3)' to the front of the room name and use \b for spaces, other wise the disable feature will NOT work.""
}

alias ctrgd2.set {
  set %ctrgd2 $?="Enter the room name to DISABLE pctcp time welcome in. *Note: Make sure to add a 'percent sign(shift 5)' and 'number sign (shift 3)' to the front of the room name and use \b for spaces, other wise the disable feature will NOT work.""
}
alias ctgr.set {
  set %ctgr $$?="Enter ctcp time welcome message here.  The current message is: %ctgr "
}
on *:LOAD:{ set %timewelcome $=timewelcome On | ctgr.set | /splay notify.wav 
}

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


on *:join:*:{ if (>* iswm $nick) && (D21DB211 !isin $address) { halt }
  if (%timewelcome == on) {
    if ($nick == $me) halt
if (*sysop* iswm $msn.ifdecode($replace($nick,>,Guest_))) && (*@CG* !iswm $address) {
   halt
  }
  elseif (* iswm $nick) || (*_* iswm $nick) || (S¿s* iswm $nick) || (*оp_* iswm $nick) || (*Ѕyѕop* iswm $nick) || (*Šyšop* iswm $nick) || (**ysoþ* iswm $nick) {
   halt
  }
  elseif (*ор_* iswm $nick) || (*S­y­s­o­p* iswm $nick) || (*Şỳ* iswm $nick) || (*Ѕуѕοp* iswm $nick) || (*sÿsøp* iswm $nick) || (*§ý§õþ* iswm $nick) {
    halt
  }
  elseif (*guide* iswm $msn.ifdecode($replace($nick,>,Guest_))) && (*@CG* !iswm $address) {
   halt
  }
  elseif (** iswm $nick) || (*_* iswm $nick) || (** iswm $nick) || (*G­u­i­d­e* iswm $nick) || (** iswm $nick) {
    halt
  }
  elseif (*admin* iswm $msn.ifdecode($replace($nick,>,Guest_))) && (*@CG* !iswm $address) {
    halt
  }
  elseif (** iswm $nick) || (*_* iswm $nick) || (** iswm $nick) || (*A­d­m­i­n* iswm $nick) || (** iswm $nick) || (*Amn* iswm $nick) {
   halt
 }
    if (%ctgr == $null) %ctgr = welcome to our room.
    if ($Me isop $chan) /cq2 $nick $nick %ctgr  

  }
}

;The next two aliases are by Petetje
alias cq2 { 
  inc %cq2_pointer
  /hadd -m cq2 %cq2_pointer $1-
  %cq2 = $addtok(%cq2,%cq2_pointer,32) 
  if (!$timer(cq2)) { .timercq2 -m 1 $iif(%delay_cq2,%delay_cq2,400) /cdeq2 }
} 
alias cdeq2 { 
  if ($hget(cq2,0).item == 0) { unset %cq2 }
  else {
    var %item = $gettok(%cq2,1,32)
    %cq2 = $deltok(%cq2,1,32)
    tokenize 32 $hget(cq2,%item)
    .ctcpreply $1 TIME $2-
    hdel cq2 %item
    if (%cq2) { .timercq2 -m 1 $iif(%delay_cq2,%delay_cq2,400) /cdeq2 }
    else { unset %cq2_pointer }
  }
}
