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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   server da ircop taraması (https://www.ircforumlari.net/mirc-scripting-sorunlari/174845-server-da-ircop-taramasi.html)

adigeragip 26 Ocak 2009 20:21
server da ircop taraması
 
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
Cevap: server da ircop taraması
 
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
Cevap: server da ircop taraması
 
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
Cevap: server da ircop taraması
 
Kod:
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
Cevap: server da ircop taraması
 
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ı;idea

adigeragip 27 Ocak 2009 17:39
Cevap: server da ircop taraması
 
Alıntı:
SaGoPa-mİRCKanka Nickli Üyeden Alıntı (Mesaj 627018)
Kod:
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
Cevap: server da ircop taraması
 
O taramayı yapmazsa , tam sonuçları alamazsın.Yarım yamalak olur, o taramaları scriptimde görmek istemiyorum dersen ;

Kod:
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
Cevap: server da ircop taraması
 
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
Cevap: server da ircop taraması
 
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
Cevap: server da ircop taraması
 
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).


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 03:46.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk