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

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 26 Ocak 2009, 20:21   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
server da ircop taraması




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

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları reklam ver Benimmekan Mobil Sohbet
Alt 26 Ocak 2009, 20:51   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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.

 
Alıntı ile Cevapla

Alt 26 Ocak 2009, 22:26   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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?

 
Alıntı ile Cevapla

Alt 26 Ocak 2009, 23:16   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: server da ircop taraması




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.

 
Alıntı ile Cevapla

Alt 27 Ocak 2009, 00:08   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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ı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 
Alıntı ile Cevapla

Alt 27 Ocak 2009, 17:39   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: server da ircop taraması




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..

 
Alıntı ile Cevapla

Alt 27 Ocak 2009, 19:50   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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:   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...

 
Alıntı ile Cevapla

Alt 27 Ocak 2009, 21:37   #8
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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


Konu adigeragip tarafından (27 Ocak 2009 Saat 22:19 ) değiştirilmiştir.
 
Alıntı ile Cevapla

Alt 27 Ocak 2009, 22:34   #9
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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?


Konu adigeragip tarafından (27 Ocak 2009 Saat 23:11 ) değiştirilmiştir.
 
Alıntı ile Cevapla

Alt 28 Ocak 2009, 12:51   #10
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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).

 
Alıntı ile Cevapla

Cevapla

Etiketler
ircop, mirc download, mirc indir, server, taramasi


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

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


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