rendered paste body
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
}
}