CR de Chanserv Kanal List Komutu ve Kodu

[Goemon]

Merhaba Arkadaşlar ConferenceRoom sunucularındaki Kayıtlı Kanallar Hakkında Bilgi Almaya Yarıyan Kısa Kodlar.


Kendi Scriptinize Ekliyerek ECHO'latarak Kullana Bilirsiniz ve Çıkan Sonuçları Sadece Siz Görürsünüz.

menu status,channel,query {
  Kayıtlı Kanalları Listele:enable #kanallist | cs list * | timer 1 1 disable #kanallist
}

#kanallist off
on *:notice:*:*:{
  if ($nick == Chanserv) {
    if (*Listing all channels matching* iswm $1-) { echo -a 4Kayıtlı Kanal Listesi SıralanıyoR. }
    elseif (*-* iswm $1-) { echo -a 4Kanal Adı:1 $2 1- 4Kanal Sahibi:10 $gettok($gettok($3,1,40),1,41) }
    elseif (*Listing complete; * channels(s) matching * found.* iswm $1-) { echo -a 2Sistemde 1 $3 2Tane Kayıtlı Kanal Var. }
  }
}
#kanallist end

Sonuç:

4Kayıtlı Kanal Listesi SıralanıyoR.
4Kanal Adı:1 #bilgi 1- 4Kanal Sahibi:10 Poyraz
4Kanal Adı:1 #deneme 1- 4Kanal Sahibi:10 Goemon
4Kanal Adı:1 #Root 1- 4Kanal Sahibi:10 Poyraz
4Kanal Adı:1 #yönetim 1- 4Kanal Sahibi:10 Goemon
4Kanal Adı:1 #opers 1- 4Kanal Sahibi:10 Goemon
4Kanal Adı:1 #kontrol 1- 4Kanal Sahibi:10 Poyraz
4Kanal Adı:1 #buLmaca 1- 4Kanal Sahibi:10 Poyraz
4Kanal Adı:1 #dj 1- 4Kanal Sahibi:10 Goemon
4Kanal Adı:1 #radyo 1- 4Kanal Sahibi:10 Poyraz
4Kanal Adı:1 #test 1- 4Kanal Sahibi:10 Poyraz
4Kanal Adı:1 #Oyun 1- 4Kanal Sahibi:10 Poyraz
4Kanal Adı:1 #yarisma 1- 4Kanal Sahibi:10 Poyraz
4Kanal Adı:1 #hasret 1- 4Kanal Sahibi:10 Poyraz
4Kanal Adı:1 #operhelp 1- 4Kanal Sahibi:10 VoLTRaN
4Kanal Adı:1 #keLime 1- 4Kanal Sahibi:10 Poyraz

Arkadaşlar Kayıtlı Kanalları Bulunduğunuz Kanaldakilere Yansıta Bilirsiniz.Kendi Scriptinize Ekliyerek Kullana Bilirsiniz.

menu status,channel,query {
  Kayıtlı Kanalları Listele:enable #kanallist | cs list * | timer 1 1 disable #kanallist
}

#kanallist off
on *:notice:*:*:{
  if ($nick == Chanserv) {
    if (*Listing all channels matching* iswm $1-) { msg $active 4Kayıtlı Kanal Listesi SıralanıyoR. }
    elseif (*-* iswm $1-) { msg $active 4Kanal Adı:1 $2 1- 4Kanal Sahibi:10 $gettok($gettok($3,1,40),1,41) }
    elseif (*Listing complete; * channels(s) matching * found.* iswm $1-) { msg $active 2Sistemde 1 $3 2Tane Kayıtlı Kanal Var. }
  }
}
#kanallist end

Çıkan SONUÇ:

[09:51] <01Goemon> 4Kayıtlı Kanal Listesi SıralanıyoR.
[09:51] <01Goemon> 4Kanal Adı:1 #bilgi 1- 4Kanal Sahibi:10 Poyraz
[09:51] <01Goemon> 4Kanal Adı:1 #Root 1- 4Kanal Sahibi:10 Poyraz
[09:51] <01Goemon> 4Kanal Adı:1 #deneme 1- 4Kanal Sahibi:10 Goemon
[09:51] <01Goemon> 4Kanal Adı:1 #opers 1- 4Kanal Sahibi:10 Goemon
[09:51] <01Goemon> 4Kanal Adı:1 #yönetim 1- 4Kanal Sahibi:10 Goemon
[09:51] <01Goemon> 4Kanal Adı:1 #kontrol 1- 4Kanal Sahibi:10 Goemon
[09:51] <01Goemon> 4Kanal Adı:1 #buLmaca 1- 4Kanal Sahibi:10 Poyraz
[09:51] <01Goemon> 4Kanal Adı:1 #dj 1- 4Kanal Sahibi:10 Goemon
[09:51] <01Goemon> 4Kanal Adı:1 #radyo 1- 4Kanal Sahibi:10 Poyraz
[09:51] <01Goemon> 4Kanal Adı:1 #Oyun 1- 4Kanal Sahibi:10 Poyraz
[09:51] <01Goemon> 4Kanal Adı:1 #test 1- 4Kanal Sahibi:10 Poyraz
[09:51] <01Goemon> 4Kanal Adı:1 #operhelp 1- 4Kanal Sahibi:10 VoLTRaN
[09:51] <01Goemon> 4Kanal Adı:1 #hasret 1- 4Kanal Sahibi:10 Poyraz
[09:51] <01Goemon> 4Kanal Adı:1 #yarisma 1- 4Kanal Sahibi:10 Poyraz
[09:51] <01Goemon> 4Kanal Adı:1 #keLime 1- 4Kanal Sahibi:10 Poyraz
[09:51] <01Goemon> 2Sistemde 1 15 2Tane Kayıtlı Kanal Var.

[Goemon]

Sevgili Arkadaşlar KIRMIZI Renkte Yazan #Opers Kanallarını Kendinize Göre Düzenliyebilirsiniz.

Code Bir TEXT Eventi Botunuza Ekliyerek Kullana Bilirsiniz.

Kullanma Komutu: !kanallist Gibi

Code 1

on *:text:*:#opers: {
  if $regex($1,/^(!|.)kanallist/i) { 
    if (*@* $+ $token($server,2-,$asc(.)) $+ * !iswm $address($nick,2)) { msg $chan 4HATA 2Komutu Kullanma Yetkiniz Yok! | halt }
    elseif ($2) { msg $chan 4HATA 2Eksik Komut Kullandınız! Doğru Kullanımı: 1!kanallist | halt }
    enable #kanallist
    cs list *
    timer 1 3 /disable #kanallist
  }
}

#kanallist off
on *:notice:*:*:{
  if ($nick == Chanserv) {
    if (*Listing all channels matching* iswm $1-) { msg #opers 4Kayıtlı Kanal Listesi SıralanıyoR. }
    elseif (*-* iswm $1-) { msg #opers 4Kanal Adı:1 $2 1- 4Kanal Sahibi:10 $gettok($gettok($3,1,40),1,41) }
    elseif (*Listing complete; * channels(s) matching * found.* iswm $1-) { msg #opers 2Sistemde 1 $3 2Tane Kayıtlı Kanal Var. }
  }
}
#kanallist end

Code İki İNPUT Eventiyle Alakalı Kendi Scriptinize Ekliyerek Kendiniz de Kullana Bilirsiniz.

Kullanma Komutu: !kanallist Gibi

Code 2

on *:input:#opers: {
  if $regex($1,/^(!|.)kanallist/i) { 
    if (*@* $+ $token($server,2-,$asc(.)) $+ * !iswm $address($nick,2)) { msg $chan 4HATA 2Komutu Kullanma Yetkiniz Yok! | halt }
    elseif ($2) { msg $chan 4HATA 2Eksik Komut Kullandınız! Doğru Kullanımı: 1!kanallist | halt }
    enable #kanallist
    cs list *
    timer 1 3 /disable #kanallist
  }
}

#kanallist off
on *:notice:*:*:{
  if ($nick == Chanserv) {
    if (*Listing all channels matching* iswm $1-) { msg #opers 4Kayıtlı Kanal Listesi SıralanıyoR. }
    elseif (*-* iswm $1-) { msg #opers 4Kanal Adı:1 $2 1- 4Kanal Sahibi:10 $gettok($gettok($3,1,40),1,41) }
    elseif (*Listing complete; * channels(s) matching * found.* iswm $1-) { msg #opers 2Sistemde 1 $3 2Tane Kayıtlı Kanal Var. }
  }
}
#kanallist end

Code Üç İNPUT Eventiyle Alakalı Kendi Scriptinize Ekliyerek Sonuçları ECHO'latarak Kendiniz de Kullana Bilirsiniz.

Kullanma Komutu: !kanallist Gibi

Code 3

on *:input:#opers: {
  if $regex($1,/^(!|.)kanallist/i) { 
    if (*@* $+ $token($server,2-,$asc(.)) $+ * !iswm $address($nick,2)) { msg $chan 4HATA 2Komutu Kullanma Yetkiniz Yok! | halt }
    elseif ($2) { msg $chan 4HATA 2Eksik Komut Kullandınız! Doğru Kullanımı: 1!kanallist | halt }
    enable #kanallist
    cs list *
    timer 1 3 /disable #kanallist
  }
}

#kanallist off
on *:notice:*:*:{
  if ($nick == Chanserv) {
    if (*Listing all channels matching* iswm $1-) { echo -a 4Kayıtlı Kanal Listesi SıralanıyoR. }
    elseif (*-* iswm $1-) { echo -a 4Kanal Adı:1 $2 1- 4Kanal Sahibi:10 $gettok($gettok($3,1,40),1,41) }
    elseif (*Listing complete; * channels(s) matching * found.* iswm $1-) { echo -a 2Sistemde 1 $3 2Tane Kayıtlı Kanal Var. }
  }
}
#kanallist end

[Goemon]

Code Dört Ef Tuşlarıyla Alakalı Code Dördü mIRC Scriptinizde ALT + R Tuşlarına Basarak Açtığınızda Aliases Kısmına Ekliyeceksiniz.Code Dördün Snoticeli Olan Kodunuda Remoteye Ekliyeceksiniz.

Kullanma Komutu: F4 Tuşuna Basarak Sizden Yapılmasını İstenilenleri Yazınız.

Yada

Kullanma Komutu: CTRL + F4 Tuşlarına Basarakda Sizden Yapılmasını İstenilenleri Yazınız.

Ve Yahutda

Kullanma Komutu: Shift + F4 Tuşlarına Basarakda Sizden İstenilenleri Yazınız.

Code 4 Aliases Kısmına Ekleyin

F4 /enable #kanallist | cs list * | .timer 1 3 /disable #kanallist

CF4 /enable #kanallist | cs list * | .timer 1 3 /disable #kanallist

SF4 /enable #kanallist | cs list * | .timer 1 3 /disable #kanallist

REMOTE ye Ekleyin Bu Kodu.

#kanallist off
on *:notice:*:*:{
  if ($nick == Chanserv) {
    if (*Listing all channels matching* iswm $1-) { echo -a 4Kayıtlı Kanal Listesi SıralanıyoR. }
    elseif (*-* iswm $1-) { echo -a 4Kanal Adı:1 $2 1- 4Kanal Sahibi:10 $gettok($gettok($3,1,40),1,41) }
    elseif (*Listing complete; * channels(s) matching * found.* iswm $1-) { echo -a 2Sistemde 1 $3 2Tane Kayıtlı Kanal Var. }
  }
}
#kanallist end

[Goemon]

Code 5 ALİAS la Alakalı Kendi Scriptinize Ekliyerek Kullana Bilirsiniz.

İster ECHO Olarak Siz Görün.İsterseniz Kanala Yansıtın.İstediğiniz Şekilde Kullana Bilirsiniz.

Kullanma Komutu: /kanallist

Code 5 SONUÇ: ECHO Sadece Siz Görürsünüz.

alias kanallist {
  if $1 { echo -a 4HATA 2Eksik Komut Kullandınız! Doğru Kullanımı: 1/kanallist | halt }
  enable #kanallist
  cs list *
  timer 1 3 /disable #kanallist
}

#kanallist off
on *:notice:*:*:{
  if ($nick == Chanserv) {
    if (*Listing all channels matching* iswm $1-) { echo -a 4Kayıtlı Kanal Listesi SıralanıyoR. }
    elseif (*-* iswm $1-) { echo -a 4Kanal Adı:1 $2 1- 4Kanal Sahibi:10 $gettok($gettok($3,1,40),1,41) }
    elseif (*Listing complete; * channels(s) matching * found.* iswm $1-) { echo -a 2Sistemde 1 $3 2Tane Kayıtlı Kanal Var. }
  }
}
#kanallist end

Code 5 SONUÇ: CHANNEL Kanala Yansıtılır

Kullanma Komutu: /kanallist

alias kanallist {
  if $1 { echo -a 4HATA 2Eksik Komut Kullandınız! Doğru Kullanımı: 1/kanallist | halt }
  enable #kanallist
  cs list *
  timer 1 3 /disable #kanallist
}

#kanallist off
on *:notice:*:*:{
  if ($nick == Chanserv) {
    if (*Listing all channels matching* iswm $1-) { msg $active 4Kayıtlı Kanal Listesi SıralanıyoR. }
    elseif (*-* iswm $1-) { msg $active 4Kanal Adı:1 $2 1- 4Kanal Sahibi:10 $gettok($gettok($3,1,40),1,41) }
    elseif (*Listing complete; * channels(s) matching * found.* iswm $1-) { msg $active 2Sistemde 1 $3 2Tane Kayıtlı Kanal Var. }
  }
}
#kanallist end

Not: $active yazan yer o anki bulunduğunuz kanalı temsil ederek sonuçu o kanala yansıtır.lakin sabit kanal belirlemek isterseniz $active yazan yeri silerek #opers gibi yazarak da sonuç ala bilirsiniz.


ÖRNEK: Belirlediğimiz #opers Kanalına Sonuçları Yansıtacaz.

Kullanma Komutu: /kanallist

alias kanallist {
  if $1 { echo -a 4HATA 2Eksik Komut Kullandınız! Doğru Kullanımı: 1/kanallist | halt }
  enable #kanallist
  cs list *
  timer 1 3 /disable #kanallist
}

#kanallist off
on *:notice:*:*:{
  if ($nick == Chanserv) {
    if (*Listing all channels matching* iswm $1-) { msg #opers 4Kayıtlı Kanal Listesi SıralanıyoR. }
    elseif (*-* iswm $1-) { msg #opers 4Kanal Adı:1 $2 1- 4Kanal Sahibi:10 $gettok($gettok($3,1,40),1,41) }
    elseif (*Listing complete; * channels(s) matching * found.* iswm $1-) { msg #opers 2Sistemde 1 $3 2Tane Kayıtlı Kanal Var. }
  }
}
#kanallist end