Kod: Kodu kopyalamak için üzerine çift tıklayın!
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Digital Color Nick Script v4.0
;
; This script will let you manipulate the screen color and brackets
;
; on a nick in the channel. It will give you more ways to let you
;
; set your own prefferences to what color you would like to see the
;
; nicks in the nick list. What color you want the nick's brackets in
;
; the channel. You can even strip the color out of the channel messages.
;
; Type this in the status window to load the Digital Color Nick Script
;
; v3.5 ---> /load -rs dcn.mrc
;
; This script was scripted by Rockster on the Undernet
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Events
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
on 1:ACTIVE:*: { if ($target ischan) && (%dcn-state == ON) { dcn.chan | haltdef } }
on 1:LOAD: {
if ($version < 6.0) { .unload -rs $script | echo -s 1 »14»15» 12You Need Mirc Version 6.0 or Greater To Use This Script. | halt }
else { dcn.first | dcn.update }
}
on *:CONNECT: {
set %dcn-me $me
if (%dcn-state == ON) {
echo -s 2,15 $+ $+(-=,$chr(123),4NOTICE2,$chr(125),=-->12) You are using 2D12igital 2C12olor 2N12ick v3.5 2S12cript2....
var %dcn-cnt = $cnick(0)
while ( $cnick(%dcn-cnt) > 0 ) {
.cnick -r $cnick(%dcn-cnt)
dec %dcn-cnt
}
}
}
on ^*:DEHELP:#: {
if (%dcn-state == ON) {
if ($cnick($nick).color == %dcn-ic) || ($cnick($nick).color == %dcn-on) || ($cnick($nick).color == %dcn-hn) || ($cnick($nick).color == %dcn-an) || ($cnick($nick).color == %dcn-mn) { haltdef }
else {
if (($hnick == %dcn-me) && (%dcn-mn.chk == 1)) { .cnick $hnick %dcn-mn | haltdef }
if (($hnick ishop #) && (%dcn-hn.chk == 1)) { .cnick -r $hnick | haltdef }
}
}
}
on ^*:DEOP:#: {
if (%dcn-state == ON) {
if ($cnick($nick).color == %dcn-ic) || ($cnick($nick).color == %dcn-on) || ($cnick($nick).color == %dcn-hn) || ($cnick($nick).color == %dcn-an) || ($cnick($nick).color == %dcn-mn) { haltdef }
else {
if (($nick == %dcn-me) && (%dcn-mn.chk == 1)) { .cnick $nick %dcn-mn | haltdef }
if (($nick ishop #) && (%dcn-hn.chk == 1)) { .cnick $hnick %dcn-hn | haltdef }
if (($nick != %dcn-me) && ($nick isvoice #) && (%dcn-vn.chk == 1)) { .cnick $vnick %dcn-vn | haltdef }
if (($nick != %dcn-me) && ($nick !isvoice #) && (%dcn-nv.chk == 1)) { .cnick $nick %dcn-nv | haltdef }
}
}
}
on ^*:DEVOICE:#: {
if (%dcn-state == ON) {
if ($cnick($nick).color == %dcn-ic) || ($cnick($nick).color == %dcn-on) || ($cnick($nick).color == %dcn-hn) || ($cnick($nick).color == %dcn-an) || ($cnick($nick).color == %dcn-mn) { haltdef }
else {
if (($nick == %dcn-me) && (%dcn-mn.chk == 1)) { .cnick $nick %dcn-mn | haltdef }
if (($nick != %dcn-me) && (%dcn-on.chk == 1)) { .cnick $nick %dcn-on | haltdef }
if (($nick ishop #) && (%dcn-hn.chk == 1)) { .cnick $hnick %dcn-hn | haltdef }
if (($nick != %dcn-me) && ($nick isvoice #) && (%dcn-vn.chk == 1)) { .cnick $nick %dcn-vn | haltdef }
if (($nick != %dcn-me) && ($nick !isvoice #) && (%dcn-nv.chk == 1)) { .cnick $nick %dcn-nv }
}
}
}
on ^*:HELP:#: {
if (%dcn-state == ON) {
if ($cnick($nick).color == %dcn-ic) || ($cnick($nick).color == %dcn-on) || ($cnick($nick).color == %dcn-hn) || ($cnick($nick).color == %dcn-an) || ($cnick($nick).color == %dcn-mn) { haltdef }
else {
if (($nick == %dcn-me) && (%dcn-mn.chk == 1)) { .cnick $nick %dcn-mn | haltdef }
if (($nick ishop #) && (%dcn-hn.chk == 1)) { .cnick $hnick %dcn-hn | haltdef }
if (($nick != %dcn-me) && ($nick !ishop #) && ($nick isvoice #) && (%dcn-vn.chk == 1)) { .cnick $vnick %dcn-vn | haltdef }
if (($nick != %dcn-me) && ($nick !ishop #) && ($nick !isvoice #) && (%dcn-nv.chk == 1)) { .cnick $nick %dcn-nv }
}
}
}
on ^*:JOIN:#: {
if (%dcn-state == ON) {
if ($cnick($nick).color == %dcn-ic) || ($cnick($nick).color == %dcn-on) || ($cnick($nick).color == %dcn-hn) || ($cnick($nick).color == %dcn-an) || ($cnick($nick).color == %dcn-mn) { haltdef }
else {
if (($nick == %dcn-me) && (%dcn-mn.chk == 1)) { .who # | haltdef }
if ((o isin $usermode) && (%dcn-ic.chk == 1)) { .cnick $nick %dcn-ic | haltdef }
if (($nick != %dcn-me) && (%dcn-nv.chk == 1)) { .cnick $nick %dcn-nv | haltdef }
}
}
}
on ^*:KICK:#: { if (%dcn-state == ON) { .cnick -r $knick } }
on ^*:NICK: {
if ($nick == $me) { set %dcn-me $newnick }
if (%dcn-state == ON) {
if (($newnick == %dcn-me) && ($newnick isop #) && (%dcn-mn.chk == 1)) { .cnick -r $nick | .cnick $newnick %dcn-mn | haltdef }
if (($newnick != %dcn-me) && ($newnick isop #) && (%dcn-on.chk == 1)) { .cnick -r $nick | .cnick $newnick %dcn-on | haltdef }
if (($newnick != %dcn-me) && ($newnick ishop #) && (%dcn-hn.chk == 1)) { .cnick -r $nick | .cnick $newnick %dcn-hn | haltdef }
if (($newnick != %dcn-me) && ($newnick isvoice #) && (%dcn-vn.chk == 1)) { .cnick -r $nick | .cnick $newnick %dcn-vn | haltdef }
if (($newnick != %dcn-me) && ($newnick !isvoice #) && (%dcn-nv.chk == 1)) { .cnick -r $nick | .cnick $newnick %dcn-nv | haltdef }
}
}
on ^*:OP:#: {
if (%dcnstate == ON) {
if ($cnick($nick).color == %dcn-ic) || ($cnick($nick).color == %dcn-on) || ($cnick($nick).color == %dcn-hn) || ($cnick($nick).color == %dcn-an) || ($cnick($nick).color == %dcn-mn) { haltdef }
else {
if (($nick == %dcn-me) && (%dcn-mn.chk == 1)) { .cnick $opnick %dcn-mn | haltdef }
if (($nick != %dcn-me) && (%dcn-on.chk == 1)) { .cnick $opnick %dcn-on | haltdef }
}
}
}
on ^*:PART:#: { if (%dcn-state == ON) { .cnick -r $nick } }
on ^*:QUIT: { if (%dcn-state == ON) { .cnick -r $nick } }
on 1:INPUT:#: {
if (($Left($1,1) != /) && (%dcn-state == ON) && (%dcn-chr.chk == 1) && (%dcn-brk.chk == 1)) {
if (%dcn-strip == On) {
echo -tlmi2 # $+(,,%dcn-brk,%dcn-l,,,%dcn-nic,$chr(32),$remove($nick(#,$nick).pnick,@,+,%,!,&,~),$chr(32),,,%dcn-brk,%dcn-r,1,) $1-
haltdef
}
else {
echo -tlmi2 # $+(,,%dcn-brk,%dcn-l,,,%dcn-nic,$chr(32),$remove($nick(#,$nick).pnick,@,+,%,!,&,~),$chr(32),,,%dcn-brk,%dcn-r,1,) $1-
haltdef
}
}
}
on 1:INPUT:?: {
if (($Left($1,1) != /) && (%dcn-state == ON) && (%dcn-chr.chk == 1) && (%dcn-brk.chk == 1)) {
if (%dcn-strip == On) {
if ($target ischan) { echo -tlmi2 # $+(,,%dcn-brk,%dcn-l,,,%dcn-nic,$chr(32),$remove($nick(#,$nick).pnick,@,+,%,!,&,~),$chr(32),,,%dcn-brk,%dcn-r,1,) $strip($1-,burc) | haltdef }
else { echo -tlmi2 $nick $+(,,%dcn-brk,%dcn-l,,,%dcn-nic,$nick,,,%dcn-brk,%dcn-r,1,) $strip($1-,burc) | haltdef }
}
else {
if ($target ischan) { echo -tlmi2 # $+(,,%dcn-brk,%dcn-l,,,%dcn-nic,$chr(32),$remove($nick(#,$nick).pnick,@,+,%,!,&,~),$chr(32),,,%dcn-brk,%dcn-r,1,) $1- | haltdef }
else { echo -tlmi2 $nick $+(,,%dcn-brk,%dcn-l,,,%dcn-nic,$chr(32),$nick,$chr(32),,,%dcn-brk,%dcn-r,1,) $1- | haltdef }
}
}
}
on 1:INPUT:=: {
if (($Left($1,1) != /) && (%dcn-state == ON) && (%dcn-chr.chk == 1) && (%dcn-brk.chk == 1)) {
if (%dcn-strip == On) {
if ($target ischan) { echo -tlmi2 # $+(,,%dcn-brk,%dcn-l,,,%dcn-nic,$chr(32),$remove($nick(#,$nick).pnick,@,+,%,!,&,~),$chr(32),,,%dcn-brk,%dcn-r,1,) $strip($1-,burc) | haltdef }
else { echo -tlmi2 $nick $+(,,%dcn-brk,%dcn-l,,,%dcn-nic,$nick,,,%dcn-brk,%dcn-r,1,) $strip($1-,burc) | haltdef }
}
else {
if ($target ischan) { echo -tlmi2 # $+(,,%dcn-brk,%dcn-l,,,%dcn-nic,$chr(32),$remove($nick(#,$nick).pnick,@,+,%,!,&,~),$chr(32),,,%dcn-brk,%dcn-r,1,) $1- | haltdef }
else { echo -tlmi2 $nick $+(,,%dcn-brk,%dcn-l,,,%dcn-nic,$chr(32),$nick,$chr(32),,,%dcn-brk,%dcn-r,1,) $1- | haltdef }
}
}
}
on 1:INPUT:!: {
if (($Left($1,1) != /) && (%dcn-state == ON) && (%dcn-chr.chk == 1) && (%dcn-brk.chk == 1)) {
if (%dcn-strip == On) {
if ($target ischan) { echo -tlmi2 # $+(,,%dcn-brk,%dcn-l,,,%dcn-nic,$chr(32),$remove($nick(#,$nick).pnick,@,+,%,!,&,~),$chr(32),,,%dcn-brk,%dcn-r,1,) $strip($1-,burc) | haltdef }
else { echo -tlmi2 $nick $+(,,%dcn-brk,%dcn-l,,,%dcn-nic,$nick,,,%dcn-brk,%dcn-r,1,) $strip($1-,burc) | haltdef }
}
else {
if ($target ischan) { echo -tlmi2 # $+(,,%dcn-brk,%dcn-l,,,%dcn-nic,$chr(32),$remove($nick(#,$nick).pnick,@,+,%,!,&,~),$chr(32),,,%dcn-brk,%dcn-r,1,) $1- | haltdef }
else { echo -tlmi2 $nick $+(,,%dcn-brk,%dcn-l,,,%dcn-nic,$chr(32),$nick,$chr(32),,,%dcn-brk,%dcn-r,1,) $1- | haltdef }
}
}
}
on ^*:TEXT:*:#: {
if ((%dcn-state == ON) && (%dcn-chr.chk == 1) && (%dcn-brk.chk == 1)) {
if (%dcn-strip == On) {
if ($target ischan) { echo -tlmi2 # $+(,,%dcn-brk,%dcn-l,,,%dcn-nic,$chr(32),$remove($nick(#,$nick).pnick,@,+,%,!,&,~),$chr(32),,,%dcn-brk,%dcn-r,1,) $strip($1-,burc) | haltdef }
else { echo -tlmi2 $nick $+(,,%dcn-brk,%dcn-l,,,%dcn-nic,$nick,,,%dcn-brk,%dcn-r,1,) $strip($1-,burc) | haltdef }
}
else {
if ($target ischan) { echo -tlmi2 # $+(,,%dcn-brk,%dcn-l,,,%dcn-nic,$chr(32),$remove($nick(#,$nick).pnick,@,+,%,!,&,~),$chr(32),,,%dcn-brk,%dcn-r,1,) $1- | haltdef }
else { echo -tlmi2 $nick $+(,,%dcn-brk,%dcn-l,,,%dcn-nic,$chr(32),$nick,$chr(32),,,%dcn-brk,%dcn-r,1,) $1- | haltdef }
}
}
}
on ^*:TEXT:*:?: {
if ((%dcn-state == ON) && (%dcn-chr.chk == 1) && (%dcn-brk.chk == 1)) {
if (%dcn-strip == On) {
if ($target ischan) { echo -tlmi2 # $+(,,%dcn-brk,%dcn-l,,,%dcn-nic,$chr(32),$remove($nick(#,$nick).pnick,@,+,%,!,&,~),$chr(32),,,%dcn-brk,%dcn-r,1,) $strip($1-,burc) | haltdef }
else { echo -tlmi2 $nick $+(,,%dcn-brk,%dcn-l,,,%dcn-nic,$nick,,,%dcn-brk,%dcn-r,1,) $strip($1-,burc) | haltdef }
}
else {
if ($target ischan) { echo -tlmi2 # $+(,,%dcn-brk,%dcn-l,,,%dcn-nic,$chr(32),$remove($nick(#,$nick).pnick,@,+,%,!,&,~),$chr(32),,,%dcn-brk,%dcn-r,1,) $1- | haltdef }
else { echo -tlmi2 $nick $+(,,%dcn-brk,%dcn-l,,,%dcn-nic,$chr(32),$nick,$chr(32),,,%dcn-brk,%dcn-r,1,) $1- | haltdef }
}
}
}
on ^*:VOICE:#: {
if ((%dcn-state == ON) && (%dcn-vn.chk == 1)) {
if ($cnick($nick).color == %dcn-ic) || ($cnick($nick).color == %dcn-on) || ($cnick($nick).color == %dcn-hn) || ($cnick($nick).color == %dcn-an) || ($cnick($nick).color == %dcn-mn) { haltdef }
else {
if (($nick == %dcn-me) && (%dcn-mn.chk == 1)) { .cnick $vnick %dcn-mn | haltdef }
if (($nick != %dcn-me) && (%dcn-vn.chk == 1)) { .cnick $vnick %dcn-vn | haltdef }
}
}
}
on *:UNLOAD: { dcn.reset | unset %dcn-* }
CTCP 1:VERSION:*: { .notice $nick 2,15 $+ $+(-=,$chr(123),4NOTICE2,$chr(125),=-->2) I a12m 2u12sing 2t12he 2D12igital 2C12olor 2N12ick v4.0 2S12cript2.... }
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Raw
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
raw 301:*: { if ((%dcn-state == ON) && (%dcn-an.chk == 1)) { .cnick $2 %dcn-an } }
raw 313:*: { if ((%dcn-state == ON) && (%dcn-nic.chk == 1)) { .cnick $2 %dcn-ic } }
raw 315:*: { haltdef }
raw 352:*: {
if (%dcn-state == ON) {
if ($cnick($6).color == %dcn-ic) || ($cnick($6).color == %dcn-on) || ($cnick($6).color == %dcn-hn) || ($cnick($6).color == %dcn-mn) || ($cnick($6).color == %dcn-an) { halt }
else {
if ((%dcn-me == $6) && (%dcn-mn.chk == 1)) { .cnick $6 %dcn-mn | halt }
if ((%dcn-me != $6) && (* isin $$7) && (%dcn-ic.chk == 1)) { .cnick $6 %dcn-ic | halt }
if ((%dcn-me != $6) && (G isin $$7) && (%dcn-an.chk == 1)) { .cnick $6 %dcn-an | halt }
if ((%dcn-me != $6) && ($6 isop $2) && ($6 !ishop $2) && ($6 !isvoice $2) && (%dcn-on.chk == 1)) { .cnick $6 %dcn-on | haltdef }
if ((%dcn-me != $6) && ($6 !isop $2) && ($6 ishop $2) && ($6 !isvoice $2) && (%dcn-hn.chk == 1)) { .cnick $6 %dcn-hn | haltdef }
if ((%dcn-me != $6) && ($6 !isop $2) && ($6 !ishop $2) && ($6 isvoice $2) && (%dcn-vn.chk == 1)) { .cnick $6 %dcn-vn | haltdef }
if ((%dcn-me != $6) && ($6 !isop $2) && ($6 !ishop $2) && ($6 !isvoice $2) && (%dcn-nv.chk == 1)) { .cnick $6 %dcn-nv | haltdef }
}
}
}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Menues
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Menu channel,menubar,query,status {
Digital Color Nick
.Color nick menu: dialog -mco dcn dcn
.-
.Strip text color %dcn-strip : { if (%dcn-strip == On) { set %dcn-strip OFF } | else { set %dcn-strip ON } }
.-
.Scan # : dcn.chan
.-
.Scan all channels : dcn.update
.-
.Reset nicks: { dcn.reset }
.-
.Reset variables: { dcn.first }
}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Dialogs
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
dialog dcn {
title "Digital Color Nick"
size -1 -1 162 91
option dbu
edit "L-Brkt Nick R-Brkt", 28, 2 1 157 10, autohs center
box "Nick colors ", 1, 1 11 74 65
box "Other colors and brackets", 2, 74 11 87 65
box "", 3, 1 72 160 18
combo 4, 4 19 35 70, drop
check "Ops", 5, 41 20 30 10
combo 6, 4 30 35 70, drop
check "Half-ops", 7, 41 31 30 10
combo 8, 4 41 35 70, drop
check "Voices", 9, 41 42 30 10
combo 10, 4 52 35 70, drop
check "Regulars", 11, 41 53 30 10
combo 12, 4 63 35 70, drop
check "My nick", 13, 41 64 30 10
combo 14, 77 19 35 70, drop
check "Ircops", 15, 114 20 45 10
combo 16, 77 30 35 70, drop
check "Away nicks", 17, 114 31 45 10
combo 18, 77 41 35 70, drop
check "Brackets color", 21, 114 53 45 10
combo 20, 77 53 35 70, drop
check "Nick brackets", 19, 114 42 45 10
combo 22, 77 64 35 70, drop
check "Channel nick", 23, 114 64 45 10
button "On/Off", 25, 4 78 50 10
button "Cancel", 26, 110 78 50 10, cancel
button "Update", 27, 57 78 50 10, default ok
}
on 1:dialog:dcn:init:0: {
if (%dcn-on.chk == 1) did -c dcn 5
if (%dcn-hn.chk == 1) did -c dcn 7
if (%dcn-nv.chk == 1) did -c dcn 9
if (%dcn-vn.chk == 1) did -c dcn 11
if (%dcn-mn.chk == 1) did -c dcn 13
if (%dcn-ic.chk == 1) did -c dcn 15
if (%dcn-an.chk == 1) did -c dcn 17
if (%dcn-chr.chk == 1) did -c dcn 19
if (%dcn-brk.chk == 1) did -c dcn 21
if (%dcn-nic.chk == 1) did -c dcn 23
didtok -a $dname 4 32 White Black Dk.Blue Green Red Maroon Purple Orange Yellow Lt.Green Teal Cyan Blue Pink Dk.Grey Lt.Grey
didtok -a $dname 6 32 White Black Dk.Blue Green Red Maroon Purple Orange Yellow Lt.Green Teal Cyan Blue Pink Dk.Grey Lt.Grey
didtok -a $dname 8 32 White Black Dk.Blue Green Red Maroon Purple Orange Yellow Lt.Green Teal Cyan Blue Pink Dk.Grey Lt.Grey
didtok -a $dname 10 32 White Black Dk.Blue Green Red Maroon Purple Orange Yellow Lt.Green Teal Cyan Blue Pink Dk.Grey Lt.Grey
didtok -a $dname 14 32 White Black Dk.Blue Green Red Maroon Purple Orange Yellow Lt.Green Teal Cyan Blue Pink Dk.Grey Lt.Grey
didtok -a $dname 12 32 White Black Dk.Blue Green Red Maroon Purple Orange Yellow Lt.Green Teal Cyan Blue Pink Dk.Grey Lt.Grey
didtok -a $dname 16 32 White Black Dk.Blue Green Red Maroon Purple Orange Yellow Lt.Green Teal Cyan Blue Pink Dk.Grey Lt.Grey
didtok -a $dname 18 32 $chr(60) $chr(62) $+($chr(60),$chr(62)) $+($chr(40),$chr(41)) $+($chr(91),$chr(93)) /\ $+($chr(123),@,$chr(125)) $+($chr(60),=-) $+(-=,$chr(62)) $+($chr(123),=-) $+(-=,$chr(125)) -==- *¤§ §¤* ©º°¨ °º© ¨°º© °º®§ °º©§ $+(3,$chr(123),4,@,3,$chr(125))
didtok -a $dname 20 32 White Black Dk.Blue Green Red Maroon Purple Orange Yellow Lt.Green Teal Cyan Blue Pink Dk.Grey Lt.Grey
didtok -a $dname 22 32 White Black Dk.Blue Green Red Maroon Purple Orange Yellow Lt.Green Teal Cyan Blue Pink Dk.Grey Lt.Grey
did -ck $dname 4 $didwm(4,%dcn-on.clr)
did -ck $dname 6 $didwm(6,%dcn-hn.clr)
did -ck $dname 8 $didwm(8,%dcn-vn.clr)
did -ck $dname 10 $didwm(10,%dcn-nv.clr)
did -ck $dname 12 $didwm(12,%dcn-mn.clr)
did -ck $dname 14 $didwm(14,%dcn-ic.clr)
did -ck $dname 16 $didwm(16,%dcn-an.clr)
did -ck $dname 18 $didwm(18,%dcn-l)
did -ck $dname 20 $didwm(20,%dcn-brk.clr)
did -ck $dname 22 $didwm(22,%dcn-nic.clr)
did -ra $dname 25 %dcn-state
did -ra $dname 28 %dcn-l %dcn-me %dcn-r
}
on *:dialog:dcn:*:*: {
if ($devent == sclick) {
if ($did == 4) { if ($did(4).seltext) { set %dcn-on.clr $did(4).seltext | dcn.on4 } }
if ($did == 6) { if ($did(6).seltext) { set %dcn-hn.clr $did(6).seltext | dcn.hn6 } }
if ($did == 8) { if ($did(8).seltext) { set %dcn-vn.clr $did(8).seltext | dcn.vn8 } }
if ($did == 10) { if ($did(10).seltext) { set %dcn-nv.clr $did(10).seltext | dcn.nv10 } }
if ($did == 12) { if ($did(12).seltext) { set %dcn-mn.clr $did(12).seltext | dcn.mn12 } }
if ($did == 14) { if ($did(14).seltext) { set %dcn-ic.clr $did(14).seltext | dcn.ic14 } }
if ($did == 16) { if ($did(16).seltext) { set %dcn-an.clr $did(16).seltext | dcn.an16 } }
if ($did == 18) { if ($did(18).seltext) { set %dcn-l $did(18).seltext | dcn.chr18 } }
if ($did == 20) { if ($did(20).seltext) { set %dcn-brk.clr $did(20).seltext | dcn.brk20 } }
if ($did == 22) { if ($did(22).seltext) { set %dcn-nic.clr $did(22).seltext | dcn.nic22 } }
if ($did == 25) { if (%dcn-state == OFF) { set %dcn-state ON | did -ra $dname 25 %dcn-state | dcn.update } | else { set %dcn-state OFF | dcn.reset | did -ra $dname 25 %dcn-state } }
if ($did == 27) { set %dcn-on.chk $did(5).state | set %dcn-hn.chk $did(7).state | set %dcn-vn.chk $did(9).state | set %dcn-nv.chk $did(11).state | set %dcn-mn.chk $did(13).state | set %dcn-ic.chk $did(15).state | set %dcn-an.chk $did(17).state | set %dcn-chr.chk $did(19).state | set %dcn-brk.chk $did(21).state | set %dcn-nic.chk $did(23).state | .timerdcn 1 1 dcn.update }
}
if ($devent == edit) {
if ($did == 28) { %dcn- = $did($dname,28).text }
var %i = 1
while (%i <= $numtok(%dcn-,32)) {
if (%i >= 4) { did -ra $dname 28 %dcn-l %dcn-me %dcn-r }
set %dcn-l $gettok(%dcn-,1,32)
set %dcn-r $gettok(%dcn-,3,32)
inc %i
}
}
}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Aliases
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
alias -l dcn.on4 {
if (%dcn-on.clr == White) { set %dcn-on 00 | halt }
if (%dcn-on.clr == Black) { set %dcn-on 01 | halt }
if (%dcn-on.clr == Dk.Blue) { set %dcn-on 02 | halt }
if (%dcn-on.clr == Green) { set %dcn-on 03 | halt }
if (%dcn-on.clr == Red) { set %dcn-on 04 | halt }
if (%dcn-on.clr == Maroon) { set %dcn-on 05 | halt }
if (%dcn-on.clr == Purple) { set %dcn-on 06 | halt }
if (%dcn-on.clr == Orange) { set %dcn-on 07 | halt }
if (%dcn-on.clr == Yellow) { set %dcn-on 08 | halt }
if (%dcn-on.clr == Lt.Green) { set %dcn-on 09 | halt }
if (%dcn-on.clr == Teal) { set %dcn-on 10 | halt }
if (%dcn-on.clr == Cyan) { set %dcn-on 11 | halt }
if (%dcn-on.clr == Blue) { set %dcn-on 12 | halt }
if (%dcn-on.clr == Pink) { set %dcn-on 13 | halt }
if (%dcn-on.clr == Dk.Grey) { set %dcn-on 14 | halt }
if (%dcn-on.clr == Lt.Grey) { set %dcn-on 15 | halt }
}
alias -l dcn.hn6 {
if (%dcn-hn.clr == White) { set %dcn-hn 00 | halt }
if (%dcn-hn.clr == Black) { set %dcn-hn 01 | halt }
if (%dcn-hn.clr == Dk.Blue) { set %dcn-hn 02 | halt }
if (%dcn-hn.clr == Green) { set %dcn-hn 03 | halt }
if (%dcn-hn.clr == Red) { set %dcn-hn 04 | halt }
if (%dcn-hn.clr == Maroon) { set %dcn-hn 05 | halt }
if (%dcn-hn.clr == Purple) { set %dcn-hn 06 | halt }
if (%dcn-hn.clr == Orange) { set %dcn-hn 07 | halt }
if (%dcn-hn.clr == Yellow) { set %dcn-hn 08 | halt }
if (%dcn-hn.clr == Lt.Green) { set %dcn-hn 09 | halt }
if (%dcn-hn.clr == Teal) { set %dcn-hn 10 | halt }
if (%dcn-hn.clr == Cyan) { set %dcn-hn 11 | halt }
if (%dcn-hn.clr == Blue) { set %dcn-hn 12 | halt }
if (%dcn-hn.clr == Pink) { set %dcn-hn 13 | halt }
if (%dcn-hn.clr == Dk.Grey) { set %dcn-hn 14 | halt }
if (%dcn-hn.clr == Lt.Grey) { set %dcn-hn 15 | halt }
}
alias -l dcn.vn8 {
if (%dcn-vn.clr == White) { set %dcn-vn 00 | halt }
if (%dcn-vn.clr == Black) { set %dcn-vn 01 | halt }
if (%dcn-vn.clr == Dk.Blue) { set %dcn-vn 02 | halt }
if (%dcn-vn.clr == Green) { set %dcn-vn 03 | halt }
if (%dcn-vn.clr == Red) { set %dcn-vn 04 | halt }
if (%dcn-vn.clr == Maroon) { set %dcn-vn 05 | halt }
if (%dcn-vn.clr == Purple) { set %dcn-vn 06 | halt }
if (%dcn-vn.clr == Orange) { set %dcn-vn 07 | halt }
if (%dcn-vn.clr == Yellow) { set %dcn-vn 08 | halt }
if (%dcn-vn.clr == Lt.Green) { set %dcn-vn 09 | halt }
if (%dcn-vn.clr == Teal) { set %dcn-vn 10 | halt }
if (%dcn-vn.clr == Cyan) { set %dcn-vn 11 | halt }
if (%dcn-vn.clr == Blue) { set %dcn-vn 12 | halt }
if (%dcn-vn.clr == Pink) { set %dcn-vn 13 | halt }
if (%dcn-vn.clr == Dk.Grey) { set %dcn-vn 14 | halt }
if (%dcn-vn.clr == Lt.Grey) { set %dcn-vn 15 | halt }
}
alias -l dcn.nv10 {
if (%dcn-nv.clr == White) { set %dcn-nv 00 | halt }
if (%dcn-nv.clr == Black) { set %dcn-nv 01 | halt }
if (%dcn-nv.clr == Dk.Blue) { set %dcn-nv 02 | halt }
if (%dcn-nv.clr == Green) { set %dcn-nv 03 | halt }
if (%dcn-nv.clr == Red) { set %dcn-nv 04 | halt }
if (%dcn-nv.clr == Maroon) { set %dcn-nv 05 | halt }
if (%dcn-nv.clr == Purple) { set %dcn-nv 06 | halt }
if (%dcn-nv.clr == Orange) { set %dcn-nv 07 | halt }
if (%dcn-nv.clr == Yellow) { set %dcn-nv 08 | halt }
if (%dcn-nv.clr == Lt.Green) { set %dcn-nv 09 | halt }
if (%dcn-nv.clr == Teal) { set %dcn-nv 10 | halt }
if (%dcn-nv.clr == Cyan) { set %dcn-nv 11 | halt }
if (%dcn-nv.clr == Blue) { set %dcn-nv 12 | halt }
if (%dcn-nv.clr == Pink) { set %dcn-nv 13 | halt }
if (%dcn-nv.clr == Dk.Grey) { set %dcn-nv 14 | halt }
if (%dcn-nv.clr == Lt.Grey) { set %dcn-nv 15 | halt }
}
alias -l dcn.mn12 {
if (%dcn-mn.clr == White) { set %dcn-mn 00 | halt }
if (%dcn-mn.clr == Black) { set %dcn-mn 01 | halt }
if (%dcn-mn.clr == Dk.Blue) { set %dcn-mn 02 | halt }
if (%dcn-mn.clr == Green) { set %dcn-mn 03 | halt }
if (%dcn-mn.clr == Red) { set %dcn-mn 04 | halt }
if (%dcn-mn.clr == Maroon) { set %dcn-mn 05 | halt }
if (%dcn-mn.clr == Purple) { set %dcn-mn 06 | halt }
if (%dcn-mn.clr == Orange) { set %dcn-mn 07 | halt }
if (%dcn-mn.clr == Yellow) { set %dcn-mn 08 | halt }
if (%dcn-mn.clr == Lt.Green) { set %dcn-mn 09 | halt }
if (%dcn-mn.clr == Teal) { set %dcn-mn 10 | halt }
if (%dcn-mn.clr == Cyan) { set %dcn-mn 11 | halt }
if (%dcn-mn.clr == Blue) { set %dcn-mn 12 | halt }
if (%dcn-mn.clr == Pink) { set %dcn-mn 13 | halt }
if (%dcn-mn.clr == Dk.Grey) { set %dcn-mn 14 | halt }
if (%dcn-mn.clr == Lt.Grey) { set %dcn-mn 15 | halt }
}
alias -l dcn.ic14 {
if (%dcn-ic.clr == White) { set %dcn-ic 00 | halt }
if (%dcn-ic.clr == Black) { set %dcn-ic 01 | halt }
if (%dcn-ic.clr == Dk.Blue) { set %dcn-ic 02 | halt }
if (%dcn-ic.clr == Green) { set %dcn-ic 03 | halt }
if (%dcn-ic.clr == Red) { set %dcn-ic 04 | halt }
if (%dcn-ic.clr == Maroon) { set %dcn-ic 05 | halt }
if (%dcn-ic.clr == Purple) { set %dcn-ic 06 | halt }
if (%dcn-ic.clr == Orange) { set %dcn-ic 07 | halt }
if (%dcn-ic.clr == Yellow) { set %dcn-ic 08 | halt }
if (%dcn-ic.clr == Lt.Green) { set %dcn-ic 09 | halt }
if (%dcn-ic.clr == Teal) { set %dcn-ic 10 | halt }
if (%dcn-ic.clr == Cyan) { set %dcn-ic 11 | halt }
if (%dcn-ic.clr == Blue) { set %dcn-ic 12 | halt }
if (%dcn-ic.clr == Pink) { set %dcn-ic 13 | halt }
if (%dcn-ic.clr == Dk.Grey) { set %dcn-ic 14 | halt }
if (%dcn-ic.clr == Lt.Grey) { set %dcn-ic 15 | halt }
}
alias -l dcn.an16 {
if (%dcn-an.clr == White) { set %dcn-an 00 | halt }
if (%dcn-an.clr == Black) { set %dcn-an 01 | halt }
if (%dcn-an.clr == Dk.Blue) { set %dcn-an 02 | halt }
if (%dcn-an.clr == Green) { set %dcn-an 03 | halt }
if (%dcn-an.clr == Red) { set %dcn-an 04 | halt }
if (%dcn-an.clr == Maroon) { set %dcn-an 05 | halt }
if (%dcn-an.clr == Purple) { set %dcn-an 06 | halt }
if (%dcn-an.clr == Orange) { set %dcn-an 07 | halt }
if (%dcn-an.clr == Yellow) { set %dcn-an 08 | halt }
if (%dcn-an.clr == Lt.Green) { set %dcn-an 09 | halt }
if (%dcn-an.clr == Teal) { set %dcn-an 10 | halt }
if (%dcn-an.clr == Cyan) { set %dcn-an 11 | halt }
if (%dcn-an.clr == Blue) { set %dcn-an 12 | halt }
if (%dcn-an.clr == Pink) { set %dcn-an 13 | halt }
if (%dcn-an.clr == Dk.Grey) { set %dcn-an 14 | halt }
if (%dcn-an.clr == Lt.Grey) { set %dcn-an 15 | halt }
}
alias -l dcn.chr18 {
if (%dcn-l == $chr(62)) { set %dcn-r $chr(60) | goto end }
elseif (%dcn-l == $chr(60)) { set %dcn-r $chr(62) | goto end }
elseif (%dcn-l == $+($chr(60),$chr(62))) { set %dcn-r $+($chr(60),$chr(62)) | goto end }
elseif (%dcn-l == $+($chr(40),$chr(41))) { set %dcn-r $+($chr(40),$chr(41)) | goto end }
elseif (%dcn-l == $+($chr(91),$chr(93))) { set %dcn-r $+($chr(91),$chr(93)) | goto end }
elseif (%dcn-l == /\) { set %dcn-r /\ | goto end }
elseif (%dcn-l == $+($chr(123),@,$chr(125))) { set %dcn-r $+($chr(123),@,$chr(125)) | goto end }
elseif (%dcn-l == $+($chr(60),=-)) { set %dcn-r $+(-=,$chr(62)) | goto end }
elseif (%dcn-l == $+(-=,$chr(62))) { set %dcn-r $+($chr(60),=-) | goto end }
elseif (%dcn-l == -==-) { set %dcn-r -==- | goto end }
elseif (%dcn-l == $+($chr(123),=-)) { set %dcn-r $+(-=,$chr(125)) | goto end }
elseif (%dcn-l == $+(-=,$chr(125))) { set %dcn-r $+($chr(123),=-) | goto end }
elseif (%dcn-l == *¤§) { set %dcn-r §¤* | goto end }
elseif (%dcn-l == §¤*) { set %dcn-r *¤§ | goto end }
elseif (%dcn-l == ©º°¨) { set %dcn-r ¨°º© | goto end }
elseif (%dcn-l == ¨°º©) { set %dcn-r ©º°¨ | goto end }
elseif (%dcn-l == °º©) { set %dcn-r ©º° | goto end }
elseif (%dcn-l == °º®§) { set %dcn-r §®º° | goto end }
elseif (%dcn-l == °º©§) { set %dcn-r §©º° | goto end }
elseif (%dcn-l == $+(3,$chr(123),4,@,3,$chr(125))) { set %dcn-r $+(3,$chr(123),4,@,3,$chr(125)) | goto end }
:end {
did -ra $dname 28 %dcn-l %dcn-me %dcn-r
}
}
alias -l dcn.brk20 {
if (%dcn-brk.clr == White) { set %dcn-brk 00 | halt }
if (%dcn-brk.clr == Black) { set %dcn-brk 01 | halt }
if (%dcn-brk.clr == Dk.Blue) { set %dcn-brk 02 | halt }
if (%dcn-brk.clr == Green) { set %dcn-brk 03 | halt }
if (%dcn-brk.clr == Red) { set %dcn-brk 04 | halt }
if (%dcn-brk.clr == Maroon) { set %dcn-brk 05 | halt }
if (%dcn-brk.clr == Purple) { set %dcn-brk 06 | halt }
if (%dcn-brk.clr == Orange) { set %dcn-brk 07 | halt }
if (%dcn-brk.clr == Yellow) { set %dcn-brk 08 | halt }
if (%dcn-brk.clr == Lt.Green) { set %dcn-brk 09 | halt }
if (%dcn-brk.clr == Teal) { set %dcn-brk 10 | halt }
if (%dcn-brk.clr == Cyan) { set %dcn-brk 11 | halt }
if (%dcn-brk.clr == Blue) { set %dcn-brk 12 | halt }
if (%dcn-brk.clr == Pink) { set %dcn-brk 13 | halt }
if (%dcn-brk.clr == Dk.Grey) { set %dcn-brk 14 | halt }
if (%dcn-brk.clr == Lt.Grey) { set %dcn-brk 15 | halt }
}
alias -l dcn.nic22 {
if (%dcn-nic.clr == White) { set %dcn-nic 00 | halt }
if (%dcn-nic.clr == Black) { set %dcn-nic 01 | halt }
if (%dcn-nic.clr == Dk.Blue) { set %dcn-nic 02 | halt }
if (%dcn-nic.clr == Green) { set %dcn-nic 03 | halt }
if (%dcn-nic.clr == Red) { set %dcn-nic 04 | halt }
if (%dcn-nic.clr == Maroon) { set %dcn-nic 05 | halt }
if (%dcn-nic.clr == Purple) { set %dcn-nic 06 | halt }
if (%dcn-nic.clr == Orange) { set %dcn-nic 07 | halt }
if (%dcn-nic.clr == Yellow) { set %dcn-nic 08 | halt }
if (%dcn-nic.clr == Lt.Green) { set %dcn-nic 09 | halt }
if (%dcn-nic.clr == Teal) { set %dcn-nic 10 | halt }
if (%dcn-nic.clr == Cyan) { set %dcn-nic 11 | halt }
if (%dcn-nic.clr == Blue) { set %dcn-nic 12 | halt }
if (%dcn-nic.clr == Pink) { set %dcn-nic 13 | halt }
if (%dcn-nic.clr == Dk.Grey) { set %dcn-nic 14 | halt }
if (%dcn-nic.clr == Lt.Grey) { set %dcn-nic 15 | halt }
}
alias -l dcn.update {
if (%dcn-state != ON) { set %dcn-state ON }
var %i = 1, %c, %n, %dcn-nick
while ($scon(%i)) {
scon %i
%c = 1
while ($chan(%c)) {
%n = 1
while ($nick($chan(%c),%n)) {
%dcn-nick = $nick($chan(%c),%n)
if ($cnick(%dcn-nick).color == %dcn-ic) || ($cnick(%dcn-nick).color == %dcn-on) || ($cnick(%dcn-nick).color == %dcn-hn) || ($cnick(%dcn-nick).color == %dcn-an) || ($cnick(%dcn-nick).color == %dcn-mn) { haltdef }
else {
if (( %dcn-mn.chk == 1 ) && ( %dcn-nick == $me)) { .cnick %dcn-nick %dcn-mn | inc %n | haltdef }
if (( %dcn-on.chk == 1 ) && (%dcn-nick != $me) && ( %dcn-nick isop $chan(%c) )) { .cnick %dcn-nick %dcn-on | haltdef }
if (( %dcn-hn.chk == 1 ) && (%dcn-nick != $me) && ( %dcn-nick !isop $chan(%c) ) && (%dcn-nick ishop $chan(%c) ) && ( %dcn-nick !isvoice $chan(%c) )) { .cnick %dcn-nick %dcn-hn | haltdef }
if (( %dcn-vn.chk == 1 ) && (%dcn-nick != $me) && ( %dcn-nick !isop $chan(%c) ) && (%dcn-nick !ishop $chan(%c) ) && ( %dcn-nick isvoice $chan(%c) )) { .cnick %dcn-nick %dcn-vn | haltdef }
if (( %dcn-nv.chk == 1 ) && (%dcn-nick != $me) && ( %dcn-nick !isop $chan(%c) ) && (%dcn-nick !ishop $chan(%c) ) && ( %dcn-nick !isvoice $chan(%c) )) { .cnick %dcn-nick %dcn-nv | haltdef }
}
inc %n
}
inc %c
}
inc %i
}
scon -r
}
alias -l dcn.chan {
if (%dcn-state != ON) { set %dcn-state ON }
var %n = 1, %dcn-nick
while ($nick($chan,%n)) {
%dcn-nick = $nick($chan,%n)
if ($cnick(%dcn-nick).color == %dcn-ic) || ($cnick(%dcn-nick).color == %dcn-on) || ($cnick(%dcn-nick).color == %dcn-hn) || ($cnick(%dcn-nick).color == %dcn-an) || ($cnick(%dcn-nick).color == %dcn-mn) { haltdef }
else {
if ((%dcn-mn.chk == 1) && (%dcn-nick == $me)) { .cnick %dcn-nick %dcn-mn | haltdef }
if ((%dcn-on.chk == 1) && (%dcn-nick != $me) && (%dcn-nick isop $chan) && (%dcn-nick !ishop $chan)) { .cnick %dcn-nick %dcn-on | haltdef }
if ((%dcn-hn.chk == 1) && (%dcn-nick != $me) && (%dcn-nick !isop $chan) && (%dcn-nick ishop $chan)) { .cnick %dcn-nick %dcn-hn | haltdef }
if ((%dcn-vn.chk == 1) && (%dcn-nick != $me) && (%dcn-nick !isop $chan) && (%dcn-nick !ishop $chan) && (%dcn-nick isvoice $chan)) { .cnick %dcn-nick %dcn-vn | haltdef }
if ((%dcn-nv.chk == 1) && (%dcn-nick != $me) && (%dcn-nick !isop $chan) && (%dcn-nick !ishop $chan) && (%dcn-nick !isvoice $chan)) { .cnick %dcn-nick %dcn-nv | haltdef }
}
inc %n 1
}
}
alias -l dcn.reset {
var %dcn-cnt = $cnick(0)
while ( $cnick(%dcn-cnt) > 0 ) {
.cnick -r $cnick(%dcn-cnt)
dec %dcn-cnt
}
}
alias msg {
if ((%dcn-state == ON) && (%dcn-chr.chk == 1) && (%dcn-brk.chk == 1)) {
if ($1 == $comchan($me,1)) { .raw $+(:,$address($me,5)) PRIVMSG $1 $+(:,$2-) }
if (%dcn-strip == On) {
if ($target ischan) { echo -tlmi2 $1 $+(,,%dcn-brk,%dcn-l,,,%dcn-nic,$chr(32),$remove($nick($1,$me).pnick,@,+,%,!,&,~),$chr(32),,,%dcn-brk,%dcn-r,1,) $strip($2-,burc) | haltdef }
else { echo -tlmi2 $nick $+(,,%dcn-brk,%dcn-l,,,%dcn-nic,$1,,,%dcn-brk,%dcn-r,1,) $strip($2-,burc) | haltdef }
}
else {
if ($target ischan) { echo -tlmi2 $1 $+(,,%dcn-brk,%dcn-l,,,%dcn-nic,$chr(32),$remove($nick($1,$me).pnick,@,+,%,!,&,~),$chr(32),,,%dcn-brk,%dcn-r,1,) $2- | haltdef }
else { echo -atlmi2 $nick $+(,,%dcn-brk,%dcn-l,,,%dcn-nic,$chr(32),$me,$chr(32),,,%dcn-brk,%dcn-r,1,) $2- | haltdef }
}
}
}
alias -l dcn.first {
set %dcn-on.chk 1 | set %dcn-on.clr Blue | set %dcn-on 12
set %dcn-hn.chk 1 | set %dcn-hn.clr Dk.Blue | set %dcn-hn 02
set %dcn-vn.chk 1 | set %dcn-vn.clr Green | set %dcn-vn 03
set %dcn-nv.chk 1 | set %dcn-nv.clr Maroon | set %dcn-nv 05
set %dcn-ic.chk 1 | set %dcn-ic.clr Purple | set %dcn-ic 06
set %dcn-an.chk 1 | set %dcn-an.clr Yellow | set %dcn-an 08
set %dcn-mn.chk 1 | set %dcn-mn.clr Orange | set %dcn-mn 07
set %dcn-brk.chk 1 | set %dcn-brk.clr Red | set %dcn-brk 04
set %dcn-nic.chk 1 | set %dcn-nic.clr Blue | set %dcn-nic 12
set %dcn-chr.chk 1 | set %dcn-strip OFF | set %dcn-state ON
set %dcn-l 3{4@3} | set %dcn-r 3{4@3} | set %dcn-me $me
dcn.update
}
Alıntıdır.