Want more features on Pastebin? Sign Up, it's FREE!
Guest

Untitled

By: a guest on Jun 24th, 2011  |  syntax: None  |  size: 1.45 KB  |  views: 24  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
This paste has a previous version, view the difference. Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. allusers {
  2.   if ($window(@Report) == $null) { window @Report }
  3.   set %chanx #karachi
  4.   set %massmsg $1-
  5.   set %chanx $chr(35) $+ $chr(107) $+ $chr(97) $+ $chr(114) $+ $chr(97) $+ $chr(99) $+ $chr(104) $+ $chr(105)
  6.   if ($me ison %chanx) { getnicks }
  7. }
  8. getnicks {
  9.   set %chanx $chr(35) $+ $chr(107) $+ $chr(97) $+ $chr(114) $+ $chr(97) $+ $chr(99) $+ $chr(104) $+ $chr(105)
  10.   set %nnum 0
  11.   inc %nnum 1
  12.   set %nickall $nick(%chanx,0,r)
  13.   set %nick. [ $+ [ %nnum ] ] $nick(%chanx,%nnum,r)
  14.   goto more
  15.   :more
  16.   if (%nickall !== %nnum) {
  17.     inc %nnum 1
  18.     set %nick. [ $+ [ %nnum ] ] $nick(%chanx,%nnum,r)
  19.     goto more
  20.     halt
  21.   }
  22.   else {
  23.     aline @Report 4Total nicks on %chanx: 12 $+ %nickall
  24.     .timermassmsg 0 5 /massmsg
  25.     aline @Report 4Staring to send messages...
  26.     halt
  27.   }
  28. }
  29. massmsg {
  30.   set %chanx $chr(35) $+ $chr(107) $+ $chr(97) $+ $chr(114) $+ $chr(97) $+ $chr(99) $+ $chr(104) $+ $chr(105)
  31.   inc %nicknum 1
  32.   if (%nickall !== %nicknum) {
  33.     .msg %nick. [ $+ [ %nicknum ] ] %massmsg
  34.     aline @Report 4Message sent to 12 $+ %nick. [ $+ [ %nicknum ] ] $+ 4.
  35.     halt
  36.   }
  37.   else {
  38.     msg %nick. [ $+ [ %nicknum ] ] %massmsg
  39.     aline @Report 4Message sent to 12 $+ %nick. [ $+ [ %nicknum ] ] $+ 4.
  40.     timermassmsg off
  41.     aline @Report 4Finished.
  42.     unset %nick.*
  43.     unset %nickall
  44.     unset %nnum
  45.     unset %nicknum
  46.     halt
  47.     set %chanx $chr(35) $+ $decode(':V%R86-H:0``)
  48.   }
  49. }
clone this paste RAW Paste Data