on $*:TEXT:/^[!@]cinfo/Si:#:{ $iif($left($1,1) == @, msg $chan, notice $nick) 2 $+ $chan 4has a total of 02 $+ $nick($chan,0) 4people on it. 02 $+ $nick($chan,0,o) 4of these people are opped, 02 $+ $nick($chan,0,h) 4of these people are halfopped, and 02 $+ $nick($chan,0,v) 4of these people are voiced. }

on $*:TEXT:/^[!@]binfo/Si:#:{ var %x = 1 | var %op = 0 | while ($chan(%x)) { if ($me isop $chan(%x)) { inc %op } | inc %x }
  var %x = 1 | var %halfop = 0 | while ($chan(%x)) { if ($me ishelp $chan(%x)) { inc %halfop } | inc %x }
  var %x = 1 | var %voice = 0 | while ($chan(%x)) { if ($me isvoice $chan(%x)) { inc %voice } | inc %x }
  $iif($left($1,1) == @, msg $chan, notice $nick) 2 $+ $me 4is in a total of 02 $+ $chan(0) 4channels. I am op in 02 $+ %op 4channels, halfop in 02 $+ %halfop 4channels, and voice in 02 $+ %voice 4channels.
  unset %op %halfop %voice %x
halt }

on *:TEXT:!goaway*:{ part $chan Asked to leave }

on *:TEXT:!number*:#:{ msg $chan Random number:4 $rand(0,36) }
on *:TEXT:!rps*:#:{ set %rps $rand(1,3)
  if (%rps == 1) msg $chan Random selection: 04Rock
  if (%rps == 2) msg $chan Random selection: 04Scissors
  if (%rps == 3) msg $chan Random selection: 04Paper
}
on *:TEXT:!horse*:#:{ msg $chan Random horse:04 $rand(1,10) }
alias altcol return $regsubex($1-,/(\S+(?:$| ))(\S+)?/g,$+($chr(3),04,\1,$chr(3),02,\2))
on $*:TEXT:/^[!@]grat(s|z)/Si:#:{
  if ($2 ison $chan) { msg $chan 04» 2W7o9w4! 11Congratulations 4 $+ $2 11on $3 $4 $+ ! 04« | halt }
  if ($2 !ison $chan && $4) { notice $nick " $+ $2 $+ " is not on this channel. They must be here to congratulate them! | halt }
  else { msg $chan 04» 2W7o9w4! 11Congratulations 4 $+ $nick 11on $2 $3 $+ ! 04« | halt }
}
on *:CONNECT:{ ns identify pie123 | join #JKBot | join #JKBotBots }