rendered paste bodyon *:START:{ themestart }
on *:LOAD:{ themestart }
alias themestart {
.timestamp on
.timestamp -f 2(12hh2:12nn2.12ss2)
.timestamp -g 2(12hh2:12nn2.12ss2)
.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
.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 —› Welcome to Coffey's Atomic Theme.
echo -st 2 —› You are running mIRC $version on $os $+ .
echo -st 2 —› Enjoy!
echo -st 2((
}
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) != /) {
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 }
}
}
on *:INPUT:?:{
if ($left($1,1) != /) {
.msg $active | echo -ta $chan 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 :: }
alias notice {
if (!$isid) {
.!notice $1-
if (!$show) { return }
echo -tma 02 —›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 —›12 DNS: resolving $thmbr(%h) $+ ...
}
}
}
}
on ^*:notify:{
haltdef
echo -tms 02 —›12 Notify: $thmbr($nick) is now online!
}
on ^*:unotify:{
haltdef
echo -tms 02 —›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 —›12 Now talking in $thmbr($chan)
echo -tm $chan 02 —›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 —›12 Join: $thmbr($nick) $thmbr($address) $iif(%clones != $null && %clones != $nick, $chr(124) 12Clones Found: $thmbr(%clones))
}
if ($query($nick)) {
echo -tm $nick 02 —›12 Join: $thmbr($+($nick,:,$chan)) $thmbr($address)
}
}
on ^*:part:#:{
haltdef
if ($nick == $me) {
echo -ts 02 —›12 Part: You have parted $chan $thmbr($1-)
}
else {
echo -tm $chan 02 —›12 Part: $thmbr($nick) $thmbr($address) $thmbr($1-)
}
if ($query($nick)) {
echo -tm $nick 02 —›12 Part: $thmbr($+($nick,:,$chan)) $thmbr($address) $thmbr($1-)
}
}
on ^*:kick:#:{
haltdef
if ($knick == $me) {
echo -tma 02 —›12 Kick: You were kicked out of $thmbr($chan) by $thmbr($nick) $thmbr($1-)
}
else {
echo %e 02 —›12 kick: $thmbr($knick) was kicked by $thmbr($nick) $thmbr($1-)
}
if ($query($knick)) {
echo -tm $knick 02 —›12 Kick: $thmbr($knick) was kicked by $thmbr($+($nick,:,$chan)) $thmbr($1-)
}
if ($query($nick)) {
echo -tm $nick 02 —›12 Kick: $thmbr($knick) was kicked by $thmbr($+($nick,:,$chan)) $thmbr($1-)
}
}
on ^*:quit:{
haltdef
var %i $comchan($nick,0)
while (%i) {
echo -tm $comchan($nick,%i) 02 —›12 Quit: $thmbr($nick) $thmbr($address) $thmbr($1-)
dec %i
}
if ($query($nick)) {
echo -tm $nick 02 —›12 Quit: $thmbr($nick) $thmbr($address) $thmbr($1-)
}
}
on ^*:nick:{
haltdef
if ($newnick != $me) {
var %i = 1
while ($comchan($newnick,%i)) {
echo -tm $comchan($newnick,%i) 02 —›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 —›12 Nick:12 You are now known as $thmbr($newnick)
inc %d
}
if ($query($newnick)) {
echo -tm $newnick 02 —›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 —›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 —›12 Mode: $thmbr($nick) sets mode $thmbr($1-)
}
on ^*:invite:#:{
haltdef
echo -tmsa 02 —›12 Invite: $thmbr($nick) invites you to join $thmbr($chan)
}
on ^*:usermode:{
haltdef
echo -tmsa 02 —›12 Your usermode is now: $thmbr($1-)
}
on ^*:chat:*:{
haltdef
echo -tm =$nick 2• (12 $+ $nick $+ 12)1 $+ $1-
}
on ^*:action:*:#:{
haltdef
if ($nick == $me) {
echo -tm $chan 2• $me $1-
}
else {
echo -tm $chan 4• $nick $1-
}
}
on ^*:action:*:?:{
haltdef
if ($nick == $me) {
echo -tm $chan 2• $me $1-
}
else {
echo -tm $chan 4• $nick $1-
}
}
on ^*:notice:*:*:{
haltdef
echo -tmas 12-1 $+ $nick $+ 12-1 $1-
}
on ^*:snotice:*:{
haltdef
echo -tmas 1- $+ $nick $+ - $1-
}
on ^*:open:?:{
echo -tmas 2—› (12 $+ $nick $+ 2)12/2(12 $+ $address $+ 2)12 opened a query with you:1 $1-
}
on *:dns:{
haltdef
if ($dns(0)) {
var %i = 1,%t = $dns(0)
while (%i <= %t) {
echo -tmas 02 —›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 —›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 —›12 Modes on $2 $+ : 02(12 $+ $3- $+ 02)
}
raw 329:*:{
haltdef
echo -t $2 02 —›12 $2 creation time: $thmbr($asctime($3))
echo -tm $2 02((
}
raw 367:*:{
haltdef
echo -t $2 02 —›12 $thmbr($3) set on $thmbr($asctime($5)) by $thmbr($4)
}
raw 368:*:{
haltdef
echo -t $2 02 —›12 End of $thmbr($2) ban list!
}
raw 404:*:{
haltdef
echo -t $2 02 —›12 Unable to send message to $thmbr($2) $+ !
}
raw 482:*:{
haltdef
echo -t $2 02 —›12 You're not opped on $thmbr($2) $+ !
}
raw 396:*:{
haltdef
echo -st 02 —›12 $thmbr($2) is now your hidden host!
}
raw 451:*:{
haltdef
echo -st 02 —›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 —› 01 $+ $2 12is "1 $+ $6- $+ 12" $thmbr($+($3,@,$4))
}
raw 319:*:{
haltdef
echo -ta 11 —› $+ $2 12Is on:1 $3-
}
raw 312:*:{
haltdef
echo -tma 11 —› $+ $2 12Using1 $3 1 $+ $thmbr($4-)
}
else {
echo -tma 11 —› $+ $2 12Used1 $3 1 $+ $thmbr($4-)
}
raw 313:*:{
haltdef
echo -tma 11 —› $+ $2 12is1 $5-
}
raw 314:*:{
haltdef
set %whowas. $+ $cid 1
echo -tma 02((12 /whowas start 02))
echo -tma 02 —› 01 $+ $2 12was " $+ $6- $+ 12" $thmbr($+($3,@,$4))
}
raw 301:*:{
haltdef
if (%whois. [ $+ [ $cid ] ]) {
echo -tma 11 —› $+ $2 12is away "1 $+ $3- $+ 12"
}
elseif (%whowas. [ $+ [ $cid ] ]) {
echo -tma 11 —› $+ $2 12was away "1 $+ $3- $+ 12"
}
elseif ($2 != $me) && (!%away.seen. [ $+ [ $2 ] $+ ] . [ $+ [ $cid ] ]) {
set -u300 %away.seen. [ $+ [ $2 ] $+ ] . [ $+ [ $cid ] ] 1
echo -tma 02 —›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 —› $+ $2 12Authed as "1 $+ $3 $+ 12"
}
raw 338:*:{
haltdef
echo -tma 11 —› $+ $2 12Real host $3 $thmbr($4-)
}
raw 317:*:{
haltdef
echo -tma 11 —› $+ $2 12Has been idle for1 $duration($3)
echo -tma 11 —› $+ $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 —›12 No topic set: $thmbr($2)
}
}
raw 332:*:{
haltdef
if ($me ison $2) {
echo -tm $2 02 —›12 Topic: $thmbr($3-)
}
}
raw 333:*:{
haltdef
if ($me ison $2) {
echo -tm $2 02 —›12 Set by: $thmbr($3) on $thmbr($asctime($4))
}
}
raw 341:*:{
haltdef
echo -t $3 02 —›12 Invite: $thmbr($2) has been invited to join $thmbr($3)
}
raw 443:*:{
haltdef
echo -ts $3 02 —›12 Invite: $thmbr($2) is already on $thmbr($3)
}
raw 353:*:{
haltdef
echo -st 02 —›12 Names: $thmbr($3) $4-
}
raw 355:*:{
haltdef
echo -st 02 —›12 Names: $thmbr($3) $4-
}
raw 366:*:{
haltdef
echo -st 02 —›12 End of /names list for $thmbr($2)
}
raw 421:*:{
haltdef
echo -sta 02 —›12 Error: unknown command $thmbr($2)
}
raw 352:*:{
haltdef
echo -ts 02 —›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 —›12 End of /who request for $thmbr($2)
}
raw 433:*:{
haltdef
echo -ta 02 —›12 Error: nickname $thmbr($2) is already in use!
}
raw 471:*:{
haltdef
echo -ta 02 —›12 Can't join $2 02(12full (+l)02)12!
}
raw 473:*:{
haltdef
echo -ta 02 —›12 Can't join $2 02(12invite only (+i)02)12!
}
raw 474:*:{
haltdef
echo -ta 02 —›12 Can't join $2 02(12you're banned (+b)02)12!
}
raw 475:*:{
haltdef
echo -ta 02 —›12 Can't join $2 02(12requires key (+k)02)12!
}
raw 477:*:{
if ($left($2,1) isin $chantypes) {
haltdef
echo -ta 02 —›12 Can't join $2 02(12auth'ed only (+r)02)12!
}
}
raw 401:*:{
haltdef
echo -tma 02 —›12 No such nickname: $thmbr($2)
unset $+(%,whois.,$2,.,$cid)
}
raw 406:*:{
haltdef
echo -tma 02 —›12 No such nickname: $thmbr($2)
}
raw 403:*:{
haltdef
echo -tma 02 —›12 No such channel: $thmbr($2)
}
raw 251:*:{
haltdef
echo -stm 02 —›12 There are $thmbr($4) users and $thmbr($7) invisible on $thmbr($10) servers
}
raw 252:*:{
haltdef
echo -stm 02 —›12 There are $thmbr($2) operator(s) online
}
raw 253:*:{
haltdef
echo -stm 02 —›12 There are $thmbr($2) unknown connection(s)
}
raw 254:*:{
haltdef
echo -stm 02 —›12 There are $thmbr($2) channels formed
}
raw 472:*:{
haltdef
}
raw 255:*:{
haltdef
echo -stm 02 —›12 I have $thmbr($4) clients and $thmbr($7) servers
}
raw 001:*:{
haltdef
echo -stm 02 —›12 Welcome to the internet relay network, $thmbr($8)
}
raw 002:*:{
haltdef
echo -stm 02 —›12 Your host is $thmbr($left($5,-1)) $+ , running version $thmbr($8)
}
raw 003:*:{
haltdef
echo -stm 02 —›12 This server was created $thmbr($6-)
}
raw 004:*:{
haltdef
echo -stm 02 —›12 Server: $thmbr($2) $+ , version: $thmbr($3) $+ , usermodes: $thmbr($4) $+ , channelmodes: $thmbr($5)
}
raw 005:*:{
haltdef
echo -stm 02 —›12 Supported by this server: $thmbr($deltok($2-,-5-,32))
}
raw *:*:{
if (!$istok(321 322 323,$numeric,32)) {
haltdef
echo -tma 02 —›12 $2-
}
}
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 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 —› 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 —› 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 }
-
}
menu nicklist {
$1
.Quickinfo $+ $chr(58) $nick: echo 2—›1 $1-
.-
.Channel $+ $chr(58) $chan: echo 2—›1 $1-
.User Mode $+ $chr(58) ( $left($nick(#,$1).pnick,1) ): echo 2—›1 $1-
.Idle Time $+ $chr(58) $duration($nick(#,$1).idle): echo 2—›1 $1-
.Com Chan $+ $chr(58) $comchan($1,1) $comchan($1,2) $comchan($1,3): echo 2—›1 $1-
.Address $+ $chr(58) $address($1,0): echo 2—›1 $1-
-
Information
.Whois: whois $1
.DNS: dns $1
.Ping: ctcp $1 PING
-
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) # $nick Timeban
}
menu channel {
$chan
.Quickinfo $+ $chr(58) $chan: echo 2—›1 $1-
.-
.Modes $+ $chr(58) $chan(#).mode: echo 2—›1 $1-
.Users $+ $chr(58) $nick(#,0): echo 2—›1 $1-
.Opped $+ $chr(58) $nick(#,0,o): echo 2—›1 $1-
.Helpopped $+ $chr(58) $nick(#,0,h): echo 2—›1 $1-
.Voiced $+ $chr(58) $nick(#,0,v): echo 2—›1 $1-
.Regular $+ $chr(58) $nick(#,0,r): echo 2—›1 $1-
.-
.Scan for clones: clonescan
.-
.Channel Central: dialog -dm cc cc
.-
.View Log: viewer
.-
}
dialog cc {
title "Channel Central"
size -1 -1 189 164
option dbu
text "Topic:", 1, 5 3 18 8
edit "", 2, 4 12 165 10, autohs
text "Bans List:", 3, 2 25 49 8
list 4, 4 34 140 77, size hsbar vsbar
check "Only ops set Topic", 5, 6 118 60 10
check "No external messages", 6, 6 130 62 10
check "Invite only", 7, 6 141 50 10
check "Moderated", 8, 6 152 50 10
check "Key:", 9, 75 120 20 10
check "Limit to:", 10, 75 131 28 10
check "Private", 11, 75 142 29 10
check "Serect", 12, 75 153 28 10
text "users", 13, 126 132 15 8
edit "", 14, 97 120 47 10, autohs
edit "", 15, 104 131 19 10, limit 4
button "OK", 16, 149 124 36 11
button "Cancel", 17, 149 138 36 11 ok, cancel
button "Help", 18, 149 152 36 11
button "Edit", 19, 148 98 37 12, disable
button "Remove", 20, 148 84 37 12, disable
button "Bans", 21, 148 34 37 12
button "Excepts", 22, 148 49 37 12
button "Invites", 23, 148 64 37 12
}
on *:dialog:cc:init:0:{
set %chanel $iif($active == Status Window,$chan(1),$active)
dialog -t cc mIRC Channel Central %chanel
did -ra cc 2 $chan(%chanel).topic | set %topci $chan(%chanel).topic
$iif(*t* iswm $chan(%chanel).mode, did -c cc 5)
$iif(*n* iswm $chan(%chanel).mode, did -c cc 6)
$iif(*i* iswm $chan(%chanel).mode, did -c cc 7)
$iif(*m* iswm $chan(%chanel).mode, did -c cc 8)
$iif($chan(%chanel).key != $null,did -ra cc 14 $chan(%chanel).key) | $iif($chan(%chanel).key != $null,did -c cc 9)
$iif($chan(%chanel).limit != $null,did -ra cc 15 $chan(%chanel).limit) | $iif($chan(%chanel).key != $null,did -c cc 10)
$iif(*p* iswm $chan(%chanel).mode, did -c cc 11)
$iif(*s* iswm $chan(%chanel).mode, did -c cc 12)
$iif($chan(%chanel).ibl != $null,ibl %chanel)
}
on *:dialog:cc:close:0:{
.timer 1 .5 unset %chanel
.timer 1 .5 unset %topci
}
on *:dialog:cc:sclick:4:{
did -e cc 19,20
}
on *:dialog:cc:sclick:16:{
$iif($did(2) != %topci,topic %chanel $did(2))
$iif($did(5).state == 1, mode %chanel +t,mode %chanel -t)
$iif($did(6).state == 1, mode %chanel +n,mode %chanel -n)
$iif($did(7).state == 1, mode %chanel +i,mode %chanel -i)
$iif($did(8).state == 1, mode %chanel +m,mode %chanel -m)
$iif($did(9).state == 1, mode %chanel +k $did(14),mode %chanel -k $did(14))
$iif($did(10).state == 1, mode %chanel +l $did(15),mode %chanel -l $did(15))
$iif($did(11).state == 1, mode %chanel +p,mode %chanel -p)
$iif($did(12).state == 1, mode %chanel +s,mode %chanel -s)
dialog -x cc cc
}
on *:dialog:cc:sclick:18:{
help mk:@MSITStore:C:\Program%20Files\mIRC\bots\Mirc.chm::/channel_central.htm
}
on *:dialog:cc:sclick:19:{
set %address $did(4).seltext
dialog -i cc cc
dialog -m cc2 cc2
}
on *:dialog:cc:sclick:20:{
ban -r %chanel $did(4).seltext
did -d cc 4 $did(4).sel
}
on *:dialog:cc:sclick:21:{
did -ra cc 3 Bans List:
$iif($chan(%chanel).ibl != $null,/ibl %chanel)
}
on *:dialog:cc:sclick:22:{
did -ra cc 3 Excepts List:
$iif($chan(%chanel).iel != $null,/iel %chanel)
}
on *:dialog:cc:sclick:23:{
did -ra cc 3 Invites List:
$iif($chan(%chanel).iil != $null,/iil %chanel)
}
on *:dialog:cc:dclick:4:{
set %adress $did(4).seltext
dialog -i cc cc
dialog -m cc2 cc2
}
dialog -l cc2 {
title "Edit Address"
size -1 -1 118 72
option dbu
text "Edit Address:", 1, 5 7 35 8
edit "", 2, 4 16 104 10
check "Remove ban in:", 3, 34 30 50 10
combo 4, 45 41 23 50, disable size vsbar drop
button "OK", 5, 34 59 37 12, ok
text "mins", 6, 70 42 13 8, disable
button "Cancel", 7, 76 59 37 12, cancel
}
on *:dialog:cc2:init:0:{
did -a cc2 2 %adress
did -a cc2 4 1
did -a cc2 4 2
did -a cc2 4 3
did -a cc2 4 4
did -a cc2 4 5
did -a cc2 4 6
did -a cc2 4 7
did -a cc2 4 8
did -a cc2 4 9
did -a cc2 4 10
did -a cc2 4 15
did -a cc2 4 20
did -a cc2 4 25
did -a cc2 4 30
did -a cc2 4 35
did -a cc2 4 40
did -a cc2 4 45
did -a cc2 4 50
did -a cc2 4 55
did -a cc2 4 60
}
on *:dialog:cc2:sclick:3:{
did -e cc2 4
}
on *:dialog:cc2:sclick:5:{
if ($did(3).state == 1) {
if ($did(4) != $null) {
.timer 1 $~($calc($did(4) * 60),2) ban -r $~(%chanel,2) $did(2)
}
}
if ($did(2).edited == $true) {
ban -r %chanel %adress
ban %chanel $did(2)
}
unset %adress
}
alias ibl {
var %x = 1
var %y = $1
did -r cc 4
while (%x <= $ibl(%y,0)) {
did -a cc 4 $ibl(%y,%x)
inc %x
}
}
alias iel {
var %x = 1
var %y = $1
did -r cc 4
while (%x <= $iel(%y,0)) {
did -a cc 4 $iel(%y,%x)
inc %x
}
}
alias iil {
var %x = 1
var %y = $1
did -r cc 4
while (%x <= $iil(%y,0)) {
did -a cc 4 $iil(%y,%x)
inc %x
}
}