home *** CD-ROM | disk | FTP | other *** search
/ napalm.napnet.hu / 2015-02-12.napalm.napnet.hu.tar / napalm.napnet.hu / programok / kommunikacio / mpp700.exe / dlg02.smarticq < prev    next >
Text File  |  2003-04-04  |  47KB  |  1,094 lines
  1. ; ______________________________________________________________________________________________________
  2. ;
  3. ;   SmartICQ v1.2 
  4. ;   copyright (c) 2001-03 tronicer
  5. ;
  6. ;   http://www.smarticq.com/
  7. ; _________________________________________________________________________________________________________
  8. ;
  9. ; smarticq dialogs
  10. ; _________________________________________________________________________________________________________
  11. ;
  12. ; * LIST OF DIALOGS
  13.  
  14. ; /_icq.dlg_am                account manager
  15. ; /_icq.dlg_awaymsg                read ppl's away-msgs
  16. ; /_icq.dlg_recvurl                recv url
  17. ; /_icq.dlg_about                about
  18. ; /_icq.dlg_searchwp                search icq white pages
  19. ; /_icq.dlg_settings                settings
  20.  
  21. ; _________________________________________________________________________________________________________
  22. ;
  23. ; account manager
  24.  
  25. alias _icq.dlg_am {
  26.   if ($dialog(_icq.am)) { dialog -v _icq.am }
  27.   else { dialog -m $+ $iif($_icq.desktop,d) _icq.am _icq.am }
  28. }
  29.  
  30. dialog _icq.am {
  31. title "SmartICQ - Account Manager"
  32.   size -1 -1 143 112
  33.   option dbu
  34.   icon dat\flower.ico
  35.   list 1, 7 15 63 73, size
  36. button "Add Account" , 2, 73 17 62 12
  37. button "Register New Account" , 3, 73 31 62 12
  38. button "Remove Account" , 4, 73 45 62 12
  39. button "Connect" , 6, 98 97 41 12
  40. button "Close" , 7, 55 97 37 12, cancel
  41. check "Popup on start" , 8, 4 98 49 10
  42. box "Accounts" , 9, 2 4 137 90
  43. button "Change Account" , 10, 73 64 62 12
  44. }
  45.  
  46. on *:dialog:_icq.am:init:*:{
  47.   if ($readini($+(",$_icq.dir,$_icq.a,\settings.ini"),settings,am_popup)) { did -c $dname 8 }
  48.   var %c = $ini($+(",$_icq.dir,dat\account.ini"),accounts,0), %read, %read_a
  49.   while (%c > 0) {
  50.     %read = $ini($+(",$_icq.dir,dat\account.ini"),accounts,%c)
  51.     %read_a = $readini($+(",$_icq.dir,\,%read,\settings.ini"),account,show)
  52.     did -a $dname 1 %read $iif(%read_a != %read,%read_a)
  53.     if (%read == $_icq.a) { did -c $dname 1 $did($dname,1).lines }
  54.     dec %c
  55.   }
  56.  
  57. }
  58.  
  59. on *:dialog:_icq.am:sclick:2,3,4,6,8,10:{
  60.   if ($did == 2) { _icq.dlg_addaccount }
  61.   if ($did == 3) { 
  62.     if ($sock(smarticq*,0)) {
  63.       var %d = $input(You must disconnect from ICQ before you can register a new account.,4)
  64.       return
  65.     }
  66.     _icq.dlg_registration 
  67.   }
  68.   if ($did == 4) { 
  69.     if (!$gettok($did($dname,1,$did($dname,1).sel).text,1,32)) { return }
  70.     if ($input(Are you sure you want $+ $crlf $+ to remove account $gettok($did($dname,1,$did($dname,1).sel).text,1,32) $+ ? $+ $crlf $+ $crlf $+ You can not undo this!,8,- SmartICQ)) {
  71.       var %d = $findfile($+(",$_icq.dir,$gettok($did($dname,1,$did($dname,1).sel).text,1,32),"),*.*,0,.remove $+(",$1-,") )
  72.       var %d = $findfile($+(",$_icq.dir,$+($gettok($did($dname,1,$did($dname,1).sel).text,1,32),"),\log\),*.*,0,.remove $+(",$1-,") )
  73.       .rmdir $+(",$_icq.dir,$gettok($did($dname,1,$did($dname,1).sel).text,1,32),\log\")
  74.       .rmdir $+(",$_icq.dir,$gettok($did($dname,1,$did($dname,1).sel).text,1,32),")
  75.       remini $+(",$_icq.dir,dat\account.ini") accounts $did($dname,1).seltext
  76.       did -d $dname 1 $did($dname,1).sel
  77.       if ($did($dname,1).lines) { did -c $dname 1 1 }
  78.       if (!$did($dname,1).lines) { remini $+(",$_icq.dir,dat\account.ini") active account }
  79.     }
  80.   }
  81.  
  82.   if ($did == 8) { writeini $+(",$_icq.dir,$_icq.a,\settings.ini") settings am_popup $did($dname,8).state }
  83.  
  84.   if ($did == 6) || ($did == 10) {
  85.     if (!$did($dname,1).sel) { return }
  86.     if ($gettok($did($dname,1,$did($dname,1).sel).text,1,32) == $_icq.a) && ($window(@smarticq)) { 
  87.       if ($did == 6) { dialog -x $dname | hadd smarticq status online | _icq.drw_obj -show icqbutton up | _icq.login }
  88.       return 
  89.     }
  90.  
  91.     writeini $+(",$_icq.dir,dat\account.ini") active account $gettok($did($dname,1,$did($dname,1).sel).text,1,32)
  92.  
  93.     if (!$window(@smarticq)) { 
  94.       if ($did == 10) { _icq }
  95.       if ($did == 6) { dialog -x $dname | _icq -connect }
  96.       return 
  97.     }
  98.  
  99.     _icq.dll disconnect
  100.     dline -l @SmartICQ-gui $+(1,-,$line(@SmartICQ-gui,0,1))
  101.     dline -l @SmartICQ-group $+(1,-,$line(@SmartICQ-group,0,1)) 
  102.  
  103.     var %rows = $readini($+(",$_icq.dir,dat\smarticq.ini"),misc,rows)
  104.     hadd smarticq start_time $ctime
  105.     hadd smarticq XS_rows $iif(%rows != $null,%rows,0)
  106.     hadd smarticq H $calc(282 + (17 * $hget(smarticq,XS_rows)))
  107.     hadd smarticq group $iif($readini($+(",$_icq.dir,dat\smarticq.ini"),misc,group) != $null,$ifmatch,1)
  108.     hadd smarticq state normal
  109.     hadd smarticq status $iif($did == 6,online,offline)
  110.     hadd smarticq scroll 1
  111.     hadd smarticq sel 2
  112.     hadd smarticq seqnum 0
  113.     hadd smarticq click.dx -
  114.     hadd smarticq click.dy - 
  115.     hadd smarticq msg.away $iif($readini($+(",$_icq.dir,$_icq.a,\settings.ini"),settings,msg.away),$ifmatch,User is currenly Away $+ $crlf $+ You can leave him/her a message)
  116.     hadd smarticq msg.na $iif($readini($+(",$_icq.dir,$_icq.a,\settings.ini"),settings,msg.na),$ifmatch,User is currenly N/A $+ $crlf $+ You can leave him/her a message)
  117.     hadd smarticq msg.occupied $iif($readini($+(",$_icq.dir,$_icq.a,\settings.ini"),settings,msg.occupied),$ifmatch,User is currenly Occupied $+ $crlf $+ You can leave him/her a message)
  118.     hadd smarticq msg.dnd $iif($readini($+(",$_icq.dir,$_icq.a,\settings.ini"),settings,msg.dnd),$ifmatch,User is currenly DND $+ $crlf $+ You can leave him/her a message)
  119.  
  120.     _icq.dll clearuinlist
  121.     var %c = $ini($+(",$_icq.dir,$_icq.a,\uin.ini"),contacts,0), %read, %n, %list, %group = $hget(smarticq,group)
  122.     while (%c > 0) {
  123.       %read = $ini($+(",$_icq.dir,$_icq.a,\uin.ini"),contacts,%c)
  124.       %n = $readini($+(",$_icq.dir,$_icq.a,\uin.ini"),contacts,%read)  
  125.       aline -l @SmartICQ-group $+(xx,$chr(1),$_icq.g(%read,show,%read),$chr(1),%read,$chr(1),offline,$chr(1),%n)
  126.       if (%n == %group) || (%group == 0) { _icq.add_cl xx %read offline $_icq.g(%read,show,%read) }
  127.  
  128.       %list = %list %read
  129.       if ($len(%list) > 600) {
  130.         _icq.dll adduinlist %list
  131.         %list = $null
  132.       }
  133.       dec %c
  134.     }
  135.     if (%list) { _icq.dll adduinlist %list }
  136.  
  137.     _icq.colour.init
  138.     ;    _icq.redraw
  139.     _icq.resize
  140.     _icq.systemtext
  141.     if ($did == 6) { dialog -x $dname | hadd smarticq status online | _icq.drw_obj -show icqbutton up | _icq.login }
  142.   }
  143. }
  144.  
  145.  
  146. ; _________________________________________________________________________________________________________
  147. ;
  148. ; away msg
  149.  
  150. alias _icq.dlg_awaymsg {
  151.   dialog -m  $+ $iif($_icq.desktop,d) $+(_icq.awaymsg,$1) _icq.awaymsg
  152. }
  153.  
  154. dialog -l _icq.awaymsg {
  155.   title "SmartICQ"
  156.   size -1 -1 133 96
  157.   option dbu
  158.   icon dat\flower.ico
  159.   button "Ok", 5, 88 83 43 12, ok
  160.   edit "", 13, 3 41 128 40, read autovs multi vsbar
  161.   text "UIN#:", 14, 8 5 35 8, right
  162.   text "Nickname:", 15, 8 17 35 8, right
  163.   text "Status mode:", 16, 8 29 35 8, right
  164.   edit "", 17, 48 4 83 10, read autohs 
  165.   edit "", 18, 48 16 83 10, read autohs
  166.   edit "", 19, 48 28 83 10, read autohs
  167. }
  168.  
  169. ; _________________________________________________________________________________________________________
  170. ;
  171. ; recv url
  172.  
  173. alias _icq.dlg_recvurl {
  174.   if ($dialog(_icq.recvurl)) { dialog -v _icq.recvurl }
  175.   else { set %_icq.recvurl $1 | set %_icq.recvurl.h $2 | dialog -m  $+ $iif($_icq.desktop,d) _icq.recvurl _icq.recvurl } 
  176. }
  177.  
  178. dialog -l _icq.recvurl {
  179.   title "SmartICQ"
  180.   size -1 -1 159 126
  181.   icon dat\flower.ico
  182.   option dbu
  183.   button "Close", 5, 114 112 43 12, ok
  184.   box "Incoming URL Message", 19, 3 3 154 106
  185.   text "ICQ#:", 20, 8 12 14 8
  186.   text "Nick:", 21, 8 23 13 8
  187.   text "E-Mail:", 22, 74 12 16 8
  188.   text "Date:", 23, 74 23 13 8
  189.   text "Time:", 24, 74 34 13 8
  190.   edit "", 25, 8 45 144 26, autohs
  191.   text "URL Description:", 26, 8 36 41 8
  192.   text "URL:", 27, 8 73 13 8
  193.   edit "", 28, 8 82 144 10, autohs
  194.   button "Go to url", 29, 115 94 37 12
  195.   edit "", 30, 25 11 46 10, read autohs
  196.   edit "", 31, 25 22 46 10, read autohs
  197.   edit "", 32, 94 11 57 10, read autohs
  198.   edit "", 33, 94 22 57 10, read autohs
  199.   edit "", 34, 94 33 57 10, read autohs
  200. }
  201.  
  202. on *:dialog:_icq.recvurl:init:*:{
  203.   if (%_icq.recvurl.h != -history) { var %read = $readini($+(",$_icq.dir,$_icq.a,\system.ini"),url,%_icq.recvurl) }
  204.   if (%_icq.recvurl.h == -history) { var %read = $readini($+(",$_icq.dir,$_icq.a,\history.ini"),url,%_icq.recvurl) }
  205.   var %uin = $gettok(%_icq.recvurl,1,254)
  206.   did -ra $dname 30 %uin
  207.   did -ra $dname 31 $_icq.g(%uin,SHOW,%uin)
  208.   did -ra $dname 32 $_icq.g(%uin,EMAIL,n/a)
  209.   did -ra $dname 25 $gettok(%read,1,254)
  210.   did -ra $dname 28 $gettok($gettok(%read,2,254),1,32)
  211.   did -ra $dname 33 $asctime($gettok($gettok(%read,2,254),2,32),dd mmm yyyy)
  212.   did -ra $dname 34 $asctime($gettok($gettok(%read,2,254),2,32),HH:mm)
  213.   if (%_icq.recvurl.h != -history) {
  214.     remini $+(",$_icq.dir,$_icq.a,\system.ini") url %_icq.recvurl
  215.     writeini $+(",$_icq.dir,$_icq.a,\history.ini") url $+(%_icq.recvurl,$ticks) %read
  216.   }
  217.   unset %_icq.recvurl
  218.   unset %_icq.recvurl.h
  219. }
  220.  
  221.  
  222. ; _________________________________________________________________________________________________________
  223. ;
  224. ; about
  225.  
  226. alias _icq.dlg_about { 
  227.   if ($dialog(_icq.about)) { dialog -v _icq.about }
  228.   else { dialog -m  $+ $iif($_icq.desktop,d) _icq.about _icq.about }
  229. }
  230.  
  231. dialog -l _icq.about {
  232. title "SmartICQ - About"
  233.   size -1 -1 105 54
  234.   icon dat\flower.ico
  235.   option dbu
  236.   text "SmartICQ v1.2", 1, 9 5 90 8
  237. text "- ICQ client for mIRC" , 2, 9 13 48 8
  238.   text "Copyright (c) 2001-02 tronicer", 3, 9 21 70 8
  239.   text "", 7, 9 31 70 8
  240. link "Visit website" , 4, 50 41 37 8
  241. link "E-mail tronicer" , 5, 9 41 33 8
  242.   button "Button", 6, 48 78 37 12, hide cancel
  243. }
  244.  
  245. on *:dialog:_icq.about:init:*:{
  246.   did -a $dname 7 Using icq.dll $+(v.,$gettok($dll($_icq.dllf,ICQ_Version,a),2,32))
  247. }
  248. on *:dialog:_icq.about:sclick:4,5:{
  249.   if ($did == 4) { .url -n http://www.smarticq.com/ }
  250.   if ($did == 5) { .url -n mailto:tronicer@digitalperk.com?subject=SmartICQ }
  251. }
  252.  
  253. ; _________________________________________________________________________________________________________
  254. ;
  255. ; search icq white pages
  256.  
  257. alias _icq.dlg_searchwp { 
  258.   if ($dialog(_icq.searchwp)) { dialog -v _icq.searchwp }
  259.   else { dialog -m  $+ $iif($_icq.desktop,d) _icq.searchwp _icq.searchwp }
  260. }
  261.  
  262.  
  263. dialog -l _icq.searchwp {
  264.   title "SmartICQ"
  265.   size -1 -1 215 102
  266.   icon dat\flower.ico
  267.   option dbu
  268. button "Cancel" , 4, 134 88 37 12, cancel
  269. button "Search" , 5, 176 88 37 12, default
  270. box "Search ICQ White Pages" , 10, 1 3 212 83
  271. text "First name:" , 13, 6 14 30 8, right
  272. text "Last name:" , 14, 6 25 30 8, right
  273. text "Nickname:" , 15, 6 36 30 8, right
  274. text "E-Mail:" , 16, 6 47 30 8, right
  275.   edit "", 17, 38 13 50 10, autohs
  276.   edit "", 18, 38 24 50 10, autohs
  277.   edit "", 19, 38 35 50 10, autohs
  278.   edit "", 20, 38 46 50 10, autohs
  279. text "Age:" , 21, 91 14 30 8, right
  280.   ;  text "Max age:", 22, 154 14 22 8
  281.   combo 23, 123 13 53 100, size drop
  282.   ;  combo 24, 180 13 26 100, size drop
  283. text "Gender:" , 25, 91 27 30 8, right
  284.   combo 26, 123 26 53 100, size drop
  285. text "Language:" , 27, 91 40 30 8, right
  286.   combo 28, 123 39 83 100, size drop sort
  287. text "Country:" , 29, 91 53 30 8, right
  288.   combo 30, 123 52 83 100, size drop sort
  289. text "City:" , 31, 6 60 30 8, right
  290.   edit "", 32, 38 59 50 10, autohs
  291. text "State:" , 33, 6 72 30 8, right
  292.   edit "", 34, 38 71 50 10, autohs
  293. check "Show only online users" , 35, 123 69 79 10
  294. button "Clear" , 36, 1 88 37 12
  295.  
  296.   combo 100, 0 0 0 0, hide sort
  297.   combo 101, 0 0 0 0, hide sort
  298. }
  299.  
  300. on *:dialog:_icq.searchwp:init:*:{
  301. did -a $dname 26 Not specified
  302. did -a $dname 26 Female
  303. did -a $dname 26 Male
  304.   did -c $dname 26 1
  305.  
  306.   did -a $dname 28
  307.   did -a $dname 100 a n255
  308.   loadbuf -otlang $dname 28 $+(",$_icq.dir,\dat\smarticq.dat")
  309.   loadbuf -otlang_n $dname 100 $+(",$_icq.dir,\dat\smarticq.dat")
  310.   did -c $dname 28 1
  311.  
  312.   did -a $dname 30
  313.   did -a $dname 101 a n0
  314.   loadbuf -otcountry $dname 30 $+(",$_icq.dir,\dat\smarticq.dat")
  315.   loadbuf -otcountry_n $dname 101 $+(",$_icq.dir,\dat\smarticq.dat")
  316.   did -c $dname 30 1
  317.  
  318.   did -a $dname 23 
  319.   did -a $dname 23 18-22
  320.   did -a $dname 23 23-29
  321.   did -a $dname 23 30-39
  322.   did -a $dname 23 40-49
  323.   did -a $dname 23 50-59
  324.   did -a $dname 23 60-100
  325.   did -c $dname 23 1
  326. }
  327.  
  328. on *:dialog:_icq.searchwp:sclick:5,36:{
  329.   if ($did == 5) {
  330.     if (!$_icq.sock) { var %d = $input(You are OFFLINE!,516,SmartICQ - OFFLINE) | return }
  331.     if ($window(@smarticq-search)) { window -c @smarticq-search }
  332.  
  333.     if (!$window(@smarticq-search)) && (!$_icq.HIDE_WP) { 
  334.       window -zl @SmartICQ-search $iif($version > 6.02,dat\flower.ico)
  335. dll $_icq.dllf ICQ_Titlebar $window(@SmartICQ-search).hwnd SmartICQ - Searching the White Pages!
  336.       aline @smarticq-search $chr(160)
  337. aline @smarticq-search $+(,$chr(9), uin ,,$chr(9), __LANG=swpm.8 ,,$chr(9), __LANG=swpm.9 ,,$chr(9), __LANG=swpm.10 ,,$chr(9), __LANG=swpm.11 )
  338.       aline @smarticq-search $str(_,150)
  339.       aline @smarticq-search $chr(160)
  340.       aline @smarticq-search $chr(160) 
  341. aline @smarticq-search __[ $+ searching $+ ] $+ $str(_,150)
  342.     }
  343.  
  344.     _icq.searchwp
  345.     ;    dialog -x $dname
  346.   }
  347.   if ($did == 36) {
  348.     did -r $dname 17,18,19,20,32,34
  349.     did -u $dname 35
  350.     did -c $dname 23,26,28,30 1
  351.   }
  352. }
  353.  
  354. ; _________________________________________________________________________________________________________
  355. ;
  356. ; settings
  357.  
  358. alias _icq.dlg_settings { 
  359.   if ($dialog(_icq.settings)) { dialog -v _icq.settings }
  360.   else { dialog -m  $+ $iif($_icq.desktop,d) _icq.settings _icq.settings }
  361. }
  362.  
  363. dialog -l _icq.settings {
  364.   title "SmartICQ - Preferences"
  365.   size -1 -1 282 149
  366.   icon dat\flower.ico
  367.   option dbu
  368.   tab "Contact List", 1, 61 -200 220 149
  369.   check "Snapping", 10, 73 15 35 10, tab 1
  370.   check "Desktop", 11, 73 26 32 10, tab 1
  371.   check "Ontop", 12, 73 38 27 10, disable tab 1
  372.   check "Hide mIRC", 13, 73 50 39 10, disable tab 1
  373.   check "Open on start", 98, 115 15 50 10, tab 1
  374.   check "Minimize on start", 205, 115 26 50 10, tab 1
  375.   check "Titlebar on start", 206, 115 38 50 10, tab 1
  376.   check "Minimize to systray", 100, 115 50 57 10, tab 1
  377.   check "Double-Click for Message", 102, 180 15 75 10, tab 1
  378.   check "Enable Quick-Remove", 123, 180 26 66 10, tab 1
  379.   check "Right click for menu", 101, 180 38 60 10, tab 1
  380.   check "Show unknown ", 14, 180 50 50 10, tab 1
  381.   combo 4, 71 85 92 100, tab 1 size drop
  382.   button "Load", 5, 71 98 43 12, tab 1
  383.   button "Remove", 15, 120 98 43 12, tab 1
  384.   link "Download skins", 16, 71 112 38 8, tab 1
  385.   box "Change Skin", 6, 65 74 212 52, tab 1
  386.   box "Options", 9, 65 3 212 67, tab 1
  387.   edit "", 124, 168 84 105 36, tab 1 read multi return vsbar
  388.   link "Create Skins", 125, 120 112 30 8, tab 1
  389.   tab "Connections", 17
  390.   edit "", 20, 90 13 67 10, tab 17 autohs
  391.   edit "", 22, 180 13 24 10, tab 17 autohs
  392.   button "Reset", 99, 214 13 27 10, tab 17
  393.   check "Use proxy", 24, 73 44 43 10, tab 17
  394.   combo 25, 73 55 60 100,  tab 17 size drop
  395.   edit "", 27, 166 44 60 10, tab 17 autohs
  396.   edit "", 29, 245 44 24 10, tab 17 autohs
  397.   edit "", 32, 166 57 60 10, tab 17 autohs
  398.   edit "", 33, 166 68 60 10, pass tab 17 autohs
  399.   check "Reconnect", 35, 73 97 50 10, tab 17
  400.   check "Keep connection alive", 36, 73 109 69 10, tab 17
  401.   check "Connect on start-up", 97, 143 97 59 10, tab 17
  402.   box "ICQ Server", 18, 65 2 212 27, tab 17
  403.   text "Host:", 19, 70 14 13 8, tab 17
  404.   text "Port:", 21, 163 14 11 8, tab 17
  405.   box "Proxy", 23, 65 33 212 50,  tab 17
  406.   text "Host:", 26, 151 45 13 8,  tab 17
  407.   text "Port:", 28, 232 45 11 8,  tab 17
  408.   text "Username:", 30, 138 58 26 8,  tab 17
  409.   text "Password:", 31, 139 69 25 8,  tab 17
  410.   box "Options", 34, 65 85 212 41, tab 17
  411.   tab "Security", 37
  412.   check "All users may add me and see my online/offline status", 38, 73 12 176 10, tab 37
  413.   check "Allow others to view my online/offline status from the web", 40, 73 22 169 10, tab 37
  414.   check "Request password when returning from away/na/dnd/occupied", 48, 73 32 172 10, tab 37
  415.   check "Request password before apply changes", 47, 73 42 147 10, tab 37
  416.   edit "", 44, 121 81 53 10, tab 37 pass autohs
  417.   edit "", 45, 121 92 53 10, tab 37 pass autohs
  418.   button "Change Password", 46, 178 90 55 12, disable tab 37
  419.   button "Delete Account", 49, 65 112 57 12, disable tab 37
  420.   box "Options", 39, 65 2 212 64, tab 37
  421.   box "Change Password", 41, 65 70 212 37, tab 37
  422.   text "Type password:", 42, 73 82 45 8, tab 37
  423.   text "Re-type password:", 43, 73 93 47 8, tab 37
  424.   check "All users may see my online/offline status", 122, 73 52 109 10, disable tab 37
  425.   tab "Visible / Invisible", 227
  426.  
  427.   tab "Away", 160
  428.   box "Options", 161, 65 2 212 64, tab 160
  429.   check "Popup Change/Confirm Message", 162, 73 15 90 10, tab 160
  430.   check "Auto Away after", 163, 73 26 50 10, tab 160
  431.   check "Auto N/A after", 164, 73 37 50 10, tab 160
  432.   edit "", 165, 123 26 15 10, tab 160 autohs
  433.   edit "", 166, 123 37 15 10, tab 160 autohs
  434.   text "minute(s)", 167, 141 27 23 8, tab 160
  435.   text "minute(s)", 168, 141 38 23 8, tab 160
  436.   check "Synch Away with mIRC", 169, 73 48 71 10, tab 160
  437.   check "Do NOT popup msg if DND", 170, 179 26 93 10, tab 160
  438.   check "Do NOT popup msg if OCCUPIED", 171, 179 37 91 10, tab 160
  439.   check "Auto Back", 172, 179 15 50 10, tab 160
  440.   box "Messages", 173, 65 70 212 51, tab 160
  441.   edit "", 174, 149 78 124 38, tab 160 multi return autovs vsbar
  442.   combo 175, 70 79 76 100, tab 160 size drop
  443.   button "Save", 176, 111 104 35 12, tab 160
  444.   check "Include away time", 177, 92 92 55 10, tab 160
  445.   button "Reset", 178, 71 104 37 12, tab 160
  446.   tab "Message Window", 179
  447.   box "Options", 180, 139 2 141 123, tab 179
  448.   list 181, 65 27 71 84, disable tab 179 size extsel
  449.   radio "Default", 182, 65 5 28 10, tab 179
  450.   radio "Selected Contacts", 183, 65 15 57 10, tab 179
  451.   check "Close after each sent message", 184, 145 10 88 10, tab 179
  452.   check "Desktop", 185, 145 20 33 10, tab 179
  453.   check "Logging", 186, 145 30 32 10, tab 179
  454.   check "Minimize when getting message", 187, 145 40 87 10, tab 179
  455.   check "Show log in window", 188, 145 50 62 10, tab 179
  456.   check "Timestamp", 189, 145 60 38 10, tab 179
  457.   check "Take advantage of MTS", 190, 145 70 68 10, tab 179
  458.   button "View log", 191, 65 113 27 12, tab 179
  459.   button "Reset position", 192, 94 113 42 12, tab 179
  460.   check "Blowfish Encryption   Key:", 202, 145 80 70 10, disable tab 179
  461.   edit "", 203, 219 80 20 10, disable tab 179 pass autohs
  462.   check "Multi-line editbox", 207, 145 90 50 10, tab 179
  463.   check "Save position On close", 208, 145 100 89 10, tab 179
  464.   check "Flat style", 209, 239 100 35 10, tab 179
  465.   check "Tool style", 210, 239 110 36 10, tab 179
  466.   check "Session start mark", 211, 145 110 61 10, tab 179
  467.   tab "Plug-In Manager", 212
  468.   list 216, 72 13 93 39, tab 212 size
  469.   box "Loaded Plug-ins", 213, 66 3 212 54, tab 212
  470.   button "Reload", 320, 196 41 37 11, tab 212
  471.   button "Unload", 220, 237 41 37 11, tab 212
  472.   text "Version:", 219, 168 32 93 8, tab 212
  473.   text "Author:", 218, 168 23 92 8, tab 212
  474.   text "Name:", 217, 168 14 92 8, tab 212
  475.   box "Unloaded Plug-Ins", 215, 66 59 212 54, tab 212
  476.   list 221, 72 69 93 39, tab 212 size
  477.   text "Version:", 222, 168 88 96 8, tab 212
  478.   text "Author:", 223, 168 79 96 8, tab 212
  479.   text "Name:", 224, 168 70 95 8, tab 212
  480.   button "Load", 225, 237 97 37 11, tab 212
  481.   link "Make your own plug-ins", 226, 122 117 61 8, tab 212
  482.   link "Download Plug-Ins", 214, 67 117 48 8, tab 212
  483.  
  484.   box "Visible List", 229, 66 3 212 61, tab 227
  485.   box "Invisible List", 230, 66 66 212 61, tab 227
  486.   list 231, 70 11 155 50, tab 227 size
  487.   button "Add Contact", 233, 227 11 48 12, tab 227
  488.   button "Remove Contact", 234, 227 25 48 12, tab 227
  489.   button "User Details", 235, 227 39 48 12, tab 227
  490.   check "Disable", 236, 227 52 50 10, tab 227
  491.   button "Add Contact", 237, 227 74 48 12, tab 227
  492.   button "Remove Contact", 238, 227 88 48 12, tab 227
  493.   button "User Details", 239, 227 102 48 12, tab 227
  494.   check "Disable", 240, 227 115 50 10, tab 227
  495.   button "Close", 84, 239 135 37 12, cancel
  496.   button "Apply Changes", 85, 187 135 48 12
  497.   list 193, 2 5 61 122, size
  498.   box "", 194, -32 126 325 50
  499.   list 232, 70 74 155 50, tab 227 size
  500.  
  501.   list 400, 0 0 0 0, hide
  502.   combo 500, 0 0 0 0, hide
  503.   edit "", 501, 0 0 0 0, hide autohs
  504.   list 502, 0 0 0 0, hide
  505.   list 516, 0 0 0 0, hide
  506.   list 521, 0 0 0 0, hide
  507.   list 600, 0 0 0 0, hide
  508. }
  509.  
  510. on *:dialog:_icq.settings:sclick:193:{
  511.   var %c = $did($dname,193).sel, %t = $dialog(_icq.settings).tab
  512.   _icq.debug -st ss %c 
  513.   if (%c == 1) && (%t != 1) { did -f $dname 1 | dialog -t $dname SmartICQ - Preferences [Contact List] }
  514.   if (%c == 2) && (%t != 17) { did -f $dname 17 | dialog -t $dname SmartICQ - Preferences [Connections] }
  515.   if (%c == 3) && (%t != 37) { did -f $dname 37 | dialog -t $dname SmartICQ - Preferences [Security] }
  516.   if (%c == 4) && (%t != 227) { did -f $dname 227 | dialog -t $dname SmartICQ - Preferences [Visible / Invisible] }
  517.   if (%c == 5) && (%t != 160) { did -f $dname 160 | dialog -t $dname SmartICQ - Preferences [Away System] }
  518.   if (%c == 6) && (%t != 179) { did -f $dname 179 | dialog -t $dname SmartICQ - Preferences [Message Windows] }
  519.   if (%c == 7) && (%t != 212) { did -f $dname 212 | dialog -t $dname SmartICQ - Preferences [Plug-In Manager] }
  520. }
  521.  
  522. on *:dialog:_icq.settings:sclick:1,17,37,103,126,160,179,212,227:{
  523.   if ($did == 1) { did -c $dname 193 1 | dialog -t $dname SmartICQ - Preferences [Contact List]  }
  524.   if ($did == 17) { did -c $dname 193 2 | dialog -t $dname SmartICQ - Preferences [Connections]  }
  525.   if ($did == 37) { did -c $dname 193 3 | dialog -t $dname SmartICQ - Preferences [Security] }
  526.   if ($did == 227) { did -c $dname 193 4 | dialog -t $dname SmartICQ - Preferences [Visible / Invisible] }
  527.   if ($did == 160) { did -c $dname 193 5 | dialog -t $dname SmartICQ - Preferences [Away System] }
  528.   if ($did == 179) { did -c $dname 193 6 | dialog -t $dname SmartICQ - Preferences [Message Windows] }
  529.   if ($did == 212) { did -c $dname 193 7 | dialog -t $dname SmartICQ - Preferences [Plug-In Manager] }
  530. }
  531.  
  532. on *:dialog:_icq.settings:sclick:49,84,85:{
  533.   ; deleting account
  534.   if ($did == 49) {
  535.     if ($input(DELETE ACCOUNT?,256,SmartICQ - WARNING)) && ($input(DELETE ACCOUNT? $+ $crlf $+ ACCOUNT WILL BE DELETED FROM ICQ - YOU CAN NOT UNDO THIS!,512,SmartICQ - WARNING)) {
  536.       var %passwd = $readini($+(",$_icq.dir,$_icq.a,\settings.ini"),account,passwd)
  537.       if (%passwd == $null) { %passwd = $_icq.passwd2($input(Enter Password:,258,SmartICQ - PASSWORD)) }
  538.       if (%passwd) { _icq.____deleteaccount $_icq.a %passwd }
  539.       if (%passwd == $null) { %passwd = $input(ACCOUNT NOT DELETED,228,SmartICQ - INFO) }
  540.       return
  541.     }
  542.   }
  543.  
  544.   ; saving
  545.   if ($did == 84) {
  546.     .remove $+(",$_icq.dir,$_icq.a,\uin.ini.tmp")
  547.     .remove $+(",$_icq.dir,$_icq.a,\settings.ini.tmp")
  548.     .remove $+(",$_icq.dir,$_icq.a,\users.ini.tmp")
  549.   }
  550.   if ($did == 85) {
  551.     if ($readini($+(",$_icq.dir,$_icq.a,\settings.ini"),settings,security_settpass)) {
  552.       var %d = $input(Password required to change settings:,6,SmartICQ - Security Check)
  553.       var %pass = $readini($+(",$_icq.dir,$_icq.a,\settings.ini"),account,settpass)
  554.       if ($_icq.passwd2(%d) != %pass) { %d = $input(Wrong Password - Settings not saved.,260,SmartICQ - ERROR) | return }
  555.     }
  556.  
  557.     var %state = $readini($+(",$_icq.dir,$_icq.a,\settings.ini"),settings,contactlist_desktop)
  558.  
  559.     if ($isfile($+(",$_icq.dir,$_icq.a,\settings.ini.tmp"))) { 
  560.       flushini $+(",$_icq.dir,$_icq.a,\settings.ini.tmp")
  561.       .copy -o $+(",$_icq.dir,$_icq.a,\settings.ini.tmp") $+(",$_icq.dir,$_icq.a,\settings.ini") 
  562.     }
  563.     if ($isfile($+(",$_icq.dir,$_icq.a,\uin.ini.tmp"))) { 
  564.       flushini $+(",$_icq.dir,$_icq.a,\uin.ini.tmp")
  565.       .copy -o $+(",$_icq.dir,$_icq.a,\uin.ini.tmp") $+(",$_icq.dir,$_icq.a,\uin.ini") 
  566.     }
  567.     if ($isfile($+(",$_icq.dir,$_icq.a,\users.ini.tmp"))) { 
  568.       flushini $+(",$_icq.dir,$_icq.a,\users.ini.tmp")
  569.       .copy -o $+(",$_icq.dir,$_icq.a,\users.ini.tmp") $+(",$_icq.dir,$_icq.a,\users.ini") 
  570.     }
  571.  
  572.     var %file = $+(",$_icq.dir,\,$_icq.a,\settings.ini")
  573.     var %auth = $iif($readini(%file,settings,security_authreq) == 1,1,0)
  574.     var %aware = $iif($readini(%file,settings,security_webaware) == 1,1,0)
  575.     _icq.dll setsecurity %auth %aware 1
  576.  
  577.     var %c = $did($dname,600,0).lines
  578.     while (%c) {
  579.       var %win = $_icq.windowname($did($dname,600,%c).text)
  580.       if ($window(%win)) {
  581.         var %s = -zhk0, %uin = $did($dname,600,%c).text
  582.         if ($window(%win).state == minimized) { %s = %s $+ n }
  583.         ;        if ($window(%win).mdi == $false) { %s = %s $+ d }
  584.         if ($_icq.mw_menu(%uin,2)) { %s = %s $+ d }
  585.         if ($window(%win).ontop == $true) { %s = %s $+ o }
  586.         if ($_icq.mw_menu(%uin,10)) { %s = %s $+ B }
  587.         %s = %s $+ $iif($_icq.mw_menu(%uin,9),E,e)
  588.         if ($_icq.mw_menu(%uin,12)) { %s = %s +l }
  589.         window %s $+(%win,tmp) $window(%win).x $window(%win).y $window(%win).w $window(%win).h @SmartICQmsg $+(",$mircexe,") 5
  590.         titlebar $+(%win,tmp) $window(%win).title
  591.         filter -p %win $+(%win,tmp) *
  592.         window -c %win
  593.         renwin $+(%win,tmp) %win
  594.         window -w %win
  595.       }
  596.       dec %c
  597.     }
  598.     did -r $dname 600
  599.  
  600.     if ($did($dname,11).state != %state) {
  601.       if ($did($dname,11).state) { 
  602.         writeini $+(",$_icq.dir,dat\smarticq.ini") misc pos $window(@smarticq).x $window(@smarticq).y $window(@smarticq).w $window(@smarticq).h
  603.         window -c @smarticq 
  604.         var %switch3 = +d
  605.         if ($did($dname,100).state) { %switch3 = +dL }
  606.         if ($did($dname,12).state) { window -zBodnpfk0 %switch3 @SmartICQ $readini($+(",$_icq.dir,dat\smarticq.ini"),misc,pos) @SmartICQ }
  607.         else { window -zBdnpfk0 %switch3 @SmartICQ $readini($+(",$_icq.dir,dat\smarticq.ini"),misc,pos) @SmartICQ | window -u @smarticq }
  608.         _icq.redraw | window -hr @smarticq
  609.         .signal smarticq.mdi desktop
  610.       }
  611.       else {
  612.         writeini $+(",$_icq.dir,dat\smarticq.ini") misc pos $window(@smarticq).x $window(@smarticq).y $window(@smarticq).w $window(@smarticq).h
  613.         window -c @smarticq
  614.         window -zBnpfk0 +d @SmartICQ $readini($+(",$_icq.dir,dat\smarticq.ini"),misc,pos) @SmartICQ
  615.         _icq.redraw | window -r @smarticq
  616.         .signal smarticq.mdi mdi
  617.       }
  618.     }
  619.     if ($did($dname,12).state) { window -o @smarticq }
  620.     else { window -u @smarticq }
  621.  
  622.     if ($did($dname,169).state) { .enable #_icq.awaysynch }
  623.     if (!$did($dname,169).state) { .disable #_icq.awaysynch }
  624.  
  625.  
  626.  
  627.     ; minimize to systray
  628.     if ($did($dname,100).state) { 
  629.       var %state = $window(@smarticq).state
  630.       window -h @smarticq | if (%state == normal) { window -a @smarticq } 
  631.       _icq.systray.init 
  632.     }
  633.     else { window -w @smarticq | _icq.systray.kill }
  634.  
  635.   }
  636. }
  637.  
  638.  
  639. on *:dialog:_icq.settings:init:*:{
  640.   dialog -t $dname SmartICQ - Preferences [Contact List]
  641.   did -a $dname 193 Contact List
  642.   did -a $dname 193 Connections
  643.   did -a $dname 193 Security
  644.   did -a $dname 193 Visible / Invisible
  645.   did -a $dname 193 Away System
  646.   did -a $dname 193 Message Windows
  647.   did -a $dname 193 Plug-In Manager
  648.   did -c $dname 193 1
  649.  
  650.   if ($isfile($+(",$_icq.dir,$_icq.a,\settings.ini"))) {
  651.     flushini $+(",$_icq.dir,$_icq.a,\settings.ini")
  652.     .copy -o $+(",$_icq.dir,$_icq.a,\settings.ini") $+(",$_icq.dir,$_icq.a,\settings.ini.tmp") 
  653.   }
  654.   if ($isfile($+(",$_icq.dir,$_icq.a,\uin.ini"))) { 
  655.     flushini $+(",$_icq.dir,$_icq.a,\uin.ini")
  656.     .copy -o $+(",$_icq.dir,$_icq.a,\uin.ini") $+(",$_icq.dir,$_icq.a,\uin.ini.tmp") 
  657.   }
  658.   if ($isfile($+(",$_icq.dir,$_icq.a,\users.ini"))) { 
  659.     flushini $+(",$_icq.dir,$_icq.a,\users.ini")
  660.     .copy -o $+(",$_icq.dir,$_icq.a,\users.ini") $+(",$_icq.dir,$_icq.a,\users.ini.tmp") 
  661.   }
  662.   var %file = $+(",$_icq.dir,$_icq.a,\settings.ini.tmp")
  663.   var %s = settings
  664.   ; ------------------------------------------------------------------
  665.  
  666.   ; [CONTACT LIST]
  667.   if ($readini(%file,%s,contactlist_snapping)) { did -c $dname 10 }
  668.   if ($readini(%file,%s,contactlist_desktop)) { did -c $dname 11 | did -e $dname 12 }
  669.   if ($readini(%file,%s,contactlist_ontop)) { did -c $dname 12 }
  670.   if ($readini(%file,%s,contactlist_hideoffline)) { did -c $dname 13 }
  671.   if ($readini(%file,%s,contactlist_showunknown)) { did -c $dname 14 }
  672.   if ($readini(%file,%s,contactlist_startup)) { did -c $dname 98 }
  673.   if ($readini(%file,%s,contactlist_systray)) { did -c $dname 100 }
  674.   if ($readini(%file,%s,contactlist_rightclick)) { did -c $dname 101 }
  675.   if ($readini(%file,%s,contactlist_dblclick)) { did -c $dname 102 }
  676.   if ($readini(%file,%s,contactlist_quickrem)) { did -c $dname 123 }
  677.   if ($readini(%file,%s,contactlist_minonstart)) { did -c $dname 205 }
  678.   if ($readini(%file,%s,contactlist_titleonstart)) { did -c $dname 206 }
  679.  
  680.  
  681.   var %tmp = $findfile($+($_icq.dir,skins),*.skin*,0,did -a $+ $iif($_icq.skin(name) == $gettok($nopath($1-),1,46),c) $dname 4 $gettok($nopath($1-),1,46) )
  682.   var %tmp = $findfile($+($_icq.dir,skins),*.skin*,0,did -a $dname 400 $+(",$1-,"))
  683.   var %sfile = $findfile($+($_icq.dir,skins\,active),*.ini,1)
  684.   did -ra $dname 124 - ACTIVE SKIN - $+ $crlf
  685.   did -a $dname 124 Name: $readini(%sfile,skin,name) $+ $crlf
  686.   did -a $dname 124 Author: $readini(%sfile,skin,author) $+ $crlf
  687.   did -a $dname 124 E-Mail: $readini(%sfile,skin,email) $+ $crlf
  688.   did -a $dname 124 Description: $readini(%sfile,skin,desc)
  689.   did -c $dname 124 1
  690.  
  691.   ; ------------------------------------------------------------------
  692.  
  693.   ; [CONNECTIONS]
  694.   did -ra $dname 20 $readini(%file,%s,connections_host)
  695.   did -ra $dname 22 $readini(%file,%s,connections_port)
  696.   if ($readini(%file,%s,connections_reconnect)) { did -c $dname 35 }
  697.   if ($readini(%file,%s,connections_keepalive)) { did -c $dname 36 }
  698.   if ($readini(%file,%s,connections_startup)) { did -c $dname 97 }
  699.  
  700.   did -a $dname 25 SOCKS 5
  701.   if ($readini(%file,%s,connections_proxy)) { did -c $dname 24 }
  702.   if ($readini(%file,%s,connections_proxy.type)) { did -c $dname 25 1 }
  703.   did -ra $dname 27 $readini(%file,%s,connections_proxy.host)
  704.   did -ra $dname 29 $readini(%file,%s,connections_proxy.port)
  705.   did -ra $dname 32 $readini(%file,%s,connections_proxy.user)
  706.   did -ra $dname 33 $decode($readini(%file,%s,connections_proxy.pass),m)
  707.   ; ------------------------------------------------------------------
  708.  
  709.   ; [SECURITY]
  710.   if ($readini(%file,%s,security_settpass)) { did -c $dname 47 }
  711.   if ($readini(%file,%s,security_authreq)) { did -c $dname 38 }
  712.   if ($readini(%file,%s,security_webaware)) { did -c $dname 40 }
  713.   if ($readini(%file,%s,security_status)) { did -c $dname 48 }
  714.  
  715.   ; ------------------------------------------------------------------
  716.  
  717.   ; [VISIBLE / INVISIBLE]
  718.   var %c = $ini($+(",$_icq.dir,$_icq.a,\uin.ini.tmp"),visible,0)
  719.   while (%c) {
  720.     did -a $dname 231 $ini($+(",$_icq.dir,$_icq.a,\uin.ini.tmp"),visible,%c)
  721.     dec %c
  722.   }
  723.   var %c = $ini($+(",$_icq.dir,$_icq.a,\uin.ini.tmp"),invisible,0)
  724.   while (%c) {
  725.     did -a $dname 232 $ini($+(",$_icq.dir,$_icq.a,\uin.ini.tmp"),invisible,%c)
  726.     dec %c
  727.   }
  728.  
  729.   if ($readini(%file,settings,visinvis_visible)) { did -c $dname 236 }
  730.   if ($readini(%file,settings,visinvis_invisible)) { did -c $dname 240 }
  731.  
  732.   ; ------------------------------------------------------------------
  733.  
  734.   ; [AWAY]
  735.   did -a $dname 175 Away
  736.   did -a $dname 175 N/A
  737.   did -a $dname 175 Occupied
  738.   did -a $dname 175 DND
  739.   did -c $dname 175 1
  740.   did -ra $dname 174 $hget(smarticq,msg.away)
  741.   if ($readini(%file,%s,away_autoaway)) { did -c $dname 163 }
  742.   if ($readini(%file,%s,away_autona)) { did -c $dname 164 }
  743.   if ($readini(%file,%s,away_autoback)) { did -c $dname 172 }
  744.   did -ra $dname 165 $readini(%file,%s,away_autoaway-time)
  745.   did -ra $dname 166 $readini(%file,%s,away_autona-time)
  746.   if ($readini(%file,%s,changeawaymsg)) { did -c $dname 162 }
  747.   if ($group(#_icq.awaysynch) == on) { did -c $dname 169 }
  748.   if ($readini(%file,%s,away_includetime)) { did -c $dname 177 }
  749.  
  750.   ; ------------------------------------------------------------------
  751.  
  752.   ; [MSG WINDOW]
  753.   did -c $dname 182
  754.   var %c = 1
  755.   while (%c <= $line(@smarticq-gui,0,1)) {
  756.     if ($gettok($line(@smarticq-gui,%c,1),3,1) != line) {
  757.       did -a $dname 181 $gettok($line(@smarticq-gui,%c,1),2,1)
  758.       did -a $dname 502 $gettok($line(@smarticq-gui,%c,1),2-3,1)
  759.     }
  760.     inc %c
  761.   }
  762.   var %r = $readini(%file,account,MW)
  763.   did $iif($gettok(%r,1,32),-c,-u) $dname 184 | did $iif($gettok(%r,2,32),-c,-u) $dname 185
  764.   did $iif($gettok(%r,3,32),-c,-u) $dname 186 | did $iif($gettok(%r,4,32),-c,-u) $dname 187
  765.   did $iif($gettok(%r,5,32),-c,-u) $dname 188 | did $iif($gettok(%r,6,32),-c,-u) $dname 189
  766.   did $iif($gettok(%r,7,32),-c,-u) $dname 190 | did $iif($gettok(%r,8,32),-c,-u) $dname 202
  767.   did $iif($gettok(%r,9,32),-c,-u) $dname 207 | did $iif($gettok(%r,10,32),-c,-u) $dname 209
  768.   did $iif($gettok(%r,11,32),-c,-u) $dname 208 | did $iif($gettok(%r,12,32),-c,-u) $dname 210
  769.  
  770.   ; ------------------------------------------------------------------
  771.  
  772.   ; [PLUG-IN MANAGER ]
  773.  
  774.   var %c = $findfile($+(",$_icq.dir,plugins"),*.smarticq-plugin.*,0)
  775.   while (%c) {
  776.     var %pfile = $findfile($+(",$_icq.dir,plugins"),*.smarticq-plugin.*,%c)
  777.     if ($script(%pfile)) {
  778.       did -a $dname 516 %pfile
  779.       did -a $dname 216 $nopath(%pfile) 
  780.     }
  781.     if (!$script(%pfile)) {
  782.       did -a $dname 521 %pfile
  783.       did -a $dname 221 $nopath(%pfile) 
  784.     }
  785.     dec %c
  786.   }
  787.  
  788.   did -c $dname 216,221 1
  789.   %pfile = $did($dname,516,$did($dname,216).sel).text
  790.   did -ra $dname 217 Name: $read(%pfile,s,;name)
  791.   did -ra $dname 218 Author: $read(%pfile,s,;author)
  792.   did -ra $dname 219 Version $read(%pfile,s,;version)
  793.   %pfile = $did($dname,521,$did($dname,221).sel).text
  794.   did -ra $dname 224 Name: $read(%pfile,s,;name)
  795.   did -ra $dname 223 Author: $read(%pfile,s,;author)
  796.   did -ra $dname 222 Version $read(%pfile,s,;version)
  797. }
  798.  
  799. on *:dialog:_icq.settings:edit:20,22,27,29,32,33,165,166:{
  800.   var %file = $+(",$_icq.dir,$_icq.a,\settings.ini.tmp")
  801.   if ($did($dname,20).text) { writeini %file settings connections_host $ifmatch }
  802.   if ($did($dname,22).text) { writeini %file settings connections_port $ifmatch }
  803.   if ($did($dname,165).text) { writeini %file settings away_autoaway-time $ifmatch }
  804.   if ($did($dname,166).text) { writeini %file settings away_autona-time $ifmatch }
  805.   if ($did($dname,27).text) { writeini %file settings connections_proxy.host $ifmatch }
  806.   if ($did($dname,29).text) { writeini %file settings connections_proxy.port $ifmatch }
  807.   if ($did($dname,32).text) { writeini %file settings connections_proxy.user $ifmatch }
  808.   if ($did($dname,33).text) { writeini %file settings connections_proxy.pass $encode($ifmatch,m) }
  809. }
  810.  
  811. #porn_icq off
  812. #porn_icq end
  813.  
  814. on *:dialog:_icq.settings:sclick:10,11,12,13,14,24,25,35,36,38,40,47,97,98,100,101,102,113,119,120,121,123,163,164,172,205,206,236,240:{
  815.   var %file = $+(",$_icq.dir,$_icq.a,\settings.ini.tmp")
  816.   if ($did == 11) && ($did($dname,11).state) { did -e $dname 12 }
  817.   if ($did == 11) && (!$did($dname,11).state) { did -ub $dname 12 }
  818.   if ($did == 47) && ($did($dname,47).state) { var %d = $input(Choose a password:,6,SmartICQ - INPUT) | if (%d == $null) { did -u $dname 47 } | if (%d != $null) { writeini %file account settpass $_icq.passwd2(%d) } }
  819.  
  820.   var %. = writeini %file settings
  821.  
  822.   %. visinvis_visible $did($dname,236).state 
  823.   %. visinvis_invisible $did($dname,240).state 
  824.  
  825.   %. contactlist_systray $did($dname,100).state
  826.   %. contactlist_snapping $did($dname,10).state
  827.   %. contactlist_desktop $did($dname,11).state
  828.   %. contactlist_ontop $did($dname,12).state
  829.   %. contactlist_hideoffline $did($dname,13).state
  830.   %. contactlist_showunknown $did($dname,14).state
  831.   %. contactlist_startup $did($dname,98).state
  832.   %. contactlist_rightclick $did($dname,101).state
  833.   %. contactlist_dblclick $did($dname,102).state
  834.   %. contactlist_quickrem $did($dname,123).state
  835.   %. contactlist_minonstart $did($dname,205).state
  836.   %. contactlist_titleonstart $did($dname,206).state
  837.  
  838.   %. connections_reconnect $did($dname,35).state
  839.   %. connections_keepalive $did($dname,36).state
  840.   %. connections_startup $did($dname,97).state
  841.   %. connections_proxy $did($dname,24).state
  842.   %. connections_proxy.type $iif($did($dname,25,1).sel,$ifmatch,0)
  843.  
  844.   %. security_settpass $did($dname,47).state
  845.   %. security_authreq $did($dname,38).state
  846.   %. security_webaware $did($dname,40).state
  847.   %. security_status $did($dname,48).state
  848.  
  849.   %. away_autoaway $did($dname,163).state
  850.   %. away_autona $did($dname,164).state
  851.   %. away_autoback $did($dname,172).state
  852.  
  853.   %. changeawaymsg $did($dname,162).state
  854.   %. away_includetime $did($dname,177).state
  855. }
  856.  
  857. ; CONTACT LIST
  858. on *:dialog:_icq.settings:sclick:4,5,7,8,11,13,15,16,125:{
  859.   if ($did == 16) { .url -n http://www.smarticq.com/skins.php }
  860.   if ($did == 125) { .url -n http://www.smarticq.com/cgi/read.php?txt=skinhelp.txt }
  861.   if ($did == 11) {
  862.     if ($did($dname,11).state) { did -e $dname 12,13 }
  863.     else { did -ub $dname 12,13 }
  864.   }
  865.   if ($did == 13) {
  866.     if ($did($dname,13).state) { _icq.run $_icq.dir $+ dat\mstealth.exe | did -b $dname 11 }
  867.     else { _icq.run $_icq.dir $+ dat\mstealth.exe | did -e $dname 11 }
  868.   }
  869.  
  870.   if ($did == 4) {
  871.     ; select skin
  872.   }
  873.   if ($did == 15) { 
  874.     did -b $dname 15
  875.     var %file = $+(",$findfile($+($_icq.dir,skins\,active),*.ini,1),")
  876.     var %pic = $+(",$_icq.dir,skins\,active\,$readini(%file,skin,file),")
  877.     drawpic -c
  878.     drawpic -c @SmartICQ-gui -1 -1 %pic
  879.     _icq.colour.init
  880.  
  881.     var %xs = $calc(17 * $hget(smarticq,XS_rows))
  882.     drawcopy -n @SmartICQ-gui 7 22 143 212 @SmartICQ-group 0 0 143 $calc(212 + %xs)
  883.     drawcopy -n @SmartICQ-gui 427 3 143 212 @SmartICQ-group 150 0 143 $calc(212 + %xs)
  884.  
  885.     drawcopy -tn @SmartICQ-gui $hget(smarticq,c-invisible) 1 3 164 100 @SmartICQ 0 0
  886.     drawcopy -tn @SmartICQ-gui $hget(smarticq,c-invisible) 1 103 164 182 @SmartICQ 0 $calc(100 + %xs)
  887.  
  888.     if ($window(@smarticq).h == 282) { _icq.redraw }
  889.     if ($window(@smarticq).h == 19) { 
  890.       drawcopy -nt @SmartICQ-gui $hget(smarticq,c-invisible) 259 135 162 18 @SmartICQ 0 0 
  891.       _icq.drw_obj -hide minibutton up
  892.       _icq.drw_obj -show closebutton up
  893.     }
  894.     did -e $dname 15
  895.   }
  896.   if ($did == 5) {
  897.     var %file = $did($dname,400,$did($dname,4).sel).text
  898.     _icq.loadskin %file
  899.     var %file = $+(",$_icq.dir,$readini($+(",$_icq.dir,dat\smarticq.ini"),skin,ini),")
  900.     did -ra $dname 124 - ACTIVE SKIN - $+ $crlf
  901.     did -a $dname 124 Name: $readini(%file,skin,name) $+ $crlf
  902.     did -a $dname 124 Author: $readini(%file,skin,author) $+ $crlf
  903.     did -a $dname 124 E-Mail: $readini(%file,skin,email) $+ $crlf
  904.     did -a $dname 124 Description: $readini(%file,skin,desc)
  905.     did -c $dname 124 1
  906.     ;    sockclose _icq.topskin | sockopen _icq.topskin 216.40.212.18 80
  907.   }
  908.   if ($did == 7) { _icq.dlg_add2contact }
  909.   if ($did == 8) { _icq.dlg_remfromcontact }
  910. }
  911.  
  912. ; [CONNECTIONS]
  913. on *:dialog:_icq.settings:sclick:99:{
  914.   did -ra $dname 20 login.icq.com
  915.   did -ra $dname 22 5190
  916.   var %file = $+(",$_icq.dir,$_icq.a,\settings.ini.tmp")
  917.   writeini %file settings connections_host login.icq.com
  918.   writeini %file settings connections_port 5190
  919. }
  920.  
  921. ; [SECURITY]
  922. on *:dialog:_icq.settings:edit:44,45:{
  923.   if ($did($dname,44)) && ($did($dname,45)) && ($did($dname,44) == $did($dname,45)) {
  924.     did -e $dname 46
  925.   }
  926.   else { did -b $dname 46 }
  927. }
  928. on *:dialog:_icq.settings:sclick:46:{
  929.   if ($_icq.sock) { _icq.changepasswd $did($dname,44).text }
  930.   else { riteini $+(",$_icq.dir,$1,\settings.ini.tmp") account passwd $_icq.passwd2($did($dname,44).text)  }
  931.   writeini $+(",$_icq.dir,$1,\settings.ini.tmp") account settpass $_icq.passwd2($did($dname,44).text) 
  932.   did -r $dname 44,45
  933.   did -b $dname 46
  934. }
  935.  
  936. ; [AWAY]
  937. on *:dialog:_icq.settings:sclick:175,176,178:{
  938.   if ($did == 175) { did -ra $dname 174 $hget(smarticq,$+(msg.,$remove($did($dname,175).seltext,/))) }
  939.  
  940.   if ($did == 176) {
  941.     var %c = 1, %t
  942.     while (%c <= $did($dname,174).lines) {
  943.       if (%t) { %t = %t $+ $crlf }
  944.       %t = %t $+ $did($dname,174,%c).text
  945.       inc %c
  946.     }
  947.     hadd smarticq $+(msg.,$remove($did($dname,175).seltext,/)) %t
  948.   }
  949.  
  950.   if ($did == 178) {
  951.     hadd smarticq $+(msg.,$remove($did($dname,175).seltext,/)) User is currenly $did($dname,175).seltext $+ $crlf $+ You can leave him/her a message
  952.     did -ra $dname 174 $hget(smarticq,$+(msg.,$remove($did($dname,175).seltext,/)))
  953.   }
  954. }
  955.  
  956. ; [MSG WINDOWS]>
  957. on *:dialog:_icq.settings:sclick:181,182,183,184,185,186,187,188,189,190,191,192,202,207,209,208,210:{
  958.  
  959.  
  960.   if ($did == 191) {
  961.     var %file = $+(",$_icq.dir,$_icq.a,\,$$gettok($did($dname,502,$did($dname,181).sel).text,2,1),.log")
  962.     if ($isfile(%file)) { _icq.run notepad %file }
  963.     return
  964.   }
  965.   if ($did == 192) {
  966.     remini $+(",$_icq.dir,dat\smarticq.ini.tmp") misc msgwin_pos 
  967.     return
  968.   }
  969.   if (($did >= 184) && ($did <= 190)) || ($did == 182) || ($did == 202) || (($did > 201) && ($did < 211)) {
  970.     if ($did($dname,182).state) && ($did != 182) {
  971.       writeini $+(",$_icq.dir,$_icq.a,\settings.ini.tmp") account MW $did($dname,184).state $did($dname,185).state $did($dname,186).state $did($dname,187).state $did($dname,188).state $did($dname,189).state $did($dname,190).state $did($dname,202).state $did($dname,207).state $did($dname,208).state $did($dname,209).state $did($dname,210).state
  972.     }
  973.  
  974.     var %c = $did($dname,181,0).sel
  975.     while (%c) {
  976.       writeini -n $+(",$_icq.dir,$_icq.a,\users.ini.tmp") $gettok($did($dname,502,$did($dname,181,%c).sel).text,2,1) MW $did($dname,184).state $did($dname,185).state $did($dname,186).state $did($dname,187).state $did($dname,188).state $did($dname,189).state $did($dname,190).state $did($dname,202).state $did($dname,207).state $did($dname,208).state $did($dname,209).state $did($dname,210).state
  977.       if (!$didwm($dname,600,$gettok($did($dname,502,$did($dname,181,%c).sel).text,2,1))) {
  978.         did -a $dname 600 $gettok($did($dname,502,$did($dname,181,%c).sel).text,2,1)
  979.       }
  980.       dec %c 
  981.  
  982.     }
  983.  
  984.     if ($did != 182) { return }
  985.   }
  986.  
  987.   if ($did == 181) {
  988.     var %r = $readini($+(",$_icq.dir,$_icq.a,\users.ini.tmp"),$gettok($did($dname,502,$did($dname,181).sel).text,2,1),MW)
  989.   }
  990.  
  991.   if ($did($dname,182).state) { 
  992.     var %r = $readini($+(",$_icq.dir,$_icq.a,\settings.ini.tmp"),account,MW)
  993.     did -u $dname 181 1 | did -b $dname 181 
  994.   }
  995.   if ($did($dname,183).state) { 
  996.     did -e $dname 181 
  997.     if ($did == 183) { did -c $dname 181 1 }
  998.     var %r = $readini($+(",$_icq.dir,$_icq.a,\users.ini.tmp"),$gettok($did($dname,502,$did($dname,181).sel).text,2,1),MW)
  999.   }
  1000.  
  1001.   var %uin = $gettok($did($dname,502,$did($dname,181,1).sel).text,2,1)
  1002.   did $iif($gettok(%r,1,32),-c,-u) $dname 184
  1003.   did $iif($gettok(%r,2,32),-c,-u) $dname 185
  1004.   did $iif($gettok(%r,3,32),-c,-u) $dname 186
  1005.   did $iif($gettok(%r,4,32),-c,-u) $dname 187
  1006.   did $iif($gettok(%r,5,32),-c,-u) $dname 188
  1007.   did $iif($gettok(%r,6,32),-c,-u) $dname 189
  1008.   did $iif($gettok(%r,7,32),-c,-u) $dname 190
  1009.   did $iif($gettok(%r,8,32),-c,-u) $dname 202
  1010.   did $iif($gettok(%r,9,32),-c,-u) $dname 207
  1011.   did $iif($gettok(%r,10,32),-c,-u) $dname 209
  1012.   did $iif($gettok(%r,11,32),-c,-u) $dname 208
  1013.   did $iif($gettok(%r,12,32),-c,-u) $dname 210
  1014.  
  1015.  
  1016.   if ($did == 182) { did -b $dname 202 }
  1017.   if ($did == 183) { did -e $dname 202 }
  1018. }
  1019.  
  1020. ; [PLUGIN MANAGER]
  1021. on *:dialog:_icq.settings:sclick:214,216,220,221,225,226,320:{
  1022.   if ($did == 214) { .url -n http://www.smarticq.com/ }
  1023.   if ($did == 226) { .url -n http://www.smarticq.com/cgi/read.php?txt=plugins.txt }
  1024.   if (($did == 220) || ($did == 320)) && (!$did($dname,216).seltext) { return }
  1025.  
  1026.   if ($did == 320) && ($did($dname,216).seltext)  { .reload -rs $+(",$$script($did($dname,516,$did($dname,216,1).sel).text),") }
  1027.  
  1028.   if ($did == 220) && ($did($dname,216).seltext) {
  1029.     .unload -rs $+(",$$script($did($dname,516,$did($dname,216,1).sel).text),")
  1030.     did -a $dname 521 $did($dname,516,$did($dname,216,1).sel).text
  1031.     did -a $dname 221 $did($dname,216,1).seltext
  1032.     did -d $dname 516 $did($dname,216,1).sel
  1033.     did -d $dname 216 $did($dname,216,1).sel
  1034.     _icq.createmenu
  1035.     ;_icq.menu_cl.init -startup | _icq.menu_icq.init
  1036.   }
  1037.   if ($did == 225) && (!$did($dname,221).seltext) { return }
  1038.   if ($did == 225) && ($did($dname,221).seltext) {
  1039.     .load -rs $+(",$did($dname,521,$did($dname,221,1).sel).text,")
  1040.     did -a $dname 516 $did($dname,521,$did($dname,221,1).sel).text
  1041.     did -a $dname 216 $did($dname,221,1).seltext
  1042.     did -d $dname 521 $did($dname,221,1).sel
  1043.     did -d $dname 221 $did($dname,221,1).sel
  1044.     _icq.createmenu
  1045.     ;    _icq.menu_cl.init -startup | _icq.menu_icq.init
  1046.   }
  1047.  
  1048.   if ($did == 216) || ($did == 225) || ($did == 220) {
  1049.     var %pfile = $did($dname,516,$did($dname,216).sel).text
  1050.     did -ra $dname 217 Name: $read(%pfile,s,;name)
  1051.     did -ra $dname 218 Author: $read(%pfile,s,;author)
  1052.     did -ra $dname 219 Version $read(%pfile,s,;version)
  1053.   }
  1054.   if ($did == 221) || ($did == 225) || ($did == 220) {
  1055.     var %pfile = $did($dname,521,$did($dname,221).sel).text
  1056.     did -ra $dname 224 Name: $read(%pfile,s,;name)
  1057.     did -ra $dname 223 Author: $read(%pfile,s,;author)
  1058.     did -ra $dname 222 Version $read(%pfile,s,;version)
  1059.   }
  1060. }
  1061.  
  1062. ; [VISIBLE/INVISIBLE]
  1063. on *:dialog:_icq.settings:sclick:233,234,235:{
  1064.   if ($did == 233) {
  1065.     if ($input(Enter UIN:,e,SmartICQ - Visible list) isnum) {
  1066.       writeini $+(",$_icq.dir,$_icq.a,\uin.ini") visible $ifmatch 1
  1067.       did -a $dname 231 $ifmatch
  1068.     }
  1069.   }
  1070.   if ($did == 234) { 
  1071.     remini $+(",$_icq.dir,$_icq.a,\uin.ini") visible $$did($dname,231).seltext 
  1072.     did -d $dname 231 $$did($dname,231).sel
  1073.   }
  1074.   if ($did == 235) { _icq.dlg_userdetails $$did($dname,231).seltext }
  1075. }
  1076.  
  1077. on *:dialog:_icq.settings:sclick:237,238,239:{
  1078.   if ($did == 237) {
  1079.     if ($input(Enter UIN:,e,SmartICQ - Invisible list) isnum) {
  1080.       writeini $+(",$_icq.dir,$_icq.a,\uin.ini") invisible $ifmatch 1
  1081.       did -a $dname 232 $ifmatch
  1082.     }
  1083.   }
  1084.   if ($did == 238) { 
  1085.     remini $+(",$_icq.dir,$_icq.a,\uin.ini") invisible $$did($dname,232).seltext 
  1086.     did -d $dname 232 $$did($dname,232).sel
  1087.   }
  1088.   if ($did == 239) { _icq.dlg_userdetails $$did($dname,232).seltext }
  1089. }
  1090.  
  1091. button "Add Contact", 233, 227 11 48 12, tab 227
  1092. button "Remove Contact", 234, 227 25 48 12, tab 227
  1093. button "User Details", 235, 227 39 48 12, tab 227
  1094.