IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Tekil Mesaj gösterimi

wolera · 06 Temmuz 2015, 22:08

Merhaba ben kelime arama yapmak istemiyorum verilen addon orjinali şudur;

Burda kanal listesinde nicki seçerek o nickin yazmış olduğu bütün cümle kelimeleri ayrı bir pencerede gösteriyor. Ben bunu !bilgi nick #kanal şeklinde yazınca getirmesini istiyorum.

menu nicklist {
.Nick Konuşma Bilgisi Al:/set -e %nbilgi $snick(#,1) | userh # %nbilgi
}
alias userh {
;if (!$regex($1,^#+) || !$2) { echo $color(info text) -e * /userh: Hatalı kullanım: /userh <#channel> <user> | returnex }
var %1 = 1,%2 = $line($chan,0), $&
%n = $regsubex(%nbilgi,/(\[|\]|\^|\||\\)/g,$+(\,\1)\s) | while (%1 <= %2) {
if ($regex($gettok($line($chan,%1),1,32),$+(<?,%n,>)) || $regex($gettok($line($chan,%1),2,32),$+(<?,%n,>))) {
inc %c $len($line($chan,%1)) | inc %cc | win $chan %nbilgi $line($chan,%1)
}
inc %1
}
if ($window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])) { aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] – | aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Toplam gönderdiği satır: %cc – Toplam karakter: %c | unset %c %cc | return }
echo $color(info text) -ate $1 kanalında, $2 rumuzu için konuşma kaydı bulunamadı.
}
alias -l win if (!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])) { window -aemg1k0 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] | aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] – $2 rumuzunun $1 kanalındaki konuşma kaydı: | aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] – } | aline -p @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $3-

IrCbaStarD Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

alias buls { $iif($window(bilgis),window -c @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]s) | $iif($hget(goster),hfree goster) | window -h @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]s | filter -ww $1 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]s $+(*,$2,*) | hadd -m goster bilgi $2- | .timerbilgi 1 2 bilgis | return }
alias goster while ak=beyaz=amk=akillimertkorkusuz { inc -u %% | echo -t $active $regsubex($$line(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]s,%%),/( $+ $hget(goster,bilgi) $+ )/ig,$+($chr(3),$r(3,13),\1,$chr(3))) | .timergoster 1 2 window -c @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]s }
alias bilgis $iif(%= = 1,msg $hget(kanal,kanal),echo -atg) $+(4,$hget(goster,bilgi),) Toplam bulunan satir sayisi $line(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]s,0) Görmek icin $iif(%= = 1,!goster,/goster) yapiniz.
on *:input:#:{
  if !Goster = $1 { 
    if !$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]s) { msg $active Bilgi bulunmuyor, yeni arama yapin. | return }
    if $line(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]s,0) > 700 && $input($1 Kanalinda toplam $line($1,0) satir yazi yazilmis $+ $crlf $+ $crlf $+ Arama yapmak istedinizden eminmisiniz? $+ $crlf $+ $crlf $+  Bu islem bi süre kasabilir mircinizi. $+ $crlf $+ $crlf $+ $me,y,mIRC Istek) {
      while ak=beyaz=amk=akillimertkorkusuz { inc -u %% | msg $active $regsubex($$line(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]s,%%),/( $+ $hget(goster,bilgi) $+ )/ig,$+($chr(3),$r(3,13),\1,$chr(3))) | .timergoster 1 2 window -c @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]s } 
      return
    }
    while ak=beyaz=amk=akillimertkorkusuz { inc -u %% | msg $active $regsubex($$line(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]s,%%),/( $+ $hget(goster,bilgi) $+ )/ig,$+($chr(3),$r(3,13),\1,$chr(3))) | .timergoster 1 2 window -c @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]s } 
  }
  if $1 = !ara {
    if (!$2) { echo -a Lütfen Aranicak kanali bos birakmayin. | return }
    if (!$3) { echo -a Lütfen Aranicak kelimeyide ayni sekilde. Kullanimi: !ara #kanal kelime | return }
    buls $2-
  }
}
on *:text:*:#:{
  if $regex($1,/[.!]bul/i) {
    if (!$2) { msg # Lütfen Aranicak kanali bos birakmayin. | return }
    if (!$3) { msg # Lütfen Aranicak kelimeyide ayni sekilde. | return }
    msg # Arama baslamistir..
    set -u5 %= 1 | hadd -m kanal kanal # | buls $2-
  }
  if $regex($1,/[.!]goster/) {
    while ak=beyaz=amk=akillimertkorkusuz { inc -u %% | msg $active $regsubex($$line(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]s,%%),/( $+ $hget(goster,bilgi) $+ )/ig,$+($chr(3),$r(3,13),\1,$chr(3))) | .timergoster 1 2 window -c @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]s } 
  }
}

/buls #kanal kelime
Kendin kullanmak icin: !ara #kanal #kelime
Baskasinin kullanimi: !bul #kanal #kelime
kanali belirtmelisin.