Word Nick v5 Beta

; -------------------------------------------------------------------
;
; Addons  : Word Nick
; Version : v5 Beta
; Author  : br0nx
; Email  : br0nx@inbox.com
; Address : br0nx.top-forum.net
;
; ------------------------=> $Load $Unload <=------------------------
on *:load: {
  if ($version < 6.16) {
    echo 4 -a You must be running a mIRC 6.16 or higher .
    unload -rs $script
  }
  else { echo 12 -a Addons has been loaded . }
}
on *:unload: {
  echo 4 -a Addons has been unloaded .
}
; --------------------------=> $Aliases <=---------------------------
alias wn {
  if ($dialog(wn)) {
    dialog -ve wn wn
  }
  else { dialog -mdo wn wn }
}
alias wna {
  if ($dialog(wna)) {
    dialog -ve wna wna
  }
  else { dialog -mdo wna wna }
}
; --------------------------=> $Dialogs <=---------------------------
dialog wn {
  title "Word Nick"
  size -1 -1 193 195
  option dbu
  box "Bad Word", 1, 7 4 90 120
  box "", 2, 7 120 90 31
  edit "", 3, 15 14 75 10, autohs
  list 4, 15 30 75 90
  button "Add", 5, 15 130 33 13
  button "Del", 6, 57 130 33 13
  box "Bad Nick", 7, 96 4 90 120
  box "", 8, 96 120 90 31
  edit "", 9, 103 14 75 10, autohs
  list 10, 103 30 75 90
  button "Add", 11, 103 130 33 13
  button "Del", 12, 145 130 33 13
  box "", 13, 7 147 179 21
  check "Ban", 14, 16 154 26 10
  check "Kick", 15, 64 154 26 10
  check "Ignore", 16, 103 154 26 10
  check "Notice", 17, 152 154 26 10
  box "", 18, 7 164 90 25
  edit "", 19, 16 173 74 10, autohs
  box "", 20, 96 164 90 25
  edit "", 21, 104 173 74 10, autohs
}
; -----------------------=> $Dialog $Events <=-----------------------
on *:dialog:wn:init:*: {
  didtok $dname 4 32 %bad.word
  didtok $dname 10 32 %bad.nick
  if (%ban == on) { did -c wn 14 }
  if (%kick == on) { did -c wn 15 }
  if (%ignore == on) { did -c wn 16 }
  if (%notice == on) { did -c wn 17 }
  did -a wn 19 %wn.19
  did -a wn 21 %wn.21
}
on *:dialog:wn:sclick:4: {
  if ($did(4).seltext) {
    did -ar $dname 3 $did(4).seltext
  }
}
on *:dialog:wn:sclick:5: {
  if ($did(3).text) {
    set %bad.word $addtok(%bad.word,$did(3).text,32)
    did -a $dname 4 $did(3).text
    did -r $dname 3
  }
}
on *:dialog:wn:sclick:6: {
  if ($did(4).sel) {
    set %bad.word $deltok(%bad.word,$did(4).sel,32)
    did -r $dname 3,4
    didtok $dname 4 32 %bad.word
  }
}
on *:dialog:wn:sclick:10: {
  if ($did(10).seltext) {
    did -ar $dname 9 $did(10).seltext
  }
}
on *:dialog:wn:sclick:11: {
  if ($did(9).text) {
    set %bad.nick $addtok(%bad.nick,$did(9).text,32)
    did -a $dname 10 $did(9).text
    did -r $dname 9
  }
}
on *:dialog:wn:sclick:12: {
  if ($did(10).sel) {
    set %bad.nick $deltok(%bad.nick,$did(10).sel,32)
    did -r $dname 9,10
    didtok $dname 10 32 %bad.nick
  }
}
on *:dialog:wn:sclick:14: {
  if ($did(14).state == 1) { set %ban on }
  else { set %ban off }
  set %wn.19 $did(19)
  set %wn.21 $did(21)
}
on *:dialog:wn:sclick:15: {
  if ($did(15).state == 1) { set %kick on }
  else { set %kick off }
  set %wn.19 $did(19)
  set %wn.21 $did(21)
}
on *:dialog:wn:sclick:16: {
  if ($did(16).state == 1) { set %ignore on }
  else { set %ignore off }
  set %wn.19 $did(19)
  set %wn.21 $did(21)
}
on *:dialog:wn:sclick:17: {
  if ($did(17).state == 1) { set %notice on }
  else { set %notice off }
  set %wn.19 $did(19)
  set %wn.21 $did(21)
}
on @*:text:*:#: {
  var %i = 0
  while (%i < $numtok(%bad.word,32)) {
    inc %i
    if ($gettok(%bad.word,%i,32) isin $1-) {
      if (%ban == on) { ban -u60 $chan $nick }
      if (%kick == on) { kick $chan $nick %wn.19 }
      if (%ignore == on) { ignore -pu60 $nick }
      if (%notice == on) { notice $nick %wn.19 }
      cline %bad.word.colors $chan $nick
    }
  }
}
on @*:notice:*:#: {
  var %i = 0
  while (%i < $numtok(%bad.word,32)) {
    inc %i
    if ($gettok(%bad.word,%i,32) isin $1-) {
      if (%ban == on) { ban -u60 $chan $nick }
      if (%kick == on) { kick $chan $nick %wn.19 }
      if (%ignore == on) { ignore -pu60 $nick }
      if (%notice == on) { notice $nick %wn.19 }
      cline %bad.word.colors $chan $nick
    }
  }
}
on @*:action:*:#: {
  var %i = 0
  while (%i < $numtok(%bad.word,32)) {
    inc %i
    if ($gettok(%bad.word,%i,32) isin $1-) {
      if (%ban == on) { ban -u60 $chan $nick }
      if (%kick == on) { kick $chan $nick %wn.19 }
      if (%ignore == on) { ignore -pu60 $nick }
      if (%notice == on) { notice $nick %wn.19 }
      cline %bad.word.colors $chan $nick
    }
  }
}
on @*:join:#: {
  var %i = 0
  while (%i < $numtok(%bad.nick,32)) {
    inc %i
    if ($nick isin $chan $gettok(%bad.nick,%i,32)) {
      if (%ban == on) { ban -u60 $chan $nick }
      if (%kick == on) { kick $chan $nick %wn.21 }
      if (%ignore == on) { ignore -pu60 $nick }
      if (%notice == on) { notice $nick %wn.21 }
      cline %bad.nick.colors $chan $nick
    }
  }
}
on @*:nick: {
  if ($gettok(%bad.nick,$newnick,32)) {
    var %i = 0
    while (%i < $comchan(%bad.nick,0)) {
      inc %i
      if ($me isop $comchan(%bad.nick,%i)) {
        if (%ban == on) { ban -u60 $comchan(%bad.nick,%i) $newnick }
        if (%kick == on) { kick $chan $comchan(%bad.nick,%i) $newnick %wn.21 }
        if (%ignore == on) { ignore -pu60 $comchan(%bad.nick,%i) $newnick }
        if (%notice == on) { notice $comchan(%bad.nick,%i) $newnick %wn.21 }
        cline %bad.nick.colors $chan $nick
      }
    }
  }
}
; ----------------------------=> $Menus <=---------------------------
menu channel {
  -
  Word Nick:wn
  -
  Bad Word
  .Add Bad Word: {
    var %i = $$?="Enter Bad Word To Add"
    set %bad.word $addtok(%bad.word,%i,32)
  }
  .Del Bad Word: {
    var %i = $$?="Enter Bad Word To Del"
    set %bad.word $remtok(%bad.word,%i,32)
  }
  .Bad Word Colors: { set %bad.word.colors $$?="Enter Bad Word Colors" }
  .Unset Word Colors: { unset %bad.word.colors }
  .$iif($numtok(%bad.word,32) > 0 ,Bad Word List) %bad.word:.
  -
  Bad Nick
  .Add Bad Nick: {
    var %i = $$?="Enter Bad Nick To Add"
    set %bad.nick $addtok(%bad.nick,%i,32)
  }
  .Del Bad Nick: {
    var %i = $$?="Enter Bad Nick To Del"
    set %bad.nick $remtok(%bad.nick,%i,32)
  }
  .Bad Nick Colors: { set %bad.nick.colors $$?="Enter Bad Nick Colors" }
  .Unset Nick Colors: { unset %bad.nick.colors }
  .$iif($numtok(%bad.nick,32) > 0 ,Bad Nick List) %bad.nick:.
  -
}
menu nicklist {
  -
  Word Nick:wn
  -
  Bad Word
  .Add Bad Word: {
    set %bad.word $$1 $addtok(%bad.word,%i,32)
  }
  .Del Bad Word: {
    var % = $$1
    set %bad.word $remtok(%bad.word,%i,32)
  }
  .$iif($numtok(%bad.word,32) > 0 ,Bad Word List) %bad.word:.
  Bad Nick
  .Add Bad Nick: {
    set %bad.nick $$1 $addtok(%bad.nick,%i,32)
  }
  .Del Bad Nick: {
    var % = $$1
    set %bad.nick $remtok(%bad.nick,%i,32)
  }
  .$iif($numtok(%bad.nick,32) > 0 ,Bad Nick List) %bad.nick:.
  -
}
;
; Addons  : Word Nick
; Version : v5 Beta
; Author  : br0nx
; Email  : br0nx@inbox.com
; Address : br0nx.top-forum.net
;
; -------------------------------------------------------------------