Something

on *:TEXT:!rules:#The_Only_PC:{ 
  /msg $nick 1. No Spamming and No flooding on the channel!
  /msg $nick 2. Do NOT use @ commands
  /msg $nick 3. No cursing anyone in the channel! if you have a problem with someone take it up with them in pm.
  /msg $nick 4. Respect your ops and hops and dont argue back at an op or hop!
  /msg $nick 5. Don't ask for Hop or Op posititions! We will award them when we see fit.
  /msg $nick 6. English speaking only please!
  /msg $nick 7. If you are an op/hop on the channel, make sure you deop/dehalfop and voice yourself when you go afk.
  /msg $nick 8. Do NOT say world outloud!
  /msg $nick If you break any of these rules you WILL be warned, 3 warnings is a kick ban.
}
on *:TEXT:!setworld *:?:{
  if ($nick isop #the_only_pc) || ($nick ishop #the_only_pc) {
    set %pc.nick. $nick
    set %pc.world. $+ #the_only_pc $2
    msg #the_only_pc 0,1 $nick has changed the world, type 7!world0 to see it!
    /timer 2 20 msg #the_only_pc 13,1 The world has been changed!!! type 0!world13 to view it!!!
  }
}  
on *:TEXT:!world:#The_Only_PC:{
  if ($nick isvoice $chan) /notice $nick 0,1 The Current PCW is7 %pc.world. [ $+ [ $chan ] ] 0Set by7 %pc.nick.
  if ($nick ishop $chan) /notice $nick 0,1 The Current PCW is7 %pc.world. [ $+ [ $chan ] ] 0Set by7 %pc.nick.
  if ($nick isop $chan) /notice $nick 0,1 The Current PCW is7 %pc.world. [ $+ [ $chan ] ] 0Set by7 %pc.nick.
}
on *:TEXT:@*:#the_only_pc:{ 
  if ($nick isop #the_only_pc) || ($nick ishop #the_only_pc) /halt
  else /kick $chan $nick Do not use @ commands in this chan!
}
on *:TEXT:!warn *:#:{
  if (( $nick isop $chan ) || ( $nick ishop $chan )) && ( $2 ison $chan ) {
    if ((%warn. [ $+ [ $+( $2,.,$chan) ] ] == $null) && ( $3 != $null)) { /set %warn. [ $+ [ $+($2,.,$chan) ] ] 1 | /notice $2 You've been warned %warn. [ $+ [ $+($2,.,$chan) ] ] Times. $calc(3 - %warn. [ $+ [ $+($2,.,$chan) ] ] ) warnings left till ban. Reason: $3- | /notice $nick You have just warned $2 $+ , this is his\her Warning Number: %warn. [ $+ [ $+($2,.,$chan) ] ] | halt }
    if ((%warn. [ $+ [ $+( $2,.,$chan) ] ] == $null) && ( $3 == $null)) { /set %warn. [ $+ [ $+($2,.,$chan) ] ] 1 | /notice $2 You've been warned %warn. [ $+ [ $+($2,.,$chan) ] ] Times. $calc(3 - %warn. [ $+ [ $+($2,.,$chan) ] ] ) warnings left till ban. Reason: (undefined) | /notice $nick You have just warned $2 $+ , this is his\her Warning Number: %warn. [ $+ [ $+($2,.,$chan) ] ] | halt }
    if ((%warn. [ $+ [ $+( $2,.,$chan) ] ] < 3) && ( $3 != $null)) { /inc %warn. [ $+ [ $+( $2,.,$chan) ] ] 1 | /notice $2 You've been warned %warn. [ $+ [ $+( $2,.,$chan) ] ] Times. $calc(3 - %warn. [ $+ [ $+( $2,.,$chan) ] ] ) warnings left till ban. Reason: $3- | /notice $nick You have just warned $2 $+ , this is his\her Warning Number: %warn. [ $+ [ $+( $2,.,$chan) ] ] }
    if ((%warn. [ $+ [ $+( $2,.,$chan) ] ] < 3) && ( $3 == $null)) { /inc %warn. [ $+ [ $+( $2,.,$chan) ] ] 1 | /notice $2 You've been warned %warn. [ $+ [ $+( $2,.,$chan) ] ] Times. $calc(3 - %warn. [ $+ [ $+( $2,.,$chan) ] ] ) warnings left till ban. Reason: (undefined) | /notice $nick You have just warned $2 $+ , this is his\her Warning Number: %warn. [ $+ [ $+( $2,.,$chan) ] ] }
    if (%warn. [ $+ [ $+( $2,.,$chan) ] ] >= 3) { /ban $chan $2 | /kick $chan $2 3 warnings, your finished. | /notice $2 I wasn't joking... | You have just banned $2 because he\she has been warned 3 times. | unset %warn. [ $+ [ $+( $2,.,$chan) ] ] }
  }
}
on $*:TEXT:!count:#: { 
  notice $nick 0,1There are:7 [ $nick($chan,0) ] 0people on $chan !
}
on *:TEXT:.tkb *:#:{
  if ($nick isop $chan) || ($nick ishop $chan) {
    ban -u $+ $calc($2 * 60) $chan $address($3,2)
    /kick $chan $3 $4- - you have been kicked for $2 minute(s). $kcount
  }
}
on *:TEXT:.akick*:#:{ if ($nick isop $chan) /cs access $chan add $2 -9999 
  if ($nick isop $chan) /kick $chan $2 : $kcount 
  if ($nick isop $chan) /notice $nick $2 is now on the auto kick list for $chan
}
on *:TEXT:.avoice*:#:{ if ($nick isop $chan) /mode $chan +v $2
  if ($nick isop $chan) || ($nick ishop $chan) /cs access $chan add $2 3
  if ($nick isop $chan) /notice $nick $2 has been given auto voice for $chan
}
on *:TEXT:.ahop*:#:{ if ($nick isop $chan) /mode $chan +h $2
  if ($nick isop $chan) /cs access $chan add $2 4
  if ($nick isop $chan) /notice $nick $2 has been given auto half op for $chan
}
on *:TEXT:.aop*:#:{ if ($nick isop $chan) /mode $chan +o $2
  if ($nick isop $chan) /cs access $chan add $2 5
  if ($nick isop $chan) /notice $nick $2 has been given auto op for $chan
}
on *:TEXT:.aaop*:#:{ if ($nick isop $chan) /mode $chan +ao $2
  if ($nick isop $chan) /cs access $chan add $2 10
  if ($nick isop $chan) /notice $nick $2 has been given auto protected op for $chan
}