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

Whisper Greeting
Edited Sept 2004 to work with clearmsn and vincula, and show users colors and msn colors
Fully Tested
__________________________________________________________________________

*Do not edit this file.
__________________________________________________________________________
alias rgd.set {
  set %rgd $?="Enter the room name to DISABLE the private whisper 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 rgd2.set {
  set %rgd2 $?="Enter the room name to DISABLE private whisper 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 pwgr.set {
  set %pwgr $$?="Enter private whispered welcome message here.  The current message is: %rgmessage "
}

on *:join:*:{ 
  if (%rgr == on) { 
    if (>* iswm $nick) && (D21DB211 !isin $address) halt 
    if ($nick == $me) halt
    if (%rgd == #) halt 
    if (%rgd2 == #) 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 (%pwgr == $null) %pwgr = Have a good visit
    if ($me isop $chan) /msg $nick $nick %pwgr 
    if NOUSERWHISPER /cq2 $nick $nick %pwgr  
  }
}

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


on *:LOAD:{ set %rgr $=rg On | pwgr.set | /splay notify.wav 
}

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