home *** CD-ROM | disk | FTP | other *** search
/ napalm.napnet.hu / 2015-02-12.napalm.napnet.hu.tar / napalm.napnet.hu / programok / kommunikacio / mpp700.exe / ignore.smarticq-plugin.mrc < prev    next >
Text File  |  2003-04-04  |  5KB  |  170 lines
  1. ;name Ignore System
  2. ;version 1.0
  3. ;author tronicer
  4. ;email 
  5.  
  6. on *:signal:smarticq.pager:{
  7.   var %file = $+(",$scriptdir,ign.ini")
  8.   if ($readini(%file,general,glo_pager)) { 
  9.     .enable #_icq.ign_pager
  10.     return
  11.   }
  12.   .disable #_icq.ign_pager
  13. }
  14. #_icq.ign_pager off
  15. alias _icq.DO_NOT_ECHO_PAGER { return $true }
  16. alias _icq.ign.DO_NOT_ECHO_PAGER { return $true }
  17. #_icq.ign_pager end
  18.  
  19. on *:signal:smarticq.message:{
  20.   if ($readini($+(",$_icq.dir,$_icq.a,\uin.ini"),ignore,$1)) {
  21.     .enable #_icq.ign_msg 
  22.     return
  23.   }
  24.  
  25.   var %file = $+(",$scriptdir,ign.ini")
  26.   if ($readini(%file,general,unk_msg)) { 
  27.     if ($1 isnum) { var %uin = $1 }
  28.     if ($1 == -offline) { var %uin = $2 }
  29.     if (!$fline(@smarticq-group,$+(*,$chr(1),%uin,$chr(1),*),0,1)) {
  30.       .enable #_icq.ign_msg
  31.       return
  32.     }
  33.   }
  34.   .disable #_icq.ign_msg 
  35. }
  36. #_icq.ign_msg on
  37. alias _icq.DO_NOT_OPEN_MSG_WINDOWS { return $true }
  38. alias _icq.ign.DO_NOT_OPEN_MSG_WINDOWS { return $true }
  39. #_icq.ign_msg end
  40.  
  41. on *:signal:smarticq.url:{
  42.   if ($readini($+(",$_icq.dir,$_icq.a,\uin.ini"),ignore,$1)) {
  43.     .enable #_icq.ign_url 
  44.     return
  45.   }
  46.  
  47.   var %file = $+(",$scriptdir,ign.ini")
  48.   if ($readini(%file,general,unk_url)) { 
  49.     if (!$fline(@smarticq-group,$+(*,$chr(1),$1,$chr(1),*),0,1)) {
  50.       .enable #_icq.ign_url
  51.       return
  52.     }
  53.   }
  54.   .disable #_icq.ign_url 
  55. }
  56. #_icq.ign_url on
  57. alias _icq.DO_NOT_ECHO_URL { return $true }
  58. alias _icq.ign.DO_NOT_ECHO_URL { return $true }
  59. #_icq.ign_url end
  60.  
  61.  
  62. alias -l _icq.dlg_ign {
  63.   if ($dialog(_icq.dlg_ign)) { dialog -v _icq.dlg_ign _icq.dlg_ign }
  64.   else { dialog -m _icq.dlg_ign _icq.dlg_ign }
  65. }
  66.  
  67. on *:dialog:_icq.dlg_ign:init:*:{
  68.   var %file = $+(",$_icq.dir,$_icq.a,\uin.ini")
  69.   var %c = $ini(%file,ignore,0)
  70.   while (%c) {
  71.     var %uin = $ini(%file,ignore,%c)
  72.     did -a $dname 11 %uin $iif($_icq.g(%uin,SHOW) != $null, - $ifmatch)
  73.     dec %c
  74.   }
  75.  
  76.   var %file = $+(",$scriptdir,ign.ini")
  77.  
  78.   if ($readini(%file,general,unk_msg)) { did -c $dname 5 }
  79.   if ($readini(%file,general,unk_url)) { did -c $dname 6 }
  80.   if ($readini(%file,general,glo_pager)) { did -c $dname 9 }
  81.   if ($readini(%file,general,glo_sms)) { did -c $dname 10 }
  82.  
  83.   if ($exists(%file)) {
  84.     flushini %file
  85.     .copy -o $+(",$scriptdir,ign.ini") $+(",$scriptdir,ign.ini.tmp")
  86.   }
  87. }
  88.  
  89. on *:dialog:_icq.dlg_ign:sclick:12,13,14,15:{
  90.  
  91.   if ($did == 12) {
  92.     if ($input(Enter UIN:,ie,SmartICQ) isnum) {
  93.       var %uin = $ifmatch
  94.       did -a $dname 11 %uin $iif($_icq.g(%uin,SHOW) != $null, - $ifmatch)
  95.       writeini $+(",$_icq.dir,$_icq.a,\uin.ini") ignore %uin 1
  96.     }
  97.   }
  98.   if ($did == 13) {
  99.     remini $+(",$_icq.dir,$_icq.a,\uin.ini") ignore $$gettok($did($dname,11).seltext,1,32)
  100.     did -d $dname 11 $$did($dname,11).sel
  101.   }
  102.   if ($did == 14) { _icq.dlg_userdetails $$gettok($did($dname,11).seltext,1,32) }
  103.  
  104.   if ($did == 15) {
  105.     var %file = $+(",$scriptdir,ign.ini.tmp")
  106.  
  107.     writeini %file general unk_msg $did($dname,5).state
  108.     writeini %file general unk_url $did($dname,6).state
  109.     writeini %file general glo_pager $did($dname,9).state
  110.     writeini %file general glo_sms $did($dname,10).state
  111.     flushini %file
  112.     .copy -o $+(",$scriptdir,ign.ini.tmp") $+(",$scriptdir,ign.ini")
  113.   }
  114. }
  115.  
  116. dialog -l _icq.dlg_ign {
  117.   title "SmartICQ - IGNORE"
  118.   size -1 -1 119 115
  119.   option dbu
  120.   tab "General", 1, 2 2 113 94
  121.   box "Unknown Contacts", 4, 7 19 103 36, tab 1
  122.   check "Ignore messages", 5, 11 29 50 10, tab 1
  123.   check "Ignore URL messages", 6, 11 39 68 10, tab 1
  124.   box "Global", 8, 7 56 103 36, tab 1
  125.   check "Ignore pager messages", 9, 11 66 70 10, tab 1
  126.   check "Ignore SMS messages", 10, 11 76 68 10, tab 1
  127.   tab "Contacts", 2
  128.   list 11, 5 18 69 76, tab 2 size
  129.   button "Add", 12, 76 19 37 12, tab 2
  130.   button "Remove", 13, 76 33 37 12, tab 2
  131.   button "User Details", 14, 76 47 37 12, tab 2
  132.   button "Ok", 15, 38 100 37 12, ok
  133.   button "Cancel", 16, 78 100 37 12, cancel
  134. }
  135.  
  136. on *:signal:smarticq.menu:{
  137.   if ($1 == settings) {
  138.     if ($2 == on) { .enable #_icq.ign_menu }
  139.     if ($2 == off) { .disable #_icq.ign_menu }
  140.   }
  141.   if ($1 == contactlist) {
  142.     if (!$readini($+(",$_icq.dir,$_icq.a,\uin.ini"),ignore,$_icq.seluin)) {
  143.       if ($2 == on) { .enable #_icq.ign_menu.cl }
  144.       if ($2 == off) { .disable #_icq.ign_menu.cl }
  145.     }
  146.     else {
  147.       if ($2 == on) { .enable #_icq.ign_menu.clu }
  148.       if ($2 == off) { .disable #_icq.ign_menu.clu }
  149.     }
  150.   }
  151. }
  152.  
  153. #_icq.ign_menu off
  154. menu @smarticq {
  155.   Ignore System:_icq.dlg_ign
  156. }
  157. #_icq.ign_menu end
  158.  
  159. #_icq.ign_menu.cl off
  160. menu @smarticq {
  161.   Ignore contact:writeini $+(",$_icq.dir,$_icq.a,\uin.ini") ignore $_icq.seluin 1
  162. }
  163. #_icq.ign_menu.cl end
  164.  
  165. #_icq.ign_menu.clu off
  166. menu @smarticq {
  167.   Unignore contact:remini $+(",$_icq.dir,$_icq.a,\uin.ini") ignore $_icq.seluin
  168. }
  169. #_icq.ign_menu.clu end
  170.