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

on *:text:*:#Chan1,#A:{
  addwininfo $nick $+ : $1-
  var %CharLimit 192
  if ($len($1-) > %CharLimit) { ban -ku2 $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 -ku2 $chan $nick Please do not enter too many characters in 1 post. }
 
  ;this script is to ban people who post certain links or say certain things
  if ($wildtok($1-,*example.com*,1,32)) { ban -ku2 $chan $nick Please do not spam. }
}
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-
}