Nick,Ident,Host Line işlemi - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

aLone · 24 Mart 2015, 17:10

Can sıkıntısı boş zamanımda Oyle bi yazdım..
Nick, Ident, Host Ekleyip Yasaklayıp Sunucu Girişinde Line Uygulatabilirsiniz.
Belki birilerinin işine yarar yaramasada zaten can sıkıntısı yazdım
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)

Bi arkadaşım istemişti gecenlerde Diyalog halınde op sop voice ekleyip silecegim Bi addon olurmu demişti ona yazmıştım.. Onuda paylaşım

Kod: Kodu kopyalamak için üzerine çift tıklayın!

alias mdc { return $dll(dll\mdc.dll,$1,$2-) }
alias mdx { return $dll(dll\mdx.dll,$1,$2-) }
alias a.b { dialog -m zlnat zlnat }
dialog zlnat {
  title "~"
  size 40 170 510 320
  option pixels
  radio "Acık",13,420 225 55 24,group
  radio "KapaLı",14,420 250 55 24
  box "", 11, 5 8 500 295
  edit "Nick Yazınız..!", 9, 175 20 160 30, center
  edit "Ident Yazınız..!", 1, 175 55 160 30, center
  edit "Host Yazınız..!", 2, 175 90 160 30, center
  edit "", 19, 93 132 80 30, center
  edit "", 20, 93 182 80 30, center
  edit "", 21, 93 232 80 30, center
  edit "     Girişte Oto Nick ident host Gzline Paneli     ",  33, 10 276 490 23, center
  list 22, 175 132 160 130, size
}
on *:dialog:zlnat:sclick:*:{
  if ($did = 13) { set %NickZ Acık | set %identZ Acık | set %HostZ Acık | dialog -t zlnat Yasak Giriş Koruması AcıLdı. | did -e zlnat 9,1,2,19,20,21,33,22 }
  if ($did = 14) { set %NickZ Kapalı | set %identZ Kapalı | set %HostZ Kapalı | dialog -t zlnat Yasak Giriş Koruması KapatıLdı. | did -b zlnat 9,1,2,19,20,21,33,22 }
}
on *:dialog:zlnat:init:0: {
  if (%NickZ == Acık) { did -c zlnat 13 }
  if (%NickZ == Kapalı) { did -c zlnat 14 }
  .timerxa 1 2 did -r zlnat 9,1,2
  mdx MarkDialog $dname
  mdx SetDialog [ $dname ] bgcolor $rgb(28,134,238) 
  mdx SetColor 9,1,2,19,20,21,22,33 background $rgb(0,0,0)
  mdx SetColor 9,1,2,19,20,21,22,33 textbg $rgb(0,0,0)
  mdx SetColor $dname 9,1,2,19,20,21,22,33 text $rgb(255,0,0)
  mdx SetFont 13,14,9,1,2,19,20,21,22,33 -11 700 Tahoma
  mdx SetFont 33 -14 700 Tahoma
  mdx SetColor 13,14 background $rgb(28,134,238)
  mdx SetColor 13,14 textbg $rgb(28,134,238)
  mdx SetColor $dname 13,14 text $rgb(255,0,0)
  mdc BitBtn Create zlnat 2 10 20 162 31 > Nick Zline Ekle
  mdc BitBtn Create zlnat 3 10 55 162 31 > Ident Zline Ekle
  mdc BitBtn Create zlnat 4 10 90 162 31 > Host Zline Ekle
  mdc BitBtn Create zlnat 5 337 20 162 31 > Nick Zline SiL
  mdc BitBtn Create zlnat 6 337 55 162 31 > Ident Zline SiL
  mdc BitBtn Create zlnat 7 337 90 162 31 > Host Zline SiL
  mdc BitBtn Create zlnat 13 10 125 80 21 > Muaf N Ekle
  mdc BitBtn Create zlnat 14 10 175 80 21 > Muaf i Ekle
  mdc BitBtn Create zlnat 15 10 225 80 21 > Muaf H Ekle
  mdc BitBtn Create zlnat 16 10 150 80 21 > Muaf N Sil
  mdc BitBtn Create zlnat 17 10 200 80 21 > Muaf i Sil
  mdc BitBtn Create zlnat 18 10 250 80 21 > Muaf H Sil
  mdc BitBtn Create zlnat 26 337 125 80 21 > Muaf N list
  mdc BitBtn Create zlnat 27 337 175 80 21 > Muaf i list
  mdc BitBtn Create zlnat 28 337 225 80 21 > Muaf H list
  mdc BitBtn Create zlnat 29 337 150 80 21 > Yasak N list
  mdc BitBtn Create zlnat 30 337 200 80 21 > Yasak i list
  mdc BitBtn Create zlnat 31 337 250 80 21 > Yasak H list
  mdc BitBtn Create zlnat 8 420 125 79 97 > Kapat
  mdc BitBtn Color 2 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
  mdc BitBtn downcolor 2 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 3 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20) 
  mdc BitBtn downcolor 3 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 4 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20) 
  mdc BitBtn downcolor 4 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 5 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20) 
  mdc BitBtn downcolor 5 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 6 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20) 
  mdc BitBtn downcolor 6 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 7 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20) 
  mdc BitBtn downcolor 7 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 8 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20) 
  mdc BitBtn downcolor 8 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 13 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20) 
  mdc BitBtn downcolor 13 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 14 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20) 
  mdc BitBtn downcolor 14 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 15 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
  mdc BitBtn downcolor 15 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 16 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20) 
  mdc BitBtn downcolor 16 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 17 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20) 
  mdc BitBtn downcolor 17 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 18 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20) 
  mdc BitBtn downcolor 18 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 26 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
  mdc BitBtn downcolor 26 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 27 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
  mdc BitBtn downcolor 27 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 28 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
  mdc BitBtn downcolor 28 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 29 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
  mdc BitBtn downcolor 29 $rgb(25,2,22) $rgb(6,135,5) $rgb(130,25,255) $rgb(2,5,255) $rgb(2,10,220)
  mdc BitBtn Color 30 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
  mdc BitBtn downcolor 30 $rgb(25,2,22) $rgb(6,135,5) $rgb(130,25,255) $rgb(2,5,255) $rgb(2,10,220)
  mdc BitBtn Color 31 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
  mdc BitBtn downcolor 31 $rgb(25,2,22) $rgb(6,135,5) $rgb(130,25,255) $rgb(2,5,255) $rgb(2,10,220)
  mdc BitBtn Font 2 $rgb(240,240,240) 9 +b > Tahoma
  mdc BitBtn Font 3 $rgb(240,240,240) 9 +b > Tahoma
  mdc BitBtn Font 4 $rgb(240,240,240) 9 +b > Tahoma
  mdc BitBtn Font 5 $rgb(240,240,240) 9 +b > Tahoma
  mdc BitBtn Font 6 $rgb(240,240,240) 9 +b > Tahoma
  mdc BitBtn Font 7 $rgb(240,240,240) 9 +b > Tahoma
  mdc BitBtn Font 8 $rgb(240,240,240) 14 +b > Tahoma
  mdc BitBtn Font 13 $rgb(240,240,240) 7 +b > Tahoma
  mdc BitBtn Font 14 $rgb(240,240,240) 7 +b > Tahoma
  mdc BitBtn Font 15 $rgb(240,240,240) 7 +b > Tahoma
  mdc BitBtn Font 16 $rgb(240,240,240) 7 +b > Tahoma
  mdc BitBtn Font 17 $rgb(240,240,240) 7 +b > Tahoma
  mdc BitBtn Font 18 $rgb(240,240,240) 7 +b > Tahoma
  mdc BitBtn Font 26 $rgb(255,252,252) 7  +b > Tahoma
  mdc BitBtn Font 27 $rgb(255,252,252) 7  +b > Tahoma
  mdc BitBtn Font 28 $rgb(255,252,252) 7  +b > Tahoma
  mdc BitBtn Font 29 $rgb(255,252,252) 7  +b > Tahoma
  mdc BitBtn Font 30 $rgb(255,252,252) 7  +b > Tahoma
  mdc BitBtn Font 31 $rgb(255,252,252) 7  +b > Tahoma
  did -f $dname 9
}
on *:signal:mdc: {
  if ($2 == zlnat) && ($3 == sclick) && ($4 == 2) { .auser NickZ $did(zlnat,9) | echo -a 0,1 4 Ekleme işLemi11 $did(zlnat,9) 4 Nick 0zLine liste Eklendi.   } 
  if ($2 == zlnat) && ($3 == sclick) && ($4 == 3) { .auser identZ $did(zlnat,1) | echo -a 0,1 4  Ekleme işLemi11 $did(zlnat,1) 4 identi 0zLine liste Eklendi.    } 
  if ($2 == zlnat) && ($3 == sclick) && ($4 == 4) { .auser HostZ $did(zlnat,2)  | echo -a 0,1 4  Ekleme işLemi11 $did(zlnat,2) 4 Hostu 0zLine liste Eklendi.    } 
  if ($2 == zlnat) && ($3 == sclick) && ($4 == 5) { .ruser NickZ $did(zlnat,9)  | echo -a 0,1 4  SiLme işLemi7 $did(zlnat,9) 11 Nick 0zLine listesinden SiLindi.   }
  if ($2 == zlnat) && ($3 == sclick) && ($4 == 6) { .ruser identZ $did(zlnat,1) | echo -a 0,1 4  SiLme işLemi7 $did(zlnat,1) 11 ident 0zLine listesinden SiLindi.   } 
  if ($2 == zlnat) && ($3 == sclick) && ($4 == 7) { .ruser HostZ $did(zlnat,2) | echo -a 0,1 4  SiLme işLemi7 $did(zlnat,2)  11 Host 0zLine listesinden SiLindi.   }
  if ($2 == zlnat) && ($3 == sclick) && ($4 == 8) { .timer 1 0 dialog -x zlnat  } 
  if ($2 == zlnat) && ($3 == sclick) && ($4 == 13) { .auser Muafnick $did(zlnat,19) | echo -a 0,1 4 Ekleme işLemi11 $did(zlnat,19) 4 Nick 0Muaf liste Eklendi.    }
  if ($2 == zlnat) && ($3 == sclick) && ($4 == 14) { .auser Muafident $did(zlnat,20) | echo -a 0,1 4 Ekleme işLemi11 $did(zlnat,20) 4 ident 0Muaf liste Eklendi.    }
  if ($2 == zlnat) && ($3 == sclick) && ($4 == 15) { .auser Muafhost $did(zlnat,21) | echo -a 0,1 4 Ekleme işLemi11 $did(zlnat,21) 4 Host 0Muaf liste Eklendi.    }
  if ($2 == zlnat) && ($3 == sclick) && ($4 == 16) { .ruser Muafnick $did(zlnat,19) | echo -a 0,1 4 SiLme işLemi11 $did(zlnat,19) 4 Nick 0Muaf listesinden SiLindi.    }
  if ($2 == zlnat) && ($3 == sclick) && ($4 == 17) { .ruser Muafident $did(zlnat,20) | echo -a 0,1 4 SiLme işLemi11 $did(zlnat,20) 4 ident 0Muaf listesinden SiLindi.    }
  if ($2 == zlnat) && ($3 == sclick) && ($4 == 18) { .ruser Muafhost $did(zlnat,21) | echo -a 0,1 4 SiLme işLemi11 $did(zlnat,21) 4 Host 0Muaf  listesinden SiLindi.    }
  if ($2 == zlnat) && ($3 == sclick) && ($4 == 26) { .m.nick  | echo -a 0,1 4 Listeleme işLemi11 $did(zlnat,19) 4 Nick 0Muaf  listesi.   }
  if ($2 == zlnat) && ($3 == sclick) && ($4 == 27) { .m.ident  | echo -a 0,1 4 Listeleme işLemi11 $did(zlnat,20) 4 ident 0Muaf listesi.    }
  if ($2 == zlnat) && ($3 == sclick) && ($4 == 28) { .m.host | echo -a 0,1 4 Listeleme işLemi11 $did(zlnat,21) 4 Host 0Muaf listesi.    }
  if ($2 == zlnat) && ($3 == sclick) && ($4 == 29) { .y.nick  | echo -a 0,1 4 Listeleme işLemi11 $did(zlnat,19) 4 Nick 0Yasak listesi.    }
  if ($2 == zlnat) && ($3 == sclick) && ($4 == 30) { .y.ident | echo -a 0,1 4 Listeleme işLemi11 $did(zlnat,20) 4 ident 0Yasak listesi.    }
  if ($2 == zlnat) && ($3 == sclick) && ($4 == 31) { .y.host | echo -a 0,1 4 Listeleme işLemi11 $did(zlnat,21) 4 Host 0Yasak listesi.    }
}
on *:snotice:*connecting on*: {
  if ($level($9) == muafnick) { halt }
  if (connecting isin $1-) {
    if (%nickZ == Acık) {
      var %:ip $remove($gettok($10,2,64),$chr(41))
      if $level($9) = NickZ { gzline $+(*@,%:ip) 1d YasakLı Nick | halt }
    }
    if (%identZ == Acık) {
      var %:idnt $remove($gettok($10,1,64),$chr(40))
      if ($level(%:idnt)  == muafident) { halt }
      if $level(%:idnt) = identZ { gzline $+(*@,%:ip) 1d YasakLı ident | halt }
    }
    if (%HostZ == Acık) {
      if ($level(%:ip) == muafhost) { halt }
      if $level(%:ip) = HostZ { gzline $+(*@,%:ip) 1d YasakLı Host | halt }
    }
  }
}
;Yasak list
alias y.nick {
  did -r zlnat 22
  did -a zlnat 22  : Yasak Nick Listesi :
  var %x = 1
  while (%x <= $ulist(*,nickz,0)) { 
    did -a zlnat 22 ) $ulist(*,nickz,%x)
    inc %x 
  }
}
alias y.ident {
  did -r zlnat 22
  did -a zlnat 22  : Yasak Ident Listesi :
  var %xx = 1
  while (%xx <= $ulist(*,identz,0)) { 
    did -a zlnat 22 ) $ulist(*,identz,%xx)
    inc %xx 
  }
}
alias y.host {
  did -r zlnat 22
  did -a zlnat 22  : Yasak Host Listesi :
  var %xxx = 1
  while (%xxx <= $ulist(*,hostz,0)) { 
    did -a zlnat 22 ) $ulist(*,hostz,%xxx)
    inc %xxx 
  }
}
;Muaf list
alias m.nick {
  did -r zlnat 22
  did -a zlnat 22  : Muaf Nick Listesi :
  var %ax = 1
  while (%ax <= $ulist(*,muafnick,0)) { 
    did -a zlnat 22 ) $ulist(*,muafnick,%ax)
    inc %ax 
  }
}
alias m.ident {
  did -r zlnat 22
  did -a zlnat 22  : Muaf Ident Listesi :
  var %axx = 1
  while (%axx <= $ulist(*,muafident,0)) { 
    did -a zlnat 22 ) $ulist(*,muafident,%axx)
    inc %axx 
  }
}
alias m.host {
  did -r zlnat 22
  did -a zlnat 22  : Muaf Host Listesi :
  var %axxx = 1
  while (%axxx <= $ulist(*,muafhost,0)) { 
    did -a zlnat 22 ) $ulist(*,muafHost,%axxx)
    inc %axxx 
  }
}
menu * {
Gzline Paneli:/a.b }

Op voice

Kod: Kodu kopyalamak için üzerine çift tıklayın!

alias mdc { return $dll(dll\mdc.dll,$1,$2-) }
alias mdx { return $dll(dll\mdx.dll,$1,$2-) }
alias access { 
  $iif($status == connected,$null,Uyarı)
if ($dialog(access)) {  dialog -c  access access } | else { dialog -m access access } }
dialog access {
  title "~"
  size -1 -1 195 80
  option dbu
  text "Nick Bölümü" ,3, 20 0 40 6 
  text "#KanaL Bölümü" ,6, 80 0 48 6
  edit "Nick Yaz", 5, 8 10 62 13, center
  edit "#KanaL Yaz", 4, 72 10 63 13, center
  list 2, 8 58 179 13, size
  box "", 1, 5 4 185 70
}
on *:dialog:access:init:0: {
  did -a access 2 HazırLanıyor..
  .timerja 1 2 did -r access 2,4,5
  .timerjax 1 2 did -a access 2 Access Menü KuLLanıma Hazır..
  mdx MarkDialog $dname
  mdx SetDialog [ $dname ] bgcolor $rgb(28,134,238) 
  mdx SetColor 4,5,2 background $rgb(0,0,0)
  mdx SetColor 4,5,2 textbg $rgb(0,0,0)
  mdx SetColor $dname 4,5 text $rgb(255,255,255)
  mdx SetColor $dname 2 text $rgb(255,0,0)
  mdx SetFont 5,4,2, -12 700 Tahoma
  mdx SetFont 3,6, -10 700 Tahoma
  mdx SetColor 3,6 background $rgb(28,134,238)
  mdx SetColor 3,6 textbg $rgb(28,134,238)
  mdc BitBtn Create access 6 15 50 60 25 > Vop Ekle
  mdc BitBtn Create access 7 15 80 60 25 > Vop SiL
  mdc BitBtn Create access 8 80 50 60 25 > Hop Ekle
  mdc BitBtn Create access 9 80 80 60 25 > Hop SiL
  mdc BitBtn Create access 10 145 50 60 25 > Aop EkLe
  mdc BitBtn Create access 11 145 80 60 25 > Aop SiL
  mdc BitBtn Create access 12 210 50 60 25 > Sop EkLe
  mdc BitBtn Create access 13 210 80 60 25 > Sop SiL
  mdc BitBtn Create access 14 275 20 100 85 > Kapat
  mdc BitBtn Color 6 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
  mdc BitBtn downcolor 6 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 7 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
  mdc BitBtn downcolor 7 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 8 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
  mdc BitBtn downcolor 8 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 9 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
  mdc BitBtn downcolor 9 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 10 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
  mdc BitBtn downcolor 10 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 11 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
  mdc BitBtn downcolor 11 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 12 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
  mdc BitBtn downcolor 12 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 13 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
  mdc BitBtn downcolor 13 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 14 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(255,0,2) $rgb(122,233,20)
  mdc BitBtn downcolor 14 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Font 6 $rgb(255,252,252) 8  +b > Tahoma
  mdc BitBtn Font 7 $rgb(255,252,252) 8  +b > Tahoma
  mdc BitBtn Font 8 $rgb(255,252,252) 8  +b > Tahoma
  mdc BitBtn Font 9 $rgb(255,252,252) 8  +b > Tahoma
  mdc BitBtn Font 10 $rgb(255,252,252) 8  +b > Tahoma
  mdc BitBtn Font 11 $rgb(255,252,252) 8  +b > Tahoma
  mdc BitBtn Font 12 $rgb(255,252,252) 8  +b > Tahoma
  mdc BitBtn Font 13 $rgb(255,252,252) 8  +b > Tahoma
  mdc BitBtn Font 14 $rgb(255,252,252) 14  +b > Tahoma
  did -f $dname 5
}
on *:signal:mdc: { 
  if ($2 == access) && ($3 == sclick) && ($4 == 6) { .cs access $did(access,4) add $did(access,5) 30  | did -r access 2 |  did -a access 2 KanaL $did(access,4) Nick $did(access,5) Seviye Voice Eklendi } 
  if ($2 == access) && ($3 == sclick) && ($4 == 7) {  .cs access $did(access,4) del $did(access,5) | did -r access 2 |  did -a access 2 KanaL $did(access,4) Nick $did(access,5) Voice Silindi  } 
  if ($2 == access) && ($3 == sclick) && ($4 == 8) { .cs access $did(access,4) add $did(access,5) 40 |  did -r access 2 |  did -a access 2 KanaL $did(access,4) Nick $did(access,5) Seviye Halfop Eklendi } 
  if ($2 == access) && ($3 == sclick) && ($4 == 9) {  .cs access $did(access,4) del $did(access,5) | did -r access 2 |  did -a access 2 KanaL $did(access,4) Nick $did(access,5) Halfop Silindi  } 
  if ($2 == access) && ($3 == sclick) && ($4 == 10) { .cs access $did(access,4) add $did(access,5) 50 |  did -r access 2 |  did -a access 2 KanaL $did(access,4) Nick $did(access,5) Seviye Aop Eklendi } 
  if ($2 == access) && ($3 == sclick) && ($4 == 11) {  .cs access $did(access,4) del $did(access,5) |  did -r access 2 |  did -a access 2 KanaL $did(access,4) Nick $did(access,5) Aop Silindi } 
  if ($2 == access) && ($3 == sclick) && ($4 == 12) { .cs access $did(access,4) add $did(access,5) 100 |  did -r access 2 |  did -a access 2 KanaL $did(access,4) Nick $did(access,5) Seviye Sop Eklendi } 
  if ($2 == access) && ($3 == sclick) && ($4 == 13) {  .cs access $did(access,4) del $did(access,5) |  did -r access 2 |  did -a access 2 KanaL $did(access,4) Nick $did(access,5) Sop Silindi } 
  if ($2 == access) && ($3 == sclick) && ($4 == 14) { .timer 1 0 dialog -x access  }
}
alias Uyarı {
  echo -a 4 Servere Bağlı Değilsiniz, Bağlanmadan Bu İşlemi Gerçekleştiremessiniz... 
  halt
}
menu * {
Acces:/access }

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Not : Ana dizinde Dll klasörü ve içerisinde mdc.dll - mdx.dll olmalıdır

Feragat · 25 Mart 2015, 01:27

Bende diyorum nerelerde bu @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

aLone · 25 Mart 2015, 01:43

Para lazım Feragat ustat deli gibi çalışıyom ya
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
))

ozturks · 06 Mayıs 2017, 02:01

alone kardesim senden bi ricam olacak

aLone · 07 Mayıs 2017, 07:48

ozturks Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

alone kardesim senden bi ricam olacak

Buyur kardes

Yasakkk · 27 Eylül 2022, 19:39

aLone Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Can sıkıntısı boş zamanımda Oyle bi yazdım..
Nick, Ident, Host Ekleyip Yasaklayıp Sunucu Girişinde Line Uygulatabilirsiniz.
Belki birilerinin işine yarar yaramasada zaten can sıkıntısı yazdım
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)

Bi arkadaşım istemişti gecenlerde Diyalog halınde op sop voice ekleyip silecegim Bi addon olurmu demişti ona yazmıştım.. Onuda paylaşım

Kod: Kodu kopyalamak için üzerine çift tıklayın!

alias mdc { return $dll(dll\mdc.dll,$1,$2-) }
alias mdx { return $dll(dll\mdx.dll,$1,$2-) }
alias a.b { dialog -m zlnat zlnat }
dialog zlnat {
  title "~"
  size 40 170 510 320
  option pixels
  radio "Acık",13,420 225 55 24,group
  radio "KapaLı",14,420 250 55 24
  box "", 11, 5 8 500 295
  edit "Nick Yazınız..!", 9, 175 20 160 30, center
  edit "Ident Yazınız..!", 1, 175 55 160 30, center
  edit "Host Yazınız..!", 2, 175 90 160 30, center
  edit "", 19, 93 132 80 30, center
  edit "", 20, 93 182 80 30, center
  edit "", 21, 93 232 80 30, center
  edit "     Girişte Oto Nick ident host Gzline Paneli     ",  33, 10 276 490 23, center
  list 22, 175 132 160 130, size
}
on *:dialog:zlnat:sclick:*:{
  if ($did = 13) { set %NickZ Acık | set %identZ Acık | set %HostZ Acık | dialog -t zlnat Yasak Giriş Koruması AcıLdı. | did -e zlnat 9,1,2,19,20,21,33,22 }
  if ($did = 14) { set %NickZ Kapalı | set %identZ Kapalı | set %HostZ Kapalı | dialog -t zlnat Yasak Giriş Koruması KapatıLdı. | did -b zlnat 9,1,2,19,20,21,33,22 }
}
on *:dialog:zlnat:init:0: {
  if (%NickZ == Acık) { did -c zlnat 13 }
  if (%NickZ == Kapalı) { did -c zlnat 14 }
  .timerxa 1 2 did -r zlnat 9,1,2
  mdx MarkDialog $dname
  mdx SetDialog [ $dname ] bgcolor $rgb(28,134,238) 
  mdx SetColor 9,1,2,19,20,21,22,33 background $rgb(0,0,0)
  mdx SetColor 9,1,2,19,20,21,22,33 textbg $rgb(0,0,0)
  mdx SetColor $dname 9,1,2,19,20,21,22,33 text $rgb(255,0,0)
  mdx SetFont 13,14,9,1,2,19,20,21,22,33 -11 700 Tahoma
  mdx SetFont 33 -14 700 Tahoma
  mdx SetColor 13,14 background $rgb(28,134,238)
  mdx SetColor 13,14 textbg $rgb(28,134,238)
  mdx SetColor $dname 13,14 text $rgb(255,0,0)
  mdc BitBtn Create zlnat 2 10 20 162 31 > Nick Zline Ekle
  mdc BitBtn Create zlnat 3 10 55 162 31 > Ident Zline Ekle
  mdc BitBtn Create zlnat 4 10 90 162 31 > Host Zline Ekle
  mdc BitBtn Create zlnat 5 337 20 162 31 > Nick Zline SiL
  mdc BitBtn Create zlnat 6 337 55 162 31 > Ident Zline SiL
  mdc BitBtn Create zlnat 7 337 90 162 31 > Host Zline SiL
  mdc BitBtn Create zlnat 13 10 125 80 21 > Muaf N Ekle
  mdc BitBtn Create zlnat 14 10 175 80 21 > Muaf i Ekle
  mdc BitBtn Create zlnat 15 10 225 80 21 > Muaf H Ekle
  mdc BitBtn Create zlnat 16 10 150 80 21 > Muaf N Sil
  mdc BitBtn Create zlnat 17 10 200 80 21 > Muaf i Sil
  mdc BitBtn Create zlnat 18 10 250 80 21 > Muaf H Sil
  mdc BitBtn Create zlnat 26 337 125 80 21 > Muaf N list
  mdc BitBtn Create zlnat 27 337 175 80 21 > Muaf i list
  mdc BitBtn Create zlnat 28 337 225 80 21 > Muaf H list
  mdc BitBtn Create zlnat 29 337 150 80 21 > Yasak N list
  mdc BitBtn Create zlnat 30 337 200 80 21 > Yasak i list
  mdc BitBtn Create zlnat 31 337 250 80 21 > Yasak H list
  mdc BitBtn Create zlnat 8 420 125 79 97 > Kapat
  mdc BitBtn Color 2 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
  mdc BitBtn downcolor 2 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 3 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20) 
  mdc BitBtn downcolor 3 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 4 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20) 
  mdc BitBtn downcolor 4 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 5 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20) 
  mdc BitBtn downcolor 5 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 6 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20) 
  mdc BitBtn downcolor 6 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 7 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20) 
  mdc BitBtn downcolor 7 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 8 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20) 
  mdc BitBtn downcolor 8 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 13 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20) 
  mdc BitBtn downcolor 13 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 14 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20) 
  mdc BitBtn downcolor 14 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 15 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
  mdc BitBtn downcolor 15 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 16 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20) 
  mdc BitBtn downcolor 16 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 17 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20) 
  mdc BitBtn downcolor 17 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 18 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20) 
  mdc BitBtn downcolor 18 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 26 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
  mdc BitBtn downcolor 26 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 27 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
  mdc BitBtn downcolor 27 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 28 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
  mdc BitBtn downcolor 28 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 29 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
  mdc BitBtn downcolor 29 $rgb(25,2,22) $rgb(6,135,5) $rgb(130,25,255) $rgb(2,5,255) $rgb(2,10,220)
  mdc BitBtn Color 30 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
  mdc BitBtn downcolor 30 $rgb(25,2,22) $rgb(6,135,5) $rgb(130,25,255) $rgb(2,5,255) $rgb(2,10,220)
  mdc BitBtn Color 31 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
  mdc BitBtn downcolor 31 $rgb(25,2,22) $rgb(6,135,5) $rgb(130,25,255) $rgb(2,5,255) $rgb(2,10,220)
  mdc BitBtn Font 2 $rgb(240,240,240) 9 +b > Tahoma
  mdc BitBtn Font 3 $rgb(240,240,240) 9 +b > Tahoma
  mdc BitBtn Font 4 $rgb(240,240,240) 9 +b > Tahoma
  mdc BitBtn Font 5 $rgb(240,240,240) 9 +b > Tahoma
  mdc BitBtn Font 6 $rgb(240,240,240) 9 +b > Tahoma
  mdc BitBtn Font 7 $rgb(240,240,240) 9 +b > Tahoma
  mdc BitBtn Font 8 $rgb(240,240,240) 14 +b > Tahoma
  mdc BitBtn Font 13 $rgb(240,240,240) 7 +b > Tahoma
  mdc BitBtn Font 14 $rgb(240,240,240) 7 +b > Tahoma
  mdc BitBtn Font 15 $rgb(240,240,240) 7 +b > Tahoma
  mdc BitBtn Font 16 $rgb(240,240,240) 7 +b > Tahoma
  mdc BitBtn Font 17 $rgb(240,240,240) 7 +b > Tahoma
  mdc BitBtn Font 18 $rgb(240,240,240) 7 +b > Tahoma
  mdc BitBtn Font 26 $rgb(255,252,252) 7  +b > Tahoma
  mdc BitBtn Font 27 $rgb(255,252,252) 7  +b > Tahoma
  mdc BitBtn Font 28 $rgb(255,252,252) 7  +b > Tahoma
  mdc BitBtn Font 29 $rgb(255,252,252) 7  +b > Tahoma
  mdc BitBtn Font 30 $rgb(255,252,252) 7  +b > Tahoma
  mdc BitBtn Font 31 $rgb(255,252,252) 7  +b > Tahoma
  did -f $dname 9
}
on *:signal:mdc: {
  if ($2 == zlnat) && ($3 == sclick) && ($4 == 2) { .auser NickZ $did(zlnat,9) | echo -a 0,1 4 Ekleme işLemi11 $did(zlnat,9) 4 Nick 0zLine liste Eklendi.   } 
  if ($2 == zlnat) && ($3 == sclick) && ($4 == 3) { .auser identZ $did(zlnat,1) | echo -a 0,1 4  Ekleme işLemi11 $did(zlnat,1) 4 identi 0zLine liste Eklendi.    } 
  if ($2 == zlnat) && ($3 == sclick) && ($4 == 4) { .auser HostZ $did(zlnat,2)  | echo -a 0,1 4  Ekleme işLemi11 $did(zlnat,2) 4 Hostu 0zLine liste Eklendi.    } 
  if ($2 == zlnat) && ($3 == sclick) && ($4 == 5) { .ruser NickZ $did(zlnat,9)  | echo -a 0,1 4  SiLme işLemi7 $did(zlnat,9) 11 Nick 0zLine listesinden SiLindi.   }
  if ($2 == zlnat) && ($3 == sclick) && ($4 == 6) { .ruser identZ $did(zlnat,1) | echo -a 0,1 4  SiLme işLemi7 $did(zlnat,1) 11 ident 0zLine listesinden SiLindi.   } 
  if ($2 == zlnat) && ($3 == sclick) && ($4 == 7) { .ruser HostZ $did(zlnat,2) | echo -a 0,1 4  SiLme işLemi7 $did(zlnat,2)  11 Host 0zLine listesinden SiLindi.   }
  if ($2 == zlnat) && ($3 == sclick) && ($4 == 8) { .timer 1 0 dialog -x zlnat  } 
  if ($2 == zlnat) && ($3 == sclick) && ($4 == 13) { .auser Muafnick $did(zlnat,19) | echo -a 0,1 4 Ekleme işLemi11 $did(zlnat,19) 4 Nick 0Muaf liste Eklendi.    }
  if ($2 == zlnat) && ($3 == sclick) && ($4 == 14) { .auser Muafident $did(zlnat,20) | echo -a 0,1 4 Ekleme işLemi11 $did(zlnat,20) 4 ident 0Muaf liste Eklendi.    }
  if ($2 == zlnat) && ($3 == sclick) && ($4 == 15) { .auser Muafhost $did(zlnat,21) | echo -a 0,1 4 Ekleme işLemi11 $did(zlnat,21) 4 Host 0Muaf liste Eklendi.    }
  if ($2 == zlnat) && ($3 == sclick) && ($4 == 16) { .ruser Muafnick $did(zlnat,19) | echo -a 0,1 4 SiLme işLemi11 $did(zlnat,19) 4 Nick 0Muaf listesinden SiLindi.    }
  if ($2 == zlnat) && ($3 == sclick) && ($4 == 17) { .ruser Muafident $did(zlnat,20) | echo -a 0,1 4 SiLme işLemi11 $did(zlnat,20) 4 ident 0Muaf listesinden SiLindi.    }
  if ($2 == zlnat) && ($3 == sclick) && ($4 == 18) { .ruser Muafhost $did(zlnat,21) | echo -a 0,1 4 SiLme işLemi11 $did(zlnat,21) 4 Host 0Muaf  listesinden SiLindi.    }
  if ($2 == zlnat) && ($3 == sclick) && ($4 == 26) { .m.nick  | echo -a 0,1 4 Listeleme işLemi11 $did(zlnat,19) 4 Nick 0Muaf  listesi.   }
  if ($2 == zlnat) && ($3 == sclick) && ($4 == 27) { .m.ident  | echo -a 0,1 4 Listeleme işLemi11 $did(zlnat,20) 4 ident 0Muaf listesi.    }
  if ($2 == zlnat) && ($3 == sclick) && ($4 == 28) { .m.host | echo -a 0,1 4 Listeleme işLemi11 $did(zlnat,21) 4 Host 0Muaf listesi.    }
  if ($2 == zlnat) && ($3 == sclick) && ($4 == 29) { .y.nick  | echo -a 0,1 4 Listeleme işLemi11 $did(zlnat,19) 4 Nick 0Yasak listesi.    }
  if ($2 == zlnat) && ($3 == sclick) && ($4 == 30) { .y.ident | echo -a 0,1 4 Listeleme işLemi11 $did(zlnat,20) 4 ident 0Yasak listesi.    }
  if ($2 == zlnat) && ($3 == sclick) && ($4 == 31) { .y.host | echo -a 0,1 4 Listeleme işLemi11 $did(zlnat,21) 4 Host 0Yasak listesi.    }
}
on *:snotice:*connecting on*: {
  if ($level($9) == muafnick) { halt }
  if (connecting isin $1-) {
    if (%nickZ == Acık) {
      var %:ip $remove($gettok($10,2,64),$chr(41))
      if $level($9) = NickZ { gzline $+(*@,%:ip) 1d YasakLı Nick | halt }
    }
    if (%identZ == Acık) {
      var %:idnt $remove($gettok($10,1,64),$chr(40))
      if ($level(%:idnt)  == muafident) { halt }
      if $level(%:idnt) = identZ { gzline $+(*@,%:ip) 1d YasakLı ident | halt }
    }
    if (%HostZ == Acık) {
      if ($level(%:ip) == muafhost) { halt }
      if $level(%:ip) = HostZ { gzline $+(*@,%:ip) 1d YasakLı Host | halt }
    }
  }
}
;Yasak list
alias y.nick {
  did -r zlnat 22
  did -a zlnat 22  : Yasak Nick Listesi :
  var %x = 1
  while (%x <= $ulist(*,nickz,0)) { 
    did -a zlnat 22 ) $ulist(*,nickz,%x)
    inc %x 
  }
}
alias y.ident {
  did -r zlnat 22
  did -a zlnat 22  : Yasak Ident Listesi :
  var %xx = 1
  while (%xx <= $ulist(*,identz,0)) { 
    did -a zlnat 22 ) $ulist(*,identz,%xx)
    inc %xx 
  }
}
alias y.host {
  did -r zlnat 22
  did -a zlnat 22  : Yasak Host Listesi :
  var %xxx = 1
  while (%xxx <= $ulist(*,hostz,0)) { 
    did -a zlnat 22 ) $ulist(*,hostz,%xxx)
    inc %xxx 
  }
}
;Muaf list
alias m.nick {
  did -r zlnat 22
  did -a zlnat 22  : Muaf Nick Listesi :
  var %ax = 1
  while (%ax <= $ulist(*,muafnick,0)) { 
    did -a zlnat 22 ) $ulist(*,muafnick,%ax)
    inc %ax 
  }
}
alias m.ident {
  did -r zlnat 22
  did -a zlnat 22  : Muaf Ident Listesi :
  var %axx = 1
  while (%axx <= $ulist(*,muafident,0)) { 
    did -a zlnat 22 ) $ulist(*,muafident,%axx)
    inc %axx 
  }
}
alias m.host {
  did -r zlnat 22
  did -a zlnat 22  : Muaf Host Listesi :
  var %axxx = 1
  while (%axxx <= $ulist(*,muafhost,0)) { 
    did -a zlnat 22 ) $ulist(*,muafHost,%axxx)
    inc %axxx 
  }
}
menu * {
Gzline Paneli:/a.b }

Op voice

Kod: Kodu kopyalamak için üzerine çift tıklayın!

alias mdc { return $dll(dll\mdc.dll,$1,$2-) }
alias mdx { return $dll(dll\mdx.dll,$1,$2-) }
alias access { 
  $iif($status == connected,$null,Uyarı)
if ($dialog(access)) {  dialog -c  access access } | else { dialog -m access access } }
dialog access {
  title "~"
  size -1 -1 195 80
  option dbu
  text "Nick Bölümü" ,3, 20 0 40 6 
  text "#KanaL Bölümü" ,6, 80 0 48 6
  edit "Nick Yaz", 5, 8 10 62 13, center
  edit "#KanaL Yaz", 4, 72 10 63 13, center
  list 2, 8 58 179 13, size
  box "", 1, 5 4 185 70
}
on *:dialog:access:init:0: {
  did -a access 2 HazırLanıyor..
  .timerja 1 2 did -r access 2,4,5
  .timerjax 1 2 did -a access 2 Access Menü KuLLanıma Hazır..
  mdx MarkDialog $dname
  mdx SetDialog [ $dname ] bgcolor $rgb(28,134,238) 
  mdx SetColor 4,5,2 background $rgb(0,0,0)
  mdx SetColor 4,5,2 textbg $rgb(0,0,0)
  mdx SetColor $dname 4,5 text $rgb(255,255,255)
  mdx SetColor $dname 2 text $rgb(255,0,0)
  mdx SetFont 5,4,2, -12 700 Tahoma
  mdx SetFont 3,6, -10 700 Tahoma
  mdx SetColor 3,6 background $rgb(28,134,238)
  mdx SetColor 3,6 textbg $rgb(28,134,238)
  mdc BitBtn Create access 6 15 50 60 25 > Vop Ekle
  mdc BitBtn Create access 7 15 80 60 25 > Vop SiL
  mdc BitBtn Create access 8 80 50 60 25 > Hop Ekle
  mdc BitBtn Create access 9 80 80 60 25 > Hop SiL
  mdc BitBtn Create access 10 145 50 60 25 > Aop EkLe
  mdc BitBtn Create access 11 145 80 60 25 > Aop SiL
  mdc BitBtn Create access 12 210 50 60 25 > Sop EkLe
  mdc BitBtn Create access 13 210 80 60 25 > Sop SiL
  mdc BitBtn Create access 14 275 20 100 85 > Kapat
  mdc BitBtn Color 6 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
  mdc BitBtn downcolor 6 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 7 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
  mdc BitBtn downcolor 7 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 8 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
  mdc BitBtn downcolor 8 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 9 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
  mdc BitBtn downcolor 9 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 10 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
  mdc BitBtn downcolor 10 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 11 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
  mdc BitBtn downcolor 11 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 12 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
  mdc BitBtn downcolor 12 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 13 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
  mdc BitBtn downcolor 13 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 14 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(255,0,2) $rgb(122,233,20)
  mdc BitBtn downcolor 14 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Font 6 $rgb(255,252,252) 8  +b > Tahoma
  mdc BitBtn Font 7 $rgb(255,252,252) 8  +b > Tahoma
  mdc BitBtn Font 8 $rgb(255,252,252) 8  +b > Tahoma
  mdc BitBtn Font 9 $rgb(255,252,252) 8  +b > Tahoma
  mdc BitBtn Font 10 $rgb(255,252,252) 8  +b > Tahoma
  mdc BitBtn Font 11 $rgb(255,252,252) 8  +b > Tahoma
  mdc BitBtn Font 12 $rgb(255,252,252) 8  +b > Tahoma
  mdc BitBtn Font 13 $rgb(255,252,252) 8  +b > Tahoma
  mdc BitBtn Font 14 $rgb(255,252,252) 14  +b > Tahoma
  did -f $dname 5
}
on *:signal:mdc: { 
  if ($2 == access) && ($3 == sclick) && ($4 == 6) { .cs access $did(access,4) add $did(access,5) 30  | did -r access 2 |  did -a access 2 KanaL $did(access,4) Nick $did(access,5) Seviye Voice Eklendi } 
  if ($2 == access) && ($3 == sclick) && ($4 == 7) {  .cs access $did(access,4) del $did(access,5) | did -r access 2 |  did -a access 2 KanaL $did(access,4) Nick $did(access,5) Voice Silindi  } 
  if ($2 == access) && ($3 == sclick) && ($4 == 8) { .cs access $did(access,4) add $did(access,5) 40 |  did -r access 2 |  did -a access 2 KanaL $did(access,4) Nick $did(access,5) Seviye Halfop Eklendi } 
  if ($2 == access) && ($3 == sclick) && ($4 == 9) {  .cs access $did(access,4) del $did(access,5) | did -r access 2 |  did -a access 2 KanaL $did(access,4) Nick $did(access,5) Halfop Silindi  } 
  if ($2 == access) && ($3 == sclick) && ($4 == 10) { .cs access $did(access,4) add $did(access,5) 50 |  did -r access 2 |  did -a access 2 KanaL $did(access,4) Nick $did(access,5) Seviye Aop Eklendi } 
  if ($2 == access) && ($3 == sclick) && ($4 == 11) {  .cs access $did(access,4) del $did(access,5) |  did -r access 2 |  did -a access 2 KanaL $did(access,4) Nick $did(access,5) Aop Silindi } 
  if ($2 == access) && ($3 == sclick) && ($4 == 12) { .cs access $did(access,4) add $did(access,5) 100 |  did -r access 2 |  did -a access 2 KanaL $did(access,4) Nick $did(access,5) Seviye Sop Eklendi } 
  if ($2 == access) && ($3 == sclick) && ($4 == 13) {  .cs access $did(access,4) del $did(access,5) |  did -r access 2 |  did -a access 2 KanaL $did(access,4) Nick $did(access,5) Sop Silindi } 
  if ($2 == access) && ($3 == sclick) && ($4 == 14) { .timer 1 0 dialog -x access  }
}
alias Uyarı {
  echo -a 4 Servere Bağlı Değilsiniz, Bağlanmadan Bu İşlemi Gerçekleştiremessiniz... 
  halt
}
menu * {
Acces:/access }

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Not : Ana dizinde Dll klasörü ve içerisinde mdc.dll - mdx.dll olmalıdır

Arkadaşlar bunu mirc'e nasıl eklerim

Tunne · 28 Mart 2023, 13:56

[QUOTE=aLone;1041637450]Can sıkıntısı boş zamanımda Oyle bi yazdım..
Nick, Ident, Host Ekleyip Yasaklayıp Sunucu Girişinde Line Uygulatabilirsiniz.
Belki birilerinin işine yarar yaramasada zaten can sıkıntısı yazdım
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)

Bi arkadaşım istemişti gecenlerde Diyalog halınde op sop voice ekleyip silecegim Bi addon olurmu demişti ona yazmıştım.. Onuda paylaşım

Kod: Kodu kopyalamak için üzerine çift tıklayın!

alias mdc { return $dll(dll\mdc.dll,$1,$2-) }
alias mdx { return $dll(dll\mdx.dll,$1,$2-) }
alias a.b { dialog -m zlnat zlnat }
dialog zlnat {
  title "~"
  size 40 170 510 320
  option pixels
  radio "Acık",13,420 225 55 24,group
  radio "KapaLı",14,420 250 55 24
  box "", 11, 5 8 500 295
  edit "Nick Yazınız..!", 9, 175 20 160 30, center
  edit "Ident Yazınız..!", 1, 175 55 160 30, center
  edit "Host Yazınız..!", 2, 175 90 160 30, center
  edit "", 19, 93 132 80 30, center
  edit "", 20, 93 182 80 30, center
  edit "", 21, 93 232 80 30, center
  edit "     Girişte Oto Nick ident host Gzline Paneli     ",  33, 10 276 490 23, center
  list 22, 175 132 160 130, size
}
on *:dialog:zlnat:sclick:*:{
  if ($did = 13) { set %NickZ Acık | set %identZ Acık | set %HostZ Acık | dialog -t zlnat Yasak Giriş Koruması AcıLdı. | did -e zlnat 9,1,2,19,20,21,33,22 }
  if ($did = 14) { set %NickZ Kapalı | set %identZ Kapalı | set %HostZ Kapalı | dialog -t zlnat Yasak Giriş Koruması KapatıLdı. | did -b zlnat 9,1,2,19,20,21,33,22 }
}
on *:dialog:zlnat:init:0: {
  if (%NickZ == Acık) { did -c zlnat 13 }
  if (%NickZ == Kapalı) { did -c zlnat 14 }
  .timerxa 1 2 did -r zlnat 9,1,2
  mdx MarkDialog $dname
  mdx SetDialog [ $dname ] bgcolor $rgb(28,134,238) 
  mdx SetColor 9,1,2,19,20,21,22,33 background $rgb(0,0,0)
  mdx SetColor 9,1,2,19,20,21,22,33 textbg $rgb(0,0,0)
  mdx SetColor $dname 9,1,2,19,20,21,22,33 text $rgb(255,0,0)
  mdx SetFont 13,14,9,1,2,19,20,21,22,33 -11 700 Tahoma
  mdx SetFont 33 -14 700 Tahoma
  mdx SetColor 13,14 background $rgb(28,134,238)
  mdx SetColor 13,14 textbg $rgb(28,134,238)
  mdx SetColor $dname 13,14 text $rgb(255,0,0)
  mdc BitBtn Create zlnat 2 10 20 162 31 > Nick Zline Ekle
  mdc BitBtn Create zlnat 3 10 55 162 31 > Ident Zline Ekle
  mdc BitBtn Create zlnat 4 10 90 162 31 > Host Zline Ekle
  mdc BitBtn Create zlnat 5 337 20 162 31 > Nick Zline SiL
  mdc BitBtn Create zlnat 6 337 55 162 31 > Ident Zline SiL
  mdc BitBtn Create zlnat 7 337 90 162 31 > Host Zline SiL
  mdc BitBtn Create zlnat 13 10 125 80 21 > Muaf N Ekle
  mdc BitBtn Create zlnat 14 10 175 80 21 > Muaf i Ekle
  mdc BitBtn Create zlnat 15 10 225 80 21 > Muaf H Ekle
  mdc BitBtn Create zlnat 16 10 150 80 21 > Muaf N Sil
  mdc BitBtn Create zlnat 17 10 200 80 21 > Muaf i Sil
  mdc BitBtn Create zlnat 18 10 250 80 21 > Muaf H Sil
  mdc BitBtn Create zlnat 26 337 125 80 21 > Muaf N list
  mdc BitBtn Create zlnat 27 337 175 80 21 > Muaf i list
  mdc BitBtn Create zlnat 28 337 225 80 21 > Muaf H list
  mdc BitBtn Create zlnat 29 337 150 80 21 > Yasak N list
  mdc BitBtn Create zlnat 30 337 200 80 21 > Yasak i list
  mdc BitBtn Create zlnat 31 337 250 80 21 > Yasak H list
  mdc BitBtn Create zlnat 8 420 125 79 97 > Kapat
  mdc BitBtn Color 2 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
  mdc BitBtn downcolor 2 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 3 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20) 
  mdc BitBtn downcolor 3 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 4 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20) 
  mdc BitBtn downcolor 4 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 5 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20) 
  mdc BitBtn downcolor 5 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 6 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20) 
  mdc BitBtn downcolor 6 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 7 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20) 
  mdc BitBtn downcolor 7 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 8 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20) 
  mdc BitBtn downcolor 8 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 13 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20) 
  mdc BitBtn downcolor 13 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 14 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20) 
  mdc BitBtn downcolor 14 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 15 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
  mdc BitBtn downcolor 15 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 16 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20) 
  mdc BitBtn downcolor 16 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 17 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20) 
  mdc BitBtn downcolor 17 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 18 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20) 
  mdc BitBtn downcolor 18 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 26 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
  mdc BitBtn downcolor 26 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 27 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
  mdc BitBtn downcolor 27 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 28 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
  mdc BitBtn downcolor 28 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 29 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
  mdc BitBtn downcolor 29 $rgb(25,2,22) $rgb(6,135,5) $rgb(130,25,255) $rgb(2,5,255) $rgb(2,10,220)
  mdc BitBtn Color 30 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
  mdc BitBtn downcolor 30 $rgb(25,2,22) $rgb(6,135,5) $rgb(130,25,255) $rgb(2,5,255) $rgb(2,10,220)
  mdc BitBtn Color 31 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
  mdc BitBtn downcolor 31 $rgb(25,2,22) $rgb(6,135,5) $rgb(130,25,255) $rgb(2,5,255) $rgb(2,10,220)
  mdc BitBtn Font 2 $rgb(240,240,240) 9 +b > Tahoma
  mdc BitBtn Font 3 $rgb(240,240,240) 9 +b > Tahoma
  mdc BitBtn Font 4 $rgb(240,240,240) 9 +b > Tahoma
  mdc BitBtn Font 5 $rgb(240,240,240) 9 +b > Tahoma
  mdc BitBtn Font 6 $rgb(240,240,240) 9 +b > Tahoma
  mdc BitBtn Font 7 $rgb(240,240,240) 9 +b > Tahoma
  mdc BitBtn Font 8 $rgb(240,240,240) 14 +b > Tahoma
  mdc BitBtn Font 13 $rgb(240,240,240) 7 +b > Tahoma
  mdc BitBtn Font 14 $rgb(240,240,240) 7 +b > Tahoma
  mdc BitBtn Font 15 $rgb(240,240,240) 7 +b > Tahoma
  mdc BitBtn Font 16 $rgb(240,240,240) 7 +b > Tahoma
  mdc BitBtn Font 17 $rgb(240,240,240) 7 +b > Tahoma
  mdc BitBtn Font 18 $rgb(240,240,240) 7 +b > Tahoma
  mdc BitBtn Font 26 $rgb(255,252,252) 7  +b > Tahoma
  mdc BitBtn Font 27 $rgb(255,252,252) 7  +b > Tahoma
  mdc BitBtn Font 28 $rgb(255,252,252) 7  +b > Tahoma
  mdc BitBtn Font 29 $rgb(255,252,252) 7  +b > Tahoma
  mdc BitBtn Font 30 $rgb(255,252,252) 7  +b > Tahoma
  mdc BitBtn Font 31 $rgb(255,252,252) 7  +b > Tahoma
  did -f $dname 9
}
on *:signal:mdc: {
  if ($2 == zlnat) && ($3 == sclick) && ($4 == 2) { .auser NickZ $did(zlnat,9) | echo -a 0,1 4 Ekleme işLemi11 $did(zlnat,9) 4 Nick 0zLine liste Eklendi.   } 
  if ($2 == zlnat) && ($3 == sclick) && ($4 == 3) { .auser identZ $did(zlnat,1) | echo -a 0,1 4  Ekleme işLemi11 $did(zlnat,1) 4 identi 0zLine liste Eklendi.    } 
  if ($2 == zlnat) && ($3 == sclick) && ($4 == 4) { .auser HostZ $did(zlnat,2)  | echo -a 0,1 4  Ekleme işLemi11 $did(zlnat,2) 4 Hostu 0zLine liste Eklendi.    } 
  if ($2 == zlnat) && ($3 == sclick) && ($4 == 5) { .ruser NickZ $did(zlnat,9)  | echo -a 0,1 4  SiLme işLemi7 $did(zlnat,9) 11 Nick 0zLine listesinden SiLindi.   }
  if ($2 == zlnat) && ($3 == sclick) && ($4 == 6) { .ruser identZ $did(zlnat,1) | echo -a 0,1 4  SiLme işLemi7 $did(zlnat,1) 11 ident 0zLine listesinden SiLindi.   } 
  if ($2 == zlnat) && ($3 == sclick) && ($4 == 7) { .ruser HostZ $did(zlnat,2) | echo -a 0,1 4  SiLme işLemi7 $did(zlnat,2)  11 Host 0zLine listesinden SiLindi.   }
  if ($2 == zlnat) && ($3 == sclick) && ($4 == 8) { .timer 1 0 dialog -x zlnat  } 
  if ($2 == zlnat) && ($3 == sclick) && ($4 == 13) { .auser Muafnick $did(zlnat,19) | echo -a 0,1 4 Ekleme işLemi11 $did(zlnat,19) 4 Nick 0Muaf liste Eklendi.    }
  if ($2 == zlnat) && ($3 == sclick) && ($4 == 14) { .auser Muafident $did(zlnat,20) | echo -a 0,1 4 Ekleme işLemi11 $did(zlnat,20) 4 ident 0Muaf liste Eklendi.    }
  if ($2 == zlnat) && ($3 == sclick) && ($4 == 15) { .auser Muafhost $did(zlnat,21) | echo -a 0,1 4 Ekleme işLemi11 $did(zlnat,21) 4 Host 0Muaf liste Eklendi.    }
  if ($2 == zlnat) && ($3 == sclick) && ($4 == 16) { .ruser Muafnick $did(zlnat,19) | echo -a 0,1 4 SiLme işLemi11 $did(zlnat,19) 4 Nick 0Muaf listesinden SiLindi.    }
  if ($2 == zlnat) && ($3 == sclick) && ($4 == 17) { .ruser Muafident $did(zlnat,20) | echo -a 0,1 4 SiLme işLemi11 $did(zlnat,20) 4 ident 0Muaf listesinden SiLindi.    }
  if ($2 == zlnat) && ($3 == sclick) && ($4 == 18) { .ruser Muafhost $did(zlnat,21) | echo -a 0,1 4 SiLme işLemi11 $did(zlnat,21) 4 Host 0Muaf  listesinden SiLindi.    }
  if ($2 == zlnat) && ($3 == sclick) && ($4 == 26) { .m.nick  | echo -a 0,1 4 Listeleme işLemi11 $did(zlnat,19) 4 Nick 0Muaf  listesi.   }
  if ($2 == zlnat) && ($3 == sclick) && ($4 == 27) { .m.ident  | echo -a 0,1 4 Listeleme işLemi11 $did(zlnat,20) 4 ident 0Muaf listesi.    }
  if ($2 == zlnat) && ($3 == sclick) && ($4 == 28) { .m.host | echo -a 0,1 4 Listeleme işLemi11 $did(zlnat,21) 4 Host 0Muaf listesi.    }
  if ($2 == zlnat) && ($3 == sclick) && ($4 == 29) { .y.nick  | echo -a 0,1 4 Listeleme işLemi11 $did(zlnat,19) 4 Nick 0Yasak listesi.    }
  if ($2 == zlnat) && ($3 == sclick) && ($4 == 30) { .y.ident | echo -a 0,1 4 Listeleme işLemi11 $did(zlnat,20) 4 ident 0Yasak listesi.    }
  if ($2 == zlnat) && ($3 == sclick) && ($4 == 31) { .y.host | echo -a 0,1 4 Listeleme işLemi11 $did(zlnat,21) 4 Host 0Yasak listesi.    }
}
on *:snotice:*connecting on*: {
  if ($level($9) == muafnick) { halt }
  if (connecting isin $1-) {
    if (%nickZ == Acık) {
      var %:ip $remove($gettok($10,2,64),$chr(41))
      if $level($9) = NickZ { gzline $+(*@,%:ip) 1d YasakLı Nick | halt }
    }
    if (%identZ == Acık) {
      var %:idnt $remove($gettok($10,1,64),$chr(40))
      if ($level(%:idnt)  == muafident) { halt }
      if $level(%:idnt) = identZ { gzline $+(*@,%:ip) 1d YasakLı ident | halt }
    }
    if (%HostZ == Acık) {
      if ($level(%:ip) == muafhost) { halt }
      if $level(%:ip) = HostZ { gzline $+(*@,%:ip) 1d YasakLı Host | halt }
    }
  }
}
;Yasak list
alias y.nick {
  did -r zlnat 22
  did -a zlnat 22  : Yasak Nick Listesi :
  var %x = 1
  while (%x <= $ulist(*,nickz,0)) { 
    did -a zlnat 22 ) $ulist(*,nickz,%x)
    inc %x 
  }
}
alias y.ident {
  did -r zlnat 22
  did -a zlnat 22  : Yasak Ident Listesi :
  var %xx = 1
  while (%xx <= $ulist(*,identz,0)) { 
    did -a zlnat 22 ) $ulist(*,identz,%xx)
    inc %xx 
  }
}
alias y.host {
  did -r zlnat 22
  did -a zlnat 22  : Yasak Host Listesi :
  var %xxx = 1
  while (%xxx <= $ulist(*,hostz,0)) { 
    did -a zlnat 22 ) $ulist(*,hostz,%xxx)
    inc %xxx 
  }
}
;Muaf list
alias m.nick {
  did -r zlnat 22
  did -a zlnat 22  : Muaf Nick Listesi :
  var %ax = 1
  while (%ax <= $ulist(*,muafnick,0)) { 
    did -a zlnat 22 ) $ulist(*,muafnick,%ax)
    inc %ax 
  }
}
alias m.ident {
  did -r zlnat 22
  did -a zlnat 22  : Muaf Ident Listesi :
  var %axx = 1
  while (%axx <= $ulist(*,muafident,0)) { 
    did -a zlnat 22 ) $ulist(*,muafident,%axx)
    inc %axx 
  }
}
alias m.host {
  did -r zlnat 22
  did -a zlnat 22  : Muaf Host Listesi :
  var %axxx = 1
  while (%axxx <= $ulist(*,muafhost,0)) { 
    did -a zlnat 22 ) $ulist(*,muafHost,%axxx)
    inc %axxx 
  }
}
menu * {
Gzline Paneli:/a.b }

Op voice

Kod: Kodu kopyalamak için üzerine çift tıklayın!

alias mdc { return $dll(dll\mdc.dll,$1,$2-) }
alias mdx { return $dll(dll\mdx.dll,$1,$2-) }
alias access { 
  $iif($status == connected,$null,Uyarı)
if ($dialog(access)) {  dialog -c  access access } | else { dialog -m access access } }
dialog access {
  title "~"
  size -1 -1 195 80
  option dbu
  text "Nick Bölümü" ,3, 20 0 40 6 
  text "#KanaL Bölümü" ,6, 80 0 48 6
  edit "Nick Yaz", 5, 8 10 62 13, center
  edit "#KanaL Yaz", 4, 72 10 63 13, center
  list 2, 8 58 179 13, size
  box "", 1, 5 4 185 70
}
on *:dialog:access:init:0: {
  did -a access 2 HazırLanıyor..
  .timerja 1 2 did -r access 2,4,5
  .timerjax 1 2 did -a access 2 Access Menü KuLLanıma Hazır..
  mdx MarkDialog $dname
  mdx SetDialog [ $dname ] bgcolor $rgb(28,134,238) 
  mdx SetColor 4,5,2 background $rgb(0,0,0)
  mdx SetColor 4,5,2 textbg $rgb(0,0,0)
  mdx SetColor $dname 4,5 text $rgb(255,255,255)
  mdx SetColor $dname 2 text $rgb(255,0,0)
  mdx SetFont 5,4,2, -12 700 Tahoma
  mdx SetFont 3,6, -10 700 Tahoma
  mdx SetColor 3,6 background $rgb(28,134,238)
  mdx SetColor 3,6 textbg $rgb(28,134,238)
  mdc BitBtn Create access 6 15 50 60 25 > Vop Ekle
  mdc BitBtn Create access 7 15 80 60 25 > Vop SiL
  mdc BitBtn Create access 8 80 50 60 25 > Hop Ekle
  mdc BitBtn Create access 9 80 80 60 25 > Hop SiL
  mdc BitBtn Create access 10 145 50 60 25 > Aop EkLe
  mdc BitBtn Create access 11 145 80 60 25 > Aop SiL
  mdc BitBtn Create access 12 210 50 60 25 > Sop EkLe
  mdc BitBtn Create access 13 210 80 60 25 > Sop SiL
  mdc BitBtn Create access 14 275 20 100 85 > Kapat
  mdc BitBtn Color 6 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
  mdc BitBtn downcolor 6 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 7 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
  mdc BitBtn downcolor 7 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 8 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
  mdc BitBtn downcolor 8 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 9 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
  mdc BitBtn downcolor 9 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 10 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
  mdc BitBtn downcolor 10 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 11 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
  mdc BitBtn downcolor 11 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 12 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
  mdc BitBtn downcolor 12 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 13 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
  mdc BitBtn downcolor 13 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 14 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(255,0,2) $rgb(122,233,20)
  mdc BitBtn downcolor 14 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Font 6 $rgb(255,252,252) 8  +b > Tahoma
  mdc BitBtn Font 7 $rgb(255,252,252) 8  +b > Tahoma
  mdc BitBtn Font 8 $rgb(255,252,252) 8  +b > Tahoma
  mdc BitBtn Font 9 $rgb(255,252,252) 8  +b > Tahoma
  mdc BitBtn Font 10 $rgb(255,252,252) 8  +b > Tahoma
  mdc BitBtn Font 11 $rgb(255,252,252) 8  +b > Tahoma
  mdc BitBtn Font 12 $rgb(255,252,252) 8  +b > Tahoma
  mdc BitBtn Font 13 $rgb(255,252,252) 8  +b > Tahoma
  mdc BitBtn Font 14 $rgb(255,252,252) 14  +b > Tahoma
  did -f $dname 5
}
on *:signal:mdc: { 
  if ($2 == access) && ($3 == sclick) && ($4 == 6) { .cs access $did(access,4) add $did(access,5) 30  | did -r access 2 |  did -a access 2 KanaL $did(access,4) Nick $did(access,5) Seviye Voice Eklendi } 
  if ($2 == access) && ($3 == sclick) && ($4 == 7) {  .cs access $did(access,4) del $did(access,5) | did -r access 2 |  did -a access 2 KanaL $did(access,4) Nick $did(access,5) Voice Silindi  } 
  if ($2 == access) && ($3 == sclick) && ($4 == 8) { .cs access $did(access,4) add $did(access,5) 40 |  did -r access 2 |  did -a access 2 KanaL $did(access,4) Nick $did(access,5) Seviye Halfop Eklendi } 
  if ($2 == access) && ($3 == sclick) && ($4 == 9) {  .cs access $did(access,4) del $did(access,5) | did -r access 2 |  did -a access 2 KanaL $did(access,4) Nick $did(access,5) Halfop Silindi  } 
  if ($2 == access) && ($3 == sclick) && ($4 == 10) { .cs access $did(access,4) add $did(access,5) 50 |  did -r access 2 |  did -a access 2 KanaL $did(access,4) Nick $did(access,5) Seviye Aop Eklendi } 
  if ($2 == access) && ($3 == sclick) && ($4 == 11) {  .cs access $did(access,4) del $did(access,5) |  did -r access 2 |  did -a access 2 KanaL $did(access,4) Nick $did(access,5) Aop Silindi } 
  if ($2 == access) && ($3 == sclick) && ($4 == 12) { .cs access $did(access,4) add $did(access,5) 100 |  did -r access 2 |  did -a access 2 KanaL $did(access,4) Nick $did(access,5) Seviye Sop Eklendi } 
  if ($2 == access) && ($3 == sclick) && ($4 == 13) {  .cs access $did(access,4) del $did(access,5) |  did -r access 2 |  did -a access 2 KanaL $did(access,4) Nick $did(access,5) Sop Silindi } 
  if ($2 == access) && ($3 == sclick) && ($4 == 14) { .timer 1 0 dialog -x access  }
}
alias Uyarı {
  echo -a 4 Servere Bağlı Değilsiniz, Bağlanmadan Bu İşlemi Gerçekleştiremessiniz... 
  halt
}
menu * {
Acces:/access }

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

emegınıze saglık guzel paylasım ıcın. txt olarak nırce ekledım ama Not : Ana dizinde Dll klasörü ve içerisinde mdc.dll - mdx.dll olmalıdır bundan dolayı calısmadı mdc.dll-mdx.dll bunu nasıl bulabırım. ıyı forumlar

Tunne · 07 Nisan 2023, 22:25

[QUOTE=Tunne;1042786278]

aLone Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Can sıkıntısı boş zamanımda Oyle bi yazdım..
Nick, Ident, Host Ekleyip Yasaklayıp Sunucu Girişinde Line Uygulatabilirsiniz.
Belki birilerinin işine yarar yaramasada zaten can sıkıntısı yazdım
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)

Bi arkadaşım istemişti gecenlerde Diyalog halınde op sop voice ekleyip silecegim Bi addon olurmu demişti ona yazmıştım.. Onuda paylaşım

Kod: Kodu kopyalamak için üzerine çift tıklayın!

alias mdc { return $dll(dll\mdc.dll,$1,$2-) }
alias mdx { return $dll(dll\mdx.dll,$1,$2-) }
alias a.b { dialog -m zlnat zlnat }
dialog zlnat {
  title "~"
  size 40 170 510 320
  option pixels
  radio "Acık",13,420 225 55 24,group
  radio "KapaLı",14,420 250 55 24
  box "", 11, 5 8 500 295
  edit "Nick Yazınız..!", 9, 175 20 160 30, center
  edit "Ident Yazınız..!", 1, 175 55 160 30, center
  edit "Host Yazınız..!", 2, 175 90 160 30, center
  edit "", 19, 93 132 80 30, center
  edit "", 20, 93 182 80 30, center
  edit "", 21, 93 232 80 30, center
  edit "     Girişte Oto Nick ident host Gzline Paneli     ",  33, 10 276 490 23, center
  list 22, 175 132 160 130, size
}
on *:dialog:zlnat:sclick:*:{
  if ($did = 13) { set %NickZ Acık | set %identZ Acık | set %HostZ Acık | dialog -t zlnat Yasak Giriş Koruması AcıLdı. | did -e zlnat 9,1,2,19,20,21,33,22 }
  if ($did = 14) { set %NickZ Kapalı | set %identZ Kapalı | set %HostZ Kapalı | dialog -t zlnat Yasak Giriş Koruması KapatıLdı. | did -b zlnat 9,1,2,19,20,21,33,22 }
}
on *:dialog:zlnat:init:0: {
  if (%NickZ == Acık) { did -c zlnat 13 }
  if (%NickZ == Kapalı) { did -c zlnat 14 }
  .timerxa 1 2 did -r zlnat 9,1,2
  mdx MarkDialog $dname
  mdx SetDialog [ $dname ] bgcolor $rgb(28,134,238) 
  mdx SetColor 9,1,2,19,20,21,22,33 background $rgb(0,0,0)
  mdx SetColor 9,1,2,19,20,21,22,33 textbg $rgb(0,0,0)
  mdx SetColor $dname 9,1,2,19,20,21,22,33 text $rgb(255,0,0)
  mdx SetFont 13,14,9,1,2,19,20,21,22,33 -11 700 Tahoma
  mdx SetFont 33 -14 700 Tahoma
  mdx SetColor 13,14 background $rgb(28,134,238)
  mdx SetColor 13,14 textbg $rgb(28,134,238)
  mdx SetColor $dname 13,14 text $rgb(255,0,0)
  mdc BitBtn Create zlnat 2 10 20 162 31 > Nick Zline Ekle
  mdc BitBtn Create zlnat 3 10 55 162 31 > Ident Zline Ekle
  mdc BitBtn Create zlnat 4 10 90 162 31 > Host Zline Ekle
  mdc BitBtn Create zlnat 5 337 20 162 31 > Nick Zline SiL
  mdc BitBtn Create zlnat 6 337 55 162 31 > Ident Zline SiL
  mdc BitBtn Create zlnat 7 337 90 162 31 > Host Zline SiL
  mdc BitBtn Create zlnat 13 10 125 80 21 > Muaf N Ekle
  mdc BitBtn Create zlnat 14 10 175 80 21 > Muaf i Ekle
  mdc BitBtn Create zlnat 15 10 225 80 21 > Muaf H Ekle
  mdc BitBtn Create zlnat 16 10 150 80 21 > Muaf N Sil
  mdc BitBtn Create zlnat 17 10 200 80 21 > Muaf i Sil
  mdc BitBtn Create zlnat 18 10 250 80 21 > Muaf H Sil
  mdc BitBtn Create zlnat 26 337 125 80 21 > Muaf N list
  mdc BitBtn Create zlnat 27 337 175 80 21 > Muaf i list
  mdc BitBtn Create zlnat 28 337 225 80 21 > Muaf H list
  mdc BitBtn Create zlnat 29 337 150 80 21 > Yasak N list
  mdc BitBtn Create zlnat 30 337 200 80 21 > Yasak i list
  mdc BitBtn Create zlnat 31 337 250 80 21 > Yasak H list
  mdc BitBtn Create zlnat 8 420 125 79 97 > Kapat
  mdc BitBtn Color 2 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
  mdc BitBtn downcolor 2 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 3 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20) 
  mdc BitBtn downcolor 3 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 4 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20) 
  mdc BitBtn downcolor 4 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 5 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20) 
  mdc BitBtn downcolor 5 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 6 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20) 
  mdc BitBtn downcolor 6 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 7 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20) 
  mdc BitBtn downcolor 7 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 8 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20) 
  mdc BitBtn downcolor 8 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 13 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20) 
  mdc BitBtn downcolor 13 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 14 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20) 
  mdc BitBtn downcolor 14 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 15 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
  mdc BitBtn downcolor 15 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 16 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20) 
  mdc BitBtn downcolor 16 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 17 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20) 
  mdc BitBtn downcolor 17 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 18 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20) 
  mdc BitBtn downcolor 18 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 26 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
  mdc BitBtn downcolor 26 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 27 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
  mdc BitBtn downcolor 27 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 28 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
  mdc BitBtn downcolor 28 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 29 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
  mdc BitBtn downcolor 29 $rgb(25,2,22) $rgb(6,135,5) $rgb(130,25,255) $rgb(2,5,255) $rgb(2,10,220)
  mdc BitBtn Color 30 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
  mdc BitBtn downcolor 30 $rgb(25,2,22) $rgb(6,135,5) $rgb(130,25,255) $rgb(2,5,255) $rgb(2,10,220)
  mdc BitBtn Color 31 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
  mdc BitBtn downcolor 31 $rgb(25,2,22) $rgb(6,135,5) $rgb(130,25,255) $rgb(2,5,255) $rgb(2,10,220)
  mdc BitBtn Font 2 $rgb(240,240,240) 9 +b > Tahoma
  mdc BitBtn Font 3 $rgb(240,240,240) 9 +b > Tahoma
  mdc BitBtn Font 4 $rgb(240,240,240) 9 +b > Tahoma
  mdc BitBtn Font 5 $rgb(240,240,240) 9 +b > Tahoma
  mdc BitBtn Font 6 $rgb(240,240,240) 9 +b > Tahoma
  mdc BitBtn Font 7 $rgb(240,240,240) 9 +b > Tahoma
  mdc BitBtn Font 8 $rgb(240,240,240) 14 +b > Tahoma
  mdc BitBtn Font 13 $rgb(240,240,240) 7 +b > Tahoma
  mdc BitBtn Font 14 $rgb(240,240,240) 7 +b > Tahoma
  mdc BitBtn Font 15 $rgb(240,240,240) 7 +b > Tahoma
  mdc BitBtn Font 16 $rgb(240,240,240) 7 +b > Tahoma
  mdc BitBtn Font 17 $rgb(240,240,240) 7 +b > Tahoma
  mdc BitBtn Font 18 $rgb(240,240,240) 7 +b > Tahoma
  mdc BitBtn Font 26 $rgb(255,252,252) 7  +b > Tahoma
  mdc BitBtn Font 27 $rgb(255,252,252) 7  +b > Tahoma
  mdc BitBtn Font 28 $rgb(255,252,252) 7  +b > Tahoma
  mdc BitBtn Font 29 $rgb(255,252,252) 7  +b > Tahoma
  mdc BitBtn Font 30 $rgb(255,252,252) 7  +b > Tahoma
  mdc BitBtn Font 31 $rgb(255,252,252) 7  +b > Tahoma
  did -f $dname 9
}
on *:signal:mdc: {
  if ($2 == zlnat) && ($3 == sclick) && ($4 == 2) { .auser NickZ $did(zlnat,9) | echo -a 0,1 4 Ekleme işLemi11 $did(zlnat,9) 4 Nick 0zLine liste Eklendi.   } 
  if ($2 == zlnat) && ($3 == sclick) && ($4 == 3) { .auser identZ $did(zlnat,1) | echo -a 0,1 4  Ekleme işLemi11 $did(zlnat,1) 4 identi 0zLine liste Eklendi.    } 
  if ($2 == zlnat) && ($3 == sclick) && ($4 == 4) { .auser HostZ $did(zlnat,2)  | echo -a 0,1 4  Ekleme işLemi11 $did(zlnat,2) 4 Hostu 0zLine liste Eklendi.    } 
  if ($2 == zlnat) && ($3 == sclick) && ($4 == 5) { .ruser NickZ $did(zlnat,9)  | echo -a 0,1 4  SiLme işLemi7 $did(zlnat,9) 11 Nick 0zLine listesinden SiLindi.   }
  if ($2 == zlnat) && ($3 == sclick) && ($4 == 6) { .ruser identZ $did(zlnat,1) | echo -a 0,1 4  SiLme işLemi7 $did(zlnat,1) 11 ident 0zLine listesinden SiLindi.   } 
  if ($2 == zlnat) && ($3 == sclick) && ($4 == 7) { .ruser HostZ $did(zlnat,2) | echo -a 0,1 4  SiLme işLemi7 $did(zlnat,2)  11 Host 0zLine listesinden SiLindi.   }
  if ($2 == zlnat) && ($3 == sclick) && ($4 == 8) { .timer 1 0 dialog -x zlnat  } 
  if ($2 == zlnat) && ($3 == sclick) && ($4 == 13) { .auser Muafnick $did(zlnat,19) | echo -a 0,1 4 Ekleme işLemi11 $did(zlnat,19) 4 Nick 0Muaf liste Eklendi.    }
  if ($2 == zlnat) && ($3 == sclick) && ($4 == 14) { .auser Muafident $did(zlnat,20) | echo -a 0,1 4 Ekleme işLemi11 $did(zlnat,20) 4 ident 0Muaf liste Eklendi.    }
  if ($2 == zlnat) && ($3 == sclick) && ($4 == 15) { .auser Muafhost $did(zlnat,21) | echo -a 0,1 4 Ekleme işLemi11 $did(zlnat,21) 4 Host 0Muaf liste Eklendi.    }
  if ($2 == zlnat) && ($3 == sclick) && ($4 == 16) { .ruser Muafnick $did(zlnat,19) | echo -a 0,1 4 SiLme işLemi11 $did(zlnat,19) 4 Nick 0Muaf listesinden SiLindi.    }
  if ($2 == zlnat) && ($3 == sclick) && ($4 == 17) { .ruser Muafident $did(zlnat,20) | echo -a 0,1 4 SiLme işLemi11 $did(zlnat,20) 4 ident 0Muaf listesinden SiLindi.    }
  if ($2 == zlnat) && ($3 == sclick) && ($4 == 18) { .ruser Muafhost $did(zlnat,21) | echo -a 0,1 4 SiLme işLemi11 $did(zlnat,21) 4 Host 0Muaf  listesinden SiLindi.    }
  if ($2 == zlnat) && ($3 == sclick) && ($4 == 26) { .m.nick  | echo -a 0,1 4 Listeleme işLemi11 $did(zlnat,19) 4 Nick 0Muaf  listesi.   }
  if ($2 == zlnat) && ($3 == sclick) && ($4 == 27) { .m.ident  | echo -a 0,1 4 Listeleme işLemi11 $did(zlnat,20) 4 ident 0Muaf listesi.    }
  if ($2 == zlnat) && ($3 == sclick) && ($4 == 28) { .m.host | echo -a 0,1 4 Listeleme işLemi11 $did(zlnat,21) 4 Host 0Muaf listesi.    }
  if ($2 == zlnat) && ($3 == sclick) && ($4 == 29) { .y.nick  | echo -a 0,1 4 Listeleme işLemi11 $did(zlnat,19) 4 Nick 0Yasak listesi.    }
  if ($2 == zlnat) && ($3 == sclick) && ($4 == 30) { .y.ident | echo -a 0,1 4 Listeleme işLemi11 $did(zlnat,20) 4 ident 0Yasak listesi.    }
  if ($2 == zlnat) && ($3 == sclick) && ($4 == 31) { .y.host | echo -a 0,1 4 Listeleme işLemi11 $did(zlnat,21) 4 Host 0Yasak listesi.    }
}
on *:snotice:*connecting on*: {
  if ($level($9) == muafnick) { halt }
  if (connecting isin $1-) {
    if (%nickZ == Acık) {
      var %:ip $remove($gettok($10,2,64),$chr(41))
      if $level($9) = NickZ { gzline $+(*@,%:ip) 1d YasakLı Nick | halt }
    }
    if (%identZ == Acık) {
      var %:idnt $remove($gettok($10,1,64),$chr(40))
      if ($level(%:idnt)  == muafident) { halt }
      if $level(%:idnt) = identZ { gzline $+(*@,%:ip) 1d YasakLı ident | halt }
    }
    if (%HostZ == Acık) {
      if ($level(%:ip) == muafhost) { halt }
      if $level(%:ip) = HostZ { gzline $+(*@,%:ip) 1d YasakLı Host | halt }
    }
  }
}
;Yasak list
alias y.nick {
  did -r zlnat 22
  did -a zlnat 22  : Yasak Nick Listesi :
  var %x = 1
  while (%x <= $ulist(*,nickz,0)) { 
    did -a zlnat 22 ) $ulist(*,nickz,%x)
    inc %x 
  }
}
alias y.ident {
  did -r zlnat 22
  did -a zlnat 22  : Yasak Ident Listesi :
  var %xx = 1
  while (%xx <= $ulist(*,identz,0)) { 
    did -a zlnat 22 ) $ulist(*,identz,%xx)
    inc %xx 
  }
}
alias y.host {
  did -r zlnat 22
  did -a zlnat 22  : Yasak Host Listesi :
  var %xxx = 1
  while (%xxx <= $ulist(*,hostz,0)) { 
    did -a zlnat 22 ) $ulist(*,hostz,%xxx)
    inc %xxx 
  }
}
;Muaf list
alias m.nick {
  did -r zlnat 22
  did -a zlnat 22  : Muaf Nick Listesi :
  var %ax = 1
  while (%ax <= $ulist(*,muafnick,0)) { 
    did -a zlnat 22 ) $ulist(*,muafnick,%ax)
    inc %ax 
  }
}
alias m.ident {
  did -r zlnat 22
  did -a zlnat 22  : Muaf Ident Listesi :
  var %axx = 1
  while (%axx <= $ulist(*,muafident,0)) { 
    did -a zlnat 22 ) $ulist(*,muafident,%axx)
    inc %axx 
  }
}
alias m.host {
  did -r zlnat 22
  did -a zlnat 22  : Muaf Host Listesi :
  var %axxx = 1
  while (%axxx <= $ulist(*,muafhost,0)) { 
    did -a zlnat 22 ) $ulist(*,muafHost,%axxx)
    inc %axxx 
  }
}
menu * {
Gzline Paneli:/a.b }

Op voice

Kod: Kodu kopyalamak için üzerine çift tıklayın!

alias mdc { return $dll(dll\mdc.dll,$1,$2-) }
alias mdx { return $dll(dll\mdx.dll,$1,$2-) }
alias access { 
  $iif($status == connected,$null,Uyarı)
if ($dialog(access)) {  dialog -c  access access } | else { dialog -m access access } }
dialog access {
  title "~"
  size -1 -1 195 80
  option dbu
  text "Nick Bölümü" ,3, 20 0 40 6 
  text "#KanaL Bölümü" ,6, 80 0 48 6
  edit "Nick Yaz", 5, 8 10 62 13, center
  edit "#KanaL Yaz", 4, 72 10 63 13, center
  list 2, 8 58 179 13, size
  box "", 1, 5 4 185 70
}
on *:dialog:access:init:0: {
  did -a access 2 HazırLanıyor..
  .timerja 1 2 did -r access 2,4,5
  .timerjax 1 2 did -a access 2 Access Menü KuLLanıma Hazır..
  mdx MarkDialog $dname
  mdx SetDialog [ $dname ] bgcolor $rgb(28,134,238) 
  mdx SetColor 4,5,2 background $rgb(0,0,0)
  mdx SetColor 4,5,2 textbg $rgb(0,0,0)
  mdx SetColor $dname 4,5 text $rgb(255,255,255)
  mdx SetColor $dname 2 text $rgb(255,0,0)
  mdx SetFont 5,4,2, -12 700 Tahoma
  mdx SetFont 3,6, -10 700 Tahoma
  mdx SetColor 3,6 background $rgb(28,134,238)
  mdx SetColor 3,6 textbg $rgb(28,134,238)
  mdc BitBtn Create access 6 15 50 60 25 > Vop Ekle
  mdc BitBtn Create access 7 15 80 60 25 > Vop SiL
  mdc BitBtn Create access 8 80 50 60 25 > Hop Ekle
  mdc BitBtn Create access 9 80 80 60 25 > Hop SiL
  mdc BitBtn Create access 10 145 50 60 25 > Aop EkLe
  mdc BitBtn Create access 11 145 80 60 25 > Aop SiL
  mdc BitBtn Create access 12 210 50 60 25 > Sop EkLe
  mdc BitBtn Create access 13 210 80 60 25 > Sop SiL
  mdc BitBtn Create access 14 275 20 100 85 > Kapat
  mdc BitBtn Color 6 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
  mdc BitBtn downcolor 6 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 7 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
  mdc BitBtn downcolor 7 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 8 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
  mdc BitBtn downcolor 8 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 9 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
  mdc BitBtn downcolor 9 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 10 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
  mdc BitBtn downcolor 10 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 11 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
  mdc BitBtn downcolor 11 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 12 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
  mdc BitBtn downcolor 12 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 13 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
  mdc BitBtn downcolor 13 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Color 14 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(255,0,2) $rgb(122,233,20)
  mdc BitBtn downcolor 14 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdc BitBtn Font 6 $rgb(255,252,252) 8  +b > Tahoma
  mdc BitBtn Font 7 $rgb(255,252,252) 8  +b > Tahoma
  mdc BitBtn Font 8 $rgb(255,252,252) 8  +b > Tahoma
  mdc BitBtn Font 9 $rgb(255,252,252) 8  +b > Tahoma
  mdc BitBtn Font 10 $rgb(255,252,252) 8  +b > Tahoma
  mdc BitBtn Font 11 $rgb(255,252,252) 8  +b > Tahoma
  mdc BitBtn Font 12 $rgb(255,252,252) 8  +b > Tahoma
  mdc BitBtn Font 13 $rgb(255,252,252) 8  +b > Tahoma
  mdc BitBtn Font 14 $rgb(255,252,252) 14  +b > Tahoma
  did -f $dname 5
}
on *:signal:mdc: { 
  if ($2 == access) && ($3 == sclick) && ($4 == 6) { .cs access $did(access,4) add $did(access,5) 30  | did -r access 2 |  did -a access 2 KanaL $did(access,4) Nick $did(access,5) Seviye Voice Eklendi } 
  if ($2 == access) && ($3 == sclick) && ($4 == 7) {  .cs access $did(access,4) del $did(access,5) | did -r access 2 |  did -a access 2 KanaL $did(access,4) Nick $did(access,5) Voice Silindi  } 
  if ($2 == access) && ($3 == sclick) && ($4 == 8) { .cs access $did(access,4) add $did(access,5) 40 |  did -r access 2 |  did -a access 2 KanaL $did(access,4) Nick $did(access,5) Seviye Halfop Eklendi } 
  if ($2 == access) && ($3 == sclick) && ($4 == 9) {  .cs access $did(access,4) del $did(access,5) | did -r access 2 |  did -a access 2 KanaL $did(access,4) Nick $did(access,5) Halfop Silindi  } 
  if ($2 == access) && ($3 == sclick) && ($4 == 10) { .cs access $did(access,4) add $did(access,5) 50 |  did -r access 2 |  did -a access 2 KanaL $did(access,4) Nick $did(access,5) Seviye Aop Eklendi } 
  if ($2 == access) && ($3 == sclick) && ($4 == 11) {  .cs access $did(access,4) del $did(access,5) |  did -r access 2 |  did -a access 2 KanaL $did(access,4) Nick $did(access,5) Aop Silindi } 
  if ($2 == access) && ($3 == sclick) && ($4 == 12) { .cs access $did(access,4) add $did(access,5) 100 |  did -r access 2 |  did -a access 2 KanaL $did(access,4) Nick $did(access,5) Seviye Sop Eklendi } 
  if ($2 == access) && ($3 == sclick) && ($4 == 13) {  .cs access $did(access,4) del $did(access,5) |  did -r access 2 |  did -a access 2 KanaL $did(access,4) Nick $did(access,5) Sop Silindi } 
  if ($2 == access) && ($3 == sclick) && ($4 == 14) { .timer 1 0 dialog -x access  }
}
alias Uyarı {
  echo -a 4 Servere Bağlı Değilsiniz, Bağlanmadan Bu İşlemi Gerçekleştiremessiniz... 
  halt
}
menu * {
Acces:/access }

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

emegınıze saglık guzel paylasım ıcın. txt olarak nırce ekledım ama Not : Ana dizinde Dll klasörü ve içerisinde mdc.dll - mdx.dll olmalıdır bundan dolayı calısmadı mdc.dll-mdx.dll bunu nasıl bulabırım. ıyı forumlar

* $dll: 'C:\HelpOper\dll\mdc.dll' Açilamiyor (Satir 1, script65.mrc) hatayı verıyor bakabılecek arkadaslara tsk ederım

YekTa · 08 Nisan 2023, 01:00

yazmiş aslinda Not : Ana dizinde Dll klasörü ve içerisinde mdc.dll - mdx.dll olmalıdır

High · 08 Nisan 2023, 12:27

Kardeşim vermiş olduğum adresten indirebilirsin. Sonrasın da Rar içinden çıkar ve mIRC klosörü içine at bu dosyaları. Zaten gerekli açıklama yapılmış.

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder
Stil
Normal Hybrid-Şeklinde gösterime geç Ağaç şeklinde gösterime geç

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
nick ident uzunluguna line işlemi	Dangerous123	mIRC Scripting Sorunları	12	31 Temmuz 2012 20:47
Nick Işlemi	MoRtaL_	mIRC Scripting Sorunları	6	24 Aralık 2010 16:26
Host ve Ident	salihbxl	mIRC Scripting Hazır Kodlar	3	31 Ekim 2010 11:22
Statuste nick işlemi	titan	mIRC Scripting Sorunları	7	27 Eylül 2006 04:40

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.