Swear Protection by br0nx

; -------------------------------------------------------------------
;
; Addons  : Swear Protection
; Version : v1 Beta
; Author  : br0nx
; Email  : br0nx.20@inbox.com
; Address : http://www.yumirc.org
;
; ------------------------=> $Load $Unload <=------------------------
on *:load: {
  echo -a Swear Protection v1 -= Succesfully Loaded =- Addons by br0nx
}
on *:unload: {
  echo -a Swear Protection v1 -= Succesfully Unloaded =- Addons by br0nx
}
; ------------------------=> $mIRC $Events <=------------------------
on *:start: {
  if ($hget(sp)) { hfree sp }
  hmake sp 100
  if ($isfile(sp.mrc)) hload sp sp.mrc
}
on *:close: {
  hsave sp sp.mrc
}
; --------------------------=> $Aliases <=---------------------------
alias sp {
  if ($dialog(sp)) {
    dialog -ve sp sp
  }
  else { dialog -mdo sp sp }
}
alias -l sp.ref {
  did -r sp 4
  var %swear $hget(sp,0).item
  while (%swear) {
    did -a sp 4 $hget(sp,%swear).item
    dec %swear
  }
}
; --------------------------=> $Dialogs <=---------------------------
dialog sp {
  title "Swear Protection"
  size -1 -1 136 113
  option dbu
  box "Word", 1, 5 2 81 24
  edit "", 2, 10 11 70 10, autohs
  box "", 3, 5 22 81 87
  list 4, 10 31 70 75
  box "Options", 5, 85 2 46 107
  button "Add", 6, 91 11 33 13
  button "Del", 7, 91 31 33 12
  button "On", 8, 91 50 33 12
  button "Off", 9, 91 70 33 12
  button "Ok", 10, 91 89 33 13, ok
}
; -----------------------=> $Dialog $Events <=-----------------------
on *:dialog:sp:init:*: {
  sp.ref
}
on *:dialog:sp:sclick:*: {
  if ($did == 4) && ($did(4).seltext != $null) {
    did -ra $dname 2 $did(4).seltext
  }
  if ($did == 6) && ($did(2) != $null) {
    hadd sp $did(2) 1
    did -r $dname 2
    sp.ref
    hsave sp sp.mrc
  }
  if ($did == 7) && ($did(4).seltext != $null) {
    hdel sp $did(4).seltext
    did -r $dname 2
    sp.ref
    hsave sp sp.mrc
  }
  if ($did == 8) {
    .enable #sp
    .dialog -i sp
    timer 1 1 .dialog -e sp
    echo -a Swear Protection Is -= On =- Addons By br0nx
  }
  if ($did == 9) {
    .disable #sp
    .dialog -i sp
    timer 1 1 .dialog -e sp
    echo -a Swear Protection Is -= Off =- Addons By br0nx
  }
  if ($did == 10) {
    hsave sp sp.mrc
  }
}
; ---------------------------=> $Group <=----------------------------
#sp on
on @*:text:*:#: {
  var %swear $hget(sp,0).item
  while (%swear) {
    if ($hget(sp,%swear).item isin $1-) {
      ban -ku60 $chan $nick Dont Send Message -= $v1 =- Swear Protection By br0nx
    }
    dec %swear
  }
}
on @*:notice:*:#: {
  var %swear $hget(sp,0).item
  while (%swear) {
    if ($hget(sp,%swear).item isin $1-) {
      ban -ku60 $chan $nick Dont Send Message -= $v1 =- Swear Protection By br0nx
    }
    dec %swear
  }
}
on @*:action:*:#: {
  var %swear $hget(sp,0).item
  while (%swear) {
    if ($hget(sp,%swear).item isin $1-) {
      ban -ku60 $chan $nick Dont Send Message -= $v1 =- Swear Protection By br0nx
    }
    dec %swear
  }
}
#sp end
; ----------------------------=> $Menus <=---------------------------
menu * {
  -
  Swear Protection:sp
  -
}
;
; Addons  : Swear Protection
; Version : v1 Beta
; Author  : br0nx
; Email  : br0nx.20@inbox.com
; Address : http://www.yumirc.org
;
; -------------------------------------------------------------------