Türkiye'nin IRCd ve LaMeR Forumu Sitesi
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5

[-]
Tags
mircaddon mirckodları yetki mirc chanserv chanservaddon mirckodlar mircaddonları chanservkomut irc chanservkomutlar ekleme chanservkod paneli

Mirc İrc Chanserv Yetki Ekleme Paneli
Admin
#1
Ekleme: Mircinizde Alt+R tuşuna basın sol üstte dosya => yeni ekle seçin. Kodları yapıştırın.

Kullanımı mircinizde sağ tuşa tıklayıp chanserv yetki paneline tıklayın.


chanservyetkiekleme.png

Kod:
dialog ch.access {
  title "Chanserv Access Paneli"
  size -1 -1 251 142
  option dbu
  box "Kanali Seç", 1, 2 0 65 111
  combo 2, 4 9 60 50, size drop
  combo 3, 4 24 60 50, size
  edit "Kaç LeveLs ?", 4, 4 73 60 10, center
  button "Ekle", 5, 14 89 37 12
  box "Alt Kısımdakiler Access Seviyelerini ve Nickleri Gösterir.", 6, 67 0 179 111
  combo 7, 70 9 173 75, size
  button "Kaldir", 8, 73 86 37 12
  edit "Access Level", 9, 154 86 50 11, center
  button "Düzenle", 10, 205 85 37 12
  button "Tamam Kapat.", 11, 190 116 54 12, ok
  text "  Kullanimi : İlk önce Kanali Seçiyorsunuz.  Sonra bi altina Nicki yaziyorsunuz. Kaç Levels yazan yerede Seviyesini yazip Ekle diyorsunuz. ßy RosicRucian", 12, 12 116 150 22
}

alias access { dialog -m ch.access ch.access }

Menu Channel {
  Chanserv Yetki Paneli:access
}

on ^*:NOTICE:*:?:{
  if ($dialog(ch.access)) && ($nick == Chanserv) {
    if (Access list for isin $1-) { haltdef }
    if (must be non-zero isin $1-) { haltdef | echo -a  4Error: Level must be a number and non-zero }
    if ($2 = VOP) || ($2 = HOP) || ($2 = AOP) || ($2 = SOP) {
      if (%halt.x = on) { halt }
      haltdef
      did -a ch.access 7 Chan must have xOp turned off
      set -u3 %halt.x on
    }
    if ($1 isnum) && ($2 isnum) { haltdef | did -a ch.access 7 $3 - Access Level $2 }
    if (Num isin $1-) { haltdef }
    if (End isin $1-) { haltdef }
    if (Access Denied isin $1-) { haltdef | did -a ch.access 7 Access Denied }
    if (added to isin $1-) { haltdef }
    if (deleted from isin $1-) { haltdef }
    if (changed isin $1-) { haltdef }
    if (list is empty isin $1-) { haltdef | did -a ch.access 7 Access List is Empty }
  }
}

on *:DIALOG:ch.access:*:*: {
  if ($devent == init) {
    did -b $dname 3-5
    did -b $dname 7-10
    did -f $dname 2
    var %chan.var 1
    while (%chan.var <= $chan(0)) {
      did -a $dname 2 $chan(%chan.var)
      inc %chan.var
    }
  }
  if ($devent == sclick) {
    if ($did == 2) {
      did -r $dname 7
      cs access $did(2) list
      did -e $dname 7
      did -e $dname 3
      did -f $dname 3
      var %nick.var 1
      while (%nick.var <= $nick($did(2),0)) {
        did -a $dname 3 $nick($did(2),%nick.var)
        inc %nick.var
      }
    }
    if ($did == 3) { did -e $dname 4 | did -f $dname 4 }
    if ($did == 5) {
      did -r $dname 7
      cs access $did(2) add $did(3) $did(4)
      did -r $dname 4
      did -a $dname 4 Access Level
      did -b $dname 4-5
      cs access $did(2) list
    }
    if ($did == 7) { did -e $dname 8-9 }
    if ($did == 8) {
      cs access $did(2) del $gettok($did(7),1,32)
      did -r $dname 7
      did -b $dname 8-10
      cs access $did(2) list
    }
    if ($did == 10) {
      cs access $did(2) add $gettok($did(7),1,32) $did(9)
      did -r $dname 7
      did -r $dname 9
      did -a $dname 9 Access Level
      did -b $dname 8-10
      cs access $did(2) list
    }
  }
  if ($devent == edit) {
    if ($did == 3) { did -e $dname 4 }
    if ($did == 4) { did -e $dname 5 }
    if ($did == 9) { did -e $dname 10 }
  }
}

Cevapla


Bu Konudaki Yorumlar
Mirc İrc Chanserv Yetki Ekleme Paneli - Yazar: Admin - 06-01-2020, 10:59 PM

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Lightbulb !Degis Nick MIRC Hazir Kodu Admin 2 1,272 11-28-2020, 10:49 AM
Son Yorum: Admin
Lightbulb mIRC Ozele Gelen Saldırıları Engelleme Admin 0 991 10-13-2020, 02:46 PM
Son Yorum: Admin
Lightbulb Mirc Addonlar Nasıl eklenir Admin 2 1,199 08-21-2020, 08:27 PM
Son Yorum: Admin
Lightbulb mIRC Titlebar kayan yazı Admin 0 1,211 08-20-2020, 05:52 PM
Son Yorum: Admin
Lightbulb mIRC Kanal Yetki Koruması Admin 0 1,160 08-20-2020, 05:43 PM
Son Yorum: Admin

Hızlı Menü:


Konuyu Okuyanlar: 2 Ziyaretçi