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