Kanal Küfür Koruma Addonu

Kanal küfür koruma remotesi

## www.mircclub.org

dialog swearprot {
  title "Kanal Küfür Koruması"
  size -1 -1 145 206
  option dbu
  box "Küfürde Dost Listesi", 1, 2 2 59 75
  edit "", 2, 6 10 50 10
  list 3, 6 20 50 38, size
  button "Ekle", 4, 6 61 16 12
  button "Sil", 5, 23 61 16 12
  button "Kaldır", 6, 40 61 16 12
  box "Küfür Entegre", 7, 2 78 59 75
  edit "", 8, 6 86 50 10
  list 9, 6 96 50 38, size
  button "Ekle", 10, 6 137 16 12
  button "Sil", 11, 23 137 16 12
  button "Kaldır", 12, 40 137 16 12
  box "Korunacaklar", 13, 64 2 79 48
  check "(@) Kanal Opları", 14, 69 11 70 10, group 1
  check "(+) Kanal Voiceleri", 15, 69 23 70 10
  check "Dost Listemdekiler", 16, 69 35 71 10
  box "Yapılacaklar", 17, 64 51 79 48
  radio "KickBan Süresiz", 18, 68 60 70 10, group 2
  radio "KickBan Süreli", 19, 68 72 69 10
  radio "Sadece Kickle", 20, 68 84 68 10
  box "Ban Tipi", 21, 64 100 79 53
  combo 22, 69 109 69 41, size drop
  box "Kick Mesajı & Ban Süresi.?", 23, 2 154 141 23
  edit "", 24, 6 162 110 10, autohs, disable
  edit "", 25, 117 162 22 10, autohs
  box "Ayarlar", 26, 2 178 72 22
  radio "Açık", 27, 7 186 30 10, group 3
  radio "Kapalı", 28, 39 186 30 10
  button "Kapat", 30, 79 181 63 19, ok
}

alias swearprot {
  if (!$dialog(swearprot)) { dialog -m swearprot swearprot }
}

on *:dialog:*:*:*:{
  if ($dname == swearprot) {
    if ($devent == sclick) {
      if ($did == 3) && ($did(3).seltext != $null) { did -ra $dname 2 $did(3).seltext }
      if ($did == 4) && ($did(2).text != $null) && ($numtok($did(2).text,32) == 1) {
        set %_ $numtok(%swearprot.friends.list,32)
        set %swearprot.friends.list $addtok(%swearprot.friends.list,$did(2).text,32)
        if (%_ != $numtok(%swearprot.friends.list,32)) {
          did -a $dname 3 $did(2).text | did -r $dname 2
        }
      }
      if ($did == 5) && ($did(3).sel != $null) {
        set %swearprot.friends.list $deltok(%swearprot.friends.list,$did(3).sel,32)
        did -r $dname 2,3 | didtok $dname 3 32 %swearprot.friends.list
      }
      if ($did == 6) { unset %swearprot.friends.list | did -r  $dname 2,3 }
      if ($did == 9) && ($did(9).seltext  != $null) { did -ra $dname 8 $did(9).seltext }
      if ($did == 10) && ($did(8).text != $null) {
        set %_ $numtok(%swearprot.filter,1)
        set %swearprot.filter $addtok(%swearprot.filter,$did(8).text,1)
        if (%_ != $numtok(%swearprot.filter,1)) {
          did -a $dname 9 $did(8).text | did -r $dname 8
        }
      }
      if ($did == 11) && ($did(9).sel != $null) {
        set %swearprot.filter $deltok(%swearprot.filter,$did(9).sel,1)
        did -r $dname 8,9 | didtok $dname 9 1 %swearprot.filter
      }
      if ($did == 12) { unset %swearprot.filter | did -r $dname 8,9 }
      if ($did == 14) { 
        if ($did(14).state == 0) { set %swearprot.protect.ops Off }
        if ($did(14).state == 1) { set %swearprot.protect.ops On }
      }
      if ($did == 15) { 
        if ($did(15).state == 0) { set %swearprot.protect.vos Off }
        if ($did(15).state == 1) { set %swearprot.protect.vos On }
      }
      if ($did == 16) {
        if ($did(16).state == 0) { set %swearprot.protect.frs Off }
        if ($did(16).state == 1) { set %swearprot.protect.frs On }
      }
      if ($did == 18) { set %swearprot.punish.style 1 }
      if ($did == 19) { set %swearprot.punish.style 2 }
      if ($did == 20) { set %swearprot.punish.style 3 }
      if ($did == 22) && ($did(22).sel != $null) { set %swearprot.banmask $did(22).sel }
      if ($did == 27) { set %swearprot.state On | echo -a %logo 1Küfür Koruması 3AÇILDI }
      if ($did == 28) { set %swearprot.state Off | echo -a %logo 1Küfür Koruması 4KAPATILDI } 
      if ($did == 29) { dialog -m swearprotabout swearprotabout }
    }
    if ($devent == edit) {
      if ($did == 24) && ($did(24).text != $null) {
        set %swearprot.kickmsg 0,14|0,15| 1Küfür Yasaktır! $date $time $me %logo |
      }
      if ($did == 25) && ($did(25).text != $null) {
        if ($iif($did(25).text isnum,1,2) == 1) { set %swearprot.bantime $did(25).text }
        if ($iif($did(25).text isnum,1,2) == 2) { did -r $dname 25 }
      }
    }
    if ($devent == init) && ($did == 0) {
      mdx SetBorderStyle 4,5,6,10,11,12,30 staticedge 
      did -a $dname 24 %swearprot.kickmsg
      did -a $dname 25 %swearprot.bantime
      didtok $dname 3 32 %swearprot.friends.list
      didtok $dname 9 1 %swearprot.filter
      did -a $dname 22 *!user@host
      did -a $dname 22 *!*user@host
      did -a $dname 22 *!*@host
      did -a $dname 22 *!*user@*.host
      did -a $dname 22 *!*@*.host
      did -a $dname 22 nick!user@host
      did -a $dname 22 nick!*user@host
      did -a $dname 22 nick!*@host
      did -a $dname 22 nick!*user@*.host
      did -a $dname 22 nick!*@*.host
      did -c $dname 22 %swearprot.banmask
      if (%swearprot.protect.ops == On) { did -c $dname 14 }
      if (%swearprot.protect.vos == On) { did -c $dname 15 }
      if (%swearprot.protect.frs == On) { did -c $dname 16 }
      if (%swearprot.punish.style == 1) { did -c $dname 18 }
      if (%swearprot.punish.style == 2) { did -c $dname 19 }
      if (%swearprot.punish.style == 3) { did -c $dname 20 }
      if (%swearprot.state == On) { did -c $dname 27 }
      if (%sweraprot.state == Off) { did -c $dname 28 }
    }
  }
  if ($dname == swearprotabout) {
    if ($devent == init) && ($did == 0) { did -m $dname 3,5,7 | did -f $dname 1 }
    if ($devent == sclick) { dialog -x $dname }
  }
}

on *:TEXT:*:#:{
  if (%swearprot.state == On) && ($me isop #) {
    if ($nick isop #) && (%swearprot.protect.ops == On) { halt }
    if ($nick isvo #) && (%swearprot.protect.vos == On) { halt }
    if ($istok(%swearprot.friends.list,$nick,32)) && (%swearprot.protect.frs == On) { halt }
    var %temp1 = 0
    while (%temp1 <= $numtok(%swearprot.filter,1)) {
      inc %temp1
      if ($gettok(%swearprot.filter,%temp1,1) isin $1-) { 
        if (%swearprot.punish.style == 1) {
          if ($nick ison #) && (%swearprot.banmask != $null) {
            mode # +b $address($nick,%swearprot.banmask)
            if ($nick ison #) {
              kick # $nick 14Küfür Yasaktır! 12 $me  %logo  |
            }
          }
        }
        if (%swearprot.punish.style == 2) {
          if ($nick ison #) && (%swearprot.banmask != $null) && (%swearprot.bantime != $null) {
            ban -u $+ [ %swearprot.bantime ] # $address($nick,%swearprot.banmask)
            if ($nick ison #) {
              kick # $nick 14Küfür Yasaktır! 12 $me  %logo  |
            }
          }
        }
        if (%swearprot.punish.style == 3) {
          if ($nick ison #) { kick # $nick 14Küfür Yasaktır! 12 $me  %logo  | }
        }
      }
    }
  }
}

on *:NOTICE:*:#:{
  if (%swearprot.state == On) && ($me isop #) {
    if ($nick isop #) && (%swearprot.protect.ops == On) { halt }
    if ($nick isvo #) && (%swearprot.protect.vos == On) { halt }
    if ($istok(%swearprot.friends.list,$nick,32)) && (%swearprot.protect.frs == On) { halt }
    var %temp2 = 0
    while (%temp2 <= $numtok(%swearprot.filter,1)) {
      inc %temp2
      if ($gettok(%swearprot.filter,%temp2,1) isin $1-) { 
        if (%swearprot.punish.style == 1) {
          if ($nick ison #) && (%swearprot.banmask != $null) {
            mode # +b $address($nick,%swearprot.banmask)
            if ($nick ison #) {
              kick # $nick 14Küfür Yasaktır! 12 $me  %logo  |
            }
          }
        }
        if (%swearprot.punish.style == 2) {
          if ($nick ison #) && (%swearprot.banmask != $null) && (%swearprot.bantime != $null) {
            ban -u $+ [ %swearprot.bantime ] # $address($nick,%swearprot.banmask)
            if ($nick ison #) {
              kick # $nick 14Küfür Yasaktır! 12 $me  %logo |
            }
          }
        }
        if (%swearprot.punish.style == 3) {
          if ($nick ison #) { kick # $nick 14Küfür Yasaktır! 12 $me  %logo  | }
        }
      }
    }
  }
}

on *:ACTION:*:#:{
  if (%swearprot.state == On) && ($me isop #) {
    if ($nick isop #) && (%swearprot.protect.ops == On) { halt }
    if ($nick isvo #) && (%swearprot.protect.vos == On) { halt }
    if ($istok(%swearprot.friends.list,$nick,32)) && (%swearprot.protect.frs == On) { halt }
    var %temp3 = 0
    while (%temp3 <= $numtok(%swearprot.filter,1)) {
      inc %temp3
      if ($gettok(%swearprot.filter,%temp3,1) isin $1-) { 
        if (%swearprot.punish.style == 1) {
          if ($nick ison #) && (%swearprot.banmask != $null) {
            mode # +b $address($nick,%swearprot.banmask)
            if ($nick ison #) {
              kick # $nick 14Küfür Yasaktır! 12 $me  %logo  |
            }
          }
        }
        if (%swearprot.punish.style == 2) {
          if ($nick ison #) && (%swearprot.banmask != $null) && (%swearprot.bantime != $null) {
            ban -u $+ [ %swearprot.bantime ] # $address($nick,%swearprot.banmask)
            if ($nick ison #) {
              kick # $nick 14Küfür Yasaktır! 12 $me  %logo |
            }
          }
        }
        if (%swearprot.punish.style == 3) {
          if ($nick ison #) { kick # $nick 14Küfür Yasaktır! 12 $me  %logo  | }
        }
      }
    }
  }
}