;Away
dialog away {
title "Away System"
size -1 -1 109 67
option dbu
text "Reason", 1, 0 0 27 8, center
edit "", 2, 0 11 50 10, autohs autovs return
text "Nick", 3, 58 0 17 8, center
edit "", 4, 59 11 50 10, autohs autovs return
button "Away", 5, 18 23 32 12
button "Back", 6, 59 23 32 12
text "Logger", 7, 0 37 25 8, center
radio "On", 8, 0 49 19 8
radio "Off", 9, 0 58 20 8
text "Autoaway", 10, 44 46 34 8, center
edit "", 11, 73 55 30 10, autohs multi return
text "Minute(s)", 12, 45 56 26 8, center
}
alias away {
if (!$dialog(away)) {
dialog -dm away away
}
elseif ($dialog(away)) {
echo -a $timestampz $box(Away Dialog Already Open)
}
}
on *:dialog:away:sclick:8: {
set %away.msglogger on
}
on *:dialog:away:sclick:9: {
set %away.msglogger off
}
on *:dialog:away:sclick:5: {
if ($did(11) != $null) {
set %away.minutes $did(11)
}
set %away.nick $did(4)
if ($did(4) != $null) {
.tnick %away.nick
}
set %away true
set %away.reason $did(2)
set %away.leftat $asctime(h:nn:sstt)
scon -atl ame $box(is Away) $box(Reason: %away.reason $+ ) $box(Left At: %away.leftat $+ )
.timeraway 0 3600 scon -atl ame $box(is Away) $box(Reason: %away.reason $+ ) $box(Left At: %away.leftat $+ )
}
on *:dialog:away:sclick:6: {
.nick $readini mirc.ini mirc nick
set %away.returnat $asctime(h:nn:sstt)
set %away false
scon -atl ame $box(is Back) $box(Reason: %away.reason $+ ) $box(Left At: %away.leftat $+ ) $box(Returned At: %away.returnat $+ )
.timeraway off
}
on *:dialog:away:close:*: {
unset %away.*
}
on 1:TEXT:*:?: {
if (%away.msglogger == on) {
window -kt @Logged_Messages
echo @Logged_Messages $timestampz $box( $+ $nick said: $1- $+ )
write Remotes\LoggedMessages.txt $strip( $+ $timestampz $box( $+ $nick said: $1- $+ ) $+ )
close -m $nick
}
}
away sytem i am using that i created.... thanx for helping with the autoaway if you can
