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

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.

Kod:

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ç:

Kod:

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.

Kod:

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Ç:

Kod:

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

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

Kod:

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

Kod:

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

Kod:

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

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

Kod:

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

Kod:

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

Kod:

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

REMOTE ye Ekleyin Bu Kodu.

Kod:

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

Kod:

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

Kod:

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

Kod:

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