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

on @*:text:*:#rscw:{
  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:*world*Sucks*:#rspc: { msg # $nick $+ : To suggest a new Pest-Control world, type 4!suggest world }

on *:TEXT:pc world?*:#rspc: { msg $chan $nick $+ , to view the current Pest-Control world, type: 4!PCW }

ctcp *:finger:*:{
  ctcpreply $nick FINGER Don't finger me!!
  halt
}

ctcp *:PING:*:{ 
  ctcpreply $nick PING Pong!
  halt 
}

ctcp *:VERSIOn:*:{ 
  ctcpreply $nick VERSION http://www.mIRC.com
  halt
}

on $*:TEXT:/^[!.]cw/Si:#rscw: {
notice $nick 14[4 $+ $nick $+ 14] the current world is: «[4 $gettok(%world,1,160) 14]» set by [4 $+ $gettok(%world,2,160) $+ 14] }

on $*:TEXT:/^[!@.]mode/Si:#:{ if ($nick ishop $chan) || ($nick isop $chan) { mode # $2 }

on $*:TEXT:/^[@]cw/Si:#rscw: {
  if ($nick isop $chan) || ($nick ishop $chan) {
  msg # 14[4 $+ $nick $+ 14] the current world is: «[4 $gettok(%world,1,160) 14]» set by [4 $+ $gettok(%world,2,160) $+ 14]  }

on $*:TEXT:/^[!.]world/Si:#rscw: {
notice $nick 14[4 $+ $nick $+ 14] the current world is: «[4 $gettok(%world,1,160) 14]» set by [4 $+ $gettok(%world,2,160) $+ 14] }

on $*:TEXT:/^[@]world/Si:#rscw: {
  if ($nick ishop $chan) || ($nick isop $chan) {
  msg # 14[4 $+ $nick $+ 14] the current world is: «[4 $gettok(%world,1,160) 14]» set by [4 $+ $gettok(%world,2,160) $+ 14] }

on *:CONNECT:{ 
  /timer 1 3 /ns id dollar1
  /timer 1 5 /cs id #Rscw lisaanddoug

on $*:TEXT:/^[!.]setcw../Si:#rscw:{
  if (($nick isop $chan) || ($nick ishop $chan) || ($nick isvoice $chan)) {
    set %world $+($2,$chr(160),$nick,$chr(160),$ctime)
    msg $chan 14«[4 $+ $nick $+ 14]» has changed changed the world, type 4!CW
  }
  else { notice $nick 14You 4NEED14 Voice+ to use the $1 command. }