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

sniper · 10 Eylül 2008, 00:22

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

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

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: Kodu kopyalamak için üzerine çift tıklayın!

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

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

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

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

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

kodu düzelttim simdi tekrar alirmisin

sniper · 10 Eylül 2008, 17:54

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

sniper Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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: Kodu kopyalamak için üzerine çift tıklayın!

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

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

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

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

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Eposta uzantılarını kontrol etmek	hAte	PHP	0	15 Ocak 2015 06:37
3DS Oyununu PS1 Joy Pad'i İle Kontrol Etmek!	KarakıZ	Oyun Dünyasından Son Haberler	0	25 Şubat 2012 18:28
mirc kontrol etmek	Susuntu	mIRC Scripting Sorunları	5	24 Ocak 2009 16:42

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.