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

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 19 Ekim 2008, 01:41   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Renklendirme..




Merhaba. mİRC.Com'dan indirdiğimiz orjinal scriptte op,voice,halfop gibi kavramlar userlerle aynı renkte çıkmakta ve bu bir karışıklığa sebep olmaktadır.

ALT B kısayoluyla yapmayı denedim yapamadım..

Verdiğim statüleri renklendirebilen bir irc komutu;yada kısayolu mevcutmudur.?

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 19 Ekim 2008, 01:47   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Renklendirme..




PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:load:{ 
  
beep 
  
echo -a  4NickList Color By RaDioAcTive Jakola
  
echo -a  4================
  echo -
a  4New mIRC Script Has Been Realesed
  
echo -a  4===========jIRC 2.2=========
  echo -
a  4 Get it at http://IRCForumlari.NET ]
}
menu menubar,channel,query {
  
Nick-List Renk
  
.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 $$$$
}
alias _vw {
  if (
$exists(data\setting.ini) == $false) { mkdir data write -c data\setting.ini }
  
writeini data\setting.ini $$$$$$3-
}
alias _vrem {
  if (
$exists(data\setting.ini) == $false) { mkdir data write -c data\setting.ini }
  
remini data\setting.ini $$$$
}

dialog background {
  
title "NickList Colors"
  
size --1 86 132
  option dbu
  icon 100
10 87 172 82
  button 
"Apply"5015 116 25 10
  button 
"Close"5145 116 25 10, default ok
  box 
"NickList Color"142 1 83 90
  check 
"Enable Color Nicklist"25 9 62 10
  check 
"Ops"35 24 22 10
  check 
"Voice"45 35 27 10
  check 
"Half-ops"305 46 29 10
  check 
"Regular"55 56 27 10
  check 
"Own Nick"65 66 33 10
  text 
"Background"336 77 32 9
  combo 7
45 25 37 50drop
  combo 8
45 35 37 50drop
  combo 12
45 45 37 50drop
  combo 9
45 55 37 50drop
  combo 10
45 65 37 50drop
  combo 11
45 75 37 50drop
  text 
"ßy Silencer"30018 92 52 7
  text 
"Helper Script"2712 104 75 8
}

on *:DIALOG:background:sclick:598:.run http://
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">on 
*:dialog:background:sclick:*:{
  if (
$did == 2) { 
    var %
xt 3
    
:loop
    did 
- $+ $iif($did(2).state,e,bbackground %xt
    
if (%xt 6) { inc %xt | goto loop }
    
_vw  nicklist switch 
  
}
  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 http://
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">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,ubackground 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.{
  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 }
  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

Alt 19 Ekim 2008, 01:49   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Renklendirme..




ayrıca soru/sorunlarını yanlış kategoriye açmışsın tekrarlaman halinde banlanabilirsin gene soru/sorunun olursa buraya aç.
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

 
Alıntı ile Cevapla

Alt 19 Ekim 2008, 02:12   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Renklendirme..




Teşekkürler

 
Alıntı ile Cevapla

Alt 20 Ekim 2008, 01:34   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Renklendirme..




herhangi bir koda gerek kalmadan mirc ayarlarından nick renkleride renklendirilebilir. Aşağıdaki linkte onu anlatmıştım:

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

 
Alıntı ile Cevapla

Cevapla

Etiketler
mirc, mirc download, mirc indir, renklendirme


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
Film Renklendirme - Film Renklendirme Nasıl Yapılır Liaaa Fotoğrafçılık 0 13 Şubat 2012 17:41
Ssh Renklendirme NazarBilisim GNU, Linux ve UNIX 2 04 Şubat 2011 04:57