ChristianEthics-VSIXc V4.0
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/
__________________________________________________________________________

Away Back Message 
__________________________________________________________________________

*Do not edit this file.
Edited Sept 2004 to work with ClearMSN decoded nicklist and Vincula encoded nicklist
Edited October 2004 and bbackmessage variable named changed as the bible bot was unsetting it.
Edited April 2006 and redid the bbackmessage to abackmessage
Edited Nov 2006 to show colors on VSIXc network
_______________________________________________________________________
alias aawaymessage.set {
  set %aawaymessage $$?="Enter the message you want displayed when someone marks as Away. The current message is: %aawaymessage "
}
alias abackmessage.set {
  set %abackmessage $$?="Enter the message you want displayed when someone returns. The current message is: %abackmessage "
}
on *:QUIT:*: { ruser noawaybackmessage $nick 
}
on *:PART:*: { ruser noawaybackmessage $nick 
}
on *:DISCONNECT:*: { ruser noawaybackmessage $nick 
}
on *:LEAVE:*: { ruser noawaybackmessage $nick 
}
on *:LOAD:{ set %aaway On | /splay notify.wav 
}
on *:UNLOAD:{ unset %aaway | /splay unload.wav 
}


on *:notice:*:#: { 
  if (AWAY isin $1) { 
    if ($nick == $me) halt 
    if ($me !isop $chan) halt 
    if (%aawaymessage == $null) %aawaymessage = Bye for now
    privmsg $active VSIXc|| $+ %txtfont $+ || $+ %txtcolor $+ || $+ %txtstyle $+ || $+ $chr(32) $+ : $+ %aawaymessage $nick 
    if ($me isowner $chan) { 
      echo %color -ti2 $chan 02 $+ . $+ $me $+ : $remove($replace(%txtstyle,B,),I,) $+ %aawaymessage $nick
      halt
    } 
    if ($me isop $chan) { 
      echo %color -ti2 $chan 02 $+ @ $+ $me $+ : $remove($replace(%txtstyle,B,),I) $+ %aawaymessage $nick
      halt
    } 
    else { 
      echo %color -ti2 $chan 02 $+ $me $+ : $remove($replace(%txtstyle,B,),I) $+ %aawaymessage $nick
      halt
    }
  }
  if (BACK isin $1) { 
    if ($nick == $me) halt 
    if ($me !isop $chan) halt 
    if ( %hostawaydeop == on) && ($nick isowner $comchan($me,1)) && ($me isowner $comchan($me,1)) {halt}
    if ($level($ial($nick).addr) == noawaybackmessage) { ruser noawaybackmessage $nick }
    if ($level($nick) == noawaybackmessage) { ruser noawaybackmessage $nick  }  
    else {
      if (%abackmessage == $null) %abackmessage = Welcome back 
      privmsg $active VSIXc|| $+ %txtfont $+ || $+ %txtcolor $+ || $+ %txtstyle $+ || $+ $chr(32) $+ : $+ %abackmessage $nick
      if ($me isowner $chan) { 
        echo %color -ti2 $chan 02 $+ . $+ $me $+ : $remove($replace(%txtstyle,B,),I,) $+ %abackmessage $nick
        halt
      } 
      if ($me isop $chan) { 
        echo %color -ti2 $chan 02 $+ @ $+ $me $+ : $remove($replace(%txtstyle,B,),I) $+ %abackmessage $nick
        halt
      } 
      else { 
        echo %color -ti2 $chan 02 $+ $me $+ : $remove($replace(%txtstyle,B,),I) $+ %abackmessage $nick
        halt
      }
    }
  }
}
