Away

[settings]
nick=b|NTanGDiSurRGa
anick=b|NTanGDiSurRGa[away]
reason=Automatically set away
time=1192797748
silent=on
multi=on
logger=on
pager=on
amsg=is leaving, reason: . pager is [b][b] and logger is [b][b]
bmsg=has returned from [b][b], i was gone for [b][b]
mtype=ame
areasons=afkmamamµmamamµ
anicks=noneµb|NTanGDiSurRGa[away]µ
away=off
anstat=on
[script]
n0=alias away {
n1= if (!$away) { a_save away on | a_save time $ctime | a_save nick $me | if ($left($1,1) == $chr(45)) { if ($left($1,2) != $chr(45)) { a_save pager $iif(p isincs $1,on,off) | a_save multi $iif(m isincs $1,on,$network) | a_save logger $iif(l isincs $1,on,off) | a_save silent $iif(s isincs $1,on,off) | a_save anstat $iif(n isincs $1,on,off) | a_save reason $iif($2- != $null,$2-,afk) } | else { a_save reason $iif($2- != $null,$2-,afk) } } | else { a_save reason $iif($1- != $null,$1-,afk) } | a_set away | if ($a_get(logger) == on) || ($a_get(pager) == on) { $iif($window(@away.log),window -c @away.log) | window -aBhk0s +estxL @away.log } }
n2= else { a_save away off | a_set back | if ($a_get(logger) == on) || ($a_get(pager) == on) { if ($window(@away.log)) && ($input(Do you want the messages and pages logged when you were away?,y,View logs?)) { window -a @away.log } } }
n3=}
n4=alias -l a_get { return $readini(" $+ $script $+ ",settings,$$1) }
n5=alias -l a_save { writeini " $+ $script $+ " settings $1 $2- }
n6=alias -l a_set {
n7= if ($1 isincs away) { if ($a_get(silent) == off) { $iif($a_get(multi) == on,scid -at1) $a_get(mtype) $replace($a_get(amsg),[b],$chr(2),,$chr(31),,$chr(22),,$chr(3),,$a_get(logger),,$a_get(pager),,$a_get(reason)) } | $iif($a_get(anstat) == on,$iif($a_get(multi) == on,scid -at1) nick $a_get(anick)) | $iif($a_get(multi) == on,scid -at1) .quote away $replace($a_get(reason),$chr(32),$chr(160)) }
n8= if ($1 isincs back) { if ($a_get(silent) == off) { $iif($a_get(multi) == on,scid -at1) $a_get(mtype) $replace($a_get(bmsg),[b],$chr(2),,$chr(31),,$chr(22),,$chr(3),,$a_get(logger),,$a_get(pager),,$a_get(reason),,$duration($calc($ctime - $a_get(time)))) } | $iif($a_get(anstat) == on,$iif($a_get(multi) == on,scid -at1) nick $a_get(nick)) | $iif($a_get(multi) == on,scid -at1) .quote away }
n9=}
n10=alias -l mas_combo { if ($$1 == check) { var %mas = 1 | while (%mas <= $gettok($a_get($$2),0,181)) { if ($$3 == $gettok($a_get($$2),%mas,181)) { return $true } | if (%mas == $gettok($a_get($$2),0,181)) && ($$3 != $gettok($a_get($$2),%mas,181)) { return $false } | inc %mas } } | if ($1 == load) { did -r mas_dialog $iif($2 == areasons,3,6) | var %mas = 1 | while (%mas <= $gettok($a_get($2),0,181)) { did -a mas_dialog $iif($2 == areasons,3,6) $gettok($a_get($2),%mas,181)) | inc %mas } } | if ($$1 = line) { var %mas = 1 | while (%mas <= $did(mas_dialog,$$2).lines) { if ($$3 == $did(mas_dialog,$$2,%mas)) { return %mas } | inc %mas } } }
n11=alias mas { dialog -m mas_dialog mas_dialog }
n12=alias eam { dialog -m eam_dialog eam_dialog }
n13=alias -l mas_logwin { if (!$window(@away.log)) { window -aBhk0s +estxL @away.log } }
n14=dialog mas_dialog {
n15= title "mIRC Away System"
n16= size -1 -1 131 58
n17= option dbu
n18= box "", 1, 1 -2 129 33
n19= text "Away reason :", 2, 5 6 37 8
n20= combo 3, 44 5 60 52, drop edit size
n21= button "", 4, 106 5 20 11
n22= check "Away nick :", 5, 5 17 37 10
n23= combo 6, 44 17 60 52, drop edit size
n24= button "", 7, 106 17 20 11
n25= box "", 8, 1 29 88 28
n26= check "Pager", 9, 5 34 25 10
n27= check "Logger", 10, 44 34 25 10
n28= check "Silent", 11, 5 45 28 10
n29= check "All networks", 12, 44 45 40 10
n30= button "", 13, 90 32 40 12, ok
n31= button "Cancel", 14, 90 45 40 12, cancel
n32=}
n33=dialog eam_dialog {
n34= title "mIRC Away System - Message Editor"
n35= size -1 -1 200 58
n36= option dbu
n37= box "", 1, 1 -2 198 33
n38= text "Away message:", 2, 5 6 39 8, right
n39= edit "", 3, 46 5 118 10, autohs
n40= button "Preview", 4, 165 5 30 10
n41= text "Back message:", 5, 5 18 39 8, right
n42= edit "", 6, 46 17 118 10, autohs
n43= button "Preview", 7, 165 17 30 10
n44= box "", 8, 1 29 40 28
n45= radio "/amsg", 9, 7 34 25 10
n46= radio "/ame", 10, 7 45 28 10
n47= box "", 11, 42 29 115 28
n48= text " ", 12, 46 35 40 8
n49= text "", 13, 46 46 40 8
n50= text " - logger (on/off)", 14, 82 35 100 8
n51= text " - pager (on/off)", 15, 82 46 100 8
n52= button "Save", 16, 159 32 40 12, ok
n53= button "Cancel", 17, 159 45 40 12, cancel
n54=}
n55=on *:dialog:mas_dialog:*:*:{
n56= if ($devent == init) {
n57= did - $+ $iif($away,b,e) $dname 2,3,4,5,6,7,9,10,11,12 | did -a $dname 13 Set $iif($away,Back,Away) | if ($a_get(anstat) == on) { did -c $dname 5 } | else { did -b $dname 6,7 } | if ($a_get(pager) == on) { did -c $dname 9 } | if ($a_get(logger) == on) { did -c $dname 10 } | if ($a_get(silent) == on) { did -c $dname 11 } | if ($a_get(multi) == on) { did -c $dname 12 } | mas_combo load areasons | mas_combo load anicks
n58= if ($mas_combo(check,areasons,$a_get(reason))) { did -c $dname 3 $mas_combo(line,3,$a_get(reason)) | did -a $dname 4 Del } | else { did -a $dname 3 $a_get(reason) | did -c $dname 3 $did($dname,3).lines | did -a $dname 4 Add } | if ($mas_combo(check,anicks,$a_get(anick))) { did -c $dname 6 $mas_combo(line,6,$a_get(anick)) | did -a $dname 7 Del } | else { did -a $dname 6 $a_get(anick) | did -c $dname 6 $did($dname,6).lines | did -a $dname 7 Add }
n59= }
n60= if ($devent == sclick) {
n61= if ($did == 13) { if ($away) { away } | else { if ($did($dname,5).state) { a_save anick $did($dname,6) } | away - $+ $iif($did($dname,5).state,n) $+ $iif($did($dname,9).state,p) $+ $iif($did($dname,10).state,l) $+ $iif($did($dname,11).state,s) $+ $iif($did($dname,12).state,m) $did($dname,3) } } | if ($did == 3) || ($did == 6) { did - $+ $iif($did($dname,$did) != $null,e,b) $dname $calc($did +1) | did -ra $dname $calc($did +1) $iif($mas_combo(check,$iif($did == 3,areasons,anicks),$did($dname,$did)),Del,Add) } | if ($did == 5) { if ($did($dname,$did).state) { did -e $dname 6,7 } | else { did -b $dname 6,7 } }
n62= if ($did == 4) || ($did == 7) { if ($did($dname,$did) == del) { a_save $iif($did == 4,areasons,anicks) $remove($a_get($iif($did == 4,areasons,anicks)),$did($dname,$calc($did -1)) $+ $chr(181)) | mas_combo load $iif($did == 4,areasons,anicks) | did -ra $dname $did Del | did -c $dname $iif($did == 4,3,6) 1 } | else { a_save $iif($did == 4,areasons,anicks) $a_get($iif($did == 4,areasons,anicks)) $+ $did($dname,$calc($did -1)) $+ $chr(181) | mas_combo load $iif($did == 4,areasons,anicks) | did -ra $dname $did Del | did -c $dname $iif($did == 4,3,6) $did($dname,$iif($did == 4,3,6)).lines } }
n63= }
n64= if ($devent == edit) { did - $+ $iif($did($dname,$did) != $null,e,b) $dname $calc($did +1) | did -ra $dname $calc($did +1) $iif($mas_combo(check,$iif($did == 3,areasons,anicks),$did($dname,$did)),Del,Add) }
n65=}
n66=on *:dialog:eam_dialog:*:*:{
n67= if ($devent == init) { did -c $dname $iif($a_get(mtype) == amsg,9,10) | did -a $dname 3 $replace($a_get(amsg),[b],$chr(2),[u],$chr(31),[i],$chr(22),,$chr(3)) | did -a $dname 6 $replace($a_get(bmsg),[b],$chr(2),[u],$chr(31),[i],$chr(22),,$chr(3)) }
n68= if ($devent == sclick) { if ($did == 4) || ($did == 7) { echo $color($iif($did($dname,9).state,own text,action text)) -a $iif($did($dname,9).state,< $+ $me $+ >,$chr(42) $me) $did($dname,$calc($did -1)) } | if ($did == 16) { a_save amsg $replace($did($dname,3),$chr(2),[b],$chr(31),[u],$chr(22),[i],$chr(3),) | a_save bmsg $replace($did($dname,6),$chr(2),[b],$chr(31),[u],$chr(22),[i],$chr(3),) | a_save mtype $iif($did($dname,9).state,amsg,ame) } }
n69=}
n70=on *:connect:{ if ($a_get(away) == on) { if ($a_get(multi) == on) { .quote away $a_get(reason) | $iif($a_get(anstat) == on,nick $a_get(anick)) } | elseif ($a_get(multi) == $network) { .quote away $a_get(reason) | $iif($a_get(anstat) == on,nick $a_get(anick)) } } }
n71=on *:load:{ echo 1 -a * mIRC Away System loaded... | echo 1 -a * mIRC Away System is written by airliner. Email: webmaster@airliner.nl Website: http://www.airliner.nl/ }
n72=on *:unload:{ echo 1 -a * mIRC Away System unloaded... | echo 1 -a * mIRC Away System was written by airliner. Email: webmaster@airliner.nl Website: http://www.airliner.nl/ }
n73=on *:exit:{ a_save away off }
n74=on *:text:*:#:{ if ($a_get(logger) == on) && ($a_get(away) == on) { mas_logwin | if ($me isin $1-) || ($a_get(nick) isin $1-) || ($a_get(anick) isin $1-) { if ($a_get(multi) == on) { aline $color(Nick text) @away.log $timestamp < $+ $nick $+ > $1- ( $+ $chan $+ @ $+ $network $+ ) } | elseif ($a_get(multi) == $network) { aline $color(Nick text) @away.log $timestamp < $+ $nick $+ > $1- ( $+ $chan $+ ) } } } }
n75=on *:text:*:?:{ if ($a_get(logger) == on) && ($a_get(away) == on) { mas_logwin | if ($a_get(multi) == on) { aline $color(Nick text) @away.log $timestamp < $+ $nick $+ > $1- (PMSG@ $+ $network $+ ) } | elseif ($a_get(multi) == $network) { aline $color(Nick text) @away.log $timestamp < $+ $nick $+ > $1- (PMSG) } } }
n76=on *:action:*:#:{ if ($a_get(logger) == on) && ($a_get(away) == on) { mas_logwin | if ($me isin $1-) || ($a_get(nick) isin $1-) || ($a_get(anick) isin $1-) { if ($a_get(multi) == on) { aline $color(Nick text) @away.log $timestamp * $nick $1- ( $+ $chan $+ @ $+ $network $+ ) } | elseif ($a_get(multi) == $network) { aline $color(Nick text) @away.log $timestamp * $nick $1- ( $+ $chan $+ ) } } } }
n77=on *:action:*:?:{ if ($a_get(logger) == on) && ($a_get(away) == on) { mas_logwin | if ($a_get(multi) == on) { aline $color(Nick text) @away.log $timestamp * $nick $1- (PMSG@ $+ $network $+ ) } | elseif ($a_get(multi) == $network) { aline $color(Nick text) @away.log $timestamp * $nick $1- (PMSG) } } }
n78=on *:notice:*:*:{ if ($a_get(logger) == on) && ($a_get(away) == on) && ($nick !iswm *Serv) { mas_logwin | if ($a_get(multi) == on) { aline $color(Notice text) @away.log $timestamp - $+ $nick $+ - $1- ( $+ $network $+ ) } | elseif ($a_get(multi) == $network) { aline $color(Notice text) @away.log $timestamp - $+ $nick $+ - $1- } } }
n79=ctcp *:page:*:{ if ($a_get(pager) == on) && ($a_get(away) == on) { mas_logwin | if ($a_get(multi) == on) { aline $color(Ctcp text) @away.log $timestamp [ $+ $nick PAGE] $1- ( $+ $network $+ ) } | elseif ($a_get(multi) == $network) { aline $color(Ctcp text) @away.log $timestamp [ $+ $nick PAGE] $1- } } }
n80=menu channel,status,query {
n81= -
n82= Set $iif($away,Back,Away) { mas }
n83= -
n84=}
n85=menu menubar {
n86= -
n87= mIRC Away System
n88= .Set $iif($away,Back,Away) { mas }
n89= .-
n90= .Message Editor:{ eam }
n91= .Unload:{ unload -rs " $+ $script $+ " }
n92=}[/i][/u][/b][/i][/u][/b][/i][/u][/b][/i][/u][/b][/b][/b][/b][/b][/b][/b][/b][/b][/b][/b]