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/)
-   -   kanalları kontrol etmek (https://www.ircforumlari.net/mirc-scripting-sorunlari/132510-kanallari-kontrol-etmek.html)

sniper 10 Eylül 2008 00:22

kanalları kontrol etmek
 
Toplam 1 Eklenti bulunuyor.
selamın aleyküm ustalar benim bir isteğim olacak ben ircop um 30 kişiden büyük kanallar daki % @ & ların kaç kanalda olduklarını kontrol etmek istiyorum ama #oyun #radyo kanalları hariç ve sniper nicki gözükmesin o codede hiç birşey üretemediğim için özrdilerim en azından bir emek vermek isterdim ama çok az bilgim var yardımcı olan arkadaşlar aşimdiden tşk ;oki

Duffy`DuCk 10 Eylül 2008 03:07

Cevap: kanalları kontrol etmek
 
Kod:

raw *:*: {
  if $numeric == 322 {
    if $3 > 30 {
      if $istok(#Radyo #Oyun,$2,32) { echo -st Radyo ve Oyun muaf. | halt }
      names $2
    }
  }
  if $numeric == 353 {
    var %1 1, %Sj $remove($5-,:)
    while %1 <= $numtok(%Sj,32) {
      if *@* iswm $gettok(%Sj,%1,32) {
        window -z @Aop
        echo @Aop $+(4,$3,) Kanalının Aop(4@)ları : $remove($gettok(%Sj,%1,32),@)
      }
      if *&* iswm $gettok(%Sj,%1,32) {
        window -z @Sop
        echo @Sop $$+(4,$3,) Kanalının Sop(2&)ları : $remove($gettok(%Sj,%1,32),&)
      }
      if *%* iswm $gettok(%Sj,%1,32) {
        window -z @Hop
        echo @Hop $+(4,$3,) Kanalının Halfop(13%)ları : $remove($gettok(%Sj,%1,32),%)
      }
      elseif *@* iswm $gettok(%Sj,%1,32) || *&* iswm $gettok(%Sj,%1,32) || *%* iswm $gettok(%Sj,%1,32) {
        set -u60 %Whois 1
        .whois $remove($gettok(%Sj,%1,32),@,%,&)
      }
      inc %1
    }
    haltdef
  }
  if $numeric == 319 {
    if %Whois == 1 {
      window -z @Kanallar
      echo @Kanallar $+(2[,$2,2]) Nick oldugu kanallar: $+(4,$remove($3-,:),) Toplam kanal :2 $calc($count($3-,$chr(32)) + 1) 
    }
  }
  if $numeric == 366 {
    haltdef
  }
}

Kod:

4#Muhabbet Kanalının Aop(4@)ları : CANSUU
4#Muhabbet Kanalının Aop(4@)ları : okcu
4#Muhabbet Kanalının Aop(4@)ları : Derya_Deniz
4#Muhabbet Kanalının Aop(4@)ları : _KeweL_
4#Muhabbet Kanalının Aop(4@)ları : TegmeN
[CANSUU] Nick oldugu kanallar: %#GlobalOps @#chat @#turkiyem &#sivas @#muhabbet@@ @#Chat@ #Turkiye #yarisma @#Klavye @#KeLeBeK @#Muhabbet %#mIRCTR Toplam kanal : 12
[okcu] Nick oldugu kanallar: #chat #kelime #sohbet #Ankara #istanbul #Radyo @#Muhabbet #mIRCTR Toplam kanal : 8
[Derya_Deniz] Nick oldugu kanallar: @#Muhabbet @#Chat@ @#chat #Radyo #mIRCTR Toplam kanal : 5
[_KeweL_] Nick oldugu kanallar: @#chat %#izmir@ %#izmir #kelime #sohbet #Ankara #istanbul #Radyo @#Muhabbet #mIRCTR Toplam kanal : 10
[TegmeN] Nick oldugu kanallar: @#Turkiye@ @#Turkiye #yarisma #Klavye #KeLeBeK #Radyo @#Muhabbet #mIRCTR Toplam kanal : 8

/list çekmen yeterli.

sniper 10 Eylül 2008 13:21

Cevap: kanalları kontrol etmek
 
allah razı olsun hocam #radyo #oyun kanallarını çoğaltmam için örnek verirmisiniz

birde kanallara girdiğinde otamatik kendisi yetkilileri kontrol ediyo bunu iptal edebilirmisin ;oki;oki

detay 10 Eylül 2008 15:12

Cevap: kanalları kontrol etmek
 
Kod:

alias _list list | set -u15 %list on

raw *:*: {
  if %list {
    haltdef
    if $numeric == 322 { if $3 > 30 { if $istok(#Radyo #Oyun,$2,32) { echo -st Radyo ve Oyun muaf. | halt } | names $2 } }
    if $numeric == 353 {
      var %1 1, %Sj $remove($5-,:)
      while %1 <= $numtok(%Sj,32) {
        if *@* iswm $gettok(%Sj,%1,32) {
          window -z @Aop
          echo @Aop $+(4,$3,) Kanalının Aop(4@)ları : $remove($gettok(%Sj,%1,32),@)
        }
        if *&* iswm $gettok(%Sj,%1,32) {
          window -z @Sop
          echo @Sop $$+(4,$3,) Kanalının Sop(2&)ları : $remove($gettok(%Sj,%1,32),&)
        }
        if *%* iswm $gettok(%Sj,%1,32) {
          window -z @Hop
          echo @Hop $+(4,$3,) Kanalının Halfop(13%)ları : $remove($gettok(%Sj,%1,32),%)
        }
        elseif *@* iswm $gettok(%Sj,%1,32) || *&* iswm $gettok(%Sj,%1,32) || *%* iswm $gettok(%Sj,%1,32) {
          set -u60 %Whois 1
          .whois $remove($gettok(%Sj,%1,32),@,%,&)
        }
        inc %1
      }
      haltdef
    }
    if $numeric == 319 {
      if %Whois == 1 {
        window -z @Kanallar
        echo @Kanallar $+(2[,$2,2]) Nick oldugu kanallar: $+(4,$remove($3-,:),) Toplam kanal :2 $calc($count($3-,$chr(32)) + 1) 
      }
    }
    if $numeric == 366 { haltdef }
  }
}

ayri bir deger atamak lazim renkli gösterdigim gibi.
/_list komutunu kullan

sniper 10 Eylül 2008 16:26

Cevap: kanalları kontrol etmek
 
hocam denedim çalışmadı şöyle bişey çıktı statüt de ve özelin orda bir pencere çıkmadı yetkilileri gösteren sadece bunlar çıktı+ ben istediğim kanalı kontrol edicem mesela /_list #ayna yapıcam özelin orda bi pencere açılcak yetkililer hakkında bilgi vercek kanalları hakkında


Kanallar Listeleniyor
-
[16:16:21] Radyo ve Oyun muaf.
/Kanal Listesi Sonu
-
#Klavye
#Klavye End of /NAMES list.
-
#mIRCTR
#mIRCTR End of /NAMES list.
-
#cinsellik
#cinsellik End of /NAMES list.
-
#sohbet
#sohbet End of /NAMES list.
-
#***
#*** End of /NAMES list.
-
#antalya KLBKScript238 atik arkana_bakma_gülüm mircTR-1519266147 üniversiteli_alp ecem_21 mazlum_35 black_tigeR__ A-mIRCTR-SwatBot mircTR-1519266131 L-mIRCTR-SwatBot yaman_22 ebuşşş Z-mIRCTR-SwatBot KLBKScript11954 balistikekmek ADANALIM BeYaZ_SeYTaN izmir_mert ÇADALOZ mimarr_korayy belkız_22 mIRCTRUser-504 Sırat-i-mustakim kahin_61 mircTR-624064404 mircTR-1519265027 seviyeli354 askmelegım KLBKScript75975 tipe_degil_sike_bakarmısın
-
#antalya emre_17 PsycHoLoGist mühendis24 küçükkızsever mircTR-1519266072 TILSIMMMM çok-pis-yakışıklıymışım izmirli_hancer oktayyyyyyyyyyyyyyyyyyyyyyyyyy teoo34 can-polat KLBKScript466 E{d{u DamLaaa_19 ayLa__19 mIRCTRUser-137 [SeRiKaTiL] _Coskulu34_ badest ULUS--m-- ORHAN43 Agla-gözlerim_-silemem-yasını &^^TANER^^ turanım AsLI_bayrampaş_yıldırım_mah mIRCTR538737295 fun amar miraç59 ^^Tekirdg_pasf ^^ASK_ADAMI^^ samet__0034 ya_sabır
-
#antalya Ayetullah_Humeyni sevda42yaş şiwan_perwer &bozo0023 hukukkk metin IRCJodan AAtilla34ank polissssss mircTR-1519265573 berk_18 %pr0tex OSMAN_39 +begüm polisss_ist %Ruya_ erkannn %NoMercy
#antalya End of /NAMES list.
-
#aşk
#aşk End of /NAMES list.
-
#KeLeBeK
#KeLeBeK End of /NAMES list.
#dostluk
#dostluk End of /NAMES list.
-
#beginner
#beginner End of /NAMES list.
-
#IstanbuL
#IstanbuL End of /NAMES list.
-
#Muhabbet
#Muhabbet End of /NAMES list.

detay 10 Eylül 2008 16:54

Cevap: kanalları kontrol etmek
 
kodu düzelttim simdi tekrar alirmisin

sniper 10 Eylül 2008 17:54

Cevap: kanalları kontrol etmek
 
usta bazı hatalar var gene /_list #zurna yapıyom #sevgi kanalının da yetkili listesine bakıyor okanala girdiğim için yani sadece zurna kanalına bakması gerek /_list #zurna yaptığımda demi ve % ları göstermiyor hangi kanallarda olduklarını

Duffy`DuCk 10 Eylül 2008 21:18

Cevap: kanalları kontrol etmek
 
Alıntı:

sniper Nickli Üyeden Alıntı (Mesaj 542159)
usta bazı hatalar var gene /_list #zurna yapıyom #sevgi kanalının da yetkili listesine bakıyor okanala girdiğim için yani sadece zurna kanalına bakması gerek /_list #zurna yaptığımda demi ve % ları göstermiyor hangi kanallarda olduklarını

Kod:

alias nms names $1 | set -u10 %nms 1
alias lst list | set -u10 %nms 1
raw *:*: {
  if %nms == 1 {
    if $numeric == 322 {
      if $3 > 30 {
        if $istok(#Radyo #Oyun,$2,32) { echo -st Radyo ve Oyun muaf. | halt }
        names $2
      }
    }
    if $numeric == 353 {
      var %1 1, %Sj $remove($5-,:)
      while %1 <= $numtok(%Sj,32) {
        if *@* iswm $gettok(%Sj,%1,32) {
          window -z @Aop
          echo @Aop $+(4,$3,) Kanalının Aop(4@)ları : $remove($gettok(%Sj,%1,32),@)
        }
        if *&* iswm $gettok(%Sj,%1,32) {
          window -z @Sop
          echo @Sop $$+(4,$3,) Kanalının Sop(2&)ları : $remove($gettok(%Sj,%1,32),&)
        }
        if *%* iswm $gettok(%Sj,%1,32) {
          window -z @Hop
          echo @Hop $+(4,$3,) Kanalının Halfop(13%)ları : $remove($gettok(%Sj,%1,32),%)
        }
        elseif *@* iswm $gettok(%Sj,%1,32) || *&* iswm $gettok(%Sj,%1,32) || *%* iswm $gettok(%Sj,%1,32) {
          set -u60 %Whois 1
          .whois $remove($gettok(%Sj,%1,32),@,%,&)
        }
        inc %1
      }
      haltdef
    }
  }
  if $numeric == 319 {
    if %Whois == 1 {
      window -z @Kanallar
      echo @Kanallar $+(2[,$2,2]) Nick oldugu kanallar: $+(4,$remove($3-,:),) Toplam kanal :2 $calc($count($3-,$chr(32)) + 1) 
    }
  }
  if $numeric == 366 {
    haltdef
  }
}

Tek bi kanal'a bakmak için /nms #kanal server'daki kanallara bakmak için /lst (: yeterli olucak, Muaf kanalları cogaltmak için ise;

if $istok(#Radyo #Oyun #Kanal #kanal2 #kanal3 #vs #vs #vs,$2,32) { echo -st Radyo ve Oyun muaf. | halt }

sniper 10 Eylül 2008 22:21

Cevap: kanalları kontrol etmek
 
Toplam 1 Eklenti bulunuyor.
duffy duCk kardeşim eline sağlık ta küçük bi problem kaldı oda % ların kanallarını göstermiyor ona bakabilirmiyiz founderleride göstersin mümkünse şimdiden çok tşk yardımların için

Duffy`DuCk 10 Eylül 2008 22:48

Cevap: kanalları kontrol etmek
 
Kod:

alias nms names $1 | set -u10 %nms 1
alias lst list | set -u10 %nms 1
raw *:*: {
  if %nms == 1 {
    if $numeric == 322 {
      if $3 > 30 {
        if $istok(#Radyo #Oyun,$2,32) { echo -st Radyo ve Oyun muaf. | halt }
        names $2
      }
    }
    if $numeric == 353 {
      var %1 1, %Sj $remove($5-,:)
      while %1 <= $numtok(%Sj,32) {
        if *.* iswm $gettok(%Sj,%1,32) {
          window -z @Founder
          echo @Founder $+(4,$3,) Kanalının Founderi(4.) : $remove($gettok(%Sj,%1,32),.)
        }
        if *@* iswm $gettok(%Sj,%1,32) {
          window -z @Aop
          echo @Aop $+(4,$3,) Kanalının Aop(4@)ları : $remove($gettok(%Sj,%1,32),@)
        }
        if *&* iswm $gettok(%Sj,%1,32) {
          window -z @Sop
          echo @Sop $$+(4,$3,) Kanalının Sop(2&)ları : $remove($gettok(%Sj,%1,32),&)
        }
        if *%* iswm $gettok(%Sj,%1,32) {
          set -u60 %Whois 1
          window -z @Hop
          echo @Hop $+(4,$3,) Kanalının Halfop(13%)ları : $remove($gettok(%Sj,%1,32),%)
          .whois $remove($gettok(%Sj,%1,32),%)
        }
        elseif *@* iswm $gettok(%Sj,%1,32) || *%* iswm $gettok(%Sj,%1,32) || *&* iswm $gettok(%Sj,%1,32) || *.* iswm $gettok(%Sj,%1,32) || *~* iswm $gettok(%Sj,%1,32) {
          set -u60 %Whois 1
          .whois $remove($gettok(%Sj,%1,32),%,@,&,.,~)
        }
        inc %1
      }
      haltdef
    }
  }
  if $numeric == 319 {
    if %Whois == 1 {
      window -z @Kanallar
      echo @Kanallar $+(2[,$2,2]) Nick oldugu kanallar: $+(4,$remove($3-,:),) Toplam kanal :2 $calc($count($3-,$chr(32)) + 1) 
    }
  }
  if $numeric == 366 {
    haltdef
  }
}



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

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