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

evet kendi kullandığım bir kodu anlatayım

Kod:

on *:join:#:{

  if ($nick == $me) {

    nicklust Mark $window($chan).hwnd nLUST_CallBack rowselect tooltips balloontips hideempty hottrack dlgframe clientedge

    dll sistem\dll\nickLUST3.dll AddIcon $chan > $shortfn($mircdirsistem\icons\op.ico)

    dll sistem\dll\nickLUST3.dll AddIcon $chan > $shortfn($mircdirsistem\icons\voice.ico)

    dll sistem\dll\nickLUST3.dll AddIcon $chan > $shortfn($mircdirsistem\icons\user.ico)

    dll sistem\dll\nickLUST3.dll AddIcon $chan > $shortfn($mircdirsistem\icons\halfop.ico)

    dll sistem\dll\nickLUST3.dll AddIcon $chan > $shortfn($mircdirsistem\icons\op.ico)

    dll sistem\dll\nickLUST3.dll AddIcon $chan > $shortfn($mircdirsistem\icons\sop.ico)

    dll sistem\dll\nickLUST3.dll AddIcon $chan > $shortfn($mircdirsistem\icons\sahip.ico)

    dll sistem\dll\nickLUST3.dll AddIcon $chan > $shortfn($mircdirsistem\icons\sahip.ico)

    dll sistem\dll\nickLUST3.dll SetGroupText $chan 1 > Userler

    dll sistem\dll\nickLUST3.dll AddGroup $chan 10 + 2 > Voiceler +

    dll sistem\dll\nickLUST3.dll AddGroup $chan 11 @ 1 > Operatorler @

    dll sistem\dll\nickLUST3.dll AddGroup $chan 12 % 4 > Halfopler %

    dll sistem\dll\nickLUST3.dll AddGroup $chan 13 - 5 > Normal Oplar

    dll sistem\dll\nickLUST3.dll AddGroup $chan 14 & 6 > Soplar

    dll sistem\dll\nickLUST3.dll AddGroup $chan 15 . 7 > Kanal Sahibi

    dll sistem\dll\nickLUST3.dll AddGroup $chan 16 ~ 7 > Kanal Sahibi

    dll sistem\dll\nickLUST3.dll SetGroupView $chan 1 normal

    dll sistem\dll\nickLUST3.dll SetGroupView $chan 10 normal

    dll sistem\dll\nickLUST3.dll SetGroupView $chan 11 normal

    dll sistem\dll\nickLUST3.dll SetGroupView $chan 12 normal

    dll sistem\dll\nickLUST3.dll SetGroupView $chan 13 normal

    dll sistem\dll\nickLUST3.dll SetGroupView $chan 14 normal

    dll sistem\dll\nickLUST3.dll SetGroupView $chan 15 normal

    dll sistem\dll\nickLUST3.dll SetGroupView $chan 16 normal

    dll sistem\dll\nickLUST3.dll SetGroupIcon $chan 1 3

    dll sistem\dll\nickLUST3.dll SetGroupPos $chan 15 start

    dll sistem\dll\nickLUST3.dll SetGroupPos $chan 11 end

    dll sistem\dll\nickLUST3.dll SetGroupPos $chan 12 end

    dll sistem\dll\nickLUST3.dll SetGroupPos $chan 10 end

    dll sistem\dll\nickLUST3.dll SetGroupPos $chan 14 end

    dll sistem\dll\nickLUST3.dll SetGroupPos $chan 13 end

    dll sistem\dll\nickLUST3.dll SetGroupPos $chan 1 end

    dll sistem\dll\nickLUST3.dll SetColor $chan bkg $rgb(173,214,73)

    dll sistem\dll\nickLUST3.dll SetColor $chan text $color(1)

    dll sistem\dll\nickLUST3.dll SetColor $chan tipbkg $rgb(26,90,0)

    dll sistem\dll\nickLUST3.dll SetColor $chan tiptext $color(1)

    dll sistem\dll\nickLUST3.dll SetColor $chan hottext $color(12)

    dll sistem\dll\nickLUST3.dll SetColor $chan divider $color(12) $color(0)

    dll sistem\dll\nickLUST3.dll SetHeaderFontStyle $chan italic

    dll sistem\dll\nickLUST3.dll SetHeaderColor $chan 15 $rgb(1,99,37)

    dll sistem\dll\nickLUST3.dll SetHeaderColor $chan 11 $rgb(236,4,2)

    dll sistem\dll\nickLUST3.dll SetHeaderColor $chan 12 $color(13)

    dll sistem\dll\nickLUST3.dll SetHeaderColor $chan 10 $rgb(10,68,132)

    dll sistem\dll\nickLUST3.dll SetHeaderColor $chan 14 $rgb(245,188,36)

    dll sistem\dll\nickLUST3.dll SetHeaderColor $chan 1 $color(0)

  }

  if (*oper* iswm $wildsite) && (*admin* iswm $wildsite) {

    dll sistem\dll\nickLUST3.dll AddIcon $chan > $shortfn($mircdirsistem\icons\oper.ico)

  }

  haltdef

}

alias nicklust { dll $+(",$mircdirsistem\dll\nickLUST3.dll,") $1- } 

alias nlust_callback {

  if ($1 = tooltip) {

    var %extra

    if ($3 == $me) %extra = (Kendi Nickim)

    nicklust SetTipTitle $2 1 > $3 %extra Nickinin Bilgisi

    return Durumu: $nlist_pnick($remove($nick($2,$3).pnick,$3)) $+ $crlf $+ Idlesi: $duration($nick($2,$nick($2,$3)).idle) $+ $crlf $+ Notify list: $iif($notify($3),Notify Listesine Ekli,Notifyde Değil) $+ $crlf $+ Adresi: $iif($address($3,1),$ifmatch,Unknown) $+ $crlf $+ Kanal: $_comchans($3,32))

  }

}

alias nlist_pnick {

  if ($1 = @) { return Kanal Operatörü }

  elseif ($1 = .) { return Kanal Sahibi }

  elseif ($1 = &) { return Super Op (Sop) }

  elseif ($1 = +) { return Voice }

  elseif ($1 = %) { return Halfoperatör }

  elseif ($1 = -) { return Operator }

  elseif ($1 = ~) { return Kanal Sahibi }

  elseif ($1 = $null) { return Normal Kullanıcı }

}

alias _isnotifylist {

  if ($notify($1)) return $2

  return $3

} 

alias _comchans {

  var %tokk = $iif($2,$ifmatch,$chr(32)), %iii = 1, %chh

  while (%iii <= $comchan($1,0)) { 

    %chh = $addtok(%chh,$comchan($1,%iii),%tokk) | inc %iii 

  } 

  return $sorttok(%chh,%tokk) 

}

if ($1 == nickadded) {

  if ($3 == $me) return 2 $rgb(255,0,255) > $me $crlf $+ 

}

#end end

öncelikle kodlamaya göre iconlar sistem\icons\op.ico gibi mircinde yer almalı

ve dll gereklidir nickLUST3.dll bir dll kullanıldı kodda bu dll ise sistem\dll\nickLUST3.dll olarak mircinde yer almalı

kodu remoteye kopyalıyoruz

Koddaki bu kısımdan icon isimleri veya iconları değiştirebilirsin
dll sistem\dll\nickLUST3.dll AddIcon $chan > $shortfn($mircdirsistem\icons\op.ico)

Bu satırlar ise gurup isimleridir
dll sistem\dll\nickLUST3.dll SetGroupText $chan 1 > Userler

Şimdiki kodlama ise Nicklistteki renkleri ifade eder
dll sistem\dll\nickLUST3.dll SetColor $chan bkg $rgb(173,214,73)
dll sistem\dll\nickLUST3.dll SetColor $chan text $color(1)
dll sistem\dll\nickLUST3.dll SetColor $chan tipbkg $rgb(26,90,0)
dll sistem\dll\nickLUST3.dll SetColor $chan tiptext $color(1)
dll sistem\dll\nickLUST3.dll SetColor $chan hottext $color(12)
dll sistem\dll\nickLUST3.dll SetColor $chan divider $color(12) $color(0)
dll sistem\dll\nickLUST3.dll SetHeaderFontStyle $chan italic
dll sistem\dll\nickLUST3.dll SetHeaderColor $chan 15 $rgb(1,99,37)
dll sistem\dll\nickLUST3.dll SetHeaderColor $chan 11 $rgb(236,4,2)
dll sistem\dll\nickLUST3.dll SetHeaderColor $chan 12 $color(13)
dll sistem\dll\nickLUST3.dll SetHeaderColor $chan 10 $rgb(10,68,132)
dll sistem\dll\nickLUST3.dll SetHeaderColor $chan 14 $rgb(245,188,36)
dll sistem\dll\nickLUST3.dll SetHeaderColor $chan 1 $color(0)

Kısadan alatıyorum renk kodlamasını $rgb(173,214,73) budarada ki kırmızı yerdeki rakamlarla belirliyoruz atıyorum 255,255,255 gibi mdx dll renk kodları gibidir

kişi bilgilerini maus'u nick üzerine getirince cıkan bilgileri ise nlust_callback aliasımızla gercekleştiriyoruz join eventindeki 3'üncü satırla bağdaştırılmış şekilde yazılmıştır

yap boz misali kurcalayıp bilgini geliştirebilirsin arama yapmamışsın anladığım kadarıyla bircok bilgi var bu konuda kolay gelsin