CR AccesList Komutu ve Kodu

[Goemon]

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ı

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ı

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ı

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ı

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.

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

[Goemon]

Arkadaşlar Kendi Scriptinize Ekliyerek de Kullana Bilirsiniz.

menu status,channel,query {
  Kanal Acces List Hakkında BilgiAl:enable #acceslist | cs count $$?="Kanal Adını Yazın.Örn: #Sohbet Gibi.." | timer 1 3 disable #acceslist
}

#acceslist off
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:10 $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:10 $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:10 $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:10 $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:10 $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