on *:TEXT:*:#:{
  if ($1 == !setcw) {
    if ($nick isop $chan) || ($nick ishop $chan) { 
      set %cw [ $+ [ $chan ] ] $2
      set %team [ $+ [ $chan ] ] $3
      msg $chan 7The 14Castle 7Wars 14World 7has 14been 7Updated!14Type 7!cw 14or 7! castlewars 14to 7see 14the 7new 14world! 7You 14may 7use 14@ 7also.
    }
  }
  if ($regex($1,/[!@]cw|castlewars?/Si) {
    if ($nick !isreg $chan) {
      set %homer $iif($left($1,1) == @,msg $chan,notice $nick)
      inc %cwars | %homer 7The 14Current 7Cw 14World 7is:14 %cw [ $+ [ $chan ] ] $+ .7Current 14Team 7is:14 %team [ $+ [ $chan ] ] $+ .7The 14Castle 7Wars 14world 7has 14been 7viewed 14 %cwars 7Times.
    }
  }
  if ($1 == !setpcw) {
    if ($nick isop $chan) || ($nick ishop $chan) { 
      set %pcw [ $+ [ $chan ] ] $2
      msg $chan 7The 14Pest 7Control 14World 7has 14been 7Updated!14Type 7!pcw 14or 7!world 14to 7see 14the 7new 14world!7You 14may 7use 14@ 7also.
    }
  }
  if ($regex($1,/[!@]pcw|pestcontrol?/Si) {
    set %lawl $iif($left($1,1) == @,msg $chan,msg $nick)
    inc %pcviews | %lawl 7The 14Current 7Pest 14Control 7World 7is:14 %pcw [ $+ [ $chan ] ] $+ .7The 14Pest 7Control 14world 7has 14been 7viewed 14 %pcviews 7Times. 
  }
}