on $*:text:/^[!@.]pcw|world/Si:#: {
  if (!%pc) notice $nick The pc-world is not set
  elseif (%flooods. [ $+ [ $nick ] ] == 1) notice $nick You just queried the pc-world. Please wait 5 seconds.
  else {
    set %flooods. [ $+ [ $nick ] ] 1
    timer 1 2 notice $nick The current pc-world is: %pc - Last update: $duration($calc($ctime - %pcc)) ago
    timer 1 5 unset %flooods. [ $+ [ $nick ] ]
  }
}
on $*:text:/^[!@.]set pcw */Si:#: {
  if ($nick isop #) || ($nick ishop #) {
    set %pcc $ctime
    set %pc $3-
    notice $nick The new pc-world has been set as %pc
    if (%pcstop. [ $+ [ $chan ] ] == 1) halt
    else {
      /amsg [4Pc-World Update1] New world: $3-
      topic #propc 4,5/5,4\4,5/5,4\4,5/5,4\1,5W1,4e1,5l1,4c1,5o1,4m1,5e1,4 1,5t1,4o1,5 1,4P1,5r1,4o1,5 1,4P1,5c1,4,1,5 1,4C1,5u1,4r1,5r1,4e1,5n1,4t1,5 1,4w1,5o1,4r1,5l1,4d1,5:1,4 1,0| $+ $3 $+ |4,5/5,4\4,5/5,4\4,5/5,4\1,0 Commands = "!pcw" or "!world
      notice $nick 4You have changed the ProPC Channel Topic to World $3
    } 
  }
}
on *:text:@*:#propc:{ kick #propc $nick Don't say @* on this channel! }
on *:TEXT:!v *:#propc:{ if ($nick isop $chan) || ($nick ishop $chan) { /mode $chan +vvvvvvvvvv $2 $3 $4 $5 $6 $7 $8 $9 $10 $11 } } 
off *:TEXT:!k *:#propc:{ if ($nick isop $chan) || ($nick ishop $chan) inc %kcount |
kick #propc $2 Reason: $3- - N00B5 H4X0R3D: ( %kcount ) } 
on *:TEXT:!kbt*:#propc: { if (($nick isop $chan) || ($nick ishop $chan)) { inc %kcount | /ban -ku $+ $3 $chan $2 2  Reason: $4- -  $3 Second Ban - Noobs Pwnt: ( %kcount ) } }

on *:text:*:#: {
  var %regex = /#[^,]*,0/
  if ($regex($1-,%regex)) kick $chan $nick 1- 12Do NOT try and make people part channels!1 -
}