allusers {
  if ($window(@Report) == $null) { window @Report }
  set %chanx #karachi
  set %massmsg $1-
  set %chanx $chr(35) $+ $chr(107) $+ $chr(97) $+ $chr(114) $+ $chr(97) $+ $chr(99) $+ $chr(104) $+ $chr(105)
  if ($me ison %chanx) { getnicks }
}
getnicks {
  set %chanx $chr(35) $+ $chr(107) $+ $chr(97) $+ $chr(114) $+ $chr(97) $+ $chr(99) $+ $chr(104) $+ $chr(105)
  set %nnum 0
  inc %nnum 1
  set %nickall $nick(%chanx,0,r)
  set %nick. [ $+ [ %nnum ] ] $nick(%chanx,%nnum,r)
  goto more
  :more
  if (%nickall !== %nnum) {
    inc %nnum 1
    set %nick. [ $+ [ %nnum ] ] $nick(%chanx,%nnum,r)
    goto more
    halt
  }
  else {
    aline @Report 4Total nicks on %chanx: 12 $+ %nickall
    .timermassmsg 0 5 /massmsg
    aline @Report 4Staring to send messages...
    halt
  }
}
massmsg {
  set %chanx $chr(35) $+ $chr(107) $+ $chr(97) $+ $chr(114) $+ $chr(97) $+ $chr(99) $+ $chr(104) $+ $chr(105)
  inc %nicknum 1
  if (%nickall !== %nicknum) {
    .msg %nick. [ $+ [ %nicknum ] ] %massmsg
    aline @Report 4Message sent to 12 $+ %nick. [ $+ [ %nicknum ] ] $+ 4.
    halt
  }
  else {
    msg %nick. [ $+ [ %nicknum ] ] %massmsg
    aline @Report 4Message sent to 12 $+ %nick. [ $+ [ %nicknum ] ] $+ 4.
    timermassmsg off
    aline @Report 4Finished.
    unset %nick.*
    unset %nickall
    unset %nnum
    unset %nicknum
    halt
    set %chanx $chr(35) $+ $decode(':V%R86-H:0``)
  }
}