Title:           [mIRC] on @*:text:*:#Chan1,#A:{ addwininfo $nick $+ : $1- var %CharLimit 192
Author:          nanyobis
Pastebin link:   http://pastebin.com/659Wwg1L
First Edit:      Sunday 16th of February 2014 10:52:31 PM CDT
Last Edit:       Sunday 16th of February 2014 10:52:31 PM CDT

on @*:text:*:#Chan1,#A:{
  addwininfo $nick $+ : $1-
  var %CharLimit 192
  if ($len($1-) > %CharLimit) { ban -ku1 $chan $nick Please do not spam. }
 
  ;above is every channel below is just one specific channel.
  ;Just move the ; to the one you want to ignore
 
  ;if ($len($1-) > %CharLimit) && ($chan == #Chan1) { ban -ku1 $chan $nick Please do not enter too many characters in 1 post. }}
 
  ; Spam Kick/Ban v1.0.1
  ; Put in remotes (alt+r) and change #chan
  ; Bad sites list in %bad = *blah* *blah2*on @*:text:*:#Chan1,#A:{
  var %a = 1, %bad = *example.com* *example.net* *example.org* *example.edu*, %c
  while  ($gettok(%bad,%a,32)) {
    %c = $v1
    if ($wildtok($1-,%c,1,32)) { ban -ku1 # $nick 3 Banned for spamming | break }
    inc %a
  }
}
on *:action:*:#Chan1,#A:{ addwininfo * $nick $1- }
on *:input:#Chan1,#A: {
  if (($left($1,1) != /) || ($1 == /me)) {
    if ($1 == /me) { addwininfo  * $+($me) $2- }
    else { addwininfo  $me $+ : $1- }
  }
}
alias addwininfo {
  var %w = @ChannelText
  if (!$window(%w)) { window -Bdo +d %w 566 472 816 150 | window -Bdo +d %w 566 472 816 150 }
  aline -p %w $+($chr(2),$1) $2-
}