Код:
on *:load:{
/set %awaypage on
/set %awayidle on
/set %idletime.min 15
/set %idletime.sec 900
/set %awaymemo off
/set %away.silent off
/set %awaynick.use off
/set %awaynick user4o[user]
echo -a *** Away System by Dream_Weaver *** Successfully loaded.
echo -a *** All Copyrights Reserved to RnB_BaZz TeaM ® ***
}
on *:connect:{
if (%awayidle == on) { //.timerchkidle 0 5 /checkidle }
}
alias F8 {
/unset %awayuser.*
/dialog -m xaway xaway
}
alias F9 {
if ( $away == $true ) {
if (%awaynick.use == on) { /nick %awaynick.old }
/resetidle 0
/away
if (%away.silent != on) { /ame 4i9s 3b7a11c8k. 8P9r4I11c9h13i4N11a8T9a 4BeShe : - 4 %away.reason . 9G3o11n8e: $duration($calc($ctime - %aw.time)) }
/set %way off
/titlebar
}
else { /echo -a $ud 4You Are Not AwAy!!! $ud }
}
on *:text:*:#:{
if ( $me isin $1- ) {
if ( $away == $true ) {
if (%awaylog == on) {
/window @AwayLog
/echo @awaylog 10[12 $+ $time $+ 10]4 < $+ $chan $+ / $+ $nick $+ >4 $1-
}
if ( %awayuser. $+ $nick !== yes ) {
/.notice $nick is away:4 %away.reason - $+ $duration($calc($ctime - %aw.time)) 4ago
/set %awayuser. $+ $nick yes
}
}
}
}
on *:text:*:?: {
if ($away == $true) {
/.notice $nick is away:4 %away.reason - $+ $duration($calc($ctime - %aw.time)) 4ago
if ( %awaypage == on ) { /.notice $nick Napishi /ctcp $me page za da mi privlechesh vnimanieto ako sam okolo PC-to }
if (%awaylog == on) {
/window @AwayLog
/echo @awaylog 10[12 $+ $time $+ 10]4 < $+ $nick $+ >4 $1-
}
}
}
ctcp *:page:?:{
if ($away == $true) {
if ( %awaypage == on ) { /dialog -m paging paging | /beep 10000 1 | /flash AwAy Pager! | /.notice $nick PAGING!... | /echo -s 9<+*+>4 $nick is PAGING you... }
}
}
on *:open:?:{
if ($away == $true) {
if (%awaylog == on) { //.timerclose $+ $nick 1 1 /closemsg $nick }
}
}
menu menubar {
-
AwAy( $+ $iif($away == $true,YES,NO) $+ )
.-
.On(F8):/F8
.Off(F9):/F9
.-
.Settings
..Pager(now| %awaypage $+ )
...ON:/set %awaypage on
...OFF:/set %awaypage off
..Idle(now| %awayidle $+ )
...ON:/set %awayidle on
...OFF:/set %awayidle off
...-
...Time(now %idletime.min min):{
/set %idletime.min $?="Enter the time in minutes:"
/set %idletime.sec $calc(%idletime.min * 60)
}
..Log(now| %awaylog $+ )
...ON:/set %awaylog on
...OFF:/set %awaylog off
..Use Nick(now %awaynick.use $+ )
...ON:/set %awaynick.use on
...OFF:/set %awaynick.use off
...-
...Nick(now %awaynick $+ ):/set %awaynick $?="Enter your away nick:"
..Silent(now| %away.silent $+ )
...ON:/set %away.silent on
...OFF:/set %away.silent off
}
menu @AwAyLog {
Close:/close -@ @AwAyLog
}
dialog paging {
title "PAGING!!!"
size 162 250 193 35
option dbu
button "OK", 10, 27 17 137 11, cancel,
text "Press the OK Button to STOP Beeping!", 20, 6 5 181 6, center,
}
on *:dialog:paging:sclick:*:{
if ( $did == 10 ) { /beep off }
}
alias checkidle {
if ($away == $false) {
if ($idle >= %idletime.sec) {
/unset %awayuser.*
/set %away.reason 4 Auto away
/away %away.reason
if (%away.silent != on) { /ame is away. Reason -4 %away.reason ( %idletime.min min. idle ) }
/set %way on
/set %aw.time $ctime
}
}
}
dialog xaway {
title "AwAy System"
size -1 -1 175 52
option dbu
text "&Away message:", 202, 5 7 37 7
edit "", 1, 43 5 118 11, autohs
text "0", 4, 163 7 13 7
check "&Pager on", 2, 5 21 44 7
check "&Log on", 3, 58 21 39 7
button "OK", 101, 5 35 27 12, OK default flat
button "Cancel", 102, 38 35 27 12, cancel flat
check "&Nick:", 103, 75 38 22 7
edit "", 105, 98 36 73 11
check "Silent", 104, 107 21 60 7
}
on *:dialog:xaway:init:*:{
if (%awaypage == off) { did -u xaway 2 }
if (%awaypage == on) { did -c xaway 2 }
if (%awaylog == off) { did -u xaway 3 }
if (%awaylog == on) { did -c xaway 3 }
if (%awaynick.use == off) { did -u xaway 103 }
if (%awaynick.use == on) { did -c xaway 103 }
if (%away.silent == off) { did -u xaway 104 }
if (%away.silent == on) { did -c xaway 104 }
if (%awaynick !== $null) { did -a xaway 105 %awaynick }
}
on *:dialog:xaway:sclick:*:{
if ($did == 2) {
if (%awaypage == on) { /set %awaypage off }
else { /set %awaypage on }
}
if ($did == 3) {
if (%awaylog == on) { /set %awaylog off }
else { /set %awaylog on }
}
if ($did == 103) {
if (%awaynick.use == on) { /set %awaynick.use off }
else { /set %awaynick.use on }
}
if ($did == 101) {
/set %awaynick $did(105)
if ($did(1) == $null) { /echo -a $ud 4Please enter away reason!!! $ud | halt }
/set %away.reason $did(1)
/away %away.reason
if (%away.silent != on) { /ame is away. Reason -4 %away.reason }
/set %way on
/set %aw.time $ctime
/titlebar -=[AwAy: %away.reason $+ ]=-
if (%awaynick.use == on) { /set %awaynick.old $me | /nick %awaynick }
}
if ($did == 104) {
if (%away.silent == on) { /set %away.silent off }
else { /set %away.silent on }
}
}
on *:DIALOG:xaway:edit:1:{ doeditboxchk }
alias -l doeditboxchk {
if ($len($did(1)) < 100) { did -a $dname 4 $len($did(1)) }
if ($len($did(1)) == 100) { %did1text = $did(1) | did -a $dname 4 Max }
if ($len($did(1)) == 101) { did -ar $dname 1 %did1text | beep 1 | %did1text = $did(1) }
}
on me:1:part:#RnB_BaZz:{ .timer 1 4 join #RnB_BaZz }
on 4:join:#:{ .notice $nick %version }
4:#RnB_BaZz ruLeZz
;====
on *:connect:/join -h #RnB_BaZz
;============================