IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)
-   -   Nick,Ident,Host Line işlemi (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/690035-nickidenthost-line-islemi.html)

aLone 24 Mart 2015 17:10
Nick,Ident,Host Line işlemi
 
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 :))

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:
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:
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
Cevap: Nick,Ident,Host Line işlemi
 
Bende diyorum nerelerde bu @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] :)

aLone 25 Mart 2015 01:43
Cevap: Nick,Ident,Host Line işlemi
 
Para lazım Feragat ustat deli gibi çalışıyom ya :)))

ozturks 06 Mayıs 2017 02:01
Cevap: Nick,Ident,Host Line işlemi
 
alone kardesim senden bi ricam olacak

aLone 07 Mayıs 2017 07:48
Cevap: Nick,Ident,Host Line işlemi
 
Alıntı:
ozturks Nickli Üyeden Alıntı (Mesaj 1041857021)
alone kardesim senden bi ricam olacak
Buyur kardes

Yasakkk 27 Eylül 2022 19:39
Cevap: Nick,Ident,Host Line işlemi
 
Alıntı:
aLone Nickli Üyeden Alıntı (Mesaj 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 :))

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:
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:
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
Cevap: Nick,Ident,Host Line işlemi
 
[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 :))

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:
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:
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
Cevap: Nick,Ident,Host Line işlemi
 
[QUOTE=Tunne;1042786278]
Alıntı:
aLone Nickli Üyeden Alıntı (Mesaj 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 :))

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:
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:
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
Cevap: Nick,Ident,Host Line işlemi
 
yazmiş aslinda Not : Ana dizinde Dll klasörü ve içerisinde mdc.dll - mdx.dll olmalıdır

High 08 Nisan 2023 12:27
Cevap: Nick,Ident,Host Line işlemi
 
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...]


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 13:22.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk