Mine

on *:TEXT:!setpcw*:#:{ 
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick isvoice $chan) { 
    set %world [ $+ [ $chan ] ] $2 
    inc %worldcount 
    set %setusername $nick 
    inc %sets [ $+ [ $nick ] ] 
    bs say $chan !go 
    msg $chan 4 )|( 12 $nick Has Set The Pc World To World 7 %world [ $+ [ $chan ] ] 4)|( 
  } 
} 
on *:text:!go*:#: { 
  if ($nick ishop $chan || $nick isop $chan) { 
    timerpcw. [ $+ [ $chan ] ] off 
    timerpcw. [ $+ [ $chan ] ] 5000 20 .msg $chan 4 ]|[ 12 Current Pc World For $chan Is 7 %world [ $+ [ $chan ] ] 4]|[ 12 Scouted By 7 %setusername 4 ]|[   
  } 
} 
on *:TEXT:!stop*:#: { 
  if ($nick ishop $chan || $nick isop $chan) { 
    timerpcw. [ $+ [ $chan ] ] off 
  } 
}
On *:text:!ucount*:#:{ 
  Msg $nick <@ $+ $nick($chan,0,o) $+ > + <% $+ $nick($chan,0,h) $+ > + <+ $+ $nick($chan,0,v) $+ > < $+ $nick($chan,0,r)  $+ > = $nick($chan,0) Users 
} 
On *:text:@ucount*:#:{ 
  if ($nick ishop $chan) || ($nick isop $chan) { 
    Msg $chan <@ $+ $nick($chan,0,o) $+ > + <% $+ $nick($chan,0,h) $+ > + <+ $+ $nick($chan,0,v) $+ >  < $+ $nick($chan,0,r) $+ > = $nick($chan,0) Users 
  }