alias -l `b.i.f { if ($isfile($+(",$scriptdirsettings.ini,"))) return $readini $+(",$scriptdirsettings.ini,") $1 $2- }
alias -l `t.i.f { writeini $+(",$scriptdirsettings.ini,") $$1- }
alias nlc {
.set %nlc.reg $`b.i.f(nicklist,reg)
.set %nlc.voice $`b.i.f(nicklist,voice)
.set %nlc.help $`b.i.f(nicklist,help)
.set %nlc.op $`b.i.f(nicklist,op)
.set %nlc.me $`b.i.f(nicklist,me)
.set %nlc.notify $`b.i.f(nicklist,notify)
.set %nlc.ignore $`b.i.f(nicklist,ignore)
.set %nlc.mp3 $`b.i.f(nicklist,mp3)
$iif(!$dialog(warna.nl),dialog -dmn warna.nl warna.nl)
}
alias ncl.cl $iif(!$dialog(ncl.cl),dialog -dmn ncl.cl ncl.cl)
alias -l buat.war {
set -u0 %i 1
while (%i <= $chan(0)) {
set -u0 %j 1
while (%j <= $nick($chan(%i),0)) {
if ($nick($chan(%i),%j) isreg $chan(%i)) { cline $`b.i.f(nicklist,reg) $chan(%i) $nick($chan(%i),%j)) }
if ($nick($chan(%i),%j) isvo $chan(%i)) { cline $`b.i.f(nicklist,voice) $chan(%i) $nick($chan(%i),%j)) }
if ($nick($chan(%i),%j) ishelp $chan(%i)) { cline $`b.i.f(nicklist,help) $chan(%i) $nick($chan(%i),%j)) }
if ($nick($chan(%i),%j) isop $chan(%i)) { cline $`b.i.f(nicklist,op) $chan(%i) $nick($chan(%i),%j)) }
if ($nick($chan(%i),%j) == $me) { cline $`b.i.f(nicklist,me) $chan(%i) $nick($chan(%i),%j)) }
if ($nick($chan(%i),%j) isnotify) { cline $`b.i.f(nicklist,notify) $chan(%i) $nick($chan(%i),%j)) }
if ($nick($chan(%i),%j) $+ !*@* isignore) { cline $`b.i.f(nicklist,ignore) $chan(%i) $nick($chan(%i),%j)) }
inc %j
}
inc %i
}
}
alias -l buang.war {
set -u0 %i 1
while (%i <= $chan(0)) {
set -u0 %j 1
while (%j <= $nick($chan(%i),0)) {
if ($nick($chan(%i),%j) ison $chan(%i)) { cline 01 $chan(%i) $nick($chan(%i),%j)) }
inc %j
}
inc %i
}
}
dialog ncl.cl {
title "Pick One"
size -1 -1 166 46
icon $scriptdiricons\nlc.ico
icon 1, 3 3 20 20, " $+ $scriptdiricons\0.jpg $+ "
icon 2, 23 3 20 20, " $+ $scriptdiricons\1.jpg $+ "
icon 3, 43 3 20 20, " $+ $scriptdiricons\2.jpg $+ "
icon 4, 63 3 20 20, " $+ $scriptdiricons\3.jpg $+ "
icon 5, 83 3 20 20, " $+ $scriptdiricons\4.jpg $+ "
icon 6, 103 3 20 20, " $+ $scriptdiricons\5.jpg $+ "
icon 7, 123 3 20 20, " $+ $scriptdiricons\6.jpg $+ "
icon 8, 143 3 20 20, " $+ $scriptdiricons\7.jpg $+ "
icon 9, 3 23 20 20, " $+ $scriptdiricons\8.jpg $+ "
icon 10, 23 23 20 20, " $+ $scriptdiricons\9.jpg $+ "
icon 11, 43 23 20 20, " $+ $scriptdiricons\10.jpg $+ "
icon 12, 63 23 20 20, " $+ $scriptdiricons\11.jpg $+ "
icon 13, 83 23 20 20, " $+ $scriptdiricons\12.jpg $+ "
icon 14, 103 23 20 20, " $+ $scriptdiricons\13.jpg $+ "
icon 15, 123 23 20 20, " $+ $scriptdiricons\14.jpg $+ "
icon 16, 143 23 20 20, " $+ $scriptdiricons\15.jpg $+ "
button "ok", 200, 10 10 10 10, ok hide
}
dialog warna.nl {
title "NickList Color"
size -1 -1 92 130
icon $scriptdiricons\nlc.ico
option dbu
button "Ok",1, 60 115 28 12,ok,default,flat
check "Enable",17, 5 113 30 15
text "Me",2, 5 7 40 12
icon 70, 55 -28 55 75, " $+ $scriptdiricons\ $+ %nlc.me $+ .jpg $+ "
text "Op",5, 5 20 40 12
icon 71, 55 -14 55 75, " $+ $scriptdiricons\ $+ %nlc.op $+ .jpg $+ "
text "Voice",9, 5 33 40 12
icon 72, 55 -1 55 75, " $+ $scriptdiricons\ $+ %nlc.voice $+ .jpg $+ "
text "Regular",11, 5 46 40 12
icon 73, 55 12 55 75, " $+ $scriptdiricons\ $+ %nlc.reg $+ .jpg $+ "
text "Notify" ,13, 5 59 40 12
icon 74, 55 25 55 75, " $+ $scriptdiricons\ $+ %nlc.notify $+ .jpg $+ "
text "Ignore" ,15, 5 72 40 12
icon 75, 55 38 55 75, " $+ $scriptdiricons\ $+ %nlc.ignore $+ .jpg $+ "
text "Helper",7, 5 85 40 12
icon 76, 55 51 55 75, " $+ $scriptdiricons\ $+ %nlc.help $+ .jpg $+ "
text "Ircops" ,18, 5 98 40 12
icon 77, 55 64 55 75, " $+ $scriptdiricons\ $+ %nlc.mp3 $+ .jpg $+ "
}
on *:join:#:{
if ($`b.i.f(nicklist,on) == on) {
if ($nick == $me) { .timer -m 1 1 buat.war }
else {
if ($nick isreg $chan) { cline $`b.i.f(nicklist,reg) $chan $nick }
if ($nick isvo $chan) { cline $`b.i.f(nicklist,voice) $chan $nick }
if ($nick ishelp $chan) { cline $`b.i.f(nicklist,help) $chan $nick }
if ($nick isop $chan) { cline $`b.i.f(nicklist,op) $chan $nick }
if ($nick == $me) { cline $`b.i.f(nicklist,me) $chan $nick }
if ($nick isnotify) { cline $`b.i.f(nicklist,notify) $chan $nick }
if ($nick $+ !*@* isignore) { cline $`b.i.f(nicklist,ignore) $chan $nick }
}
}
}
CTCP *:MP3:*:{ cline $`b.i.f(nicklist,mp3) $chan $nick }
CTCP *:SLOTS:*:{ cline $`b.i.f(nicklist,mp3) $chan $nick }
on *:OP:#:{
if ($`b.i.f(nicklist,on) == on) {
if ($opnick == $me) { cline $`b.i.f(nicklist,me) $chan $opnick | halt }
if ($opnick isnotify) { cline $`b.i.f(nicklist,notify) $chan $opnick | halt }
if ($opnick $+ !*@* isignore) { cline $`b.i.f(nicklist,ignore) $chan $opnick | halt }
cline $`b.i.f(nicklist,op) $chan $opnick
}
}
on *:serverOP:#:{
if ($`b.i.f(nicklist,on) == on) {
if ($opnick == $me) { cline $`b.i.f(nicklist,me) $chan $opnick | halt }
if ($opnick isnotify) { cline $`b.i.f(nicklist,notify) $chan $opnick | halt }
if ($opnick $+ !*@* isignore) { cline $`b.i.f(nicklist,ignore) $chan $opnick | halt }
cline $`b.i.f(nicklist,op) $chan $opnick
}
}
on *:DEOP:#:{
if ($`b.i.f(nicklist,on) == on) {
if ($opnick == $me) { cline $`b.i.f(nicklist,me) $chan $opnick | halt }
if ($opnick ishelp $chan) { cline $`b.i.f(nicklist,voice) $chan $opnick | halt }
if ($opnick isvo $chan) { cline $`b.i.f(nicklist,voice) $chan $opnick | halt }
if ($opnick isnotify) { cline $`b.i.f(nicklist,notify) $chan $opnick | halt }
if ($opnick $+ !*@* isignore) { cline $`b.i.f(nicklist,ignore) $chan $opnick | halt }
cline $`b.i.f(nicklist,reg) $chan $opnick
}
}
on *:HELP:#:{
if ($`b.i.f(nicklist,on) == on) {
if ($hnick == $me) { cline $`b.i.f(nicklist,me) $chan $hnick | halt }
if ($hnick isnotify) { cline $`b.i.f(nicklist,notify) $chan $hnick | halt }
if ($hnick $+ !*@* isignore) { cline $`b.i.f(nicklist,ignore) $chan $hnick | halt }
if ($hnick isop $chan) { cline $`b.i.f(nicklist,op) $chan $hnick | halt }
cline $`b.i.f(nicklist,help) $chan $hnick
}
}
on *:DEHELP:#:{
if ($`b.i.f(nicklist,on) == on) {
if ($hnick == $me) { cline $`b.i.f(nicklist,me) $chan $hnick | halt }
if ($hnick isop $chan) { cline $`b.i.f(nicklist,op) $chan $hnick | halt }
if ($hnick isnotify) { cline $`b.i.f(nicklist,notify) $chan $hnick | halt }
if ($hnick $+ !*@* isignore) { cline $`b.i.f(nicklist,ignore) $chan $hnick | halt }
if ($hnick isvo $chan) { cline $`b.i.f(nicklist,voice) $chan $hnick | halt }
cline $`b.i.f(nicklist,reg) $chan $hnick
}
}
on *:VOICE:#:{
if ($`b.i.f(nicklist,on) == on) {
if ($vnick == $me) { cline $`b.i.f(nicklist,me) $chan $vnick | halt }
if ($vnick isnotify) { cline $`b.i.f(nicklist,notify) $chan $vnick | halt }
if ($vnick $+ !*@* isignore) { cline $`b.i.f(nicklist,ignore) $chan $vnick | halt }
if ($vnick isop $chan) { cline $`b.i.f(nicklist,op) $chan $vnick | halt }
if ($vnick ishelp $chan) { cline $`b.i.f(nicklist,help) $chan $vnick | halt }
cline $`b.i.f(nicklist,voice) $chan $vnick
}
}
on *:DEVOICE:#:{
if ($`b.i.f(nicklist,on) == on) {
if ($vnick == $me) { cline $`b.i.f(nicklist,me) $chan $vnick | halt }
if ($vnick isnotify) { cline $`b.i.f(nicklist,notify) $chan $vnick | halt }
if ($vnick $+ !*@* isignore) { cline $`b.i.f(nicklist,ignore) $chan $vnick | halt }
if ($vnick isop $chan) { cline $`b.i.f(nicklist,op) $chan $vnick | halt }
if ($vnick ishelp $chan) { cline $`b.i.f(nicklist,help) $chan $vnick | halt }
cline $`b.i.f(nicklist,reg) $chan $vnick
}
}
on *:dialog:warna.nl:init:*:{ $iif($`b.i.f(nicklist,on) == on,did -c $dname 17) }
on *:dialog:warna.nl:close:*:{
if ($`b.i.f(nicklist,on) == on) { buat.war }
if ($`b.i.f(nicklist,on) == off) { buang.war }
$iif($dialog(ncl.cl),dialog -x ncl.cl)
unset %nlc.*
}
on *:dialog:warna.nl:sclick:*:{
if ($did == 17) { $iif($`b.i.f(nicklist,on) == on,`t.i.f nicklist on off,`t.i.f nicklist on on) }
if ($did == 70) { .set %nlc.temp me | .set %nlc.temp.id 70 | ncl.cl }
if ($did == 71) { .set %nlc.temp op | .set %nlc.temp.id 71 | ncl.cl }
if ($did == 72) { .set %nlc.temp voice | .set %nlc.temp.id 72 | ncl.cl }
if ($did == 73) { .set %nlc.temp reg | .set %nlc.temp.id 73 | ncl.cl }
if ($did == 74) { .set %nlc.temp notify | .set %nlc.temp.id 74 | ncl.cl }
if ($did == 75) { .set %nlc.temp ignore | .set %nlc.temp.id 75 | ncl.cl }
if ($did == 76) { .set %nlc.temp help | .set %nlc.temp.id 76 | ncl.cl }
if ($did == 77) { .set %nlc.temp mp3 | .set %nlc.temp.id 77 | ncl.cl }
}
menu menubar,channel {
Nicklist Colors
.Setup:/nlc
}
on *:dialog:ncl.cl:sclick:*:{
if ($did == 1) { `t.i.f nicklist %nlc.temp 0 | did -g warna.nl %nlc.temp.id " $+ $scriptdiricons\0.jpg $+ " | dialog -x ncl.cl }
if ($did == 2) { `t.i.f nicklist %nlc.temp 1 | did -g warna.nl %nlc.temp.id " $+ $scriptdiricons\1.jpg $+ " | dialog -x ncl.cl }
if ($did == 3) { `t.i.f nicklist %nlc.temp 2 | did -g warna.nl %nlc.temp.id " $+ $scriptdiricons\2.jpg $+ " | dialog -x ncl.cl }
if ($did == 4) { `t.i.f nicklist %nlc.temp 3 | did -g warna.nl %nlc.temp.id " $+ $scriptdiricons\3.jpg $+ " | dialog -x ncl.cl }
if ($did == 5) { `t.i.f nicklist %nlc.temp 4 | did -g warna.nl %nlc.temp.id " $+ $scriptdiricons\4.jpg $+ " | dialog -x ncl.cl }
if ($did == 6) { `t.i.f nicklist %nlc.temp 5 | did -g warna.nl %nlc.temp.id " $+ $scriptdiricons\5.jpg $+ " | dialog -x ncl.cl }
if ($did == 7) { `t.i.f nicklist %nlc.temp 6 | did -g warna.nl %nlc.temp.id " $+ $scriptdiricons\6.jpg $+ " | dialog -x ncl.cl }
if ($did == 8) { `t.i.f nicklist %nlc.temp 7 | did -g warna.nl %nlc.temp.id " $+ $scriptdiricons\7.jpg $+ " | dialog -x ncl.cl }
if ($did == 9) { `t.i.f nicklist %nlc.temp 8 | did -g warna.nl %nlc.temp.id " $+ $scriptdiricons\8.jpg $+ " | dialog -x ncl.cl }
if ($did == 10) { `t.i.f nicklist %nlc.temp 9 | did -g warna.nl %nlc.temp.id " $+ $scriptdiricons\9.jpg $+ " | dialog -x ncl.cl }
if ($did == 11) { `t.i.f nicklist %nlc.temp 10 | did -g warna.nl %nlc.temp.id " $+ $scriptdiricons\10.jpg $+ " | dialog -x ncl.cl }
if ($did == 12) { `t.i.f nicklist %nlc.temp 11 | did -g warna.nl %nlc.temp.id " $+ $scriptdiricons\11.jpg $+ " | dialog -x ncl.cl }
if ($did == 13) { `t.i.f nicklist %nlc.temp 12 | did -g warna.nl %nlc.temp.id " $+ $scriptdiricons\12.jpg $+ " | dialog -x ncl.cl }
if ($did == 14) { `t.i.f nicklist %nlc.temp 13 | did -g warna.nl %nlc.temp.id " $+ $scriptdiricons\13.jpg $+ " | dialog -x ncl.cl }
if ($did == 15) { `t.i.f nicklist %nlc.temp 14 | did -g warna.nl %nlc.temp.id " $+ $scriptdiricons\14.jpg $+ " | dialog -x ncl.cl }
if ($did == 16) { `t.i.f nicklist %nlc.temp 15 | did -g warna.nl %nlc.temp.id " $+ $scriptdiricons\15.jpg $+ " | dialog -x ncl.cl }
}