on $*:TEXT:/^[!@.]s(et)?c(astle)?w(ars?)?/Si:#:{ 
  if ($nick isop $chan || $nick ishop $chan) { 
    if ($3 && $2 isnum) {
      set %cw [ $+ [ $chan ] ] $2 
      set %team [ $+ [ $chan ] ] $3 
      unset %cwars [ $+ [ $chan ] ]
      msg $chan The Castle Wars World has been Updated!Type !cw or !castlewars to see the new world! You may use @ also. 
    }
    else { notice $nick You need to supply a world and a team name }
  } 
} 
on $*:TEXT:/^[!@.]c(astle)?w(ars?)?/Si:#:{ 
  if ($nick !isreg $chan && %cw [ $+ [ $chan ] ]) { 
    inc %cwars [ $+ [ $chan ] ]
    $iif($left($1,1) == @,msg $chan,notice $nick) The Current Castlewars World is: %cw [ $+ [ $chan ] ] $+ . Current Team is: %team [ $+ [ $chan ] ] $+ . The Castle Wars world has been viewed: %cwars [ $+ [ $chan ] ] Times. 
  } 
} 
on $*:TEXT:/^[!@.]suggestc(astle)?w(ars?)?/Si:#:{ 
  if ($2 isnum) {
    set %cwscouter [ $+ [ $chan ] ] $nick
    set %thecwsuggested [ $+ [ $chan ] ] $2
    msg $chan $nick has suggested the world: $2 $+ . Reason : $iif($3,$3-,No Reason Given) $+ . Would an op or half-op please check it. 
  }
}