on *:text:*:#:{
if ($nick isop $chan) return
var %e 4Head #/ :7 :( :) :/ :> :\ :D :o :P :p :s :z :| ;) ;P ;p <3 <] >( aneleanele ArsonNoSexy AsianGlow AtGL AtIvy AtWW B) BatChest BCWarrior BibleThump BigBrother BionicBunion BlargNaut BloodTrail BORT BrainSlug BrokeBack CougarHunt DAESuppy DansGame DatSheffy DBstyle DogFace EagleEye EleGiggle EvilFetus FailFish FPSMarksman FrankerZ FreakinStinkin FUNgineer FuzzyOtterOO GasJoker GingerPower GrammarKing HassanChop HotPokket ItsBoshyTime Jebaited JKanStyle JonCarnage KAPOW Kappa kappaHD Keepo KevinTurtle Kippa Kreygasm KZassault KZcover KZguerilla KZhelghast KZowl KZskull MechaSupes MiniK MrDestructoid MVGame NightBat NinjaTroll NoNoSpot noScope420 o_O OMGScoots OneHand OpieOP OptimizePrime PanicVis PazPazowitz PeoplesChamp PicoMause PipeHype PJHarley PJSalt PMSTwin PogChamp Poooound PunchTrees R) RalpherZ RedCoat ResidentSleeper RitzMitz RuleFive Shazam shazamicon ShazBotstix SMOrc SMSkull SoBayed SoonerLater SSSsss StoneLightning StrawBeary SuperVinlin SwiftRage TehFunrun TF2John TheRinger TheTarFu TheThing ThunBeast TinyFace TooSpicy TriHard UleetBackup UncleNox UnSane Volcania WholeWheat WinWaker WTRuck YouWHY
var %re /( $+ $replacex(%e,$chr(32),|,/,\/,$chr(40),$+(\,$chr(40)),$chr(41),$+(\,$chr(41)),\,\\,|,\|,],\],[,\[) $+ )/Sig
if ($regex($1-,%re) >= 5) {
emotespam $chan $nick
}
}
alias -l emotespam {
var %chan = $$1
var %nick = $$2
if ($hget(emotespam,$nick)) {
timeout %chan %nick 180
msg $chan $nick $+ , no emote spam [timeout]
}
else {
timeout %chan %nick 10
msg $chan $nick $+ , no emote spam [warning]
hadd -mu300 emotespam %nick 1
}
}
alias -l timeout {
var %chan = $$1
var %nick = $$2
var %length = $$3
.timer 1 1 msg %chan .timeout %nick %length
}