"Untitled"
By nanyobis (https://pastebin.com/u/nanyobis)

URL: https://pastebin.com/6HuyPj2J
Created on: Sunday 16th of February 2014 11:05:35 PM CDT
Retrieved on: Saturday 31 of October 2020 06:18:34 AM UTC


;what part of the script does
;bans users for typing too many characters on text
;bans users for saying certain words on text
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 = *example.com* *example.net*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
  }
}
;what part of the script does
;bans users for typing too many characters on action
;bans users for saying certain words on action
on *:action:*:#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
  }
}
;what part of the script does
;echos certain channels in @ChannelText
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-
}