on *:TEXT:+m:#: if ($nick ishop $chan || $nick isop $chan) { mode # +m }

on *:TEXT:-m:#: if ($nick ishop $chan || $nick isop $chan) { mode # -m }

on @*:text:*:#:{
  if ( $len($1-) >= 15 ) && ( $nick isreg # ) {
    if ( $calc($regex($1-,/[A-Z]/g) / $regex($1-,/[A-Z]/gi) * 100) >= 60 ) kick # $nick [ 60% ] Caps allowed.4 [ $v1 $+ % ] Caps used.
  }
} 



on *:TEXT:@stats*:#cwfighters{ if (($nick isreg $chan) || ($nick isvoice $chan)) { ban -ku300 # $nick Please do 4NOT use the "@" command in #CWFighters. 4[5-minute ban] } } 

on *:TEXT:.RSN:#: if ($nick ishop $chan || $nick isop $chan) { msg # 14My RSN: 4Dougfnny24 }


on *:TEXT:.cmodes*:#:{ if ($nick isop $chan) { msg $chan 14Current channel modes are: [4 $chan(#).mode 14] } }

on *:text:.ncount:#:{ if (*.* iswm $1-) { msg # 14The current amount of users on [4 $chan 14] is [4 $nick($chan,0) 14] 
  }


on *:TEXT:!pcw:#cwfighters: if ($nick isreg $chan || $nick isvoice $chan) { ban -k # $nick Please join4 #RSPC for the Pest-Control worlds. }

on *:TEXT:.Connection:#: if ($nick isop $chan) { msg # 4My host is:14 $address([doug],1) 4I'm connected on:14 $server 4Using version:14 mIRC $version }

on *:JOIN:#cwfighters: if ($nick == [lisa]) { msg # // me <3 Lisa \\  }