| Goemon | 23 Ağustos 2015 11:26 |
CR AccesList Komutu ve Kodu
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... }
}
}
|
