IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Arkadaşlar @bankick ayrı pencere yardım

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-

Alıntı:

IrCbaStarD Nickli Üyeden Alıntı (Mesaj 1041664997)

Kod:

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.