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.
Fully Tested
__________________________________________________________________________

*Do not edit this file.
__________________________________________________________________________

alias wwmessage.set {
  set %wwmessage $$?="Enter on-screen welcome whisper here.  The current message is: %wwmessage "
}
alias wwgrd.set {
  set %wwgrd $?="Enter the room name to DISABLE welcome whisper 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 wwgrd2.set {
  set %wwgrd2 $?="Enter the room name to DISABLE welcome whisper 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.""
}

on *:LOAD:{ set %wwgr $=wwg On | wwmessage.set | /splay notify.wav 
}

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

on *:join:*:{ 
  if (%wwgr == on) { 
    if (>* iswm $nick) && (D21DB211 !isin $address) { halt }
    if (%wwgrd == #) halt 
    if (%wwgrd2 == #) halt 
    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 (%wwmessage == $null) %wwmessage = God bless you.
    if ($me isop $chan) /notice $nick $nick %wwmessage  
  }
}
