Tekil Mesaj gösterimi
Alt 27 Temmuz 2015, 21:37   #1
Goemon
Guest
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Yüzdesi:(%)
Chanserv Kanal List Komutu ve Kodu




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:   Kodu kopyalamak için üzerine çift tıklayın!
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:   Kodu kopyalamak için üzerine çift tıklayın!
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:   Kodu kopyalamak için üzerine çift tıklayın!
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:   Kodu kopyalamak için üzerine çift tıklayın!
[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:   Kodu kopyalamak için üzerine çift tıklayın!
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:   Kodu kopyalamak için üzerine çift tıklayın!
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:   Kodu kopyalamak için üzerine çift tıklayın!
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:   Kodu kopyalamak için üzerine çift tıklayın!
F4 /enable #kanallist | cs list * | .timer 1 3 /disable #kanallist

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
CF4 /enable #kanallist | cs list * | .timer 1 3 /disable #kanallist

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
SF4 /enable #kanallist | cs list * | .timer 1 3 /disable #kanallist

REMOTE ye Ekleyin Bu Kodu.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
#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.
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


Kullanma Komutu: /kanallist

Code 5 SONUÇ: ECHO Sadece Siz Görürsünüz.
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
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:   Kodu kopyalamak için üzerine çift tıklayın!
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:   Kodu kopyalamak için üzerine çift tıklayın!
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



Konu Goemon tarafından (22 Kasım 2015 Saat 14:13 ) değiştirilmiştir.
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları reklam ver Benimmekan Mobil Sohbet