IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  sohbet

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 04 Ağustos 2009, 12:04   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
nicklist color yardım




merhaba arkadaşlar elimdedeki addon işimi görecek şekilde yanlız benim bir eklemeye daha ihtiyacım var bu codeye oper ve helper koymak mümkünmüdür?
bo addonda op,halfop,voice,user,kendi nickin, vsvs renk atayabiliyorsun.
ayriyetden 2 tane daha olursa güzel olucak teşekkürler. kolay gelsin..
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:load:{ beep echo -a 4NickList Color } menu menubar,channel,query { NickList Color .NickList Color Settings:nicklistcl } alias nicklistcl { if ($dialog(background) == $null) { dialog -m background background } } alias _vr { if ($exists(data\setting.ini) == $false) { mkdir data | write -c data\setting.ini } return $readini data\setting.ini $$1 $$2 } alias _vw { if ($exists(data\setting.ini) == $false) { mkdir data | write -c data\setting.ini } writeini data\setting.ini $$1 $$2 $$3- } alias _vrem { if ($exists(data\setting.ini) == $false) { mkdir data | write -c data\setting.ini } remini data\setting.ini $$1 $$2 } dialog background { title "NickList Colors" size -1 -1 86 132 option dbu icon 100, 10 87 172 82 button "Apply", 50, 15 116 25 10 button "Close", 51, 45 116 25 10, default ok box "NickList Color", 14, 2 1 83 90 check "Enable Color Nicklist", 2, 5 9 62 10 check "Ops", 3, 5 24 22 10 check "Voice", 4, 5 35 27 10 check "Half-ops", 30, 5 46 29 10 check "Regular", 5, 5 56 27 10 check "Own Nick", 6, 5 66 33 10 text "Background", 33, 6 77 32 9 combo 7, 45 25 37 50, drop combo 8, 45 35 37 50, drop combo 12, 45 45 37 50, drop combo 9, 45 55 37 50, drop combo 10, 45 65 37 50, drop combo 11, 45 75 37 50, drop text "Author: ", 300, 18 92 52 7 link "", 27, 12 104 75 8 } on *:DIALOG:background:sclick:598:.run on *:dialog:background:sclick:*:{ if ($did == 2) { var %xt = 3 :loop did - $+ $iif($did(2).state,e,b) background %xt if (%xt < 6) { inc %xt | goto loop } _vw nicklist switch 0 } if ($did == 7) { _vw nicklist ops $calc($did(background,7).sel - 1) } if ($did == 8) { _vw nicklist voice $calc($did(background,8).sel - 1) } if ($did == 12) { _vw nicklist hops $calc($did(background,12).sel - 1) } if ($did == 9) { _vw nicklist reg $calc($did(background,9).sel - 1) } if ($did == 10) { _vw nicklist me $calc($did(background,10).sel - 1) } if ($did == 30) { if ($_vr(nicklist,s.hops) == 1) { _vw nicklist s.hops 0 } else { _vw nicklist s.hops 1 } } if ($did == 3) { if ($_vr(nicklist,s.ops) == 1) { _vw nicklist s.ops 0 } else { _vw nicklist s.ops 1 } } if ($did == 4) { if ($_vr(nicklist,s.voice) == 1) { _vw nicklist s.voice 0 } else { _vw nicklist s.voice 1 } } if ($did == 5) { if ($_vr(nicklist,s.reg) == 1) { _vw nicklist s.reg 0 } else { _vw nicklist s.reg 1 } } if ($did == 6) { if ($_vr(nicklist,s.me) == 1) { _vw nicklist s.me 0 } else { _vw nicklist s.me 1 } } if ($did == 27) { run | beep } if ($did == 50) { cl.apply } } on *:dialog:background:init:*:{ .timer -m 1 1 nl.back _vrem background window | _vrem background type | _vrem background default did - $+ $iif($_vr(nicklist,switch),c,u) background 2 nfcolor 7 | nfcolor 8 | nfcolor 9 | nfcolor 10 | nfcolor 11 | nfcolor 12 did -c background 7 $calc($_vr(nicklist,ops) + 1) did -c background 8 $calc($_vr(nicklist,voice) + 1) did -c background 12 $calc($_vr(nicklist,hops) + 1) did -c background 9 $calc($_vr(nicklist,reg) + 1) did -c background 10 $calc($_vr(nicklist,me) + 1) if ($_vr(nicklist,s.hops) == 1) { did -c background 30 } if ($_vr(nicklist,s.ops) == 1) { did -c background 3 } if ($_vr(nicklist,s.voice) == 1) { did -c background 4 } if ($_vr(nicklist,s.reg) == 1) { did -c background 5 } if ($_vr(nicklist,s.me) == 1) { did -c background 6 } } alias -l nl.back { if ($_vr(background,nicklist) == $null) { _vw background nicklist black } if ($colour(listbox) == $null) { _vw background nicklist black | did -c background 11 2 } elseif ($colour(listbox) == 0) { did -c background 11 1 } elseif ($colour(listbox) == 1) { did -c background 11 2 } elseif ($colour(listbox) == 2) { did -c background 11 3 } elseif ($colour(listbox) == 3) { did -c background 11 4 } elseif ($colour(listbox) == 4) { did -c background 11 5 } elseif ($colour(listbox) == 5) { did -c background 11 6 } elseif ($colour(listbox) == 6) { did -c background 11 7 } elseif ($colour(listbox) == 7) { did -c background 11 8 } elseif ($colour(listbox) == 8) { did -c background 11 9 } elseif ($colour(listbox) == 9) { did -c background 11 10 } elseif ($colour(listbox) == 10) { did -c background 11 11 } elseif ($colour(listbox) == 11) { did -c background 11 12 } elseif ($colour(listbox) == 12) { did -c background 11 13 } elseif ($colour(listbox) == 13) { did -c background 11 14 } elseif ($colour(listbox) == 14) { did -c background 11 15 } elseif ($colour(listbox) == 15) { did -c background 11 16 } } alias -l chan.l { var %channum = 0 :findchan inc %channum 1 var %chan = $chan(%channum) if (%chan == $null) { goto end } if ($dialog(background) != $null) { did -i background 43 1 %chan } goto findchan :end } alias cl.apply { _vw nicklist switch $did(background,2).state var %xt = 3 :start if (%xt < 6) { inc %xt | goto start } var %xt = 7 :loop if (%xt < 10) { inc %xt | goto loop } if ($_vr(nicklist,switch) == 0) { colour listbox 0 } else colour listbox $calc($did(background,11).sel - 1) clchans } on *:join:#:{ if ($_vr(nicklist,switch) == $null) { _vw nicklist switch 1 } if ($_vr(nicklist,s.ops) == $null) { _vw nicklist s.ops 1 } if ($_vr(nicklist,s.reg) == $null) { _vw nicklist s.reg 1 } if ($_vr(nicklist,s.voice) == $null) { _vw nicklist s.voice 1 } if ($_vr(nicklist,s.me) == $null) { _vw nicklist s.me 1 } if ($_vr(nicklist,ops) == $null) { _vw nicklist ops 12 } if ($_vr(nicklist,voice) == $null) { _vw nicklist voice 8 } if ($_vr(nicklist,s.hops) == $null) { _vw nicklist s.hops 1 } if ($_vr(nicklist,reg) == $null) { _vw nicklist reg 3 } if ($_vr(nicklist,hops) == $null) { _vw nicklist hops 10 } if ($_vr(nicklist,me) == $null) { _vw nicklist me 4 } cl.nick $chan $nick if ($nick == $me) && ($_vr(background,channel) == on) { if ($exists($_vr(background,channelback)) == $true) { .background - $+ $_vr(background,channeltype) $chan $_vr(background,channelback)" } elseif ($exists($_vr(background,channelback)) == $false) _vrem background channelback } } on *:part:#:{ if ($nick == $me) { background -x $chan } } on *:help:#:cl.nick $chan $hnick on *:dehelp:#:cl.nick $chan $hnick on *:deop:#:cl.nick $chan $opnick on *:devoice:#:cl.nick $chan $vnick on *:op:#:cl.nick $chan $opnick on *:serverdeop:#:cl.nick $chan $opnick on *:serverop:#:cl.nick $chan $opnick on *:voice:#:cl.nick $chan $vnick raw 366:*:if ($me ison $2) { cl.loop $2 } alias -l cl.loop { var %t = $nick($1,0) var %t2 = 1 while (%t2 <= %t) { cl.nick $1 $nick($1,%t2) | inc %t2 1 } } alias -l clchans { if ($_vr(nicklist,switch) == 1) { var %c = $chan(0) var %c1 = 1 while (%c1 <= %c) { cl.loop $chan(%c1) | inc %c1 1 } } } alias -l cl.nick { if ($2) { if ($_vr(nicklist,switch) == 1) { if ($2 == $me) && ($_vr(nicklist,s.me) == 1) { cline $_vr(nicklist,me) $1 $nick($1,$2) } elseif ($2 ishop $1) && ($_vr(nicklist,s.hops) == 1) { cline $_vr(nicklist,hops) $1 $nick($1,$2) } elseif ($2 isop $1) && ($_vr(nicklist,s.ops) == 1) { cline $_vr(nicklist,ops) $1 $nick($1,$2) } elseif ($2 isvoice $1) && ($_vr(nicklist,s.voice) == 1) { cline $_vr(nicklist,voice) $1 $nick($1,$2) } elseif ($2 isreg $1) && ($_vr(nicklist,s.reg)) { cline $_vr(nicklist,reg) $1 $nick($1,$2) } else { cline $colour(nick) $1 $nick($1,$2) } } } } alias -l vcl.nick { var %a = $nick($active,0) var %a1 = 1 while (%a1 <= %a) { if ($nick($active,%a1) isop $active) { cline 3 $1 %a1 } elseif ($nick($active,%a1) isvoice $active) { cline 8 $1 %a1 } elseif ($nick($active,%a1) isreg $active) { cline 7 $1 %a1 } elseif ($nick($active,%a1) ishop $active) { cline 12 $1 %a1 } cline 4 $1 $nick($active,$me) inc %a1 1 } } alias flash.off { .timer91 off .timer92 off clchans } on *:INPUT:*: { .timer91 off .timer92 off ;clchans } alias -l nfcolor { did -r background $1 did -a background $1 Beyaz did -a background $1 Siyah did -a background $1 Mavi did -a background $1 Yeşil did -a background $1 Lightkırmızı did -a background $1 Kahve did -a background $1 Mor did -a background $1 Kavuniçi did -a background $1 Sarı did -a background $1 Lightyeşil did -a background $1 Siyanür did -a background $1 Lightsiyanür did -a background $1 Lightmavi did -a background $1 Pembe did -a background $1 Gri did -a background $1 Lightgri }


 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 04 Ağustos 2009, 13:26   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: nicklist color yardım




ben bir list daha buldum ama onun içinden opercolor nasıl alıcam bilmiyorum

Alıntı:
; StatusColor version 1.6c
; a mIRC Remote Script that colors IRC Opers and Away Users in the Nicklist
; 1`2004 by basti "ibt|bla" raff
; contact me in #ibt or #tatooine @ quakenet
; please distribute the complete zip-file only!

menu menubar {
StatusColor Config:/statuscolor
StatusColor Reset:/stc.initCNick
}


on 1:LOAD: {
stc.initCNick
if (!$exists($scriptdirstcicons\0.jpg)) {
echo 4 -s Error Loading StatusColor: jpg-icons or stcicons-dir missing
unload -rs $scriptdir $+ statuscolor.mrc
return
}
if (!$exists(statuscolor.ini)) {
writeini statuscolor.ini colors oper 8
writeini statuscolor.ini colors away 12
writeini statuscolor.ini colors igno 14
writeini statuscolor.ini colors deaf 3
writeini statuscolor.ini colors blnk 5
writeini statuscolor.ini blink enable 1
}

set %stc.AwayColor $readini(statuscolor.ini,colors,away)
set %stc.IgnoredColor $readini(statuscolor.ini,colors,igno)
set %stc.OperColor $readini(statuscolor.ini,colors,oper)
set %stc.DeafColor $readini(statuscolor.ini,colors,deaf)
set %stc.BlinkColor $readini(statuscolor.ini,colors,blnk)
set %stc.Blink $readini(statuscolor.ini,blink,enable)


echo 4 -s StatusColor 1.6c by ibt|bla loaded.
echo 4 -s To change the Colors type "/statuscolor" or go to Menu "Commands" -> "StatusColor Config"
echo 4 -s To uninstall type "/unload -rs statuscolor.mrc" and delete the statuscolor.mrc, statuscolor.ini and the stcicons dir.
}

on 1:UNLOAD: {
stc.unsetCNick
unset %stc.doneCNick
hfree -w stc.chanlist*
echo 4 -s Unloading StatusColor 1.6c
echo 4 -s To uninstall delete the statuscolor.mrc, statuscolor.ini and the stcicons dir.
}

on 1:CONNECT: {
set %stc.AwayColor $readini(statuscolor.ini,colors,away)
set %stc.IgnoredColor $readini(statuscolor.ini,colors,igno)
set %stc.OperColor $readini(statuscolor.ini,colors,oper)
set %stc.DeafColor $readini(statuscolor.ini,colors,deaf)
set %stc.BlinkColor $readini(statuscolor.ini,colors,blnk)
set %stc.Blink $readini(statuscolor.ini,blink,enable)

stc.initCNick
}

on 1
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
ISCONNECT: {
stc.initCNick
writeini statuscolor.ini colors oper %stc.OperColor
writeini statuscolor.ini colors away %stc.AwayColor
writeini statuscolor.ini colors igno %stc.IgnoredColor
writeini statuscolor.ini colors deaf %stc.DeafColor
writeini statuscolor.ini colors blnk %stc.BlinkColor
writeini statuscolor.ini blink enable %stc.Blink
}

on 1:ACTIVE:*: {
if ($active ischan ) {
if ($server != $null) {
stc.doWhoCNick $active
}
}
if ($lactive ischan ) {
.timer $+ $lactive off
}
}

on 1:NICK: {
if (($cnick($nick).color == %stc.AwayColor) || ($cnick($nick).color == %stc.DeafColor)) {
.timer 1 2 stc.doWhoCNickSingle $nick
}
else {
if ((off isin $nick) || (away isin $nick) || (bnc isin $nick)) {
.timer 1 2 stc.doWhoCNickSingle $nick
}
}
}

on 1:PART:#: {
if ($cnick($nick).color == %stc.AwayColor) {
.cnick -r $nick
}
if ($me == $nick) {
.timerrefreshCNick 1 30 stc.refreshCNick
}
}

on 1:QUIT: {
if ($cnick($nick).color == %stc.AwayColor || $cnick($nick).color == %stc.IgnoredColor) {
.cnick -r $nick
}
}

RAW 301:*: {
unset %stc.doneWhois
if ($cnick($2).color == $color(normal)) {
stc.setaway $2
;.cnick -m2 $2 %stc.AwayColor
}
}

RAW 311:*: {
set %stc.doneWhois 1
}

RAW 315:*: {
if (%stc.hideWho. [ $+ [ $2 ] ] == 1) {
unset %stc.hideWho. [ $+ [ $2 ] ]
.halt
}
}

RAW 318:*: {
if (%stc.doneWhois) {
if ($cnick($2).color == %stc.AwayColor) {
stc.removeaway $2
;.cnick -r $2
}
unset %stc.doneWhois
}
}

alias stc.removeaway {
.cnick -r $1
if (%stc.Blink) {
.timer -m 1 500 stc.blinkaway $1 16
}
}

alias -l stc.blinkaway {
if (($timer(0) > 24) && ($int($calc($2 / 2)) == $calc($2 / 2))) {
return
}

var %blinkcycle
if ($cnick($1).color == %stc.BlinkColor) {
if ($3) {
.cnick -m2 $1 $3
}
else {
.cnick -r $1
}
}
else {
.cnick -m2 $1 %stc.BlinkColor
}
set %blinkcycle $calc($2 - 1)
if (%blinkcycle > 0) {
.timer -m 1 500 stc.blinkaway $1 %blinkcycle $3
}
}

alias -l stc.setaway {
.cnick -m2 $1 %stc.AwayColor
if (%stc.Blink) {
.timer -m 1 500 stc.blinkaway $1 16 %stc.AwayColor
}
}



RAW 352:*: {

if (* isin $7) {
.cnick -m2 $6 %stc.OperColor
}
else {
if (channel isin $ignore($+($6,!,$3,@,$4)).type) {
.cnick -m2 $6 %stc.IgnoredColor
}
else {
if (d isin $7) {
.cnick -m2 $6 %stc.DeafColor
}
else {
if ($left($7,1) == H) {
if (($cnick($6).color == %stc.AwayColor) || ($cnick($6).color == %stc.IgnoredColor)) {
stc.removeaway $6
}
}
else {
if (($cnick($6).color == $color(normal)) || ($cnick($6).color == %stc.IgnoredColor)) {
stc.setaway $6
}
}
}
}
}
if ((%stc.hideWho. [ $+ [ $2 ] ] == 1) || (%stc.hideWho. [ $+ [ $3 ] ] == 1)) {
.halt
}
}

alias -l stc.initCNick {
unset %stc.doneWhoCNick
hfree -w stc.chanlist*
stc.unsetCNick
set %stc.AwayColor $readini(statuscolor.ini,colors,away)
set %stc.IgnoredColor $readini(statuscolor.ini,colors,igno)
set %stc.OperColor $readini(statuscolor.ini,colors,oper)
set %stc.DeafColor $readini(statuscolor.ini,colors,deaf)
set %stc.BlinkColor $readini(statuscolor.ini,colors,blnk)
set %stc.Blink $readini(statuscolor.ini,blink,enable)

}

alias -l stc.doWhoCNick {
var %chanCNick $1
if (!%stc.doneWhoCNick) {
if (!$hget(stc.chanlist, %chanCNick)) {
set -u5 %stc.doneWhoCNick 1
hadd -mu900 stc.chanlist %chanCNick 1
set %stc.hideWho. [ $+ [ %chanCNick ] ] 1
who %chanCNick
}
}
else {
if (!$hget(stc.chanlist, %chanCNick)) {
.timer $+ %chanCNick 1 5 /stc.doWhoCNick %chanCNick
}
}
}

alias -l stc.doWhoCNickSingle {
set %stc.hideWho. [ $+ [ $1 ] ] 1
/who $1
}

alias -l stc.unsetCNick {
var %counterCNick 1
var %emptyCNick 0
while (%emptyCNick < 16) {
if (($cnick(%counterCNick).color == $color(normal)) && (!$cnick(%counterCNick))) {
inc %emptyCNick 1
inc %counterCNick
}
elseif (($cnick(%counterCNick).color == %stc.IgnoredColor) || ($cnick(%counterCNick).color == %stc.AwayColor) || ($cnick(%counterCNick).color == %stc.DeafColor) || ($cnick(%counterCNick).color == %stc.OperColor)) {
.cnick -r %counterCNick
}
else {
inc %counterCNick
}
}
}

alias -l stc.refreshCNick {
var %counterCNick 1
var %emptyCNick 0
while (%emptyCNick < 16) {
if (!$cnick(%counterCNick)) {
inc %emptyCNick 1
inc %counterCNick
}
if (($ial($cnick(%counterCNick)) == $null) && (($cnick(%counterCNick).color == %stc.DeafColor) || ($cnick(%counterCNick).color == %stc.AwayColor) || ($cnick(%counterCNick).color == %stc.OperColor) || ($cnick(%counterCNick).color == %stc.IgnoredColor))) {
.cnick -r %counterCNick
}
else {
inc %counterCNick 1
}
}
}


alias statuscolor {
/dialog -m stc.ConfigDialog stc.ConfigDialogTable
did -g stc.ConfigDialog 2 " $+ $scriptdirstcicons\ $+ %stc.OperColor $+ .jpg $+ "
did -g stc.ConfigDialog 3 " $+ $scriptdirstcicons\ $+ %stc.AwayColor $+ .jpg $+ "
did -g stc.ConfigDialog 4 " $+ $scriptdirstcicons\ $+ %stc.IgnoredColor $+ .jpg $+ "
did -g stc.ConfigDialog 11 " $+ $scriptdirstcicons\ $+ %stc.DeafColor $+ .jpg $+ "
did -g stc.ConfigDialog 14 " $+ $scriptdirstcicons\ $+ %stc.BlinkColor $+ .jpg $+ "
if (%stc.Blink) {
did -c stc.ConfigDialog 16
set %stc.dialog.blinkenable 1
}
else {
did -u stc.ConfigDialog 16
}
}

alias -l stc.ShowChooser {
if ( !$dialog(stc.ChooseDialog) ) {
dialog -m stc.ChooseDialog stc.ChooseDialogTable
}
else {
dialog -o stc.ChooseDialog
}
dialog -t stc.ChooseDialog %stc.DialogChooseTitle Color
}

on *:dialog:stc.ChooseDialog:sclick:*:{
if (($did != $null) && ($did < 17)) {
var %col
set %col $calc($did - 1)
if (%stc.dialogchange == oper) {
if ((%stc.dialog.away != %col) && (%stc.dialog.igno != %col)) {
set %stc.dialog. [ $+ [ %stc.dialogchange ] ] %col
did -g stc.ConfigDialog %stc.DialogTemp " $+ $scriptdirstcicons\ $+ %col $+ .jpg $+ " | dialog -x stc.ChooseDialog

}
}
if (%stc.dialogchange == away) {
if ((%stc.dialog.oper != %col) && (%stc.dialog.igno != %col)) {
set %stc.dialog. [ $+ [ %stc.dialogchange ] ] %col
did -g stc.ConfigDialog %stc.DialogTemp " $+ $scriptdirstcicons\ $+ %col $+ .jpg $+ " | dialog -x stc.ChooseDialog

}

}
if (%stc.dialogchange == igno) {
if ((%stc.dialog.away != %col) && (%stc.dialog.oper != %col)) {
set %stc.dialog. [ $+ [ %stc.dialogchange ] ] %col
did -g stc.ConfigDialog %stc.DialogTemp " $+ $scriptdirstcicons\ $+ %col $+ .jpg $+ " | dialog -x stc.ChooseDialog

}
}
if (%stc.dialogchange == deaf) {
set %stc.dialog. [ $+ [ %stc.dialogchange ] ] %col
did -g stc.ConfigDialog %stc.DialogTemp " $+ $scriptdirstcicons\ $+ %col $+ .jpg $+ " | dialog -x stc.ChooseDialog

}
if (%stc.dialogchange == blnk) {
set %stc.dialog. [ $+ [ %stc.dialogchange ] ] %col
did -g stc.ConfigDialog %stc.DialogTemp " $+ $scriptdirstcicons\ $+ %col $+ .jpg $+ " | dialog -x stc.ChooseDialog

}



}
}


on *:dialog:stc.ConfigDialog:sclick:*:{
if ($did == 2) { .set %stc.dialogchange oper | .set %stc.DialogChooseTitle Opers | .set %stc.DialogTemp $did | stc.ShowChooser }
if ($did == 3) { .set %stc.dialogchange away | .set %stc.DialogChooseTitle Away Users | .set %stc.DialogTemp $did | stc.ShowChooser }
if ($did == 4) { .set %stc.dialogchange igno | .set %stc.DialogChooseTitle Ignored Users | .set %stc.DialogTemp $did | stc.ShowChooser }
if ($did == 11) { .set %stc.dialogchange deaf | .set %stc.DialogChooseTitle Deaf Users | .set %stc.DialogTemp $did | stc.ShowChooser }
if ($did == 14) { .set %stc.dialogchange blnk | .set %stc.DialogChooseTitle Blink Color | .set %stc.DialogTemp $did | stc.ShowChooser }
if ($did == 16) {
if ($did(stc.ConfigDialog,16).state) {
set %stc.dialog.blinkenable 1
}
else {
unset %stc.dialog.blinkenable
}
}
if ($did == 18) {

}
if ($did == 1) {
stc.ApplyChange
if ($dialog(stc.ChooseDialog)) {
dialog -x stc.ChooseDialog
}

}
if ($did == 7) {
stc.ApplyChange
}
if ($did == 8) {
if ($dialog(stc.ChooseDialog)) {
dialog -x stc.ChooseDialog
}

}
}

alias -l stc.ApplyChange {
var %counterCNick 1
var %emptyCNick 0
var %nick
if (((%stc.dialog.deaf) && (%stc.dialog.deaf != %stc.DeafColor)) || ((%stc.dialog.oper) && (%stc.dialog.oper != %stc.OperColor)) || ((%stc.dialog.away) && (%stc.dialog.away != %stc.AwayColor)) || ((%stc.dialog.igno) && (%stc.dialog.igno != %stc.IgnoredColor))) {

while ((%emptyCNick < 16) && (%counterCNick < 5000)) {
if (!$cnick(%counterCNick)) {
inc %emptyCNick 1
inc %counterCNick 1
}
else {
set %nick $cnick(%counterCNick)
if (($cnick(%counterCNick).color == %stc.AwayColor) && ((%stc.dialog.away) && (%stc.dialog.away != %stc.AwayColor))) {
.cnick -r %counterCNick
.cnick -m2 %nick %stc.dialog.away
}
elseif (($cnick(%counterCNick).color == %stc.OperColor) && ((%stc.dialog.oper) && (%stc.dialog.oper != %stc.OperColor))) {
.cnick -r %counterCNick
.cnick -m2 %nick %stc.dialog.oper
}
elseif (($cnick(%counterCNick).color == %stc.IgnoredColor) && ((%stc.dialog.igno) && (%stc.dialog.igno != %stc.IgnoredColor))) {
.cnick -r %counterCNick
.cnick -m2 %nick %stc.dialog.igno
}
elseif (($cnick(%counterCNick).color == %stc.DeafColor) && ((%stc.dialog.deaf) && (%stc.dialog.deaf != %stc.DeafColor))) {
.cnick -r %counterCNick
.cnick -m2 %nick %stc.dialog.deaf
}
else {
inc %counterCNick 1
}
}



}

}

if (%stc.dialog.oper != $null) { set %stc.OperColor %stc.dialog.oper }
if (%stc.dialog.away != $null) { set %stc.AwayColor %stc.dialog.away }
if (%stc.dialog.igno != $null) { set %stc.IgnoredColor %stc.dialog.igno }
if (%stc.dialog.deaf != $null) { set %stc.DeafColor %stc.dialog.deaf }
if (%stc.dialog.blnk != $null) { set %stc.BlinkColor %stc.dialog.blnk }
set %stc.Blink %stc.dialog.blinkenable
writeini statuscolor.ini colors oper %stc.OperColor
writeini statuscolor.ini colors away %stc.AwayColor
writeini statuscolor.ini colors igno %stc.IgnoredColor
writeini statuscolor.ini colors deaf %stc.DeafColor
writeini statuscolor.ini colors blnk %stc.BlinkColor
if (%stc.Blink == $null) { set %stc.Blink 0 }
writeini statuscolor.ini blink enable %stc.Blink
unset %stc.dialog.*

}


dialog stc.ConfigDialogTable {
title "StatusColor Config"
size -1 -1 128 136
option dbu
button "&Ok", 1, 11 114 30 12, default ok
icon 2, 21 13 12 12, " $+ $scriptdirstcicons\1.jpg $+ ", 0
icon 3, 93 13 12 12, " $+ $scriptdirstcicons\2.jpg $+ ", 0
icon 4, 45 13 12 12, " $+ $scriptdirstcicons\3.jpg $+ ", 0
button "&Apply", 7, 50 114 30 12, default
button "&Cancel", 8, 88 114 30 12, default cancel
box "Blink Nickname on Away Status Change", 9, 8 56 113 48
icon 11, 69 13 12 12, " $+ $scriptdirstcicons\3.jpg $+ ", 0
text "Opers", 5, 18 29 20 8, center
text "Away Users", 6, 88 29 22 15, center
text "Ignored Users", 10, 39 29 23 15, center
text "Deaf Users", 12, 65 29 20 15, center
box "Colors", 13, 8 4 113 46
icon 14, 95 64 12 12, " $+ $scriptdirstcicons\2.jpg $+ ", 0
text "Blink Color", 15, 90 80 22 15, center
check "Enable Blinking", 16, 15 69 50 10
; edit "", 17, 52 86 20 10
; text "Blink duration", 18, 14 87 37 8
; text "s", 19, 74 87 9 8
}

dialog stc.ChooseDialogTable {
size -1 -1 166 46
icon 1, 3 3 20 20, " $+ $scriptdirstcicons\0.jpg $+ "
icon 2, 23 3 20 20, " $+ $scriptdirstcicons\1.jpg $+ "
icon 3, 43 3 20 20, " $+ $scriptdirstcicons\2.jpg $+ "
icon 4, 63 3 20 20, " $+ $scriptdirstcicons\3.jpg $+ "
icon 5, 83 3 20 20, " $+ $scriptdirstcicons\4.jpg $+ "
icon 6, 103 3 20 20, " $+ $scriptdirstcicons\5.jpg $+ "
icon 7, 123 3 20 20, " $+ $scriptdirstcicons\6.jpg $+ "
icon 8, 143 3 20 20, " $+ $scriptdirstcicons\7.jpg $+ "
icon 9, 3 23 20 20, " $+ $scriptdirstcicons\8.jpg $+ "
icon 10, 23 23 20 20, " $+ $scriptdirstcicons\9.jpg $+ "
icon 11, 43 23 20 20, " $+ $scriptdirstcicons\10.jpg $+ "
icon 12, 63 23 20 20, " $+ $scriptdirstcicons\11.jpg $+ "
icon 13, 83 23 20 20, " $+ $scriptdirstcicons\12.jpg $+ "
icon 14, 103 23 20 20, " $+ $scriptdirstcicons\13.jpg $+ "
icon 15, 123 23 20 20, " $+ $scriptdirstcicons\14.jpg $+ "
icon 16, 143 23 20 20, " $+ $scriptdirstcicons\15.jpg $+ "
button "ok", 200, 10 10 10 10, ok hide
}


 
Alıntı ile Cevapla

Alt 05 Ağustos 2009, 15:15   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: nicklist color yardım




sanırım yardım edicek yok
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

yada denk gelmedi
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 
Alıntı ile Cevapla

Cevapla

Etiketler
color, mirc download, mirc indir, nicklist, yardim, yardım


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
NickList Dll v1.3 daRkMoRGaN mIRC Scripting Programları 0 15 Kasım 2008 21:15
nicklist kickban Spectral mIRC Scripting Sorunları 9 28 Nisan 2008 20:05
Nicklist İle İlgili (.dll) Flyman mIRC Scripting Sorunları 50 27 Ocak 2006 23:47
CLone (NickList) AmorKing mIRC Scripting Sorunları 3 01 Aralık 2005 14:43