[LauReLL]

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

on *:LOAD: {
  set %KBK_s disabled
  set %KBK_kmsg KişiSel Ban Koruması CodEr ßy LauReLL ;)
  set %KBK_pu KBK_pud
  echo -a KişiSel Ban Koruması (KBK) v2.0 Şu Anda YükLendi...
  echo -a Kişisel Ban Korumasını YükLediğiniz için Teşekkür
  echo -a Ban Koruması Addonu ßy LauReLL!!!
}
alias KBK { dialog -m KBK KBK }
dialog KBK {
  title "Kişisel Ban Koruması"
  size -1 -1 102 101
  option dbu
  check "Aktif Et", 1, 3 3 28 10
  box "Kick Mesajı:", 2, 3 43 97 26
  edit "", 3, 9 52 84 11, autohs
  box "Cezası:", 5, 3 17 97 24
  radio "Deop", 6, 8 26 24 10
  radio "Kick", 7, 37 26 21 10
  radio "Ban/Kick", 8, 64 26 32 10
  button "Kick Mesajını Sil", 9, 3 76 96 11
  button "Çık", 4, 3 87 96 11, ok
}
on *:DIALOG:KBK:init:*: {
  did -a KBK 3 %KBK_kmsg
  if (%KBK_pu == KBK_pud) { did -c KBK 6 }
  elseif (%KBK_pu == KBK_puk) { did -c KBK 7 }
  elseif (%KBK_pu == KBK_pukb) { did -c KBK 8 }
  if (%KBK_s == enabled) { did -c KBK 1 | did -e KBK 3,6,7,8,9 }
  if (%KBK_s == disabled) { did -b KBK 3,6,7,8,9 }
}
on *:DIALOG:KBK:sclick:*: {
  if ($did == 1) { if ($did(KBK,$did).state == 1) { did -e KBK 3,6,7,8,9 | set %KBK_s enabled | .enable #KBK } | else { did -b KBK 3,6,7,8,9 | set %KBK_s disabled | .disable #KBK } }
  if ($did == 6) { set %KBK_pu KBK_pud }
  if ($did == 7) { set %KBK_pu KBK_puk }
  if ($did == 8) { set %KBK_pu KBK_pukb }
  if ($did == 9) { did -r KBK 3 | set %KBK_kmsg }
}
on *:DIALOG:KBK:edit:3: { set %KBK_kmsg $did(KBK,3) }
#KBK on
on *:BAN:#: {
  if (%KBK_s == enabled) { 
    if ($me == $nick) { return }
    if ($me isop $chan) && (%KBK_pu == KBK_pud) && ($banmask iswm $address($me,5)) { mode $chan -b $banmask | mode $chan -o $nick | msg $nick %KBK_kmsg }
    if ($me isop $chan) && (%KBK_pu == KBK_puk) && ($banmask iswm $address($me,5)) { mode $chan -b $banmask | mode $chan -o $nick | kick $chan $nick %KBK_kmsg } 
    if ($me isop $chan) && (%KBK_pu == KBK_pukb) && ($banmask iswm $address($me,5)) { mode $chan -o $nick | mode $chan -b $banmask | ban $chan $nick | kick $chan $nick %KBK_kmsg } 
  }
  if ($me isreg $chan) { echo -a [KişiSeL Ban Koruması]  banned in $chan | echo -a [KişiSeL Ban Koruması] Reason: OP Olmanız Gerekiyoo (@) | halt }
  if ($me isvoice $chan ) { echo -a [KişiSeL Ban Koruması] banned in $chan | echo -a [KişiSeL Ban Koruması] Reason: OP Olmanız Gerekiyoo (@) | halt }
  else { halt }
}
#KBK end
Menu channel,status,menubar { 
  KişiSel Ban Koruması 
  .Dialog { KBK }
  .Unload { unset %KBK_* | echo -a KişiSeL Ban Koruması mIRc2inizden KaLdırıLdı!... | unload -rs KBK.mrc }
}

Kodu Bir Yerden Yardım Edinerek DiaLog haLıne getirdim Umarın Sizde Seversiniz...