rendered paste bodyon *:START:{ themestart | .timerdc -io 0:00 1 0 chgday }
on *:LOAD:{ themestart }
on *:CONNECT:{ .timerl_check 0 60 /form_lag_ }
alias themestart {
.timestamp on
.timestamp -f 2(12ddd hh2:12nn2.12ss TT2)
.timestamp -g 2(12ddd hh2:12nn2.12ss TT2)
.color background 11
.color editbox 11
.color editbox text 1
.color treebar 11
.color treebar text 1
.color listbox 11
.color listbox text 1
.color inactive 11
.color 2 $rgb(192,19,19)
.color 3 $rgb(0,147,0)
.color 10 $rgb(100,100,100)
.color 11 $rgb(212,212,212)
.color 12 $rgb(90,90,90)
.color 14 $rgb(54,64,71)
.color 15 $rgb(141,155,169)
.font -z 12 tahoma
.timerdcre 1 300 .timerdc -io 00:00 1 0 chgday
.cnick -r *
.cnick -r *
.cnick -r *
.cnick -r *
.cnick -r *
.cnick -r *
.cnick -r *
.cnick -r *
.cnick $!me 7 *
.cnick * 1 ~&@%
.cnick * 15 +
.cnick * 2 *
changeversion
echo -st 2((
echo -st 2 $tmb Welcome to Coffey's Atomic Theme.
echo -st 2 $tmb You are running mIRC $version on $os $+ .
echo -st 2 $tmb Enjoy!
qotd
echo -st 2((
sportsfeed
topfeed
usafeed
}
alias tmb { return —› }
alias form_lag_ {
set %temp_t $ticks
.raw ping %temp_t
titlebar Lag: $+($calc($calc($ticks - %temp_t) / 1000),sec)
}
alias lag_ {
set %temp_t $ticks
.raw ping %temp_t
}
on ^*:PONG:{
haltdef
var %u $calc($ticks - %temp_t)
echo -s 2$tmb 12Lag: 2(12 $+ $server $+ 2) (12 $+ $+($calc(%u / 1000),$chr(32),seconds,.) $+ 2)
}
on *:disconnect:{ .timer1_check off | unset %temp_t }
alias amsg {
var %t = $$1-
if (!$isid) && ($remove(%t,$chr(32)) != $null) {
!.amsg 2(12Amsg2) $+ $tmb $+12 $2-
if ($show) {
if ($chan(0)) {
var %c = $v1
while (%c) {
tokenize 32 $chan(%c) %t
echo -tm $1 2(12 $+ $me $+ 2) (12Amsg2) $+ $tmb $+ 12 $2-
dec %c
}
}
}
}
}
alias ame {
var %t = $$1-
if (!$isid) && ($remove(%t,$chr(32)) != $null) {
!.ame %t
if ($show) {
if ($chan(0)) {
var %c = $v1
while (%c) {
tokenize 32 $chan(%c) %t
echo -tm $1 2 $+ $tmb $+ $me $2-
dec %c
}
}
}
}
}
alias msg {
if (!$isid) && ($remove($2-,$chr(32)) != $null) {
!.msg $$1-
if ($show) {
if ($1 ischan) || ($query($1)) || (=* iswm $1) {
if ($1 ischan) {
$iif($me isop $1, echo -tm $1 02(@1 $+ $me $+ 02)1 $2-)
$iif($me ishop $1, echo -tm $1 02(%1 $+ $me $+ 02)1 $2-)
$iif($me isvoice $1, echo -tm $1 02(+1 $+ $me $+ 02)1 $2-)
$iif($me isreg $1, echo -tm $1 02(1 $+ $me $+ 02)1 $2-)
}
else {
echo -tm $1 02(1 $+ $me $+ 02)1 $2-
}
}
else {
echo -ta 02 $tmb 12 $+ $1 $+ 12 $+ $tmb $2-
}
}
}
}
alias describe {
haltdef
.describe $1 $2-
echo -tm $1 $+ $tmb $+ $me $2-
}
alias me {
haltdef
.me $active $1-
echo -tm $active $+ $tmb $+ $me $1-
}
on ^*:text:*:#:{
if ($nick isop #) { haltdef | echo -tm $chan 02(@01 $+ $nick $+ 02)01 $1- }
elseif ($nick ishop #) { haltdef | echo -tm $chan 02(%01 $+ $nick $+ 02)01 $1- }
elseif ($nick isvoice #) { haltdef | echo -tm $chan 02(+01 $+ $nick $+ 02)01 $1- }
elseif ($nick isreg #) { haltdef | echo -tm $chan 02(01 $+ $nick $+ 02)01 $1- }
}
on *:INPUT:#:{
if ($left($1,1) != /) {
haltdef
var %lines = $1-
if (%lines == $null) { %lines }
if (!$window(@Pastedelay)) { window -lh @Pastedelay }
if (($target ischan) && (c isincs $gettok($chan($active).mode,1,32))) {
%lines = $strip(%lines,c)
}
if ($window(@Pastedelay)) { aline @Pastedelay %lines }
.timerpastedelay 1 0 start.pastedelay
halt
if ($me isop #) { .msg # $1- | echo -tm $chan 02(@01 $+ $me $+ 02)01 $1- | haltdef }
if ($me ishop #) { .msg # $1- | echo -tm $chan 02(%01 $+ $me $+ 02)01 $1- | haltdef }
if ($me isvoice #) { .msg # $1- | echo -tm $chan 02(+01 $+ $me $+ 02)01 $1- | haltdef }
if ($me isreg #) { .msg # $1- | echo -tm $chan 02(01 $+ $me $+ 02)01 $1- | haltdef }
if ($inpaste) && ($istok(channel query chat,$window($active).type,32)) {
}
}
}
alias -l start.pastedelay {
var %PDWindow = @Pastedelay, %pastedelay
if (($line(%PDWindow,0) > 3) && (!$$input(Paste $line(%PDWindow,0) lines to $active $+ ? $crlf $pdpreview,iyw,Confirm Paste Delay))) {
var %play = $$input(Play $line(%PDWindow,0) lines to $active $+ ? $crlf $pdpreview,iyw,Confirm Playback text))
$iif((%play),!.play -b $active 3000)
window -c @Pastedelay
return
}
pastedelay $active 1 %pastedelay
}
alias -l pdpreview {
return $crlf $line(@Pastedelay,1) $crlf $line(@Pastedelay,2) $crlf $line(@Pastedelay,3) $crlf $line(@Pastedelay,4)
}
alias -l pastedelay {
var %PDWindow = @Pastedelay
if ($line(%PDWindow,$2) != $null) { msg $1 $ifmatch }
if ($2 == $line(%PDWindow,0)) {
window -c @Pastedelay
}
else {
.timerpastedelay2 -m 1 3000 pastedelay $1 $calc($2 + 1) $3
}
}
on *:INPUT:?:{
if ($left($1,1) != /) {
.msg $active | echo -ta $active 02(01 $+ $me $+ 02)01 $1- | haltdef }
}
on ^*:text:*:?:{
haltdef
echo -tm $nick 02(01 $+ $nick $+ 02) $1-
}
alias quit { raw quit :: Coffey's . Atomic . Theme :: | .timer1_check off | unset %temp_t }
alias notice {
if (!$isid) {
.!notice $1-
if (!$show) { return }
echo -tma $+ $tmb $+ 12 - $+ $1 $+ 12- $2-
}
}
alias dns {
if (!$isid) {
if ($1) {
!.dns $1-
if ($show) {
var %h = $1,%f
if ($istok(-h -c,$1,32)) { var %f = $1,%h = $2 }
if (%f != -h) && (. !isin %h) && ($address(%h,5)) { %h = $gettok($v1,2,64) }
echo -tma 02 $+ $tmb $+ 12 DNS: resolving $thmbr(%h) $+ ...
}
}
}
}
on ^*:notify:{
haltdef
echo -tms 02 $+ $tmb $+ 12 Notify: $thmbr($nick) is now online!
}
on ^*:unotify:{
haltdef
echo -tms 02 $+ $tmb $+ 12 Unnotify: $thmbr($nick) is now offline!
}
alias thmhl {
if ($1- != $null) {
return 02(12 $+ $1- $+ 02)12
}
}
alias thmbr {
if ($1- != $null) {
return 02(12 $+ $1- $+ 02)12
}
}
on ^*:join:#:{
haltdef
if ($nick == $me) {
haltdef
echo -tm $chan 02((
echo -tm $chan 02 $+ $tmb $+ 12 Now talking in $thmbr($chan)
echo -tm $chan 02 $+ $tmb $+ 12 Users: $nick($chan,0) users, $nick($chan,0,o) ops, $nick($chan,0,v) voiced, $nick($chan,0,r) regular.
}
else {
haltdef
var %x = 1
while (%x <= $nick($chan,0)) {
if ($address($nick($chan,%x),2) == $address($nick,2)) && ($nick($chan,%x) != $me) {
var %clones %clones $nick($chan,%x)
}
inc %x
}
echo -tm $chan 02 $+ $tmb $+ 12 Join: $thmbr($nick) $thmbr($address) $iif(%clones != $null && %clones != $nick, $chr(124) 12Clones Found: $thmbr(%clones))
}
if ($query($nick)) {
echo -tm $nick 02 $+ $tmb $+ 12 Join: $thmbr($+($nick,:,$chan)) $thmbr($address)
}
}
on ^*:part:#:{
haltdef
if ($nick == $me) {
echo -ts 02 $+ $tmb $+ 12 Part: You have parted $chan $thmbr($1-)
}
else {
echo -tm $chan 02 $+ $tmb $+ 12 Part: $thmbr($nick) $thmbr($address) $thmbr($1-)
}
if ($query($nick)) {
echo -tm $nick 02 $+ $tmb $+ 12 Part: $thmbr($+($nick,:,$chan)) $thmbr($address) $thmbr($1-)
}
}
on ^*:kick:#:{
haltdef
if ($knick == $me) {
echo -tma $chan 02 $+ $tmb $+ 12 Kick: You were kicked out of $thmbr($chan) by $thmbr($nick) $thmbr($1-)
}
else {
echo -tm $chan 02 $+ $tmb $+ 12 Kick: $thmbr($knick) was kicked by $thmbr($nick) $thmbr($1-)
}
if ($query($knick)) {
echo -tm $knick 02 $+ $tmb $+ 12 Kick: $thmbr($knick) was kicked by $thmbr($+($nick,:,$chan)) $thmbr($1-)
}
if ($query($nick)) {
echo -tm $nick 02 $+ $tmb $+ 12 Kick: $thmbr($knick) was kicked by $thmbr($+($nick,:,$chan)) $thmbr($1-)
}
}
on ^*:quit:{
haltdef
if ($nick == $me) {
.timer1_check off | unset %temp_t
}
else {
haltdef
var %i $comchan($nick,0)
while (%i) {
echo -tm $comchan($nick,%i) 02 $+ $tmb $+ 12 Quit: $thmbr($nick) $thmbr($address) $thmbr($1-)
dec %i
}
if ($query($nick)) {
echo -tm $nick 02 $+ $tmb $+ 12 Quit: $thmbr($nick) $thmbr($address) $thmbr($1-)
}
elseif (*.*.*.* iswm $1) && (*.*.*.* iswm $2) {
$iif(!%firstsplit, var %firstsplit true)
$iif(%firstsplit, window -k0x @Netsplit $+ [ $+ $network] | echo -a 2 $+ $tmb $+ 12Netsplit: 2(12 $+ $1 $+ 2) 12and 2(12 $+ $2 $+ 2))
aline @Netsplit $+ [ $+ $network] 2 $+ $tmb $+ (12 $+ $nick $+ 2) (12 $+ $address $+ 2)
inc %netsplit
$iif(%firstsplit, iline 1 @Netsplit $+ [ $+ $network] 2 $+ $tmb $+ 12Netsplit: 2(12 $+ $network $+ 2) (12 $+ %netsplit $+ 2), netsplitdisplay)
netsplitdisplay
}
}
}
alias netsplitdisplay {
rline 1 @Netsplit $+ [ $+ $network] 2 $+ $tmb $+ 12Netsplit: 2(12 $+ $network $+ 2) (12 $+ %netsplit $+ 2)
}
on ^*:nick:{
haltdef
if ($newnick != $me) {
var %i = 1
while ($comchan($newnick,%i)) {
echo -tm $comchan($newnick,%i) 02 $+ $tmb $+ 12 Nick: $thmbr($nick) is now known as $thmbr($newnick)
inc %i
}
if ($nick == $me) {
var %d 1
while (%d <= $chan(0)) {
echo -tms $chan(%d) 02 $+ $tmb $+ 12 Nick:12 You are now known as $thmbr($newnick)
inc %d
}
if ($query($newnick)) {
echo -tm $newnick 02 $+ $tmb $+ 12 Nick: $thmbr($nick) is now known as $thmbr($newnick)
}
}
}
}
on ^*:topic:#:{
haltdef
var %x = 1
while ($ini(topic.ini,$chan,n $+ %x)) { inc %x }
writeini -n topic.ini $chan $+(n,%x) $replace($1-,$chr(2),<b>,$chr(3),<c>,$chr(15),<n>,$chr(22),<r>,$chr(31),<u>)
echo -tm $chan 02 $+ $tmb $+ 12 Topic: $thmbr($nick) changes topic to 02( $+ $1- $+ 02)
}
ctcp *:*:*:{
if (!$istok(dcc version,$1,32)) {
haltdef
if ($1 == ping) { .ctcpreply $nick PING $ctime }
if ($chan) {
echo -tm $chan 02? $+ $nick $+ 02@ $+ $chan $+ 02? $1 $2-
}
else {
echo -tma 02? $+ $nick $+ 02? $1 $2-
}
}
}
on ^*:rawmode:#:{
haltdef
echo -tm $chan 02 $+ $tmb $+ 12 Mode: $thmbr($nick) sets mode $thmbr($1-)
}
on ^*:invite:#:{
haltdef
echo -tmsa 02 $+ $tmb $+ 12 Invite: $thmbr($nick) invites you to join $thmbr($chan)
}
on ^*:usermode:{
haltdef
echo -tmsa 02 $+ $tmb $+ 12 Your usermode is now: $thmbr($1-)
}
on ^*:chat:*:{
haltdef
echo -tm =$nick 2 $+ $tmb $+ (12 $+ $nick $+ 12)1 $+ $1-
}
on ^*:action:*:#:{
haltdef
echo -tm $chan 4 $+ $tmb $+ $nick $1-
}
on ^*:action:*:?:{
haltdef
echo -tm $chan 4 $+ $tmb $+ $nick $1-
}
on ^*:notice:*:?:{
haltdef
echo -tmas 12-1 $+ $nick $+ 12-1 $1-
}
on ^*:notice:*:#:{
haltdef
echo -tmas 12-1 $+ $nick $+ @ $+ $chan $+ 12-1 $1-
}
on ^*:snotice:*:{
haltdef
echo -tmas 1- $+ $nick $+ - $1-
}
on *:ban:#:{
if ($banmask iswm $address($me,5)) { mode # -bbb $banmask }
set -u10 %banz true
var %x = 1
while ($nick(#,%x)) {
if ($banmask iswm $address($nick(#,%x),5)) {
var %y %y $nick(#,%x)
}
inc %x
}
$iif(%y,echo -t $chan 2 $+ $tmb $+ 12 This 2(12 $+ $banmask $+ 2)12 ban affects: 2(12 $+ %y $+ 2))
}
on *:open:?:{
inc %myqueries
if (%qc == on) {
if (%ehost. [ $+ [ $address($nick,2) ] ] ) || (%enick. [ $+ [ $nick ] ] ) || (%ac == on) {
echo -t $nick 2((
echo -t $nick 2 $+ $tmb $+ 12Query with 2(12 $+ $nick $+ 2)12/2(12 $+ $address $+ 2)12 opened on 2(12 $+ $asctime(ddd mmmm d yyyy h:nn:ss) $+ 2)
echo -t $nick 2 $+ $tmb $+ 12Total queries: 2(12 $+ %myqueries $+ 2)
echo -tma 2 $+ $tmb $+ (12 $+ $nick $+ 2)12/2(12 $+ $address $+ 2)12 opened a query with you:1 $1-
var %x 1
while (%x <= $comchan($nick,0)) {
var %y %y $comchan($nick,%x)
inc %x
}
$iif(%y != $null, echo -t $nick 2 $+ $tmb $+ 12Common channels:2 (12 $+ %y $+ 12))
echo -t $nick 2((
}
elseif (!%ehost. [ $+ [ $address($nick,2) ] ] ) || (%enick. [ $+ [ $nick ] ] ) || (%ac == off)
.msg $nick 2 $+ $tmb $+ 12 PM Blocker: Is currently 2(12on2)12 and either 2(12auto-decline2)12 is on or you aren't on my 2(12except list2)12 If it is important please send a 2(12memo2)
.close -m $nick
.ignore -pu300 $address($nick,2)
}
else {
echo -t $nick 2((
echo -t $nick 2 $+ $tmb $+ 12Query with 2(12 $+ $nick $+ 2)12/2(12 $+ $address $+ 2)12 opened on 2(12 $+ $asctime(ddd mmmm d yyyy h:nn:ss) $+ 2)
echo -t $nick 2 $+ $tmb $+ 12Total queries: 2(12 $+ %myqueries $+ 2)
echo -tma 2 $+ $tmb $+ (12 $+ $nick $+ 2)12/2(12 $+ $address $+ 2)12 opened a query with you:1 $1-
var %x 1
while (%x <= $comchan($nick,0)) {
var %y %y $comchan($nick,%x)
inc %x
}
$iif(%y != $null, echo -t $nick 2 $+ $tmb $+ 12Common channels:2 (12 $+ %y $+ 12))
echo -t $nick 2((
}
}
menu channel {
$chan
.&Quickinfo $chan: echo 2 $+ $tmb $+ 1 $1-
.-
.&Modes $chan(#).mode: echo 2 $+ $tmb $+ 1 $1-
.&Users $nick(#,0): echo 2 $+ $tmb $+ 1 $1-
.&Opped $nick(#,0,o): echo 2 $+ $tmb $+ 1 $1-
.&Helpopped $nick(#,0,h): echo 2 $+ $tmb $+ 1 $1-
.&Voiced $nick(#,0,v): echo 2 $+ $tmb $+ 1 $1-
.&Regular $nick(#,0,r): echo 2 $+ $tmb $+ 1 $1-
-
&Channel Central: dialog -md chanc chanc
-
&Scan for clones: clonescan
-
&Tools
.&MP3 Player: /mp3pl -o
.&Query Control:
...$iif(%qc == on, $style(1)) &On: set %qc on | echo -a 2 $+ $tmb $+ 12Query Control: Is now 2(12on2)
...$iif(!%qc, $style(1)) &Off: unset %qc | echo -a 2 $+ $tmb $+ 12Query Control: Is now 2(12off2)
..&Options
...$iif(%ac == on, $style(1)) &Auto Accept: set %ac on | echo -a 2 $+ $tmb $+ 12Query Control: Auto except is now 2(12on2)
...$iif(%ac == off, $style(1)) &Auto Decline: set %ac off | echo -a 2 $+ $tmb $+ 12Query Control: Auto decline is now 2(12off2)
...$iif(!%ac, $style(1)) &Normal: unset %ac | echo -a 2 $+ $tmb $+ 12Query Control: Normal 2(12Pms will now be blocked according to the except list settings2)
..&Excepts
...&Add Nick: var %x $?="Please enter a nick to add to the except list." | set %enick. [ $+ [ %x ] ] True | echo -a 2 $+ $tmb $+ 12Except List: Added nick 2(12 $+ %x $+ 2)
...&Add Host: var %x $?="Please enter a host to add to the except list in the format *!*@*" | set %ehost. [ $+ [ %x ] ] True | echo -a 2 $+ $tmb $+ 12Except List: Added host 2(12 $+ %x $+ 2)
...-
...&Del Nick: var %x $?="Please enter a nick to delete from the except list." | $iif(%enick. [ $+ [ %x ] ] , unset %enick. [ $+ [ %x ] ] | var %t 1) | $iif(!%t, echo -a 2 $+ $tmb $+ 12Except List: 2(12 $+ %x $+ 2)12 not found in the except list., echo -a 2 $+ $tmb $+ 12Except List: Deleted nick 2(12 $+ %x $+ 2))
...&Clear Nicks:
...-
...&Del Host: var %x $?="Please enter a host to add to the except list in the format *!*@*" | $iif(%ehost. [ $+ [ %x ] ], unset %ehost. [ $+ [ %x ] ] | var %d 1) | $iif(!%d, echo -a 2 $+ $tmb $+ 12Except List: 2(12 $+ %x $+ 2)12 not found in the except list.,echo -a 2 $+ $tmb $+ 12Except List: Deleted host 2(12 $+ %x $+ 2))
...&Clear Hosts: $iif($?!="Do you really want to clear all hosts from the except list?" == $true,unset %ehost.* | echo -a echo -a 2 $+ $tmb $+ 12Except List: 2(12Cleared all hosts2)
...-
...&View Except List: qelist
-
&Search...:.com.sendkeys ^F
-
&View Log: viewer
-
}
on *:dns:{
haltdef
if ($dns(0)) {
var %i = 1,%t = $dns(0)
while (%i <= %t) {
echo -tmas 02 $+ $tmb $+ º12 DNS: resolved $thmbr($dns(%i)) to $thmbr($remtok($dns(%i).ip $dns(%i).addr,$dns(%i),1,32))
inc %i
}
}
else {
echo -tmas 02 $+ $tmb $+ 12 DNS: unable to resolve $thmbr($iif($address,$v1,$nick))
}
}
on ^*:wallops:*:{
haltdef
if (!$window(%w)) {
window -nk0g1e %w
thmecho %w Wall message window for $thmhl($1-) opened on $thmhl($asctime(h:nn.ss)) $+ .
echo %w
}
echo -tm %w 02( $+ $nick $+ 02) %t
}
raw 324:*:{
haltdef
echo -t $2 02 $+ $tmb $+ 12 Modes on $2 $+ : 02(12 $+ $3- $+ 02)
}
raw 329:*:{
haltdef
echo -t $2 02 $+ $tmb $+ 12 $2 creation time: $thmbr($asctime($3))
echo -tm $2 02((
}
raw 367:*:{
if ($dialog(chanc)) {
haltdef
did -a chanc 4 $3 $4 $asctime($5,dddd mmmm d h:nn:ss TT)
did -z chanc 4
}
elseif (%banz) {
haltdef
}
else {
haltdef
echo -t $2 02 $+ $tmb $+ 12 $thmbr($3) set on $thmbr($asctime($5)) by $thmbr($4)
}
}
raw 368:*:{
if ($dialog(chanc)) {
haltdef
did -e chanc 5-7
}
elseif (%banz) {
haltdef
}
else {
haltdef
echo -t $2 02 $+ $tmb $+ 12 End of $thmbr($2) ban list!
}
}
raw 347:*:{
if ($dialog(chanc)) {
haltdef
did -e chanc 5-7
}
else {
haltdef
echo -t $2 02 $+ $tmb $+ 12 End of $thmbr($2) invite list!
}
}
raw 349:*:{
if ($dialog(chanc)) {
haltdef
did -e chanc 5-7
}
else {
haltdef
echo -t $2 02 $+ $tmb $+ 12 End of $thmbr($2) except list!
}
}
raw 404:*:{
haltdef
echo -t $2 02 $+ $tmb $+ 12 Unable to send message to $thmbr($2) $+ !
}
raw 482:*:{
haltdef
echo -t $2 02 $+ $tmb $+ 12 You're not opped on $thmbr($2) $+ !
}
raw 396:*:{
haltdef
echo -st 02 $+ $tmb $+ 12 $thmbr($2) is now your hidden host!
}
raw 451:*:{
haltdef
echo -st 02 $+ $tmb $+ 12 Register first!
}
raw 311:*:{
haltdef
if (%whois. [ $+ [ $cid ] ]) {
echo -tma 02((12 /whois end 02))
}
else {
set %whois. $+ $cid 1
}
echo -tma 02((12 /whois start 02))
echo -tma 02 $+ $tmb $+ 01 $+ $2 12is "1 $+ $6- $+ 12" $thmbr($+($3,@,$4))
}
raw 319:*:{
haltdef
echo -tma 11 $+ $tmb $2 12Is on:1 $3-
}
raw 312:*:{
haltdef
echo -tma 11 $+ $tmb $2 12Using1 $3 1 $+ $thmbr($4-)
}
else {
echo -tma 11 $+ $tmb $2 12Used1 $3 1 $+ $thmbr($4-)
}
raw 313:*:{
haltdef
echo -tma 11 $+ $tmb $2 12is1 $5-
}
raw 314:*:{
haltdef
set %whowas. $+ $cid 1
echo -tma 02((12 /whowas start 02))
echo -tma 02 $+ $tmb $+ 01 $+ $2 12was " $+ $6- $+ 12" $thmbr($+($3,@,$4))
}
raw 301:*:{
haltdef
if (%whois. [ $+ [ $cid ] ]) {
echo -tma 11 $+ $tmb $2 12is away "1 $+ $3- $+ 12"
}
elseif (%whowas. [ $+ [ $cid ] ]) {
echo -tma 11 $+ $tmb $2 12was away "1 $+ $3- $+ 12"
}
elseif ($2 != $me) && (!%away.seen. [ $+ [ $2 ] $+ ] . [ $+ [ $cid ] ]) {
set -u300 %away.seen. [ $+ [ $2 ] $+ ] . [ $+ [ $cid ] ] 1
echo -tma 02 $+ $tmb $+ 12 Away: $thmbr($2) is marked as being away as $thmbr($3-)
}
}
raw 369:*:{
haltdef
if (%whowas. [ $+ [ $cid ] ]) {
echo -tma whois 02((12 /whowas end 02))
unset %whowas. $+ $cid
}
}
raw 330:*:{
haltdef
echo -tma 11 $+ $tmb $2 12Authed as "1 $+ $3 $+ 12"
}
raw 338:*:{
haltdef
echo -tma 11 $+ $tmb $2 12Real host $3 $thmbr($4-)
}
raw 317:*:{
haltdef
echo -tma 11 $+ $tmb $2 12Has been idle for1 $duration($3)
echo -tma 11 $+ $tmb $2 12Signed on1 $duration($calc($ctime - $4)) 12ago
}
raw 318:*:{
haltdef
if (%whois. [ $+ [ $cid ] ]) {
echo -tma 02((12 /whois end 02))
unset %whois. $+ $cid
}
}
raw 331:*:{
haltdef
if ($me ison $2) {
echo -tm $2 02 $+ $tmb $+ 12 No topic set: $thmbr($2)
}
}
raw 332:*:{
haltdef
if ($me ison $2) {
echo -tm $2 02 $+ $tmb $+ 12 Topic: $thmbr($3-)
}
}
raw 333:*:{
haltdef
if ($me ison $2) {
echo -tm $2 02 $+ $tmb $+ 12 Set by: $thmbr($3) on $thmbr($asctime($4))
}
}
raw 341:*:{
haltdef
echo -t $3 02 $+ $tmb $+ 12 Invite: $thmbr($2) has been invited to join $thmbr($3)
}
raw 443:*:{
haltdef
echo -ts $3 02 $+ $tmb $+ 12 Invite: $thmbr($2) is already on $thmbr($3)
}
raw 353:*:{
haltdef
echo -st 02 $+ $tmb $+ 12 Names: $thmbr($3) $4-
}
raw 355:*:{
haltdef
echo -st 02 $+ $tmb $+ 12 Names: $thmbr($3) $4-
}
raw 366:*:{
haltdef
echo -st 02 $+ $tmb $+ 12 End of /names list for $thmbr($2)
}
raw 421:*:{
haltdef
echo -sta 02 $+ $tmb $+ 12 Error: unknown command $thmbr($2)
}
raw 352:*:{
haltdef
echo -ts 02 $+ $tmb $+ 12 Who: 02(12 $+ $6 $+ ! $+ $+($3,@,$4) $+ 02)12 on $thmbr($2) using $thmbr($5) $+ . real name: $thmbr($9-)
}
raw 315:*:{
haltdef
echo -ts 02 $+ $tmb $+ 12 End of /who request for $thmbr($2)
}
raw 433:*:{
haltdef
echo -ta 02 $+ $tmb $+ 12 Error: nickname $thmbr($2) is already in use!
}
raw 471:*:{
haltdef
echo -ta 02 $+ $tmb $+ 12 Can't join $2 02(12full (+l)02)12!
}
raw 473:*:{
haltdef
echo -ta 02 $+ $tmb $+ 12 Can't join $2 02(12invite only (+i)02)12!
}
raw 474:*:{
haltdef
echo -ta 02 $+ $tmb $+ 12 Can't join $2 02(12you're banned (+b)02)12!
}
raw 475:*:{
haltdef
echo -ta 02 $+ $tmb $+ 12 Can't join $2 02(12requires key (+k)02)12!
}
raw 477:*:{
if ($left($2,1) isin $chantypes) {
haltdef
echo -ta 02 $+ $tmb $+ 12 Can't join $2 02(12auth'ed only (+r)02)12!
}
}
raw 401:*:{
haltdef
echo -tma 02 $+ $tmb $+ 12 No such nickname: $thmbr($2)
unset $+(%,whois.,$2,.,$cid)
}
raw 406:*:{
haltdef
echo -tma 02 $+ $tmb $+ 12 No such nickname: $thmbr($2)
}
raw 403:*:{
haltdef
echo -tma 02 $+ $tmb $+ 12 No such channel: $thmbr($2)
}
raw 251:*:{
haltdef
echo -stm 02 $+ $tmb $+ 12 There are $thmbr($4) users and $thmbr($7) invisible on $thmbr($10) servers
}
raw 252:*:{
haltdef
echo -stm 02 $+ $tmb $+ 12 There are $thmbr($2) operator(s) online
}
raw 253:*:{
haltdef
echo -stm 02 $+ $tmb $+ 12 There are $thmbr($2) unknown connection(s)
}
raw 254:*:{
haltdef
echo -stm 02 $+ $tmb $+ 12 There are $thmbr($2) channels formed
}
raw 472:*:{
haltdef
}
raw 255:*:{
haltdef
echo -stm 02 $+ $tmb $+ 12 I have $thmbr($4) clients and $thmbr($7) servers
}
raw 001:*:{
haltdef
echo -stm 02 $+ $tmb $+ 12 Welcome to the internet relay network, $thmbr($8)
}
raw 002:*:{
haltdef
echo -stm 02 $+ $tmb $+ 12 Your host is $thmbr($left($5,-1)) $+ , running version $thmbr($8)
}
raw 003:*:{
haltdef
echo -stm 02 $+ $tmb $+ 12 This server was created $thmbr($6-)
}
raw 004:*:{
haltdef
echo -stm 02 $+ $tmb $+ 12 Server: $thmbr($2) $+ , version: $thmbr($3) $+ , usermodes: $thmbr($4) $+ , channelmodes: $thmbr($5)
}
raw 005:*:{
haltdef
echo -stm 02 $+ $tmb $+ 12 Supported by this server: $thmbr($deltok($2-,-5-,32))
}
raw *:*:{
if ($dialog(chanc)) {
if ($numeric == 348) {
haltdef
did -a chanc 4 $3 $4 $asctime($5,dddd mmmm d h:nn:ss TT)
did -z chanc 4
}
elseif ($numeric == 346) {
haltdef
did -a chanc 4 $3 $4 $asctime($5,dddd mmmm d h:nn:ss TT)
did -z chanc 4
}
else {
echo -t $2 02 $+ $tmb $+ 12 $thmbr($3) set on $thmbr($asctime($5)) by $thmbr($4)
}
else {
echo -t $2 02 $+ $tmb $+ 12 $thmbr($3) set on $thmbr($asctime($5)) by $thmbr($4)
}
}
}
raw *:*:{
if (!$istok(321 322 323,$numeric,32)) {
haltdef
echo -tma 02 $+ $tmb $+ 12 $2-
}
}
alias qotd sockudp -k q 85.25.143.214 17 ~
on *:udpread:q:{
var %s
sockread -f %s
echo -st 2 $+ $tmb $+ Quote of the day: " $replace($remove(%s,(quotes4all.net),.),~~~," -)
}
chgday {
join #Coffey522
echo -a $+ $tmb $+ Day changed to $thmhl($asctime(dddd $+ $chr(44) mmmm doo yyyy)) $+ . $specialday
.timerdcre 1 300 .timerdc -io 00:00 1 0 chgday
}
specialday {
var %d = $asctime(ddmm)
if (%d == 0101) { return Happy new year! }
elseif (%d == 1402) { return Will you be my valentine? <3 }
elseif (%d == 1703) { return It's St. Patrick's day, time to get some booze! }
elseif (%d == 2205) { return Happy $ord($calc($asctime(yyyy) -1993)) birthday Coffey522! :) }
elseif (%d == 3110) { return Trick or treat! }
elseif (%d == 0612) { return Santa Claus is coming to town! }
elseif (%d == 2412) || (%d == 2512) || (%d == 2612) { return Merry Christmas! }
}
Alias Changeversion {
.Ignore -tw *
.Debug -i NUL Versionrep
}
Alias Versionrep {
If ($Regex($1,/^<- :(\S+?)!\S+ PRIVMSG \S+ :\001VERSION\001/)) {
.Ctcpreply $Regml(1) VERSION :: Atomic . Theme . By . Coffey522 ::
}
}
alias myslogan {
sockopen slogan www.buzzydude.com 80
set %sloganname $me
}
on *:SOCKOPEN:slogan*:{
sockwrite -nt $sockname GET /parsers/slogan.php?slogan= $+ %sloganname HTTP/1.0
sockwrite -nt $sockname Host: www.buzzydude.com
sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:slogan*:{
var %read
sockread %read
if (* $+ $me $+ * iswm %read) {
tokenize 32 %read
echo -a $1-
}
}
alias clonescan {
who $chan
var %nicks = $nick($chan,0), %x = 0
while (%x <= %nicks) {
var %host = $address($nick($chan,%x),2)
if (%host != $address($me,2)) && (!$read(allowedhost.txt,w,%host)) {
if ($ialchan(%host,$chan,0) > 1) && (!$istok(%clone.hosts,%host,44)) {
var %y = 1, %clones = $ialchan(%host,$chan,0), %clones.found = yes
while (%y <= %clones) {
var %nick = $gettok($ialchan(%host,$chan,%y),1,33)
var %clone.nicks = $iif(%clone.nicks,%clone.nicks &) %nick
inc %y
}
echo -tm $chan 2 $+ $tmb $+ Clones: $thmbr(%clone.nicks @ $gettok(%host,2,64))
var %clone.hosts = $addtok(%clone.hosts,%host,44)
unset %clone.nicks
}
}
inc %x
}
if (!%clones.found) echo -tm $chan 2 $+ $tmb $+ Clones: $thmbr(None found)
}
alias loader { return $findfile($logdir,*.log,0,1,aline -l @Log $nopath($1-)) }
alias viewer {
window -Skal15 @Log 300 150 500 300 @Log Tahoma 12 | titlebar @Log Viewer
aline 1 @Log 0,10 Logs ! $loader Log(s) Were Found
aline 1 @Log -
if ($1 != $null) { seefile 0 $1- }
}
alias seefile {
if ( $isfile($2-) ) {
loadbuf -rp @Log $+(",$2-,")
if ( $1 == 0 ) { sline @Logs 10 | sline @Log 10 }
else {
sline @Log $calc($1 + 2) | sline @Log $calc($1 + 2)
rline @Log $1 $line(@Log,$1)
}
if ( $fline(@Log,$nopath($2-),1,1) ) { sline -l @Log $ifmatch }
}
}
alias erase { var %lvar = $sline(@Log,0)
while ( %lvar ) { .signal removefile @Log $sline(@Logs,%lvar).ln $+($logdir,$sline(@Log,%lvar)) | dec %lvar }
}
alias eraseall {
var %lvar = $line(@Log,0,1)
while ( %lvar ) { .signal removefile @Log %lvar $+($logdir,$line(@Log,%lvar,1)) | dec %lvar }
}
on *:signal:removefile: { .remove $+(",$3-,") | dline -l $1 $2 }
menu @Log {
dclick: { if ( $1 ) { seefile 0 $+($logdir,$line(@Log,$1,1)) } }
.$iif(!$sline(@Log,0),$style(2)) Erase: { erase }
.-
.Erase all: { eraseall }
-
Update: { window -c @Log | viewer }
-
Close: { window -c @Log }
-
}
alias sportsfeed {
rss -f http://rss.cnn.com/rss/si_topstories.rss sports.txt
window -k0xb @Sports
loadbuf 10 -r @Sports sports.txt
.timer 1 1800 sportsfeed
}
alias topfeed {
rss -f http://rss.cnn.com/rss/cnn_topstories.rss top.txt
window -k0xb @TopStories
loadbuf 10 -r @TopStories top.txt
.timer 1 1800 topfeed
}
alias usafeed {
rss -f http://rss.cnn.com/rss/cnn_us.rss usa.txt
window -k0xb @UsNews
loadbuf 10 -r @UsNews usa.txt
.timer 1 1800 usafeed
}
alias rss {
var %e = !echo $color(info) -a * Rss:, %r = return $false
if ($os isin 9598) { halt }
if ($version < 5.91) { halt }
if (!$regex(%e,$1-,/^-[fhi] \S+ \S+$/i)) { halt }
var %flag = $mid($1,2), %filepath
if (%flag == h) %filepath = " $+ $mircdirtmprss"
else {
var %dir = $nofile($3-), %file = $nopath($3-)
if (%file != $mkfn(%file)) { halt }
if (* !iswm %dir) %dir = $mircdir
elseif (!$isdir(%dir)) { halt }
%filepath = $+(",%dir,%file,")
}
var %w = $+(@rss,$ticks,$r(1111,9999),.vbs), %a = aline %w, %size, %n = $lf
write -c %filepath
window -h %w
%a Function nohtml(byref string)
%a set regex = new regexp
%a regex.global = true : regex.pattern = "<[^>]*>|[\r\n\177]+" : nohtml = regex.replace(string,"")
%a set regex = nothing
%a End Function
%a set xml = createobject("msxml.domdocument") : set ado = createobject("adodb.stream")
%a ado.open : ado.type = 2 : ado.charset = "ascii"
%a xml.validateonparse = false : xml.async = false : xml.load " $+ $2"
%a for each item in xml.getelementsbytagname("item")
if (%flag == i) {
%a i = i + 1
%a ado.writetext "[#" & i & "]",1
%a for each node in item.childnodes
%a if node.text <> "" then ado.writetext node.nodename & "=" & nohtml(node.text),1
%a next %n ado.writetext vbcrlf
}
else {
%a for each node in item.childnodes
%a name = node.nodename
%a if name = "description" then %n desc = name & ": " & nohtml(node.text)
%a elseif name = "link" or name = "title" then %n tmp = tmp & name & ": " & nohtml(node.text) & chr(127)
%a end if %n next
if (%flag == h) %a i = i + 1 %n ado.writetext i & chr(10) & left(tmp & desc,920) & chr(10)
else %a ado.writetext left(tmp & desc,920) & vbcrlf
%a tmp = null
}
%a next %n ado.savetofile %filepath ,2 : ado.close %n set ado = nothing : set xml = nothing
savebuf %w %w | close -@ %w
.comopen %w wscript.shell
if (!$comerr) .comclose %w $com(%w,run,1,bstr*,%w,uint,0,bool,true)
.remove %w
if (%flag == h) {
if ($hget($3)) hfree $3
hmake $3
hload $3 %filepath
.remove %filepath
%size = $hget($3,0).item
}
else %size = $file(%filepath)
return
:error
if ($com(%w)) .comclose %w
if ($isfile(%w)) .remove %w
if ($window(%w)) close -@ %w
}
on *:start: {
hmake Addtrack 100
if ($isfile(Addtrack.hsh)) hload Addtrack Addtrack.hsh
}
on *:exit: if ($hget(Addtrack)) hsave -o Addtrack Addtrack.hsh
#Addtrack on
on *:join:#: {
if ($wildsite iswm $address($me,5)) return
var %mask = $mask($fulladdress,3)
if ($hget(Addtrack,%mask)) {
var %usednicks = $ifmatch
if (%usednicks != $nick) && ($group(#Addtrack) == on) echo -t $chan 2 $+ $tmb $+ 12Nick Tracker: 2(12 $+ $nick $+ 2)12 has also used the nicks 2(12 $+ $remtok(%usednicks,$nick,1,44) $+ 2)
if (!$istok(%usednicks,$nick,44)) hadd -m Addtrack %mask $addtok(%usednicks,$nick,44)
if ($numtok(%usednicks,44) > 10) hadd -m Addtrack %mask $deltok(%usednicks,1,44)
}
else {
hadd -m Addtrack %mask $nick
}
}
on *:nick: {
if ($wildsite iswm $address($me,5)) return
var %mask = $mask($fulladdress,3)
if ($hget(Addtrack,%mask)) {
var %usednicks = $ifmatch
if (!$istok(%usednicks,$newnick,44)) hadd -m Addtrack %mask $addtok(%usednicks,$newnick,44)
if ($numtok(%usednicks,44) > 10) hadd -m Addtrack %mask $deltok(%usednicks,1,44)
}
else {
hadd -m Addtrack %mask $newnick
}
}
#addtrack end
alias CheckNicks {
if (*!*@* iswm $1) {
var %mask = $mask($1,3)
if (!$hget(Addtrack,%mask)) echo -ta 2 $+ $tmb $+ 12Nick Tracker: No entry found for 2(12 $+ $1 $+ 2)
else echo -ta 2 $+ $tmb $+ 12Nick Tracker: 2(12 $+ $1 $+ 2) 12has used the nicks 2(12 $+ $hget(Addtrack,$1) $+ 2)
}
elseif (!$hget(Addtrack,$address($1,3))) echo -ta 2 $+ $tmb $+ 12Nick Tracker: No entry found for 2(12 $+ $1 $+ 2)
elseif ($hget(Addtrack,$address($1,3)) != $1) {
var %usednicks = $ifmatch
echo -ta 2 $+ $tmb $+ 12Nick Tracker: 2(12 $+ $1 $+ 2) 12has also used the nicks ( $+ $remtok(%usednicks,$1,1,43) $+ )
}
else echo -ta 2 $+ $tmb $+ 12Nick Tracker: 2(12 $+ $1 $+ 2)12 has not been seen on any other nicks.
}
alias com.sendkeys {
var %o = sendkeys
.comopen %o WScript.Shell
if ($com(%o)) { .comclose %o $com(%o,SendKeys,3,bstr,$1-) }
}
menu status {
$iif($status != connected,$style(2)) & $network
.&Quickinfo $network:pcb Quickinfo $cr $curconserv
.-
.&Server $server: echo -a Server $cr $server
.&IP/port $+($serverip,$chr(58),$port): echo -a Server IP/port $cr $+($serverip,$chr(58),$port)
.&Connected $duration($uptime(server,3)).nosec:echo -a Connected to server for $cr $duration($uptime(server,3))
.I&dle $duration($idle):echo -a Idle time on server $server $duration($idle)
.-
-
&Search...:.com.sendkeys ^F
-
$iif($status != connected,$style(2)) &Information
.&List channels
..&All:list
..&Wildcard search...:list $?="Please enter a word you want to search for. Wildcards are allowed."
..-
..&More than 200 users...:list -min 200
..M&ore than 100 users...:list -min 100
..Mo&re than 50 users...:list -min 50
..Mor&e than 10 users...:list -min 10
.&Show MOTD:motd
.S&how info:info
.Sh&ow links:links
&Setup:dialog -m setup setup
.-
.&New server...:server -m $?="Enter the server"
.$iif($status != connected,$style(2)) &Change server...: server $?="Enter the server"
.$iif($status != connected,$style(2)) R&econnect:reconnect
.-
.$iif($status != connected,$style(2)) &Disconnect:disconnect
-
&Clear
.&Active window:clear
.A&ll windows:clearall -snqm
.All &windows on all servers:clearall -a
-
$iif($status == connected, &Quit connection):quit
}
menu nicklist {
$1
. &Quickinfo $1: echo 2 $+ $tmb $+ 1 $1-
.-
. &Channel $chan: echo 2 $+ $tmb $+ 1 $1-
. &User Mode ( $left($nick(#,$1).pnick,1) ): echo 2 $+ $tmb $+ 1 $1-
. &Idle Time $duration($nick(#,$1).idle): echo 2 $+ $tmb $+ 1 $1-
. &Com Chan $comchan($1,1) $comchan($1,2) $comchan($1,3): echo 2 $+ $tmb $+ 1 $1-
. &Address $address($1,0): echo 2 $+ $tmb $+ 1 $1-
-
&Information
.&Whois: whois $1
.&DNS: dns $1
.&Ping: ctcp $1 PING
-
&Nick Tracker
.$iif($group(#Addtrack) == on,$style(1)) Show used nicks on join: var %status = $iif($group(#Addtrack) == on,Disable,Enable) | $+(.,%status) #Addtrack | echo -at 02 $+ $tmb $+ 12Nick Tracker: 2(12users previous nicks will $iif(%status == Disable,no longer,now) be shown on join2)
.&Check nicks for $1: CheckNicks $1
.&Check nicks for an address: CheckNicks $+(*!,$$?="Enter the hostmask you want to check in the format NICK!IDENT@HOST*")
-
&Usermodes:
.&Give owner: mode # +q $1
.&Give protect: mode # +a $1
.&Give op: mode # +o $1
.&Give halfop: mode # +h $1
.&Give voice: mode # +v $1
.-
.&Take owner: mode # -q $1
.&Take protect: mode # -a $1
.&Take op: mode # -o $1
.&Take halfop: mode # -h $1
.&Take voice: mode # -v $1
.-
.&Take all modes: mode # -qaohv $1 $1 $1 $1 $1
-
&Kick/Ban
.&Kick: mode # -Q | kick # $1
.&Kick (Reason): mode # -Q | kick # $1 $?="Enter a kick reason".
.-
.&Ban: mode # +b $address($1,2)
.&Unban: mode # -b $address($1,2)
.-
.&Kickban: mode # -Q+b $address($1,2) | kick # $1
.&Kickban (Reason): mode # -Q+b $address($1,2) | kick # $1 $?="Enter a kickban reason."
.-
.&Timeban: mode # -Q | ban -ku $+ $calc($?="Enter the length of the ban in minutes" * 60) # $1 Timeban
}
alias qelist {
var %x = 1
while ($var(%enick.*,%x)) {
var %y %y $v1
inc %x
}
$iif(%y,echo -a 2 $+ $tmb $+ 12Except List: Nicks 2(12 $remove(%y,no,enick.,%) 2),echo -a 2 $+ $tmb $+ 12Except List: No nicks found.)
qelist2
}
alias qelist2 {
var %a = 1
while ($var(%ehost.*,%a)) {
var %b %b $v1
inc %a
}
$iif(%b,echo -a 2 $+ $tmb $+ 12Except List: Hosts 2(12 $remove(%b,no,ehost.,%) 2), echo -a 2 $+ $tmb $+ 12Except List: No hosts found.)
}
dialog chanc {
title "Channel Central"
size -1 -1 305 160
option dbu
tab "Channel", 40, -1 -1 290 150
tab "User Modes", 50
text "Topic History:", 1, 3 39 40 8, tab 40
combo 2, 3 50 281 10, tab 40 drop edit limit 300 hsbar
edit "Ban List", 3, 3 33 36 10, tab 50 read
list 4, 1 47 281 79, tab 50, size multsel vsbar hsbar
button "List Bans", 5, 135 20 37 12, tab 50
button "List Excepts", 6, 180 20 37 12, tab 50
button "List Invites", 7, 225 20 37 12, tab 50
button "Remove", 8, 80 135 37 12, tab 50
button "Edit", 9, 120 135 37 12, tab 50
check "Only ops set Topic", 10, 3 70 54 10, tab 40
check "No external messages", 11, 3 80 63 10, tab 40
check "Invite only", 12, 3 90 35 10, tab 40
check "Moderated", 13, 3 100 35 10, tab 40
check "Key:", 14, 72 70 21 10, tab 40
edit "", 15, 94 70 23 8, autohs, tab 40
check "Limit to:", 16, 72 80 28 10, tab 40
edit "", 17, 100 80 23 8, autohs, tab 40
text "users", 18, 126 82 13 8, tab 40
check "Private", 19, 72 90 27 10, tab 40
check "Secret", 20, 72 100 26 10, tab 40
button "Set", 21, 85 120 37 12, tab 40
button "Exit", 22, 125 120 37 12, tab 40, cancel
button "Help", 23, 165 120 37 12, tab 40
combo 25, 3 20 93 50, drop
check "Block color", 27, 147 70 35 10, tab 40
check "Secure connections only", 28, 147 80 68 10, tab 40
check "No CTCP's", 29, 147 90 34 10, tab 40
check "Filter", 30, 147 100 22 10, tab 40
check "No nickname changes", 31, 221 70 63 10, tab 40
check "No kicks", 32, 221 80 29 10, tab 40
check "Registered only", 33, 221 90 47 10, tab 40
check "Strip color", 34, 221 100 34 10, tab 40
}
on *:DIALOG:chanc:init:*:{
var %x = 1
while (%x <= $chan(0)) {
did -a chanc 25 $chan(%x)
inc %x
}
did -a chanc 25 None
if (#* iswm $active) {
var %x = 1
while ($chan(%x) != $active) { inc %x }
did -c chanc 25 %x
}
else { did -c chanc 25 1 }
if ($did(25) == None) { halt }
did -a chanc 2 $chan($did(25)).topic
did -z chanc 2
var %x = 1
while ($readini(topic.ini,-n,$did(25),n $+ %x)) {
did -a chanc 2 $replace($ifmatch,<b>,$chr(2),<c>,$chr(3),<n>,$chr(15),<r>,$chr(22),<u>,$chr(31))
inc %x
}
did -c chanc 2 1
var %m = $gettok($chan($did(25)).mode,1,32)
if (*t* iswmcs %m) { did -c chanc 10 }
if (*n* iswmcs %m) { did -c chanc 11 }
if (*i* iswmcs %m) { did -c chanc 12 }
if (*m* iswmcs %m) { did -c chanc 13 }
if (*k* iswmcs %m) {
did -c chanc 14
did -ra chanc 15 $chan($did(25)).key
}
if (*l* iswmcs %m) {
did -c chanc 16
did -ra chanc 17 $chan($did(25)).limit
}
if (*p* iswmcs %m) { did -c chanc 19 }
if (*s* iswmcs %m) { did -c chanc 20 }
if (*c* iswmcs %m) { did -c chanc 27 }
if (*z* iswmcs %m) { did -c chanc 28 }
if (*C* iswmcs %m) { did -c chanc 29 }
if (*G* iswmcs %m) { did -c chanc 30 }
if (*N* iswmcs %m) { did -c chanc 31 }
if (*Q* iswmcs %m) { did -c chanc 32 }
if (*R* iswmcs %m) { did -c chanc 33 }
if (*S* iswmcs %m) { did -c chanc 34 }
did -r chanc 4
did -ra chanc 3 Ban List
did -b chanc 5-7
mode $did(25) +b
if ($me !isop $did(25)) { did -m chanc 2 }
else { did -n chanc 2 }
if ($me !isop $did(25) && $me !ishop $did(25)) { did -b chanc 15,17,10-14,16,19,20,27-34 }
else { did -e chanc 15,17,10-14,16,19,20,27-34 }
did -b chanc 8,9
}
on *:DIALOG:chanc:sclick:25:{
did -r chanc 2,4,15,17
did -u chanc 10-14,16,19,20,27-34
if ($did(25) == None || !$did(25)) {
did -r chanc 35,36
halt
}
did -r chanc 2
did -a chanc 2 $chan($did(25)).topic
var %x = 1
while ($readini(topic.ini,-n,$did(25),n $+ %x)) {
did -a chanc 2 $replace($ifmatch,<b>,$chr(2),<c>,$chr(3),<n>,$chr(15),<r>,$chr(22),<u>,$chr(31))
inc %x
}
did -c chanc 2 1
did -z chanc 2
var %m = $gettok($chan($did(25)).mode,1,32)
if (*t* iswmcs %m) { did -c chanc 10 }
if (*n* iswmcs %m) { did -c chanc 11 }
if (*i* iswmcs %m) { did -c chanc 12 }
if (*m* iswmcs %m) { did -c chanc 13 }
if (*k* iswmcs %m) {
did -c chanc 14
did -ra chanc 15 $chan($did(25)).key
}
if (*l* iswmcs %m) {
did -c chanc 16
did -ra chanc 17 $chan($did(25)).limit
}
if (*p* iswmcs %m) { did -c chanc 19 }
if (*s* iswmcs %m) { did -c chanc 20 }
if (*c* iswmcs %m) { did -c chanc 27 }
if (*z* iswmcs %m) { did -c chanc 28 }
if (*C* iswmcs %m) { did -c chanc 29 }
if (*G* iswmcs %m) { did -c chanc 30 }
if (*N* iswmcs %m) { did -c chanc 31 }
if (*Q* iswmcs %m) { did -c chanc 32 }
if (*R* iswmcs %m) { did -c chanc 33 }
if (*S* iswmcs %m) { did -c chanc 34 }
did -r chanc 4
did -ra chanc 3 Ban List
did -b chanc 5-7
mode $did(25) +b
if ($me !isop $did(25)) { did -m chanc 2 }
else { did -n chanc 2 }
if ($me !isop $did(25) && $me !ishop $did(25)) { did -b chanc 15,17,10-14,16,19,20,27-34 }
else { did -e chanc 15,17,10-14,16,19,20,27-34 }
did -b chanc 8,9
}
on *:DIALOG:chanc:sclick:4:{
if ($did(4).seltext) && ($me isop $did(25) || $me ishop $did(25)) { did -e chanc 8,9 }
else { did -b chanc 8,9 }
}
on *:DIALOG:chanc:sclick:5:{
did -r chanc 4
did -ra chanc 3 Ban List
did -b chanc 5-7,8,9
mode $did(25) +b
}
on *:DIALOG:chanc:sclick:6:{
did -r chanc 4
did -ra chanc 3 Except List
did -b chanc 5-7,8,9
mode $did(25) +e
}
on *:DIALOG:chanc:sclick:7:{
did -r chanc 4
did -ra chanc 3 Invite List
did -b chanc 5-7,8,9
mode $did(25) +I
}
on *:DIALOG:chanc:sclick:8:{
var %x = 1, %m = 1, %r = 1, %t = 1, %y = 1
while ($did(4,%x).sel) {
set $+(%,modes.,%m) $($+(%,modes.,%m),2) $gettok($did(4,$did(4,%x).sel),1,32)
if (%t == $modespl) {
inc %m
var %t = 1
}
else { inc %t }
inc %x
}
while ($($+(%,modes.,%y),2)) {
mode $did(25) $+(-,$iif($left($did(3),1) == i,$str($upper($ifmatch),$modespl),$str($lower($ifmatch),$modespl))) $($+(%,modes.,%y),2)
inc %y
}
while ($did(4).sel) { did -d chanc 4 $ifmatch }
unset %modes.*
}
on *:DIALOG:chanc:sclick:9:{
if ($did(4).seltext) {
set %address $gettok($ifmatch,1,32)
set %type $iif($left($did(3),1) == i,$upper($ifmatch),$lower($ifmatch))
set %line $did(4).sel
dialog -ma chance chance
if (%type != b) { did -h chance 3-5 }
else { did -b chance 4,5 }
did -a chance 2 %address
}
}
on *:DIALOG:chanc:sclick:21:{
if ($me isop $did(25)) {
if ($chan($did(25)).topic != $did(2)) { topic $did(25) $did(2) }
mode $did(25) $+($iif($did(10).state,+,-),t,$iif($did(11).state,+,-),n,$iif($did(12).state,+,-),i,$iif($did(13).state,+,-),m,$iif($did(19).state,+,-),p,$iif($did(20).state,+,-),s,$iif($did(27).state,+,-),c,$iif($did(28).state,+,-),z,$iif($did(29).state,+,-),C,$iif($did(30).state,+,-),G,$iif($did(31).state,+,-),N,$iif($did(32).state,+,-),Q)
mode $did(25) $+($iif($did(33).state,+,-),R,$iif($did(34).state,+,-),S)
mode $did(25) $iif($did(16).state,+,-) $+ l $did(17)
mode $did(25) $iif($did(14).state,+,-) $+ k $iif($did(14).state,$did(15),$chan($did(25)).key)
}
}
on *:DIALOG:chanc:sclick:23:{ help channel central }
dialog chance {
title "Channel Central"
size -1 -1 109 68
option dbu
text "Edit address:", 1, 3 3 32 8
edit "", 2, 2 12 104 10, autohs
check "Remove ban in:", 3, 27 25 47 10
combo 4, 30 37 27 50, drop
text "mins", 5, 59 39 11 8
button "Ok", 6, 5 54 27 12
button "Cancel", 7, 36 54 26 12
}
on *:DIALOG:chance:init:*:{
var %x = 1
while (%x < 61) {
did -a chance 4 %x
inc %x $iif(%x isnum 1-9,1,5)
}
}
on *:DIALOG:chance:sclick:3:{
if (!$did(3).state) { did -b chance 4,5 }
else { did -e chance 4,5 }
}
on *:DIALOG:chance:sclick:6:{
if ($did(2)) {
mode $did(chanc,25) $+(-,%type,+,%type) %address $did(2)
if ($did(3).state && $did(4)) { .timer 1 $calc( $did(4) * 60 ) /mode $did(chanc,25) -b $did(2) }
did -d chanc 4 %line
did -a chanc 4 $did(2) $me $time($ctime,dddd mmmm) $ord($time($ctime,d)) $time($ctime,h:nn TT)
did -b chanc 8,9
}
unset %address %type %line
dialog -x chance
}
on *:DIALOG:chance:sclick:7:{
unset %address %type %line
dialog -x chance
}
on *:DIALOG:chance:close:*:{ unset %address %type %line }
alias mp3play {
var %a, %b $qt(mp3play.txt), %c !did -ra mp3pl
if ($1) {
if ($1 = -n) && ($2) %a = $2
if ($read(%b,w,$+(*,$1-,*))) %a = $readn
!splay -p $read(%b,%a)
%c 19
%c 10 $nopath($read(%b,%a))
!did -c mp3pl 1 %a
.timermp3 -m 27 $ceil($calc($mp3($read(%b,%a)).length / 27)) /did -a mp3pl 19 *
!set %songtime 0
!set %songlength $asctime($calc($mp3($read(%b,$did(mp3pl,1).sel)).length / 1000),nn:ss)
.timermp4 0 1 st
if ($did(40)) {
var %out 02 $+ $tmb $+ 12 mp3: Now listening to 2(12 $+ $iif($sound($insong.fname).title,$v1) $+ 2) 12by 2(12 $+ $iif($sound($insong.fname).artist,$v1) $+ 2)12 length 2(12 $+ %songlength $+ 2)
var %x 1
while ($chan(%x)) {
describe $v1 %out
inc %x
}
}
}
}
alias -l st {
!did -ra mp3pl 27 $asctime(%songtime,nn:ss) - %songlength
!inc %songtime
}
alias mp3pause {
var %a !splay -p
if ($inmp3) {
if (%paused = 5) && ($insong.pause) {
%a resume
!unset %paused
.timermp3 -r
.timermp4 -r
}
else {
%a pause
!set %paused 5
.timermp3 -p
.timermp4 -p
}
}
}
alias mp3stop {
if ($inmp3) {
!splay stop
.timermp* off
!did -r mp3pl 19
}
}
alias mp3pl {
!var %b $qt(mp3play.txt), %c $readini(mp3play.ini, n, settings, display)
if ($1 = -o) {
if ($dialog(mp3pl)) dialog -v mp3pl mp3pl
else {
!dialog -md mp3pl mp3pl
if ($isfile(%b)) {
if (%c = filename) || (%c = $null) {
!var %x 1
while ($read(%b,%x)) {
!did -za mp3pl 1 $nopath($v1)
!inc %x
}
}
elseif (song isin %c) && (artist isin %c) {
!var %x 1
while ($read(%b,%x)) {
!did -za mp3pl 1 $replace(%c,song,$iif($sound($read(%b,%x)).title,$v1,$iif($sound($read(%b,%x),TIT2).tag,$v1,N/A)),artist,$iif($sound($read(%b,%x)).artist,$v1,$iif($sound($read(%b,%x),TPE1).tag,$v1,N/A)))
!inc %x
}
}
}
}
}
elseif ($1 = -c) && if ($isfile(%b)) {
.remove %b
if ($dialog(mp3pl)) !did -r mp3pl 1
}
}
alias mp3pla {
var %a 1, %b $qt(mp3play.txt), %c !write %b, %d $qt($iif($1 = -d,$sdir(C:\),$sfile($mircdir))), %e !did -az mp3pl 1
if ($1 = -d) {
while ($findfile(%d,*.mp3,%a)) {
!var %f $v1
if (!$read(%b,w,$+(*,%f,*))) {
%c %f
if ($dialog(mp3pl)) %e $nopath(%f)
}
!inc %a
}
!echo -ac info You have added %a files to the playlist.
}
elseif (!$read(%b,w,$+(*,$remove(%d,"),*))) {
%c %d
if ($dialog(mp3pl)) %e $remove($nopath(%d),")
!echo -ac info File $qt($nopath(%d)) was added to the playlist.
}
}
alias mp3plr {
!var %a $qt(mp3play.txt)
if ($1) && ($read(%a,w,$+(*,$1-,*))) {
!var %c $input(Would you like to continue with the removal of $qt($v1) ?,ynv,Remove?)
if (%c == $yes) {
!write -dl $+ $readn %a
if ($dialog(mp3pl)) !did -d mp3pl 1 $readn
}
}
}
alias mp3info {
if (!$dialog(mp3f)) dialog -mv mp3f mp3f
var %a !did -ra mp3f, %b $iif($isfile($qt($1-)),$1-,$iif($inmp3,$insong.fname,$null))
%a 1 $nopath(%b)
%a 3 Title: $iif($sound(%b).title,$v1,$iif($sound(%b,TIT2).tag,$v1,N/A))
%a 4 Track length: $asctime($calc($mp3(%b).length / 1000),nn:ss)
%a 2 Artist: $iif($sound(%b).artist,$v1,$iif($sound(%b,TPE1).tag,$v1,N/A))
%a 5 Bitrate: $+($sound(%b).bitrate,kbps) / Mode: $sound(%b).mode / Size: $bytes($file(%b)).suf
%a 6 $str(-,25)
%a 7 Year: $iif($sound(%b).year,$v1,$iif($sound(%b,TYER).tag,$v1,N/A))
%a 8 Genre: $iif($sound(%b).genre,$v1,N/A)
%a 10 $iif($sound(%b).comment,$v1,$iif($sound(%b,COMM).tag,$v1,N/A))
%a 11 Copyright: $iif($sound(%b).copyright,$iif($v1 = $false,No,Yes),N/A)
%a 12 Album: $iif($sound(%b).album,$v1,$iif($sound(%b,TALB).tag,$v1,N/A))
}
dialog -l mp3f {
title "File info"
size -1 -1 127 132
option dbu
edit "", 1, 1 1 126 10, read autohs
text "Title: N/A", 3, 1 11 125 9
text "Artist: N/A", 2, 1 20 125 9
text "Track length: 00:00", 4, 1 29 125 9
text "Bitrate: 0kbps / Mode: N/A / Freq: 0 Hz", 5, 1 38 125 9
text "", 6, 1 47 125 9
text "Year: N/A", 7, 1 56 125 9
text "Genre: N/A", 8, 1 65 125 9
text "Comment:", 9, 1 92 125 9
edit "", 10, 1 101 125 21, read autovs multi
text "Copyright: N/A", 11, 1 74 125 9
text "Album: N/A", 12, 1 83 125 9
button "Done", 13, 48 122 30 10, cancel
}
dialog mp3pl {
title "MP3 Player"
size -1 -1 133 186
option dbu
list 1, 1 49 131 124, hsbar vsbar size
menu "&File", 2
menu "Add/Delete", 3, 2
item "Directory", 4, 3
item "File", 5, 3
item "break", 6, 2
item "Delete Selected", 7, 2
item "break", 8, 2
item "Clear", 9, 2
edit "", 10, 1 11 128 10, center read
text "Now Playing:", 11, 3 4 40 7
button "-", 12, 1 23 10 10
button "+", 13, 27 23 10 10
check "Amsg?", 40, 6 36 24 10
button "<<", 14, 39 23 15 10
button "Stop", 15, 55 23 16 10
button "Pause", 16, 72 23 19 10
button "Play", 17, 92 23 16 10
button ">>", 18, 109 23 15 10
edit "", 19, 39 34 85 6
menu "Tools/Options", 21, 2
item "Continuous", 22, 21
item "Repeat", 23, 21
item "Shuffle", 24, 21
edit "", 25, 26 175 94 9, center
text "Search:", 26, 7 176 17 7
text "", 27, 39 41 85 7, center
edit "", 28, 11 24 16 8, center read
item "Song Info", 32, 2
item "Lyrics Search", 34, 2
menu "Display", 35, 2
item "Filename", 36, 35
item "Song Artist", 37, 35
item "Artist Song", 38, 35
}
dialog -l mp3ly {
title "Lyrics Searcher"
size -1 -1 200 247
option dbu
edit "", 1, 5 10 190 230, center, read, vsbar, multi
text "Lyrics Searcher for Extreme MP3", 2, 5 240 190 8, center
}
on *:dialog:*:init:0:{
if ($dname = mp3pl) {
!did -b $dname 7,19,32,34
!did -a $dname 10 Pick a song and press Play to begin
if (!$readini(mp3play.ini, n, settings, volume)) !writeini -n mp3play.ini settings volume 100
!did -a $dname 28 $+($readini(mp3play.ini, n, settings, volume),$chr(37))
!vol -v $ceil($calc(($readini(mp3play.ini, n, settings, volume) * 65535) / 100))
}
if ($dname = mp3o) {
if (!$readini(mp3play.ini, n, settings, adenable)) !did -b $dname 4,6
else !did -c $dname 2
if ($readini(mp3play.ini, n, settings, adchans)) {
tokenize 124 $v1
!did -a $dname 4 $*
}
var %x 1
while ($chan(%x)) {
!did -a $dname 6 $v1
inc %x
}
}
if ($dname = mp3am) {
!tokenize 124 @title@ - title|@artist@ - artist|@album@ - album|@bitrate@ - bitrate|@length@ - length of song
!did -a mp3am 2 $*
!did -a mp3am 4 $readini(mp3play.ini, n, settings, message)
}
if ($dname = mp3ly) {
if ($sock(lyr)) .sockclose lyr
sockopen lyr www.azlyrics.com 80
}
}
on *:dialog:*:close:0: {
if ($dname = mp3pl) {
.timermp* off
!splay stop
}
if ($dname = mp3o) {
!dialog -v mp3pl
}
if ($dname = mp3ly) {
!dialog -v mp3pl
}
}
on *:dialog:mp3pl:edit:25: {
!var %a $read(mp3play.txt,w,$+(*,$did(25).text,*))
!did -c mp3pl 1 $readn
}
on *:dialog:mp3pl:menu:*:{
if ($did = 4) mp3pla -d
if ($did = 5) mp3pla -f
if ($did = 7) mp3plr $did($dname,1).seltext
if ($did = 9) mp3pl -c
if ($did isnum 22-24) !writeini -n mp3play.ini settings songend $did($v1).text
if ($did = 32) mp3info $read(mp3play.txt,$did(mp3pl,1).sel)
if ($did = 33) { dialog -m mp3o mp3o }
if ($did = 34) { dialog -m mp3ly mp3ly }
if ($did isnum 36-38) !writeini -n mp3play.ini settings display $did($v1).text
}
on *:dialog:*:sclick:*: {
var %i $readini(mp3play.ini, n, settings, volume)
if ($dname = mp3pl) {
if ($did = 1) { did -e $dname 7,32,34 }
if ($did = 12) && (%i > 4) {
!writeini -n mp3play.ini settings volume $calc(%i - 5)
!did -ra $dname 28 $calc(%i - 5)
!vol -v $ceil($calc((%i * 65535) / 100))
}
if ($did = 13) && (%i < 96) {
!writeini -n mp3play.ini settings volume $calc(%i + 5)
!did -ra $dname 28 $calc(%i + 5)
!vol -v $ceil($calc((%i * 65535) / 100))
}
if ($did = 14) {
if ($insong.fname) {
!var %b $calc($readn - 1)
mp3play $did(mp3pl,1,%b).text
!did -c mp3pl 1 %b
}
else {
!did -ra mp3pl 10 You aren't playing a song!
}
}
if ($did = 15) {
mp3stop
!unset %paused
}
if ($did = 16) {
mp3pause
}
if ($did = 17) {
if (%paused == 5) {
!splay -p resume
unset %paused
.timermp3 -r
.timermp4 -r
}
elseif ($did(1).sel) {
mp3play -n $v1
}
else {
!did -ra mp3pl 10 You didn't select a song to play!
}
}
if ($did = 18) {
if ($insong.fname) {
!var %b $calc($readn + 1)
mp3play $did(mp3pl,1,%b).text
!did -c mp3pl 1 %b
}
else {
!did -ra mp3pl 10 You aren't playing a song!
}
}
}
if ($dname = mp3o) {
if ($did = 2) {
if ($readini(mp3play.ini, n, settings, adenable) != $null) {
!remini mp3play.ini settings adenable
!did -b $dname 4,6
}
else {
!writeini -n mp3play.ini settings adenable 1
!did -e $dname 4,6
}
}
if ($did = 7) && ($readini(mp3play.ini, n, settings, adchans) != $null) {
!writeini -n mp3play.ini settings adchans $deltok(%adchans,$findtok($readini(mp3play.ini, n, settings, adchans),$iif($did(mp3o,6).seltext,$v1,$did(mp3o,4).seltext),1,124),124)
tokenize 124 $readini(mp3play.ini, n, settings, adchans)
!did -r $dname 4
!did -a $dname 4 $*
}
if ($did = 9) && (!$findtok($readini(mp3play.ini, n, settings, adchans),$did(mp3o,6).seltext,1,124)) {
!writeini -n mp3play.ini settings adchans $addtok($readini(mp3play.ini, n, settings, adchans),$did(mp3o,6).seltext,124)
!did -a mp3o 4 $did(mp3o,6).seltext
}
if ($did = 10) !dialog -m mp3am mp3am
}
if $dname = mp3am && $did = 5 !writeini -n mp3play.ini settings message $did(4).text
}
on *:dialog:mp3f:close:0:!dialog -v mp3pl mp3pl
on *:dialog:mp3pl:dclick:1:mp3play $read("mp3play.txt",$did($dname,1).sel)
on *:mp3end:{
!var %a mp3play, %b $qt(mp3play.txt), %d $did(mp3pl,1).sel
if ($readini(mp3play.ini, n, settings, songend) != $null) {
if ($v1 = continuous) && (%d != $lines(%b)) %a $read(%b,$calc(%d + 1))
elseif ($v1 = repeat) %a $read(%b,w,$+(*,$nopath($insong.fname),*))
elseif ($v1 = shuffle) %a $read(%b,$r(1,$lines(%b)))
}
}
on *:SOCKOPEN:lyr:{
!var %x $read(mp3play.txt,$did(mp3pl,1).sel), %a $remove($iif($sound(%x).artist,$v1,$iif($sound(%x,TPE1).tag,$v1,N/A)),$chr(32),$chr(47),$chr(45)), %t $remove($iif($sound(%x).title,$v1,$iif($sound(%x,TIT2).tag,$v1,N/A)),$chr(32),$chr(47),$chr(45))
!sockwrite -nt $sockname GET $lower($+(/lyrics/,%a,/,%t,.html)) HTTP/1.1
!sockwrite -nt $sockname Host: www.azlyrics.com
!sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:lyr: {
if ($sockerr) !did -a mp3ly 1 $sockerr
else {
!var %v, %t
!sockread %v
if (*Not Found* iswm %v) { !did -a mp3ly 1 Lyrics not found. | halt }
elseif (*<FONT size=2>* iswm %v) %b = yes
elseif (%b == yes) {
if (*[ <a href=* iswm %v) || (*[Thanks* iswm %v) %b = no
else {
!did -a mp3ly 1 $htmlfree(%v) $crlf
}
}
}
}
alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ) | return %x }
#away.stuff off
on *:TEXT:*:?: {
if (%away.log == on) { inc %away.log.count | did -ra awaysys 25 %away.log.count | did -a awaysys 27 $chr(91) $+ $asctime(h:nn) $+ $chr(93) < $+ $nick $+ > $1- $+ $crlf | msg $nick I Am Away. I left at %away.left Reason: %away.reason Loging: %away.log Pager: %away.pager | close -m $nick }
if (%away.log == off) { msg $nick I Am Away. I left at %away.left Reason: %away.reason Loging: %away.log Pager: %away.pager %ver | close -m $nick }
}
ctcp 1:page:*:{ inc %away.pager.count | did -ra awaysys 29 %away.pager.count | did -a awaysys 31 $chr(91) $+ $asctime(h:nn) $+ $chr(93) $chr(60) $+ $nick $+ $chr(62) $1- $+ $crlf }
#away.stuff end
alias away1 { dialog -md awaysys awaysys }
dialog awaysys {
title "Away System"
size -1 -1 163 162
option dbu
tab "Main Options", 21, 1 0 160 159
box "Nick Management", 2, 3 16 156 41, tab 21
check "Change Nick", 3, 5 23 50 10, tab 21
text "Away Nick:", 5, 5 34 27 8, tab 21
text "Back Nick:", 7, 80 34 27 8, tab 21
edit "", 4, 5 41 75 12, tab 21 autohs
edit "", 6, 80 41 75 12, tab 21 autohs
box "Options:", 8, 3 60 156 28, tab 21
combo 14, 6 75 45 30, tab 21 size drop
text "Log:", 15, 7 67 11 8, tab 21
text "Pager:", 16, 55 68 16 8, tab 21
text "Msg Chan Interval:", 18, 103 68 45 8, tab 21
combo 17, 54 75 44 30, tab 21 size drop
combo 19, 102 75 52 60, tab 21 size drop
edit "", 20, 6 98 150 36, tab 21 multi
box "Reason:", 13, 3 89 156 49, tab 21
tab "Logging", 22
text "While you were away, you recieved", 24, 4 18 87 8, tab 22
edit "", 25, 92 16 15 12, tab 22 read
text "messages for people.", 26, 108 18 52 8, tab 22
edit "", 27, 4 29 155 107, tab 22 read multi autovs vsbar
tab "Pages:", 23
text "While you were away, you recieved", 28, 4 18 87 8, tab 23
edit "", 29, 92 16 16 12, tab 23 read
text "pages for people.", 30, 111 18 43 8, tab 23
edit "", 31, 4 29 155 107, tab 23 read multi autovs vsbar
button "Go Away", 32, 3 142 37 12
button "Come Back", 33, 43 142 37 12, ok
button "Cancel", 34, 82 142 37 12, cancel
}
on 1:DIALOG:awaysys:sclick:3: {
if ($did(awaysys,3).state == 0) { did -m $dname 6 | did -m $dname 4 | set %change.nick off }
if ($did(awaysys,3).state == 1) { did -n $dname 6 | did -n $dname 4 | set %change.nick on }
}
on 1:DIALOG:awaysys:sclick:32: {
if ($did(awaysys,14).sel == 1) { set %away.log On }
if ($did(awaysys,14).sel == 2) { set %away.log Off }
if ($did(awaysys,17).sel == 1) { set %away.pager On }
if ($did(awaysys,17).sel == 2) { set %away.pager Off }
if ($did(awaysys,19).sel == 1) { set %away.msg 5 | set %away.timer 300 }
if ($did(awaysys,19).sel == 2) { set %away.msg 10 | set %away.timer 600 }
if ($did(awaysys,19).sel == 3) { set %away.msg 15 | set %away.timer 900 }
if ($did(awaysys,19).sel == 4) { set %away.msg 20 | set %away.timer 1200 }
if ($did(awaysys,19).sel == 5) { set %away.msg 25 | set %away.timer 1500 }
if ($did(awaysys,19).sel == 6) { set %away.msg 30 | set %away.timer 1800 }
if ($did(awaysys,19).sel == 7) { set %away.msg 35 | set %away.timer 2100 }
if ($did(awaysys,19).sel == 8) { set %away.msg 40 | set %away.timer 2500 }
if ($did(awaysys,19).sel == 9) { set %away.msg 45 | set %away.timer 2800 }
if ($did(awaysys,19).sel == 10) { set %away.msg 50 | set %away.timer 3100 }
if (%change.nick == on) { nick $did(awaysys,4) }
enable #away.stuff
set %away.left $asctime(h:nn)
set %away.left2 $ctime
set %away.reason $did(awaysys,20)
ame is Now Away ( Reason: %away.reason ) Loging: %away.log Pager: %away.pager
.timerAWAY 0 %away.timer ame is Away. I Left At %away.left Reason: %away.reason Loging: %away.log Pager: %away.pager %ver
}
on 1:DIALOG:awaysys:sclick:33: {
if (%change.nick == on) { nick $did(awaysys,6) }
disable #away.stuff
ame Is Back ( From: %away.reason ) Loging: %away.log Pager: %away.pager Away Time: $duration($calc($ctime - %away.left2))
set %away.log.count 0
set %away.pager.count 0
.timerAWAY off
}
on 1:DIALOG:awaysys:init:*: {
if (%change.nick == on) { did -c $dname 3 | did -n $dname 6 | did -n $dname 4 }
if (%change.nick == off) { did -u $dname 3 | did -m $dname 6 | did -m $dname 4 }
did -i $dname 14 1 On
did -i $dname 14 2 Off
did -i $dname 17 1 On
did -i $dname 17 2 Off
did -i $dname 19 1 5mins
did -i $dname 19 2 10mins
did -i $dname 19 3 15mins
did -i $dname 19 4 20mins
did -i $dname 19 5 25mins
did -i $dname 19 6 30mins
did -i $dname 19 7 35mins
did -i $dname 19 8 40mins
did -i $dname 19 9 45mins
did -i $dname 19 10 50mins
did -ra $dname 20 Away
if (%away.log == On) { did -c $dname 14 1 }
if (%away.log == Off) { did -c $dname 14 2 }
if (%away.pager == On) { did -c $dname 17 1 }
if (%away.pager == Off) { did -c $dname 17 2 }
if (%away.msg == 5) { did -c $dname 19 1 }
if (%away.msg == 10) { did -c $dname 19 2 }
if (%away.msg == 15) { did -c $dname 19 3 }
if (%away.msg == 20) { did -c $dname 19 4 }
if (%away.msg == 25) { did -c $dname 19 5 }
if (%away.msg == 30) { did -c $dname 19 6 }
if (%away.msg == 35) { did -c $dname 19 7 }
if (%away.msg == 40) { did -c $dname 19 8 }
if (%away.msg == 45) { did -c $dname 19 9 }
if (%away.msg == 50) { did -c $dname 19 10 }
did -ra $dname 4 $me $+ |Away
did -ra $dname 6 $me
}