server da ircop taraması - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

adigeragip · 26 Ocak 2009, 20:21

arkadaslar bir servere girdiğimizde o kanalda kimlerin ircop oldugunu anlamak için nasıl bi komut girmeliyim acaba

XcLusive · 26 Ocak 2009, 20:51

ial durumu aktif ve kanaldaki hostları daha önceden görmüş isen veya /who #kanal yazıp hostlara bakmışsan "/who 0 o" komutu bütün ircopları listeler.

adigeragip · 26 Ocak 2009, 22:26

evet bu komutla oluyo ama kelebek finali kullanan varsa onda tarama yapacağın zaman kucuk bir pencere açılıyo ve orda tara deyince o kücük pencerede görünüyo o şekılde yapmak mumkun mu?

Editor · 26 Ocak 2009, 23:16

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

on *:join:#: { if $nick == $me { .ial on | who # } }
alias ara {
  if $active != # { echo -at Uyarı: Herhangi bir kanal penceresinde değilsiniz. | echo -at Uyarı: Kullanabileceğiniz komutlar; /ara ircop & /ara helper & /ara clone & /ara yetkili & /ara away & /ara arkadas | halt }
  if !$1 { echo -at Uyarı: Aranıcak veriyi girmediniz. | echo -at Uyarı: Kullanabileceğiniz komutlar; /ara ircop & /ara helper & /ara clone & /ara yetkili & /ara away & /ara arkadas | halt }
  else {
    if $1 == ircop { echo -at $active kanalı için IRCOP  taraması başlatıldı. Bekleyiniz. | .enable #w | who $active | set -e %y $active }
    if $1 == clone { echo -at $active kanalı için CLONE taraması başlatıldı. Bekleyiniz. | set -e %t $active | .ial $active | klontara $active }
    if $1 == away { echo -at $active kanalı için AWAY taraması başlatıldı. Bekleyiniz. | .enable #a | who $active | set -e %a $active }
    if $1 == helper { echo -at $active kanalı için HELPER  taraması başlatıldı. Bekleyiniz. | .enable #h | who $active | set -e %h $active }
    if $1 == yetkili { echo -at $active kanalı için YETKILI  taraması başlatıldı. Bekleyiniz. | set -e %y $active | ytara $active }
    if $1 == arkadas { echo -at $active kanalı için NOTIFY taraması başlatıldı. Bekleyiniz. | set -e %n $active | notifys $active }
  }
}
#w off
raw *:*: {
  if $numeric == 352 { if * isin $7 { set %tik $ticks | hadd -m ircop $+($3,+,$6,+,$4) 1 | hinc -m ircopz okya 1 } | haltdef } 
  if $numeric == 315 { 
    if !$hget(ircop) { echo -at Uyarı: $2 kanalında, IRCOP bulunamadı. | .disable #w | halt }
    window -aCldk1 -t20,35 @IRCOP -1 -1 400 300 Bauhaus 12 
    aline 4 @IRCOP $chr(2) %y kanalı' için IRCOP listesi;
    aline 4 @IRCOP $chr(2) Bulunan IRCOP sayısı: $chr(2) $hget(ircopz,okya)
    aline 4 @IRCOP $chr(2) Tarama tamamlanma süresi: $calc(($ticks - %tik) / 1000) M-S
    aline @IRCOP $chr(160)
    aline 2 @IRCOP $chr(2) $str($chr(160),4) -Ident- $str($chr(160),2) -Nick- $str($chr(160),3) -Adres-
    var %8 = 1,%88 = $hget(ircop,0).item 
  while %8 <= %88 { aline 2 @IRCOP $chr(2) %8 - $chr(2) $+($remove($gettok($hget(ircop,%8).item,1,43),~),$chr(2),@,$chr(2),$gettok($hget(ircop,%8).item,2,43),$chr(2),!,$chr(2),$gettok($hget(ircop,%8).item,3,43)) | inc %8 } | hfree -w *ircop* | .disable #w | haltdef }
}
#w end
alias klontara { if $1 { who $1 | if $hget(klonlar) { hfree klonlar } | var %&- = 1,%&-- = $nick($1,0) | while %&- <= %&-- { bak $nick($1,%&-) $1 | inc %&- } } | okus }
alias bak { 
  if $ialchan($+(*,$gettok($address($1,2),2,64),*),$2,0) < 2 { return }
  else { var %% = 1,%& = $gettok($address($1,2),2,64),%&& = $ialchan($+(*,%&,*),$2,0) | set %tik $ticks | while %% <= %&& { var %%- = $addtok(%%-,$gettok($ialchan($+(*,%&,*),$2,%%),1,33),43)
  inc %% } | hadd -m klonlar $+(%%-,@,%&,@) $calc(%% -1) }
}
alias okus { 
  if !$window(@CLONE) {
    window -aCldk1 -t20,35 @CLONE -1 -1 800 500 Bauhaus 12 
    aline 4 @CLONE $chr(2) %t Kanalı için CLONE listesi;
    aline 4 @CLONE $+($chr(2),$chr(160),Clone taraması sonuçları. Bulunan veri:,$chr(2)) $hget(klonlar,0).item
    aline 4 @CLONE $+($chr(2),$chr(160),Tarama tamamlanma süresi:,$chr(2)) $calc(($ticks - %tik) / 1000) MS
    aline @CLONE $chr(160) | aline @CLONE $chr(160) 
  aline 2 @CLONE $+($chr(2),-Adres-,$chr(2)) $chr(160) $+($chr(2),(Adet),$chr(2)) $chr(9) $+($chr(2),-Nickler-,$chr(2)) } 
  var %7 = 1,%77 = $hget(klonlar,0).item
  while %7 <= %77 { 
    aline 2 @CLONE $+($chr(2),%7 -,$chr(2)) $gettok($hget(klonlar,%7).item,2,64) $chr(160) $+($chr(40),$chr(2),$hget(klonlar,%7).data,$chr(2),$chr(41)) $chr(9) $replace($gettok($hget(klonlar,%7).item,1,64),+,$+($chr(2),$chr(44),$chr(2))) | inc %7
  } 
  aline @CLONE $chr(160) | aline @CLONE $chr(160)
}
#a off
raw *:*: {
  if $numeric == 352 { if G isin $7 { set %tiks $ticks | hadd -m away $+($3,+,$6,+,$4) 1 | hinc -m aways ok 1 } | haltdef }
  if $numeric == 315 { 
    if !$hget(away) { echo -at Uyarı: $2 kanalında, AWAY bulunamadı. | .disable #a | halt }
    window -aCldk1 -t20,35 @AWAY -1 -1 400 300 Bauhaus 12 
    aline 4 @AWAY $chr(2) %a kanalı' için AWAY listesi;
    aline 4 @AWAY $chr(2) Bulunan AWAY NICK sayısı: $chr(2) $hget(aways,ok)
    aline 4 @AWAY $chr(2) Tarama tamamlanma süresi: $calc(($ticks - %tiks) / 1000) M-S
    aline @AWAY $chr(160) | aline 2 @AWAY $chr(2) $str($chr(160),4) -Ident- $str($chr(160),2) -Nick- $str($chr(160),3) -Adres-
    var %9 = 1,%99 = $hget(away,0).item 
  while %9 <= %99 { aline 2 @AWAY $chr(2) %9 - $chr(2) $+($remove($gettok($hget(away,%9).item,1,43),~),$chr(2),@,$chr(2),$gettok($hget(away,%9).item,2,43),$chr(2),!,$chr(2),$gettok($hget(away,%9).item,3,43)) | inc %9 } | hfree -w *away* | .disable #a | haltdef }
}
#a end
#h off
raw *:*: {
  if $numeric == 352 { if *help* iswm $4 || *yardimci* iswm $4 || *görevli* iswm $4 { set %tikss $ticks | hadd -m helper $+($3,+,$6,+,$4) 1 | hinc -m helpers oks 1 } | haltdef }
  if $numeric == 315 { 
    if !$hget(helper) { echo -at Uyarı: $2 kanalında, HELPER bulunamadı. | .disable #h | halt }
    window -aCldk1 -t20,35 @HELPER -1 -1 400 300 Bauhaus 12 
    aline 4 @HELPER $chr(2) %h kanalında bulunan HELPER'lar;
    aline 4 @HELPER $chr(2) Bulunan HELPER sayısı: $chr(2) $hget(helpers,oks)
    aline 4 @HELPER $chr(2) Tarama tamamlanma süresi: $calc(($ticks - %tikss) / 1000) M-S
    aline @HELPER $chr(160) | aline 2 @HELPER $chr(2) $str($chr(160),4) -Ident- $str($chr(160),2) -Nick- $str($chr(160),3) -Adres-
    var %0 = 1,%00 = $hget(helper,0).item 
  while %0 <= %00 { aline 2 @HELPER $chr(2) %0 - $chr(2) $+($remove($gettok($hget(helper,%0).item,1,43),~),$chr(2),@,$chr(2),$gettok($hget(helper,%0).item,2,43),$chr(2),!,$chr(2),$gettok($hget(helper,%0).item,3,43)) | inc %0 } | hfree -w *helper* | .disable #h | haltdef }
}
#h end
alias ytara { 
  set -e %tikk
  window -aCldk1 -t20,35 @YETKİLİ  -1 -1 500 300 Bauhaus 12 
  aline 4 @YETKİLİ $chr(2) %y kanalında bulunan YETKİLİ'ler; 
  aline 4 @YETKİLİ $chr(2) Tarama tamamlanma süresi: $calc(($ticks - %tikk) / 1000) M-S
  aline @YETKİLİ $chr(160) | aline 2 @YETKİLİ $chr(2) $str($chr(160),4) -Nick- $str($chr(160),2) -Ident- $str($chr(160),3) -Adres- $+($chr(9),$str($chr(160),9)) -Yetkisi-
  var %& = 1,%&& = $nick($1,0) 
  while %& <= %&& { 
    if $count($nick($1,%&).pnick,@,.,&,~,%) >= 1 { 
      who $nick($1,%&)
      aline 2 @YETKİLİ $chr(2) %& - $chr(2) $remove($replace($address($nick($1,%&),5),!,$+($chr(2),!,$chr(2)),@,$+($chr(2),@,$chr(2))),~) $+($chr(9),$str($chr(160),9)) $replace($nick($1,$nick($1,%&)).pnick,@,$+($chr(2),@,$chr(2)),&,$+($chr(2),&,$chr(2)),%,$+($chr(2),%,$chr(2)),~,$+($chr(2)~,$chr(2)),.,$+($chr(2),.,$chr(2)))
    } 
    inc %& 
  } 
}
alias notifys { 
  set -e %sur
  window -aCldk1 -t20,35 @NOTIFY  -1 -1 400 300 Bauhaus 12 
  aline 4 @NOTIFY  $chr(2) %n kanalında bulunan ARKADAS'larınız;
  aline 4 @NOTIFY  $chr(2) Tarama tamamlanma süresi: $calc(($ticks - %sur) / 1000) M-S
  aline @NOTIFY $chr(160)
  aline 2 @NOTIFY  $chr(2) $str($chr(160),4) -Nick- $str($chr(160),2) -Ident- $str($chr(160),3) -Adres- 
  var %6 = 1,%66 = $nick($1,0) 
  while %6 <= %66 { 
    if $notify($nick($1,%6)) { inc %= 1 | who $nick($1,%6)
      aline 2 @NOTIFY $chr(2) %= - $chr(2) $remove($replace($address($nick($1,%6),5),!,$+($chr(2),!,$chr(2)),@,$+($chr(2),@,$chr(2))),~)  
    } 
    inc %6  
  } 
  dec %= %= 
}
menu status,menubar,channel {
  .-
  .†Yardımcı Aramalar†
  ..Helper Ara:/Ara helper
  ..Clone Ara:/Ara clone
  ..IRCop Ara:/Ara ircop
  ..Arkadaş Ara:/Arada arkadas
  ..Yetkili Ara:/Ara yetkili
  ..Away Ara:/Ara away
}

Kod L4roxyL Tarafından Kodlanmıştır.

adigeragip · 27 Ocak 2009, 00:08

sagolasın [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ama buda sadece tarıyo benim demek istedigim kelebek finalde ki gibi küçük bi pencere açılacak orda tara deyince o küçük pencerede çıkması
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

adigeragip · 27 Ocak 2009, 17:39

SaGoPa-mİRCKanka 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!

on *:join:#: { if $nick == $me { .ial on | who # } }
alias ara {
  if $active != # { echo -at Uyarı: Herhangi bir kanal penceresinde değilsiniz. | echo -at Uyarı: Kullanabileceğiniz komutlar; /ara ircop & /ara helper & /ara clone & /ara yetkili & /ara away & /ara arkadas | halt }
  if !$1 { echo -at Uyarı: Aranıcak veriyi girmediniz. | echo -at Uyarı: Kullanabileceğiniz komutlar; /ara ircop & /ara helper & /ara clone & /ara yetkili & /ara away & /ara arkadas | halt }
  else {
    if $1 == ircop { echo -at $active kanalı için IRCOP  taraması başlatıldı. Bekleyiniz. | .enable #w | who $active | set -e %y $active }
    if $1 == clone { echo -at $active kanalı için CLONE taraması başlatıldı. Bekleyiniz. | set -e %t $active | .ial $active | klontara $active }
    if $1 == away { echo -at $active kanalı için AWAY taraması başlatıldı. Bekleyiniz. | .enable #a | who $active | set -e %a $active }
    if $1 == helper { echo -at $active kanalı için HELPER  taraması başlatıldı. Bekleyiniz. | .enable #h | who $active | set -e %h $active }
    if $1 == yetkili { echo -at $active kanalı için YETKILI  taraması başlatıldı. Bekleyiniz. | set -e %y $active | ytara $active }
    if $1 == arkadas { echo -at $active kanalı için NOTIFY taraması başlatıldı. Bekleyiniz. | set -e %n $active | notifys $active }
  }
}
#w off
raw *:*: {
  if $numeric == 352 { if * isin $7 { set %tik $ticks | hadd -m ircop $+($3,+,$6,+,$4) 1 | hinc -m ircopz okya 1 } | haltdef } 
  if $numeric == 315 { 
    if !$hget(ircop) { echo -at Uyarı: $2 kanalında, IRCOP bulunamadı. | .disable #w | halt }
    window -aCldk1 -t20,35 @IRCOP -1 -1 400 300 Bauhaus 12 
    aline 4 @IRCOP $chr(2) %y kanalı' için IRCOP listesi;
    aline 4 @IRCOP $chr(2) Bulunan IRCOP sayısı: $chr(2) $hget(ircopz,okya)
    aline 4 @IRCOP $chr(2) Tarama tamamlanma süresi: $calc(($ticks - %tik) / 1000) M-S
    aline @IRCOP $chr(160)
    aline 2 @IRCOP $chr(2) $str($chr(160),4) -Ident- $str($chr(160),2) -Nick- $str($chr(160),3) -Adres-
    var %8 = 1,%88 = $hget(ircop,0).item 
  while %8 <= %88 { aline 2 @IRCOP $chr(2) %8 - $chr(2) $+($remove($gettok($hget(ircop,%8).item,1,43),~),$chr(2),@,$chr(2),$gettok($hget(ircop,%8).item,2,43),$chr(2),!,$chr(2),$gettok($hget(ircop,%8).item,3,43)) | inc %8 } | hfree -w *ircop* | .disable #w | haltdef }
}
#w end
alias klontara { if $1 { who $1 | if $hget(klonlar) { hfree klonlar } | var %&- = 1,%&-- = $nick($1,0) | while %&- <= %&-- { bak $nick($1,%&-) $1 | inc %&- } } | okus }
alias bak { 
  if $ialchan($+(*,$gettok($address($1,2),2,64),*),$2,0) < 2 { return }
  else { var %% = 1,%& = $gettok($address($1,2),2,64),%&& = $ialchan($+(*,%&,*),$2,0) | set %tik $ticks | while %% <= %&& { var %%- = $addtok(%%-,$gettok($ialchan($+(*,%&,*),$2,%%),1,33),43)
  inc %% } | hadd -m klonlar $+(%%-,@,%&,@) $calc(%% -1) }
}
alias okus { 
  if !$window(@CLONE) {
    window -aCldk1 -t20,35 @CLONE -1 -1 800 500 Bauhaus 12 
    aline 4 @CLONE $chr(2) %t Kanalı için CLONE listesi;
    aline 4 @CLONE $+($chr(2),$chr(160),Clone taraması sonuçları. Bulunan veri:,$chr(2)) $hget(klonlar,0).item
    aline 4 @CLONE $+($chr(2),$chr(160),Tarama tamamlanma süresi:,$chr(2)) $calc(($ticks - %tik) / 1000) MS
    aline @CLONE $chr(160) | aline @CLONE $chr(160) 
  aline 2 @CLONE $+($chr(2),-Adres-,$chr(2)) $chr(160) $+($chr(2),(Adet),$chr(2)) $chr(9) $+($chr(2),-Nickler-,$chr(2)) } 
  var %7 = 1,%77 = $hget(klonlar,0).item
  while %7 <= %77 { 
    aline 2 @CLONE $+($chr(2),%7 -,$chr(2)) $gettok($hget(klonlar,%7).item,2,64) $chr(160) $+($chr(40),$chr(2),$hget(klonlar,%7).data,$chr(2),$chr(41)) $chr(9) $replace($gettok($hget(klonlar,%7).item,1,64),+,$+($chr(2),$chr(44),$chr(2))) | inc %7
  } 
  aline @CLONE $chr(160) | aline @CLONE $chr(160)
}
#a off
raw *:*: {
  if $numeric == 352 { if G isin $7 { set %tiks $ticks | hadd -m away $+($3,+,$6,+,$4) 1 | hinc -m aways ok 1 } | haltdef }
  if $numeric == 315 { 
    if !$hget(away) { echo -at Uyarı: $2 kanalında, AWAY bulunamadı. | .disable #a | halt }
    window -aCldk1 -t20,35 @AWAY -1 -1 400 300 Bauhaus 12 
    aline 4 @AWAY $chr(2) %a kanalı' için AWAY listesi;
    aline 4 @AWAY $chr(2) Bulunan AWAY NICK sayısı: $chr(2) $hget(aways,ok)
    aline 4 @AWAY $chr(2) Tarama tamamlanma süresi: $calc(($ticks - %tiks) / 1000) M-S
    aline @AWAY $chr(160) | aline 2 @AWAY $chr(2) $str($chr(160),4) -Ident- $str($chr(160),2) -Nick- $str($chr(160),3) -Adres-
    var %9 = 1,%99 = $hget(away,0).item 
  while %9 <= %99 { aline 2 @AWAY $chr(2) %9 - $chr(2) $+($remove($gettok($hget(away,%9).item,1,43),~),$chr(2),@,$chr(2),$gettok($hget(away,%9).item,2,43),$chr(2),!,$chr(2),$gettok($hget(away,%9).item,3,43)) | inc %9 } | hfree -w *away* | .disable #a | haltdef }
}
#a end
#h off
raw *:*: {
  if $numeric == 352 { if *help* iswm $4 || *yardimci* iswm $4 || *görevli* iswm $4 { set %tikss $ticks | hadd -m helper $+($3,+,$6,+,$4) 1 | hinc -m helpers oks 1 } | haltdef }
  if $numeric == 315 { 
    if !$hget(helper) { echo -at Uyarı: $2 kanalında, HELPER bulunamadı. | .disable #h | halt }
    window -aCldk1 -t20,35 @HELPER -1 -1 400 300 Bauhaus 12 
    aline 4 @HELPER $chr(2) %h kanalında bulunan HELPER'lar;
    aline 4 @HELPER $chr(2) Bulunan HELPER sayısı: $chr(2) $hget(helpers,oks)
    aline 4 @HELPER $chr(2) Tarama tamamlanma süresi: $calc(($ticks - %tikss) / 1000) M-S
    aline @HELPER $chr(160) | aline 2 @HELPER $chr(2) $str($chr(160),4) -Ident- $str($chr(160),2) -Nick- $str($chr(160),3) -Adres-
    var %0 = 1,%00 = $hget(helper,0).item 
  while %0 <= %00 { aline 2 @HELPER $chr(2) %0 - $chr(2) $+($remove($gettok($hget(helper,%0).item,1,43),~),$chr(2),@,$chr(2),$gettok($hget(helper,%0).item,2,43),$chr(2),!,$chr(2),$gettok($hget(helper,%0).item,3,43)) | inc %0 } | hfree -w *helper* | .disable #h | haltdef }
}
#h end
alias ytara { 
  set -e %tikk
  window -aCldk1 -t20,35 @YETKİLİ  -1 -1 500 300 Bauhaus 12 
  aline 4 @YETKİLİ $chr(2) %y kanalında bulunan YETKİLİ'ler; 
  aline 4 @YETKİLİ $chr(2) Tarama tamamlanma süresi: $calc(($ticks - %tikk) / 1000) M-S
  aline @YETKİLİ $chr(160) | aline 2 @YETKİLİ $chr(2) $str($chr(160),4) -Nick- $str($chr(160),2) -Ident- $str($chr(160),3) -Adres- $+($chr(9),$str($chr(160),9)) -Yetkisi-
  var %& = 1,%&& = $nick($1,0) 
  while %& <= %&& { 
    if $count($nick($1,%&).pnick,@,.,&,~,%) >= 1 { 
      who $nick($1,%&)
      aline 2 @YETKİLİ $chr(2) %& - $chr(2) $remove($replace($address($nick($1,%&),5),!,$+($chr(2),!,$chr(2)),@,$+($chr(2),@,$chr(2))),~) $+($chr(9),$str($chr(160),9)) $replace($nick($1,$nick($1,%&)).pnick,@,$+($chr(2),@,$chr(2)),&,$+($chr(2),&,$chr(2)),%,$+($chr(2),%,$chr(2)),~,$+($chr(2)~,$chr(2)),.,$+($chr(2),.,$chr(2)))
    } 
    inc %& 
  } 
}
alias notifys { 
  set -e %sur
  window -aCldk1 -t20,35 @NOTIFY  -1 -1 400 300 Bauhaus 12 
  aline 4 @NOTIFY  $chr(2) %n kanalında bulunan ARKADAS'larınız;
  aline 4 @NOTIFY  $chr(2) Tarama tamamlanma süresi: $calc(($ticks - %sur) / 1000) M-S
  aline @NOTIFY $chr(160)
  aline 2 @NOTIFY  $chr(2) $str($chr(160),4) -Nick- $str($chr(160),2) -Ident- $str($chr(160),3) -Adres- 
  var %6 = 1,%66 = $nick($1,0) 
  while %6 <= %66 { 
    if $notify($nick($1,%6)) { inc %= 1 | who $nick($1,%6)
      aline 2 @NOTIFY $chr(2) %= - $chr(2) $remove($replace($address($nick($1,%6),5),!,$+($chr(2),!,$chr(2)),@,$+($chr(2),@,$chr(2))),~)  
    } 
    inc %6  
  } 
  dec %= %= 
}
menu status,menubar,channel {
  .-
  .†Yardımcı Aramalar†
  ..Helper Ara:/Ara helper
  ..Clone Ara:/Ara clone
  ..IRCop Ara:/Ara ircop
  ..Arkadaş Ara:/Arada arkadas
  ..Yetkili Ara:/Ara yetkili
  ..Away Ara:/Ara away
}

Kod L4roxyL Tarafından Kodlanmıştır.

benim hatamdan kaynaklanıyomul calısmaması ama bunu komutu yazdıgımda kanala girince otomatik kendi taramalar yapıyo onu yapmasa olmaz mı ve "/if: close bracket not found" bu yazı cıkmaya başlıyo surekli bu yazi cıkıyo her saniye bunun bi çözumunu bulabilirmisin..

Difuzyon · 27 Ocak 2009, 19:50

O taramayı yapmazsa , tam sonuçları alamazsın.Yarım yamalak olur, o taramaları scriptimde görmek istemiyorum dersen ;

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

on *:join:#: { if $nick == $me { .ial on | .enable #ilavewho | who # } }
#ilavewho off
raw 352:*:haltdef
raw 315:*:haltdef | .disable #ilavewho
#ilavewho end
alias ara {
  if $active != # { echo -at Uyarı: Herhangi bir kanal penceresinde değilsiniz. | echo -at Uyarı: Kullanabileceğiniz komutlar; /ara ircop & /ara helper & /ara clone & /ara yetkili & /ara away & /ara arkadas | halt }
  if !$1 { echo -at Uyarı: Aranıcak veriyi girmediniz. | echo -at Uyarı: Kullanabileceğiniz komutlar; /ara ircop & /ara helper & /ara clone & /ara yetkili & /ara away & /ara arkadas | halt }
  else {
    if $1 == ircop { echo -at $active kanalı için IRCOP  taraması başlatıldı. Bekleyiniz. | .enable #w | who $active | set -e %y $active }
    if $1 == clone { echo -at $active kanalı için CLONE taraması başlatıldı. Bekleyiniz. | set -e %t $active | .ial $active | klontara $active }
    if $1 == away { echo -at $active kanalı için AWAY taraması başlatıldı. Bekleyiniz. | .enable #a | who $active | set -e %a $active }
    if $1 == helper { echo -at $active kanalı için HELPER  taraması başlatıldı. Bekleyiniz. | .enable #h | who $active | set -e %h $active }
    if $1 == yetkili { echo -at $active kanalı için YETKILI  taraması başlatıldı. Bekleyiniz. | set -e %y $active | ytara $active }
    if $1 == arkadas { echo -at $active kanalı için NOTIFY taraması başlatıldı. Bekleyiniz. | set -e %n $active | notifys $active }
  }
}
#w off
raw *:*: {
  if $numeric == 352 { if * isin $7 { set %tik $ticks | hadd -m ircop $+($3,+,$6,+,$4) 1 | hinc -m ircopz okya 1 } | haltdef } 
  if $numeric == 315 { 
    if !$hget(ircop) { echo -at Uyarı: $2 kanalında, IRCOP bulunamadı. | .disable #w | halt }
    window -aCldk1 -t20,35 @IRCOP -1 -1 400 300 Bauhaus 12 
    aline 4 @IRCOP $chr(2) %y kanalı' için IRCOP listesi;
    aline 4 @IRCOP $chr(2) Bulunan IRCOP sayısı: $chr(2) $hget(ircopz,okya)
    aline 4 @IRCOP $chr(2) Tarama tamamlanma süresi: $calc(($ticks - %tik) / 1000) M-S
    aline @IRCOP $chr(160)
    aline 2 @IRCOP $chr(2) $str($chr(160),4) -Ident- $str($chr(160),2) -Nick- $str($chr(160),3) -Adres-
    var %8 = 1,%88 = $hget(ircop,0).item 
  while %8 <= %88 { aline 2 @IRCOP $chr(2) %8 - $chr(2) $+($remove($gettok($hget(ircop,%8).item,1,43),~),$chr(2),@,$chr(2),$gettok($hget(ircop,%8).item,2,43),$chr(2),!,$chr(2),$gettok($hget(ircop,%8).item,3,43)) | inc %8 } | hfree -w *ircop* | .disable #w | haltdef }
}
#w end
alias klontara { if $1 { .enable #ilavewho | who $1 | if $hget(klonlar) { hfree klonlar } | var %&- = 1,%&-- = $nick($1,0) | while %&- <= %&-- { bak $nick($1,%&-) $1 | inc %&- } } | okus }
alias bak { 
  if $ialchan($+(*,$gettok($address($1,2),2,64),*),$2,0) < 2 { return }
  else { var %% = 1,%& = $gettok($address($1,2),2,64),%&& = $ialchan($+(*,%&,*),$2,0) | set %tik $ticks | while %% <= %&& { var %%- = $addtok(%%-,$gettok($ialchan($+(*,%&,*),$2,%%),1,33),43)
  inc %% } | hadd -m klonlar $+(%%-,@,%&,@) $calc(%% -1) }
}
alias okus { 
  if !$window(@CLONE) {
    window -aCldk1 -t20,35 @CLONE -1 -1 800 500 Bauhaus 12 
    aline 4 @CLONE $chr(2) %t Kanalı için CLONE listesi;
    aline 4 @CLONE $+($chr(2),$chr(160),Clone taraması sonuçları. Bulunan veri:,$chr(2)) $hget(klonlar,0).item
    aline 4 @CLONE $+($chr(2),$chr(160),Tarama tamamlanma süresi:,$chr(2)) $calc(($ticks - %tik) / 1000) MS
    aline @CLONE $chr(160) | aline @CLONE $chr(160) 
  aline 2 @CLONE $+($chr(2),-Adres-,$chr(2)) $chr(160) $+($chr(2),(Adet),$chr(2)) $chr(9) $+($chr(2),-Nickler-,$chr(2)) } 
  var %7 = 1,%77 = $hget(klonlar,0).item
  while %7 <= %77 { 
    aline 2 @CLONE $+($chr(2),%7 -,$chr(2)) $gettok($hget(klonlar,%7).item,2,64) $chr(160) $+($chr(40),$chr(2),$hget(klonlar,%7).data,$chr(2),$chr(41)) $chr(9) $replace($gettok($hget(klonlar,%7).item,1,64),+,$+($chr(2),$chr(44),$chr(2))) | inc %7
  } 
  aline @CLONE $chr(160) | aline @CLONE $chr(160)
}
#a off
raw *:*: {
  if $numeric == 352 { if G isin $7 { set %tiks $ticks | hadd -m away $+($3,+,$6,+,$4) 1 | hinc -m aways ok 1 } | haltdef }
  if $numeric == 315 { 
    if !$hget(away) { echo -at Uyarı: $2 kanalında, AWAY bulunamadı. | .disable #a | halt }
    window -aCldk1 -t20,35 @AWAY -1 -1 400 300 Bauhaus 12 
    aline 4 @AWAY $chr(2) %a kanalı' için AWAY listesi;
    aline 4 @AWAY $chr(2) Bulunan AWAY NICK sayısı: $chr(2) $hget(aways,ok)
    aline 4 @AWAY $chr(2) Tarama tamamlanma süresi: $calc(($ticks - %tiks) / 1000) M-S
    aline @AWAY $chr(160) | aline 2 @AWAY $chr(2) $str($chr(160),4) -Ident- $str($chr(160),2) -Nick- $str($chr(160),3) -Adres-
    var %9 = 1,%99 = $hget(away,0).item 
  while %9 <= %99 { aline 2 @AWAY $chr(2) %9 - $chr(2) $+($remove($gettok($hget(away,%9).item,1,43),~),$chr(2),@,$chr(2),$gettok($hget(away,%9).item,2,43),$chr(2),!,$chr(2),$gettok($hget(away,%9).item,3,43)) | inc %9 } | hfree -w *away* | .disable #a | haltdef }
}
#a end
#h off
raw *:*: {
  if $numeric == 352 { if *help* iswm $4 || *yardimci* iswm $4 || *görevli* iswm $4 { set %tikss $ticks | hadd -m helper $+($3,+,$6,+,$4) 1 | hinc -m helpers oks 1 } | haltdef }
  if $numeric == 315 { 
    if !$hget(helper) { echo -at Uyarı: $2 kanalında, HELPER bulunamadı. | .disable #h | halt }
    window -aCldk1 -t20,35 @HELPER -1 -1 400 300 Bauhaus 12 
    aline 4 @HELPER $chr(2) %h kanalında bulunan HELPER'lar;
    aline 4 @HELPER $chr(2) Bulunan HELPER sayısı: $chr(2) $hget(helpers,oks)
    aline 4 @HELPER $chr(2) Tarama tamamlanma süresi: $calc(($ticks - %tikss) / 1000) M-S
    aline @HELPER $chr(160) | aline 2 @HELPER $chr(2) $str($chr(160),4) -Ident- $str($chr(160),2) -Nick- $str($chr(160),3) -Adres-
    var %0 = 1,%00 = $hget(helper,0).item 
  while %0 <= %00 { aline 2 @HELPER $chr(2) %0 - $chr(2) $+($remove($gettok($hget(helper,%0).item,1,43),~),$chr(2),@,$chr(2),$gettok($hget(helper,%0).item,2,43),$chr(2),!,$chr(2),$gettok($hget(helper,%0).item,3,43)) | inc %0 } | hfree -w *helper* | .disable #h | haltdef }
}
#h end
alias ytara { 
  set -e %tikk
  window -aCldk1 -t20,35 @YETKİLİ  -1 -1 500 300 Bauhaus 12 
  aline 4 @YETKİLİ $chr(2) %y kanalında bulunan YETKİLİ'ler; 
  aline 4 @YETKİLİ $chr(2) Tarama tamamlanma süresi: $calc(($ticks - %tikk) / 1000) M-S
  aline @YETKİLİ $chr(160) | aline 2 @YETKİLİ $chr(2) $str($chr(160),4) -Nick- $str($chr(160),2) -Ident- $str($chr(160),3) -Adres- $+($chr(9),$str($chr(160),9)) -Yetkisi-
  var %& = 1,%&& = $nick($1,0) 
  while %& <= %&& { 
    if $count($nick($1,%&).pnick,@,.,&,~,%) >= 1 { 
      who $nick($1,%&)
      aline 2 @YETKİLİ $chr(2) %& - $chr(2) $remove($replace($address($nick($1,%&),5),!,$+($chr(2),!,$chr(2)),@,$+($chr(2),@,$chr(2))),~) $+($chr(9),$str($chr(160),9)) $replace($nick($1,$nick($1,%&)).pnick,@,$+($chr(2),@,$chr(2)),&,$+($chr(2),&,$chr(2)),%,$+($chr(2),%,$chr(2)),~,$+($chr(2)~,$chr(2)),.,$+($chr(2),.,$chr(2)))
    } 
    inc %& 
  } 
}
alias notifys { 
  set -e %sur
  window -aCldk1 -t20,35 @NOTIFY  -1 -1 400 300 Bauhaus 12 
  aline 4 @NOTIFY  $chr(2) %n kanalında bulunan ARKADAS'larınız;
  aline 4 @NOTIFY  $chr(2) Tarama tamamlanma süresi: $calc(($ticks - %sur) / 1000) M-S
  aline @NOTIFY $chr(160)
  aline 2 @NOTIFY  $chr(2) $str($chr(160),4) -Nick- $str($chr(160),2) -Ident- $str($chr(160),3) -Adres- 
  var %6 = 1,%66 = $nick($1,0) 
  while %6 <= %66 { 
    if $notify($nick($1,%6)) { 
      inc %= 1 
      who $nick($1,%6)
      aline 2 @NOTIFY $chr(2) %= - $chr(2) $remove($replace($address($nick($1,%6),5),!,$+($chr(2),!,$chr(2)),@,$+($chr(2),@,$chr(2))),~)  
    } 
    inc %6  
  } 
  dec %= %= 
}
menu status,menubar,channel {
  .-
  .†Yardımcı Aramalar†
  ..Helper Ara:/Ara helper
  ..Clone Ara:/Ara clone
  ..IRCop Ara:/Ara ircop
  ..Notify Ara:/Ara arkadas
  ..Yetkili Ara:/Ara yetkili
  ..Away Ara:/Ara away
}

ayrıca görebildiğim kadarıyla } bracket hatası yok kodda.
Eklediğin sayfaya doğru eklediğinden emin olmalısın,çünkü kod çalışıyor...

adigeragip · 27 Ocak 2009, 21:37

evet calışıyo kod ama yine servere girdigimde otomatik tarıyo onu görmesem ama kendim tarama yapınca onu görsem bu mumkun mu acaba

adigeragip · 27 Ocak 2009, 22:34

arkadaslar bir turlü anlamadım "/if: close bracket not found" bu yazı yeniden cıkmaya basladı bir iki kere girdigimde çıkmamıstı simdi tekrar cıkmaya basladı bu komutdan dolayı degil mi acaba dedim bundan sonra hiçbir ayar yapmadım.
yoksa ben mi yanlış yapıyorum alt+r yapıp popupsa kaydetmiyecek miyiz bunu?

Difuzyon · 28 Ocak 2009, 12:51

Yukarda düzenlediğim kodu (ALT + r) ile açılan panelde REMOTE kısmına ekliyorsun.
Ve bölümde paylaşılan kodlar,sana aksi belirtilmedikçe Remote kısmı dışında bir bölüme kod eklemiyorsun(Aklında bulunsun).

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
IRCop'lar için proxy taraması	XcLusive	mIRC Scripting Hazır Kodlar	16	08 Şubat 2012 17:49
IRCServices ' te ircop , coadmin , server admin farkı.	NeXteR	IRCServices	9	03 Şubat 2010 22:01

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

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.