Merhaba SevgiLi mİRCScripting.NET Forum Üyeleri
Arkadaşlar
Conferenceroom Sunucularında Botunuzda Kendi Scriptinizde Kullanabilceğiniz Acces List Komutudur.Acces List Komutu Neye Yarar Kanaldaki
Uop,Vop,Aop,Sop,FoundeR Hakkında Bilgi Vermeye Yarar.
KIRMIZI İle Belirtdiğim
#opers Kanalını Kendinize Göre Değiştirebilirsiniz.Kodun Tepki Verceği Kanalda
#opers Kanalıdır Siz Kendi Kanalınızın Adınıda Yazarak Değiştirebilirsiniz.
Bu Code
Text Eventi İle Yazıldı
#Opers Kanalında Başka birilerininde Kullana Bilmesine Müsade Edilmiş Botunuza ekliyerek kullanabilirsiniz.
Kullanma Komutu: !acceslist #kanaladı Kod:
on *:text:*:#opers:{
if $strip($1) == !acceslist && $2 {
.enable #acceslist | cs count $2 | set %kanalım $2 | .timerlist 1 2 .disable #acceslist
}
}
#acceslist off
on *:notice:*:*:{
if ($nick == Chanserv) {
if (*UOp* iswm $1-) { msg #opers 7 %kanalım 2Kanalındaki 4Uop 2Yetkili Sayısı4:12 $token($3,1,47) 2Sınır4: $token($3,2,47) }
if (*VOp* iswm $1-) { msg #opers 7 %kanalım 2Kanalındaki 4Vop 2Yetkili Sayısı4:12 $token($5,1,47) 2Sınır4: $token($5,2,47) }
if (*AOp* iswm $1-) { msg #opers 7 %kanalım 2Kanalındaki 4Aop 2Yetkili Sayısı4:12 $token($7,1,47) 2Sınır4: $token($7,2,47) }
if (*SOp* iswm $1-) { msg #opers 7 %kanalım 2Kanalındaki 4Sop 2Yetkili Sayısı4:12 $token($9,1,47) 2Sınır4: $token($9,2,47) }
if (*AKICK* iswm $1-) { msg #opers 7 %kanalım 2Kanalında 4AKİCK 2Atılan Kişi Sayısı4:12 $token($11,1,47) 2Sınır4: $token($11,2,47) }
elseif $regex(sf,$1-,/The\schannel\s(.+)\sis\snot\sregistered/S) { msg #opers 4 $regml(sf,1) 2Kanalı Şifresizdir... }
}
}
#acceslist end
Bu Code
İnput Eventiyle Yazıldı Sadece Siz Kendi Scriptinize ekliyerek Kullanabilirsiniz.Bunda Yine Kanala Yansır.
Kullanma Komutu: !acceslist #kanaladı Kod:
on *:input:#opers:{
if $strip($1) == !acceslist && $2 {
.enable #acceslist | cs count $2 | set %kanalım $2 | .timerlist 1 2 .disable #acceslist
}
}
#acceslist off
on *:notice:*:*:{
if ($nick == Chanserv) {
if (*UOp* iswm $1-) { msg #opers 7 %kanalım 2Kanalındaki 4Uop 2Yetkili Sayısı4:12 $token($3,1,47) 2Sınır4: $token($3,2,47) }
if (*VOp* iswm $1-) { msg #opers 7 %kanalım 2Kanalındaki 4Vop 2Yetkili Sayısı4:12 $token($5,1,47) 2Sınır4: $token($5,2,47) }
if (*AOp* iswm $1-) { msg #opers 7 %kanalım 2Kanalındaki 4Aop 2Yetkili Sayısı4:12 $token($7,1,47) 2Sınır4: $token($7,2,47) }
if (*SOp* iswm $1-) { msg #opers 7 %kanalım 2Kanalındaki 4Sop 2Yetkili Sayısı4:12 $token($9,1,47) 2Sınır4: $token($9,2,47) }
if (*AKICK* iswm $1-) { msg #opers 7 %kanalım 2Kanalında 4AKİCK 2Atılan Kişi Sayısı4:12 $token($11,1,47) 2Sınır4: $token($11,2,47) }
elseif $regex(sf,$1-,/The\schannel\s(.+)\sis\snot\sregistered/S) { msg #opers 4 $regml(sf,1) 2Kanalı Şifresizdir... }
}
}
#acceslist end
Bu Code
İnput Eventi İle Yazıldı Kendi Scriptinize Ekliyerek Sadece Siz Kullana Bilirsiniz Bunda Yazılan sonuçları
ECHO Komutuyla Sadece Siz Görebilirsiniz Sonuçlar Kanala Yansımaz.
Kullanma Komutu: !acceslist #kanaladı Kod:
on *:input:#opers:{
if $strip($1) == !acceslist && $2 {
.enable #acceslist | cs count $2 | set %kanalım $2 | .timerlist 1 2 .disable #acceslist
}
}
#acceslist off
on *:notice:*:*:{
if ($nick == Chanserv) {
if (*UOp* iswm $1-) { echo -a 7 %kanalım 2Kanalındaki 4Uop 2Yetkili Sayısı4:12 $token($3,1,47) 2Sınır4: $token($3,2,47) }
if (*VOp* iswm $1-) { echo -a 7 %kanalım 2Kanalındaki 4Vop 2Yetkili Sayısı4:12 $token($5,1,47) 2Sınır4: $token($5,2,47) }
if (*AOp* iswm $1-) { echo -a 7 %kanalım 2Kanalındaki 4Aop 2Yetkili Sayısı4:12 $token($7,1,47) 2Sınır4: $token($7,2,47) }
if (*SOp* iswm $1-) { echo -a 7 %kanalım 2Kanalındaki 4Sop 2Yetkili Sayısı4:12 $token($9,1,47) 2Sınır4: $token($9,2,47) }
if (*AKICK* iswm $1-) { echo -a 7 %kanalım 2Kanalında 4AKİCK 2Atılan Kişi Sayısı4:12 $token($11,1,47) 2Sınır4: $token($11,2,47) }
elseif $regex(sf,$1-,/The\schannel\s(.+)\sis\snot\sregistered/S) { echo -a 4 $regml(sf,1) 2Kanalı Şifresizdir... }
}
}
#acceslist end
Bu
Alias Çalışmasındada
ECHO Komutunu Kullanarak Sadece Sizlerin Göre Bilmesine Olanak Sağladım Kendi Scriptinize ekliyerek Kullanabilirsiniz.
Kullanma Komutu: /acceslist #kanaladı Kod:
alias acceslist {
if (!$1) { echo -a 4HATA 2Yanlış Komut Kullandiniz. Dogru Kullanimi 10/acceslist #kanaladı | halt }
elseif $2 { echo -a 4HATA 2Yanlış Komut Kullandiniz. Dogru Kullanimi 10/acceslist #kanaladı | halt }
set %kanalım $1
.enable #acceslist
cs count $1
.timerlist 1 2 .disable #acceslist
}
#acceslist off
on *:notice:*:*:{
if ($nick == Chanserv) {
if (*UOp* iswm $1-) { echo -a 7 %kanalım 2Kanalındaki 4Uop 2Yetkili Sayısı4:12 $token($3,1,47) 2Sınır4: $token($3,2,47) }
if (*VOp* iswm $1-) { echo -a 7 %kanalım 2Kanalındaki 4Vop 2Yetkili Sayısı4:12 $token($5,1,47) 2Sınır4: $token($5,2,47) }
if (*AOp* iswm $1-) { echo -a 7 %kanalım 2Kanalındaki 4Aop 2Yetkili Sayısı4:12 $token($7,1,47) 2Sınır4: $token($7,2,47) }
if (*SOp* iswm $1-) { echo -a 7 %kanalım 2Kanalındaki 4Sop 2Yetkili Sayısı4:12 $token($9,1,47) 2Sınır4: $token($9,2,47) }
if (*AKICK* iswm $1-) { echo -a 7 %kanalım 2Kanalında 4AKİCK 2Atılan Kişi Sayısı4:12 $token($11,1,47) 2Sınır4: $token($11,2,47) }
elseif $regex(sf,$1-,/The\schannel\s(.+)\sis\snot\sregistered/S) { echo -a 4 $regml(sf,1) 2Kanalı Şifresizdir... }
}
}
#acceslist end
Bu
Snotice Eventli Codeyi Kendi Scriptinize Ekliyerek
ECHO Komutu Sayesinde Acceslitini Öğrenmek İstediğiniz Kanalın Bilgisini Verir.
Conferenceroomdaki Komutumuz: /cs count #kanal Gibi Yazarak Kanalın Acceslistini Öğrene Biliriz.
Kod:
on *:notice:*:*:{
if ($nick == Chanserv) {
if (*UOp* iswm $1-) { echo -a 7 $1 2Kanalındaki 4Uop 2Yetkili Sayısı4:12 $token($3,1,47) 2Sınır4: $token($3,2,47) }
if (*VOp* iswm $1-) { echo -a 7 $1 2Kanalındaki 4Vop 2Yetkili Sayısı4:12 $token($5,1,47) 2Sınır4: $token($5,2,47) }
if (*AOp* iswm $1-) { echo -a 7 $1 2Kanalındaki 4Aop 2Yetkili Sayısı4:12 $token($7,1,47) 2Sınır4: $token($7,2,47) }
if (*SOp* iswm $1-) { echo -a 7 $1 2Kanalındaki 4Sop 2Yetkili Sayısı4:12 $token($9,1,47) 2Sınır4: $token($9,2,47) }
if (*AKICK* iswm $1-) { echo -a 7 $1 2Kanalında 4AKİCK 2Atılan Kişi Sayısı4:12 $token($11,1,47) 2Sınır4: $token($11,2,47) }
elseif $regex(sf,$1-,/The\schannel\s(.+)\sis\snot\sregistered/S) { echo -a 4 $regml(sf,1) 2Kanalı Şifresizdir... }
}
}