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``)
}
}