menu channel {
$iif($dialog(awaymsg),$style(7)) Away Msg: {
.dialog -dm awaymsg awaymsg
}
}
on 1:Start: {
hmake awaymsg 1000
if ($isfile(awaymsg.hsh)) {
hload -o awaymsg awaymsg.hsh
}
}
dialog awaymsg {
title "Away...."
size -1 -1 76 150
option dbu
combo 1, 3 3 70 98, size
button "Add", 4, 16 113 22 12
button "Del", 5, 39 113 22 12
button "Close", 8, 22 130 37 12
}
alias awaymsg2 {
if (($hget(awaymsg) && $hget(awaymsg,0).item) > 0) {
var %awaymsg = $hget(awaymsg,0).item
while (%awaymsg) {
if ($hget(awaymsg,%awaymsg).data == $3-) {
mode %away.chan +b %away.nick
kick %away.chan %away.nick Damn you!
}
dec %awaymsg
}
}
elseif (($hget(awaymsg) && !$hget(awaymsg,0).item)) { return }
}
alias awaymsg {
if (($hget(awaymsg) && $hget(awaymsg,0).item) > 0) {
var %awaymsg = $hget(awaymsg,0).item
while (%awaymsg) {
if ($dialog(awaymsg)) {
did -a awaymsg 1 $hget(awaymsg,%awaymsg).data
dec %awaymsg
}
}
}
elseif (($hget(awaymsg) && !$hget(awaymsg,0).item)) { return }
}
on 1:dialog:awaymsg:init:0: {
did -b awaymsg 5
awaymsg
}
on 1:dialog:awaymsg:sclick:1: {
if ($did(awaymsg,1).sel) {
did -e awaymsg 5
}
}
on 1:dialog:awaymsg:sclick:2: {
if ($did(awaymsg,2).sel) {
did -e awaymsg 7
}
}
on 1:dialog:awaymsg:sclick:4: {
if ($hget(awaymsg)) {
if ($did($dname,1).text) {
did -a awaymsg 1 $did($dname,1).text
hadd awaymsg $didwm(awaymsg, 1,$did(awaymsg,1).text) $did($dname,1).text
}
}
}
on 1:dialog:awaymsg:sclick:5: {
if ($did($dname,1).sel) {
if ($hget(awaymsg)) {
hdel awaymsg $didwm(awaymsg, 1,$did(awaymsg,1).seltext)
did -d awaymsg 1 $didwm(awaymsg, 1,$did(awaymsg,1).seltext)
did -b awaymsg 5
}
}
}
on 1:dialog:awaymsg:sclick:8: {
dialog -x awaymsg awaymsg
}
on 1:dialog:awaymsg:close:0: {
hsave -o awaymsg awaymsg.hsh
}
#away off
Raw 301:*: {
awaymsg2 $1-
.disable #away
}
#away end
on @*:Join:#: {
.whois $nick
.enable #away
set %away.chan $chan
set %away.nick $nick
}