Code:
lias logo { return Away System by GrimZ }
alias xduration { return $remove($replace($duration($1),secs,s,mins,m,hrs,h,days,d,wks,w,wk,w,min,m,sec,s,hr,h,day,d),$chr(32))) }
alias awaylog { var %ctr = 1 | while (%ctr <= $lines($mircdirAway.txt)) { echo -a $chr(35) $+ %ctr » $read -l $+ %ctr $mircdirAway.txt | inc %ctr } | write -c $mircdirAway.txt }
alias away.status {
if ($dialog(away) == $null) { .timerawaysystem off | return }
else { did -ra away 10 $iif($away,away ... ( $+ [ $xduration($calc($ctime - %Away.Left)) ] $+ ) ,currently not set away!) }
}
on *:LOAD: {
echo -a ר Away System by GrimZ Loaded..!
echo -a ר Popups to work it on menubar and channel.
}
menu menubar,channel {
Away System
.$iif($away,Set Back):back
.$iif(!$away,Set Away):dialog -m away away
}
dialog away {
size -1 -1 210 130
title "Away System by GrimZ"
button "&Away",1, 5 100 60 25, default
button "&Back",2, 72 100 60 25, disable
button "&Exit",3, 140 100 60 25, cancel
text "Reason&:",4, 5 15 40 20
edit "buzy!",5, 50 10 150 20, autohs
text "Log Msgs?",6, 5 40 55 20
radio "Yes",7, 110 35 40 20, group
radio "No",8, 165 35 35 20
box "Status",9, 5 60 195 35
text "currently not set away!",10, 18 73 160 15, center
}
on 1:dialog:away:init:*: { did -c $dname 8 }
on 1:dialog:away:sclick:*: {
if ($did == 1) {
set %Away.Reason $did(5) | set %Away.Log $iif($did(7).state == 1,$true,$false) | set %Away.Left $ctime
ame is away, $did(5) @ $time(hh:nnt) [Log! $+ $iif(%Away.Log == $true,on,off) $+ ] (Away System by GrimZ)
away $did(5) | did -eb $dname 2,1
.timerawaysystem 0 1 away.status
}
if ($did == 2) {
ame is back from %Away.Reason @ $time(hh:nnt) ... gone for $xduration($calc($ctime - %Away.Left)) (Away System by GrimZ) | .timerawaysystem off | away | did -ra $dname 10 currently not set away! | set %Away.Log $false
if ($lines($mircdirAway.txt) != $null) && ($lines($mircdirAway.txt) != 0) { echo -a ר Away System » You have $lines($mircdirAway.txt) Msg's logged, type /awaylog to read. }
}
}
on *:TEXT:*:?: {
if (%Away.Log == $true) { .msg $nick Im currently away, %Away.Reason ... Msg logged. $logo | write $mircdirAway.txt MSG from $nick @ $time(hh:nnt) .. $1- | .ignore -pu25 $mask($fulladdress,2) | close -m $nick }
}
ctcp *:VERSION:*: {
.ctcpreply $nick ADDON $logo
}
Evo sada sam stavio code
[
Ovu poruku je menjao C0NF0RTY dana 09-26-2001 u 10:44 AM GMT]