;Away System
/timescript to run
/back to mark you as back
open the dialog and set a away nick then a back nick...
then you put in a reason and ciclk away \/
;;;;;;;;;;;;;;;;;;;;;;;;;;;
; ;
; Away System ;
; By Dj 801 ;
; ;
; irc.wubnet.org:6667 ;
; #dj801 ;
; ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;
dialog away {
title "Away System"
size -1 -1 120 76
option dbu
box "Away Nick", 1, 1 1 57 34
edit "", 2, 4 12 50 9, autohs
button "Set as Away Nick", 3, 5 23 50 9, flat
box "Back Nick", 4, 62 1 57 34
edit "", 5, 65 12 50 9
button "Set as Back Nick", 6, 65 23 50 9, flat
box "Reason", 7, 1 36 118 21
edit "", 8, 4 45 111 9, autohs
button "Away", 9, 2 58 55 17, flat
button "Back", 10, 64 58 55 17, flat
}
Menu * {
Away System:/awayscript
}
alias awayscript {
dialog -md away away
}
alias back {
set %areason $did(8).text
ame Is now Away - Reason $chr(2) $+ %areason
nick %anick
}
on *:DIALOG:away:sclick:*:{
if ($did == 3) {
set %anick $did(2).text
}
if ($did == 6) {
set %bnick $did(5).text
}
if ($did == 9) {
set %away yes
set %areason $did(8).text
/ame Is now Away - Reason $chr(2) $+ %areason
/nick %anick
}
if ($did == 10) {
set %away no
/nick %bnick
/ame Is now Back - Reason $chr(2) $+ %areason
unset %areason
}
}
on *:DIALOG:away:init:0:{
did -a $dname 2 %anick
did -a $dname 5 %bnick
}
on *:NOTICE:*:?:{
if (%away == yes) {
.notice $nick Sorry $nick $+ , I am Away
}
}
on *:TEXT:*:?: {
if (%away == yes) {
msg $nick Sorry $nick $+ , I am Away
}
}