/ScriptServ

;======================================================
;--- Spam Bot Kicker ------------------------------------------------------------
;======================================================

;======================Dialog ===========================
alias SpamKickset {
  if ($dialog(SpamKick )) {
    dialog -veo SpamKick SpamKick 
  }
  else { dialog -ma SpamKick SpamKick }
}

alias SpamKickclose {
  var %i 111
  while (%i >= 0) {
    dialog -srb SpamKick -1 -1 197 %i
    dec %i
  }
  dialog -c SpamKick 
}

alias SpamKickopen {
  var %i 0
  while (%i <= 111) {
    dialog -srb SpamKick -1 -1 197 %i
    inc %i
  }
}

;==================Dialog  End================
dialog SpamKick {
  title "Spam Bot Kicker"
  size -1 -1 227 144
  option dbu
  list 1, 7 11 125 77, sort size vsbar
  box "", 2, 3 3 223 150
  button "Add Word/Phrase", 3, 142 12 57 12
  button "Delete Word/Phrase", 4, 142 28 57 12
  button "Ok/Cancel", 5, 142 76 57 12, ok cancel
  button "Turn On", 6, 142 44 57 12
  button "Turn Off", 7, 142 60 57 12
}

on *:dialog:SpamKick:init:*: { 
  .timer -m 1 1 SpamKickopen
  /loadbuf -ro SpamKick 1 spamwords.txt

  colorize 
}

alias spam {
  /set %spam $$?="Add Spam Word/Phrase Here"
  /write spamwords.txt %spam
  /loadbuf -ro SpamKick 1 spamwords.txt
}

on *:Dialog:SpamKick:sclick:1: { /set %sel.text $did(1).seltext }
on *:Dialog:SpamKick:sclick:3: { /spam }
on *:Dialog:SpamKick:sclick:4: { /write -ds $+ %sel.text spamwords.txt |/loadbuf -ro SpamKick 1 spamwords.txt }
on *:Dialog:SpamKick:sclick:5: { /SpamKickclose }
on *:Dialog:SpamKick:sclick:*:{
  if ($did == 6) { .enable #spamkicker | echo -a 0,4Spam Kick 0,12Enabled }
  if ($did == 7) { .disable #spamkicker | echo -a 0,12Spam Kick 0,4Disabled }
}

#spamkicker on

on *:TEXT:*:#: { 
  if ($nick !isop $chan) && ($nick !isowner $chan) { 
    var %i = $lines(spamwords.txt) 
    while (%i) { 
      if ($read(spamwords.txt,%i) isin $1-) { 
        .kick # $nick Spam Bot Kick. 
       ; .access # add deny $+ [ *!*@ $+ $ial($nick).addr 1 : $me $+ Spamming 
      } 
      dec %i 
    } 
  } 
} 
on *:ACTION:*:#: { 
  if ($nick !isop $chan) && ($nick !isowner $chan) { 
    var %i = $lines(spamwords.txt) 
    while (%i) { 
      if ($read(spamwords.txt,%i) isin $1-) { 
        kick # $nick Spam Bot Kick. 
       ; .access # add deny $+ [ *!*@ $+ $ial($nick).addr 1 : $me $+ Spamming 
      } 
      dec %i 
    } 
  } 
} 
on *:CTCPREPLY:*:#: { 
  if ($nick !isop $chan) && ($nick !isowner $chan) { 
    var %i = $lines(spamwords.txt) 
    while (%i) { 
      if ($read(spamwords.txt,%i) isin $1-) { 
        kick # $nick Spam Bot Kick. 
       ; .access # add deny $+ [ *!*@ $+ $ial($nick).addr 1 : $me $+ Spamming 
      } 
      dec %i 
    } 
  } 
}

#spamkicker end

menu * {
 Spam Bot Kick : { .dialog -m SpamKick SpamKick }
}

alias colorize {
  var %x 1
  :lp
  inc %x
  if (%x == 100) { goto nd }
  else { goto lp }
  :nd
}