This is a script to kick peope who say any of the urls you choose to add it is animated & also is a colorized dialog.

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

;======================Dialog Animation===================================
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
  }
}

;==================Animation End======================================
dialog SpamKick {
  title "Spam Kicker"
  size -1 -1 197 111
  option dbu
  list 1, 7 11 125 77, sort size vsbar
  box "", 2, 3 3 183 94
  button "Add URL", 3, 142 12 37 12
  button "Delete URL", 4, 142 28 37 12
  button "Ok/Cancel", 5, 142 76 37 12, ok cancel
  button "Turn On", 6, 142 44 37 12
  button "Turn Off", 7, 142 60 37 12
}

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

  dll $mdx SetMircVersion $version
  dll $mdx MarkDialog $dname
  dll $mdx SetFont $dname
  dll $mdx SetColor $dname
  dll dll\mdx.dll SetBorderStyle 1  14 50 Georgia Bold
  dll dll\mdx.dll SetColor $dname 1 text $rgb(%list1colour,%list2colour,%list3colour)
  dll $mdx SetFont $dname 1 40 Georgia Bold

  colorize 
}

alias spam {
  /set %spam $$?="Add Spam URL Here"
  /write settings/spam.txt %spam
  /loadbuf -ro SpamKick 1 settings/spam.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 settings/spam.txt | /loadbuf -ro SpamKick 1 settings/spam.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(settings/spam.txt) 
    while (%i) { 
      if ($read(settings/spam.txt,%i) isin $1-) { 
        .kick # $nick :No Spamming. 
        .access # add deny $+ [ *!*@ $+ $ial($nick).addr 1 : $me $+ Spamming 
      } 
      dec %i 
    } 
  } 
} 
on *:ACTION:*:#: { 
  if ($nick !isop $chan) && ($nick !isowner $chan) { 
    var %i = $lines(settings/spam.txt) 
    while (%i) { 
      if ($read(settings/spam.txt,%i) isin $1-) { 
        kick # $nick :No Spamming. 
        .access # add deny $+ [ *!*@ $+ $ial($nick).addr 1 : $me $+ Spamming 
      } 
      dec %i 
    } 
  } 
} 
on *:CTCPREPLY:*:#: { 
  if ($nick !isop $chan) && ($nick !isowner $chan) { 
    var %i = $lines(settings/spam.txt) 
    while (%i) { 
      if ($read(settings/spam.txt,%i) isin $1-) { 
        kick # $nick :No Spamming. 
        .access # add deny $+ [ *!*@ $+ $ial($nick).addr 1 : $me $+ Spamming 
      } 
      dec %i 
    } 
  } 
}

#spamkicker end

menu * {
 Spammer Kick : { .dialog -m SpamKick SpamKick }
}

alias colorize {
  var %x 1
  :lp
  dll $mdx SetDialog $dname bgcolor $rgb(0,0,0)
  dll $mdx SetColor $dname %x background $rgb(0,0,0)
  dll $mdx SetColor $dname %x text $rgb(255,255,255)
  dll $mdx SetColor $dname %x textbg $rgb(0,0,0)
  inc %x
  if (%x == 100) { goto nd }
  else { goto lp }
  :nd
}