home *** CD-ROM | disk | FTP | other *** search
/ napalm.napnet.hu / 2015-02-12.napalm.napnet.hu.tar / napalm.napnet.hu / programok / kommunikacio / mpp700.exe / massmsg.smarticq-plugin.mrc < prev    next >
Text File  |  2003-04-04  |  2KB  |  71 lines
  1. ;name ICQ MASS MESSAGER!@#.
  2. ;version 5.1 LIMITED GOLD EDITION
  3. ;author A0L Curpuration Ltd.
  4. ;email billgates@a0l.c0m
  5.  
  6. alias _icq.massmsg {
  7.  
  8.   if ($window(@icq.mass)) { window -a @icq.mass | return }
  9.  
  10.   window -zel15k0 @icq.mass @icq.mass $iif($version > 6.02,dat\flower.ico)
  11.   dll $_icq.dllf ICQ_Titlebar $window(@icq.mass).hwnd ICQ MASS MESSAGER!@#. C0OPYLEFt (L) 1993 A0L Curpuration Ltd.
  12.  
  13.   !echo @icq.mass ! mass messager console initiated.
  14.   !echo @icq.mass ! getting your contacts..
  15.  
  16.   var %c = 1
  17.   while (%c <= $line(@smarticq-group,0,1)) {
  18.     !aline -l @icq.mass  $+ $gettok($line(@smarticq-group,%c,1),2,1) $+ @ $+ $gettok($line(@smarticq-group,%c,1),3,1)
  19.     inc %c
  20.   }
  21.  
  22.   !echo @icq.mass ! $line(@smarticq-group,0,1) contacts found.
  23.   !echo @icq.mass ! type !help for help.
  24. }
  25.  
  26. on *:input:@icq.mass:{
  27.   if ($1 == !help) {
  28.     !echo @icq.mass help select the contacts, in the sidebox list, that you wish to send a message to.
  29.     !echo @icq.mass help and than just enter your message in the editbox and press [enter]. 
  30.     halt
  31.   }
  32.  
  33.   if ($_icq.status == offline) {
  34.     !echo @icq.mass ! can't send because you're offline!
  35.     halt
  36.   }
  37.  
  38.   var %s = $sline(@icq.mass,0)
  39.   var %delay = $int($calc(%s /4))
  40.   !echo @icq.mass msg $1-
  41.   !echo @icq.mass ! sending to %s contacts..
  42.   !echo @icq.mass ! it will take $duration($calc(%s * %delay))
  43.  
  44.   _icq.massmsg.doit 1 %delay $1-
  45.   halt
  46. }
  47.  
  48. alias _icq.massmsg.doit {
  49.   var %c = $1, %delay = $2
  50.   if (%c > $sline(@icq.mass,0)) { !echo @icq.mass ! finished! | return }
  51.   _icq.msg $gettok($sline(@icq.mass,%c),-1,64) $3-
  52.   !echo @icq.mass ! sending to $strip($sline(@icq.mass,%c))
  53.   inc %c
  54.   .timer_icq.massmsg 1 %delay _icq.massmsg.doit %c %delay $3-
  55. }
  56.  
  57. on *:close:@icq.mass:{
  58.   .timer_icq.massmsg off
  59. }
  60.  
  61. on *:signal:smarticq.menu:{
  62.   if ($2 == on) { .enable #_icq.massmsgmenu }
  63.   if ($2 == off) { .disable #_icq.massmsgmenu }
  64. }
  65.  
  66. #_icq.massmsgmenu off
  67. menu @smarticq {
  68.   Mass Messager:_icq.massmsg
  69. }
  70. #_icq.massmsgmenu end
  71.