!opekle #Kanal

Admin

Owner
Kurucu Admin
Katılım
13 Mar 2019
Mesajlar
7,685
Tepkime puanı
1
Puanları
38
Yaş
35
Konum
istanbul
Web sitesi
www.isgir.com
Cinsiyet
  1. Bay
Takım
Tarafsız
Kod Yazan : Pckopat

Bu şekilde bir kod yazdım. Mantığı ise şöyle .opekle komutunu kullanan kişinin önce cs den seviyesini kontrol ediyor eğer access seviyesi belirlediğin rakama eşit ise komutu kullanma yetkisi veriyor ve eklemek istediği kişiyi ekliyor ve bir sonraki komut kullanımında yetkisi olduğu için direk ekliyor. Eğer yetki listesinde bulunuyor ama yetkisi silinmişse status çekip yetkisi belirlenen rakama eşit değilse komut kullanma yetkisi siliniyor. Ek olarak ekleme yapmak istediği kişinin nicki şifreli mi değil mi diye kontrol ediyor.


Yapılması gereken düzenlemeler alias kısmındaki bildirimkanal ve kanalseviye yerleridir.


Kod:
alias kanalseviye return 200
alias bildirimkanal return #owner
on $*:text:/^([\.!]opekle\s)/Si:$($bildirimkanal):{
  if ($ulist($nick,$kanalseviye,0) == 1) {
    msg $bildirimkanal Kontrol ediliyor lütfen bekleyiniz.
    set %yetkili on
    set %yetkiislemkanal $2
    set %yetkiislemeklenick $3
    cs status $2 $nick
  }
  elseif ($ulist($nick,$kanalseviye,0) == 0) { 
    msg $bildirimkanal Kontrol ediliyor lütfen bekleyiniz.
    set %yetkisiz on
    set %yetkiislemkanal $2
    set %yetkiislemeklenick $3
    cs status $2 $nick
  }
}
on ^*:NOTiCE:*:?:{
  if ($nick == Chanserv) {
    if (%yetkili == on) && ($regsubex($1-,/status.+\s(\d+)\s.+/i,\1) == $kanalseviye) {
      .set %yetkili on | who %yetkiislemeklenick | halt
    }
    elseif (%yetkili == on) && ($regsubex($1-,/status.+\s(\d+)\s.+/i,\1) != $kanalseviye) {
      .ruser $3 | msg $bildirimkanal $3 Yetki Listesinden Silindiğiniz için Bu Komutu Kullanamazsınız. | unset %yetki* | halt
    }
    elseif (%yetkisiz == on) && ($regsubex($1-,/status.+\s(\d+)\s.+/i,\1) == $kanalseviye) {
      .auser $4 $3 | .set %yetkili on | who %yetkiislemeklenick | halt
    }
    elseif (%yetkisiz == on) && ($regsubex($1-,/status.+\s(\d+)\s.+/i,\1) != $kanalseviye) {
      msg $bildirimkanal $3 Komut Kullanma Yetkiniz bulunmamaktadır. | unset %yetki* | halt
    }
  }
}

raw 352:*: {
  if (%yetkili == on) { 
    if $regex($7,\*) {
      cs access %yetkiislemkanal add $6 50 | msg $bildirimkanal $6 Nickine 50 Seviye Access Eklendi. | unset %yetki*
    }
    else { msg $bildirimkanal Eklemek istediğiniz nick kayıtlı değil. | unset %yetki* }
    halt
  }
}
 

Tupac

Forum Üyesi
Katılım
18 Mar 2019
Mesajlar
3,436
Tepkime puanı
0
Puanları
36
Paylaşım için teşekkür ederim
 
metal işleme
Üst