alias r1 {
  var %x = $1
  if (%theme == ocean) { return 10 $+ %x $+  } 
  elseif (%theme == blood) { return 4 $+ %x $+  }
  elseif (%theme == nature) { return 9 $+ %x $+  }
  elseif (%theme == default) { return 2 $+ %x $+  }
  elseif (%theme == fire) { return 7 $+ %x $+  }
  elseif (%theme == onyx) { return 14 $+ %x $+  }
  elseif (%theme == custom) { return  $+ %c1 $+ %x $+  }
  else { return 02 $+ %x $+  }
}
alias r2 {
  var %x = $1
  if (%theme == ocean) { return $+($chr(3),02,%x,$chr(3)) } 
  elseif (%theme == blood) { return $+($chr(3),05,%x,$chr(3)) }
  elseif (%theme == nature) { return $+($chr(3),03,%x,$chr(3)) }
  elseif (%theme == default) { return $+($chr(3),07,%x,$chr(3)) }
  elseif (%theme == fire) { return $+($chr(3),04,%x,$chr(3)) }
  elseif (%theme == onyx) { return $+($chr(3),01,%x,$chr(3)) }
  elseif (%theme == custom) { 
    return $+($chr(3),%c2,%x,$chr(3)) 
  }
  else { return $+($chr(3),07,%x,$chr(3)) }
}

alias gonehelp {
  /echo -ta $r2(.:) $+ $r1(Help for the Away System - By David) $+ $r2(:.)
  /echo -ta $r1(/gone) $r2(<name suffix> <reason>) $r1(-) 4Sets yourself as away. The name suffix is the part of your nick that you wish to come after the line separator.
  /echo -ta $r1(/gone -s prefix) $r2(<prefix>) $r1(-) 4Sets your name prefix. The name prefix is the part of your nick that comes before the line separator. It is a constant. 
  /echo -ta $r1(/gone -s main) $r2(<nick>) $r1(-) 4Sets the nickname you use while not away. 
  /echo -ta $r1(/gone -s pager) $r2(<on/off>) $r1(-) 4 Turns the pager on and off
  /echo -ta $r1(/gone -s logs) $r2(<on/off>) $r1(-) 4Turns the logs on and off
  /echo -ta $r1(/gone -s theme) $r2(ocean/blood/nature/fire/onyx/custom/default>) $r1(-) 4Allows you to change the color scheme of the messages. To use custom colors, you must use color codes.
  /echo -ta $r1(/back -) 4Returns you from the away status.
  /echo -ta $r1(/pager -) 4Force checks your pager.
  /echo -ta $r1(/global) $r2(<topic> <message>) $r1(-) 4Sends a global.
  /echo -ta $r1(/global -e) $r2(<channels to exclude>) $r1(-) 4Excludes channels from the global.
  /echo -ta $r1(/global -e -d) $r2(<channels to delete from exclude>) $r1(-) 4Deletes channels from the exclude list.
  /echo -ta $r1(/global -e -c -) 4Clears the exclude list.
}
alias gone {
  write -c pager.txt //echo -ta 7.:2Pager System by David7:.
  if ($left($1,2) == $chr(45) $+ s) {
    if ($2 == prefix) { writeini away.ini prefix prefix $$3 | /echo -t $r1(Your away prefix has been set to) $r2($3) $+ $r1(.) }
    if ($2 == main) { writeini away.ini main nick $$3 | /echo -t $r1(Your primary nickname has been set to) $r2($3) $+ $r1(.) }
    if ($2 == theme) {
      if ($3 == ocean) { set %theme ocean | /echo -ta $r1(Your theme has been set to) $r2(OCEAN) $+ $r1(.) }
      elseif ($3 == blood) { set %theme blood | /echo -ta $r1(Your theme has been set to) $r2(BLOOD) $+ $r1(.) }
      elseif ($3 == nature) { set %theme nature | /echo -ta $r1(Your theme has been set to) $r2(NATURE) $+ $r1(.) }
      elseif ($3 == fire) { set %theme fire | /echo -ta $r1(Your theme has been set to) $r2(FIRE) $+ $r1(.) }
      elseif ($3 == onyx) { set %theme onyx | /echo -ta $r1(Your theme has been set to) $r2(ONYX) $+ $r1(.) }
      elseif ($3 == default) { set %theme default | /echo -ta $r1(Your theme has been set to) $r2(DEFAULT) $+ $r1(.) }
      elseif ($3 == custom) {
        set %c1 $$4
        set %c2 $$5
        if ($$5 != 10 || $$5 != 11 || $$5 != 12 || $$5 != 13 || $$5 != 14 || $$5 != 15 ) { set %c2 $+(0,$$5) }
        set %theme custom
        /echo -ta $r1(Your theme has been set to) $r2(CUSTOM) $+ $r1(.)
      }
    }
    elseif ($left($1,2) == $chr(45) $+ c || $left($1,2) == $chr(45) $+ e || $left($1,2) == $chr(45) $+ d) { halt }
    if ($2 == pager) {
      if ($3 == on) {
        if (%pager == on) { /echo -ta $r1(Your pager is already on.) }
        else { set %pager on | /echo -ta $r1(Your pager is now) $r2(ON) }
      }
      elseif ($3 == off) {
        if (%pager == off) { /echo -ta $r1(Your pager is already off.) }
        else { set %pager off | /echo -ta $r1(Your pager is now) $r2(OFF) }
      }
      else { /echo -ta $r1(The options for this command are) $r2(ON) $r1(and) $r2(OFF) $+ $r1(.) }
    }
    if ($2 == logs) {
      if ($3 == on) {
        if (%logs == on) { /echo -ta $r1(Your logs are already on.) }
        else { set %logs on | /echo -ta $r1(Your logs are now) $r2(ON) }
      }
      elseif ($3 == off) {
        if (%logs == off) { /echo -ta $r1(Your logs are already off.) }
        else { set %logs off | /echo -ta $r1(Your logs are now) $r2(OFF) }
      }
      else { /echo -ta $r1(The options for this command are) $r2(ON) $r1(and) $r2(OFF) $r1(.) }
    }
  }
  else {
    set %prefix $readini(away.ini,prefix,prefix)
    set %primarynick $readini(away.ini,main,nick)
    if (!%prefix) { /echo -ta $r2(**[AWAY]) $r1(You must designate a nick prefix.) $r2($chr(47) $+ gone -s prefix prefix here) $+ $r1(.) }
    else {
      /part #Zezima
      set %reason $$2-
      set %awaytimetest $ctime
      set %awaytimetest2 $asctime(hh:nn:ss TT)
      /scon -a /nick %prefix $+ $chr(124) $+ $1
      /timerjoin 1 2 /join #Zezima
      if (%pager == off) {
        if (%logs == on) { /scon -a /amsg $r2($chr(171) $+ AWAY $+ $chr(187)) $r1(I'm going away due to:) $r2(%reason) $r1( $+ $chr(183) $+  The time is) $r2($($asctime(h:nn:ss TT),2)) $+ $r1(. Pager is) $r2(OFF) $+ $r1(. Logs are) $r2(ON) $+ $r1(.) }
        else { /scon -a /amsg $r2($chr(171) $+ AWAY $+ $chr(187)) $r1(I'm going away due to:) $r2(%reason) $r1( $+ $chr(183) $+  The time is) $r2($($asctime(h:nn:ss TT),2)) $+ $r1(. Pager is) $r2(OFF) $r1(. Logs are) $r2(OFF) $+ $r1(.) }
      }
      else {
        if (%logs == on) { /scon -a /amsg $r2($chr(171) $+ AWAY $+ $chr(187)) $r1(I'm going away due to:) $r2(%reason) $r1( $+ $chr(183) $+  The time is) $r2($($asctime(h:nn:ss TT),2)) $+ $r1(. Pager is) $r2(ON) $+ $r1(. Logs are) $r2(ON) $+ $r1(.) }
        else { /scon -a /amsg $r2($chr(171) $+ AWAY $+ $chr(187)) $r1(I'm going away due to:) $r2(%reason) $r1( $+ $chr(183) $+  The time is) $r2($($asctime(h:nn:ss TT),2)) $+ $r1(. Pager is) $r2(ON) $r1(. Logs are) $r2(OFF) $+ $r1(.) }
      }

    }
  }
}
alias back {
  set %referrer on
  if (!%reason) {
    /echo -t You are not away, dickhead.
  }
  else {
    unset %zeros
    set %backtimetest $ctime
    set %gonetimeun $duration($calc(%backtimetest - %awaytimetest),3)
    /formattime
  }
}

alias formattime {
  tokenize 58 %gonetimeun
  set %sec $3
  set %hours $1
  set %min $2
  if (%hours == 00) {
    if (%min == 00) { 
      if (%sec == 00) {
        halt
      }
      else { set %gonetime %sec $+ s }
    }
    else {
      if (%sec == 00) {
        set %gonetime %min $+ m
      }
      else { set %gonetime %min $+ m $+ %sec $+ s }
    }
  }
  else {
    if (%min == 00) { 
      if (%sec == 00) {
        set %gonetime %hours $+ h
      }
      else { set %gonetime %hours $+ h $+ %sec $+ s }
    }
    else {
      if (%sec == 00) {
        set %gonetime %hours $+ h $+ %min $+ m
      }
      else { set %gonetime %hours $+ h %min $+ m %sec $+ s }
    }
  }
  /backgmsg
}
alias backgmsg {
  if (%referrer != on) { halt }
  else {
    /part #Zezima
    /scon -a /nick %primarynick
    /timerjoin 1 2 /join #Zezima
    /scon -a /amsg $r2($chr(171) $+ BACK $+ $chr(187)) $r1(I went away due to:) $r2(%reason) $r1( $+ $chr(183) $+  Now I'm back  $+ $chr(183) $+  The time is) $r2($($asctime(h:nn:ss TT),2)) $+ $r1(. $chr(183) I was gone for) $r2(%gonetime) $+ $r1(.)
    /pager
    /reset
  }
}

alias reset {
  unset %hours
  unset %min
  unset %sec
  unset %gonetimeun
  unset %gonetime
  unset %reason
  unset %zeros
  unset %awaytimetest
  unset %backtimetest
  unset %hourremain
  unset %minremain
  unset %referrer
}

alias global {
  if ($1 == -e) { 
    if ($2 == -c  ) { unset %exclude }
    elseif ($2 == -d) { set %exclude $remove(%exclude,$3,$4,$5,$6,$7) }
    else {
      set %exclude %exclude $2- 
    }
  }
  else {
    set %i 1
    while (%i <= $chan(0)) {
      if ($chan(%i) isin %exclude) { inc %i }
      else {
        /msg $chan(%i) 3*--[4:GLOBAL:3] $r2(**[ $+ $upper($$1) $+ ]) $r1($$2- $+ .) 3[4:GLOBAL:3]--*
        inc %i
      }
    }
  }
}

on *:TEXT:*:#:{
  if (%reason) {
    if (David isin $1- || $me isin $1-) {
      /notice $nick 2I am currently away from the computer. <> Reason:7 %reason 2<> I left at:7 %awaytimetest2 2<> Please contact me later, or page me with 7/ctcp $me page message
    }
  }
  if (%logs == on) {
    set %file2 test $+($network,.,$chan,.,txt)
    write $($network $+ . $+ $chan $+ .txt,2) < $+ $date $+ > [ $asctime(h:nn:ss TT) ] < $+ $nick $+ > $strip($1-,burc)
    if ($network !isin %networkslogged) {
      set %networkslogged %networkslogged $network
    }
  }
}
on *:TEXT:*:?:{
  if (%reason) {
    if (David isin $1- || $me isin $1-) {
      /notice $nick 2I am currently away from the computer. <> Reason:7 %reason 2<> I left at:7 %awaytimetest2 2<> Please contact me later, or page me with 7/ctcp $me page message
    }
  }
}
on *:ACTION:*:#:{
  if (%logs == on) {
    write $($network $+ . $+ $chan $+ .txt,2) < $+ $date $+ > [ $asctime(h:nn:ss TT) ] * $nick $strip($1-,burc) 
    if ($network !isin %networkslogged) {
      set %networkslogged %networkslogged $network
    }
  }
}

on *:KICK:#:{ 
  if (%logs == on) {
    write $($network $+ . $+ $chan $+ .txt,2) < $+ $date $+ > [ $asctime(h:nn:ss TT) ] * $nick kicks: $knick 
    if ($network !isin %networkslogged) {
      set %networkslogged %networkslogged $network
    }
  }
}

on *:QUIT:{ 
  if (%logs == on) {
    write $($network $+ . $+ $chan $+ .txt,2) < $+ $date $+ > [ $asctime(h:nn:ss TT) ] * $nick has quit IRC: $1- 
    if ($network !isin %networkslogged) {
      set %networkslogged %networkslogged $network
    }
  }
}

on *:BAN:#:{ 
  if (%logs == on) {
    write $($network $+ . $+ $chan $+ .txt,2) < $+ $date $+ > [ $asctime(h:nn:ss TT) ] * $nick sets mode +b: $bnick $banmask 
    if ($network !isin %networkslogged) {
      set %networkslogged %networkslogged 
      if ($network !isin %networkslogged) {
        set %networkslogged %networkslogged $network
      }
    }
  }
}

on *:OP:#:{
  if (%logs == on) {
    write $($network $+ . $+ $chan $+ .txt,2) < $+ $date $+ > [ $asctime(h:nn:ss TT) ] * $nick sets mode +o: $opnick 
    if ($network !isin %networkslogged) {
      set %networkslogged %networkslogged $network
    }
  }
}

on *:VOICE:#:{
  if (%logs == on) {
    write $($network $+ . $+ $chan $+ .txt,2) < $+ $date $+ > [ $asctime(h:nn:ss TT) ] * $nick sets mode +v: $vnick 
    if ($network !isin %networkslogged) {
      set %networkslogged %networkslogged $network
    }
  }
}

on *:DEOP:#:{
  if (%logs == on) {
    write $($network $+ . $+ $chan $+ .txt,2) < $+ $date $+ > [ $asctime(h:nn:ss TT) ] * $nick sets mode -o: $opnick 
    if ($network !isin %networkslogged) {
      set %networkslogged %networkslogged $network
    }
  }
}

on *:DEVOICE:#:{
  if (%logs == on) {
    write $($network $+ . $+ $chan $+ .txt,2) < $+ $date $+ > [ $asctime(h:nn:ss TT) ] * $nick sets mode -v: $vnick
    if ($network !isin %networkslogged) {
      set %networkslogged %networkslogged $network
    }
  }
}

on *:UNBAN:#:{
  if (%logs == on) { 
    write $($network $+ . $+ $chan $+ .txt,2) < $+ $date $+ > [ $asctime(h:nn:ss TT) ] * $nick sets mode -b: $bnick $banmask 
    if ($network !isin %networkslogged) {
      set %networkslogged %networkslogged $network
    }
  }
}

on *:HELP:#:{
  if (%logs == on) {
    write $($network $+ . $+ $chan $+ .txt,2) < $+ $date $+ > [ $asctime(h:nn:ss TT) ] * $nick sets mode +h: $hnick 
    if ($network !isin %networkslogged) {
      set %networkslogged %networkslogged $network
    }
  }
}

on *:DEHELP:#:{
  if (%logs == on) {
    write $($network $+ . $+ $chan $+ .txt,2) < $+ $date $+ > [ $asctime(h:nn:ss TT) ] * $nick sets mode -h: $hnick
    if ($network !isin %networkslogged) {
      set %networkslogged %networkslogged $network
    }
  }
}  

on *:JOIN:#:{
  if (%logs == on) {
    write $($network $+ . $+ $chan $+ .txt,2) < $+ $date $+ > [ $asctime(hh:nn:ss TT)] $nick Joined: $chan : $fulladdress
    if ($network !isin %networkslogged) {
      set %networkslogged %networkslogged $network

    }
  }
}
on *:PART:#:{
  if (%logs == on) {
    write $($network $+ . $+ $chan $+ .txt,2) < $+ $date $+ > $asctime(hh:nn:ss TT) $nick parted: $chan : $fulladdress 
    if ($network !isin %networkslogged) {
      set %networkslogged %networkslogged $network
    }
  }
}
on *:INPUT:#:{
  if ($left($1-,1) != $chr(47)) {
    if (%logs == on) {
      write $($network $+ . $+ $chan $+ .txt,2) < $+ $date $+ > [ $asctime(h:nn:ss TT) ] < $+ $me $+ > $strip($1-,burc)
      if ($network !isin %networkslogged) {
        set %networkslogged %networkslogged $network
      }
    }
  }
}
ctcp *:page:*:{
  if (%pager == on) {
    if (%reason) {
      write pager.txt //echo -ta 2You were paged by7 $nick 2at7 $asctime(h:nn:ss TT) $+ :7 $2-
    }
    else { /notice $nick 2I am not away at the moment. There is no reason to page me. | halt }
  }
  else { /notice $nick 2My pager is not active. }
}
alias pager { 
  if (%pager == on) {
    if ($lines(pager.txt) == 1) { write pager.txt //echo -ta 2You have no pages. }
    play -s pager.txt 
  }
}