home *** CD-ROM | disk | FTP | other *** search
/ napalm.napnet.hu / 2015-02-12.napalm.napnet.hu.tar / napalm.napnet.hu / programok / kommunikacio / mpp700.exe / dlg01.smarticq < prev    next >
Text File  |  2003-05-20  |  49KB  |  1,387 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_rsms                recived sms
  15. ; /_icq.dlg_history                system history
  16. ; /_icq.dlg_addaccount            add account
  17. ; /_icq.dlg_changeawaymsg            change away msg
  18. ; /_icq.dlg_passwd                enter password
  19. ; /_icq.dlg_wwwpager                wwwpager dialog
  20. ; /_icq.dlg_rename                rename contact dialog
  21. ; /_icq.dlg_registration             register new account
  22. ; /_icq.dlg_remfromcontact            remove user from contact list
  23. ; /_icq.dlg_add2contact            add user to contact list
  24. ; /_icq.dlg_useraddyou            "user added you"
  25. ; /_icq.dlg_reqauth                request authorization
  26. ; /_icq.dlg_userdetails            user details
  27. ; /_icq.dlg_sendsms                send sms
  28. ; /_icq.dlg_sendurl                send url
  29. ; /_icq.dlg_error                error
  30.  
  31. alias -l _hget { tokenize 32 $1- | return $hget($1,$2) }
  32.  
  33. ; _________________________________________________________________________________________________________
  34. ;
  35. ; new version
  36.  
  37. alias _icq.dlg_rsms { 
  38.   if ($dialog(_icq.rsms)) { dialog -v _icq.rsms }
  39.   else { set %_icq.pager $1 | set %_icq.pager.h $2 | dialog $+(-m,$iif($_icq.desktop,d)) _icq.rsms _icq.rsms }
  40. }
  41.  
  42. dialog -l _icq.rsms {
  43.   title "SmartICQ - SMS"
  44.   size -1 -1 133 121
  45.   option dbu
  46.   icon dat\flower.ico
  47.  
  48.   box "Received SMS" , 1, 1 2 129 100
  49.   button "Close" , 8, 93 106 37 12, cancel
  50.   text "From:" , 18, 20 14 13 8, right
  51.   text "Time:" , 19, 20 26 13 8, right
  52.   text "Message:" , 22, 8 40 25 8, right
  53.   edit "", 23, 35 13 90 10, read autohs
  54.   edit "", 24, 35 25 90 10, read autohs
  55.   edit "", 27, 35 39 90 58, read multi autovs
  56. }
  57.  
  58. on *:dialog:_icq.rsms:init:*:{
  59.   if (%_icq.pager.h != -history) { var %read = $readini($+(",$_icq.dir,$_icq.a,\system.ini"),sms,%_icq.pager) }
  60.   if (%_icq.pager.h == -history) { var %read = $readini($+(",$_icq.dir,$_icq.a,\history.ini"),sms,%_icq.pager) }
  61.   did -ra $dname 23 $gettok(%_icq.pager,1,254)
  62.   if (%_icq.pager.h == -history) { did -ra $dname 24 $asctime($gettok($gettok(%_icq.pager,2,254),1,33)) }
  63.   if (%_icq.pager.h != -history) { did -ra $dname 24 $asctime($gettok(%_icq.pager,2,254)) }
  64.   did -ra $dname 27 %read
  65.   if (%_icq.pager.h != -history) {
  66.     remini $+(",$_icq.dir,$_icq.a,\system.ini") sms %_icq.pager
  67.     writeini $+(",$_icq.dir,$_icq.a,\history.ini") sms $+(%_icq.pager,!,$ticks) %read
  68.   }
  69.   unset %_icq.pager
  70.   unset %_icq.pager.h
  71. }
  72.  
  73. ; _________________________________________________________________________________________________________
  74. ;
  75. ; new version
  76.  
  77. ;dialog _icq.dlg_newver {
  78. ;  title "SmartICQ - Info"
  79. ;  size -1 -1 119 46
  80. ;  option dbu
  81. ;  icon dat\flower.ico
  82.  
  83. ;  button "Button", 6, 48 78 37 12, hide cancel
  84. ;  text "A new version of SmartICQ has been released." , 7, 4 4 110 8
  85. ;  link "", 8, 22 17 80 8
  86. ;  button "Close" , 9, 76 30 37 12, ok
  87. ;  check "Do not open in the future" , 10, 10 30 37 12
  88. ;}
  89. ;on *:dialog:_icq.dlg_newver:init:*:{ did -a $dname 8 Download SmartICQ $+(v,$sock(_icq.checkver).mark) }
  90. ;on *:dialog:_icq.dlg_newver:sclick:8:{ .url -n http://icq.irctools.com/dl.html | dialog -x $dname }
  91.  
  92. ; _________________________________________________________________________________________________________
  93. ;
  94. ; system history
  95.  
  96. alias _icq.dlg_history { 
  97.   if ($dialog(_icq.history)) { dialog -v _icq.history }
  98.   else { dialog $+(-m,$iif($_icq.desktop,d)) _icq.history _icq.history }
  99. }
  100. dialog -l _icq.history {
  101.   title "SmartICQ - System History"
  102.   size -1 -1 160 116
  103.   option dbu
  104.   icon dat\flower.ico
  105.   button "Close" , 2, 120 102 37 12, cancel
  106.   tab "URL" , 9, 1 1 157 98
  107.   button "Remove" , 26, 48 84 37 12, tab 9
  108.   button "Show" , 27, 5 84 37 12, tab 9
  109.   list 28, 5 18 149 64, tab 9 size
  110.   tab "Requests" , 10
  111.   button "Remove" , 23, 48 84 37 12, tab 10
  112.   button "Show" , 24, 5 84 37 12, tab 10
  113.   list 25, 5 18 149 64, tab 10 size
  114.   tab "Added You" , 11
  115.   button "Remove" , 20, 48 84 37 12, tab 11
  116.   button "Show" , 21, 5 84 37 12, tab 11
  117.   list 22, 5 18 149 64, tab 11 size
  118.   tab "Pager" , 12
  119.   button "Remove" , 17, 48 84 37 12, tab 12
  120.   button "Show" , 18, 5 84 37 12, tab 12
  121.   list 19, 5 18 149 64, tab 12 size
  122.   tab "SMS" , 13
  123.   list 14, 5 18 149 64, tab 13 size
  124.   button "Remove" , 15, 48 84 37 12, tab 13
  125.   button "Show" , 16, 5 84 37 12, tab 13
  126.  
  127.   list 114,0 0 0 0, hide
  128.   list 119,0 0 0 0, hide
  129.   list 122,0 0 0 0, hide
  130.   list 125,0 0 0 0, hide
  131.   list 128,0 0 0 0, hide
  132. }
  133.  
  134. on *:dialog:_icq.history:dclick:14,19,22,25,28:{
  135.   if ($did == 14) { _icq.dlg_rsms $$did($dname,114,$did($dname,14).sel).text -history }
  136.   if ($did == 19) { _icq.dlg_wwwpager $$did($dname,119,$did($dname,19).sel).text -history }
  137.   if ($did == 22) { _icq.dlg_useraddyou $$did($dname,122,$did($dname,22).sel).text -history }
  138.   if ($did == 25) { _icq.dlg_reqauth $$did($dname,125,$did($dname,25).sel).text -history }
  139.   if ($did == 28) { _icq.dlg_recvurl $$did($dname,128,$did($dname,28).sel).text -history }
  140. } 
  141. on *:dialog:_icq.history:sclick:15,16,17,18,20,21,23,24,26,27:{
  142.   if ($did == 27) { _icq.dlg_recvurl $$did($dname,128,$did($dname,28).sel).text -history }
  143.   if ($did == 24) { _icq.dlg_reqauth $$did($dname,125,$did($dname,25).sel).text -history }
  144.   if ($did == 21) { _icq.dlg_useraddyou $$did($dname,122,$did($dname,22).sel).text -history }
  145.   if ($did == 18) { _icq.dlg_wwwpager $$did($dname,119,$did($dname,19).sel).text -history }
  146.   if ($did == 16) { _icq.dlg_rsms $$did($dname,114,$did($dname,14).sel).text -history }
  147.   if ($did == 26) { remini $+(",$_icq.dir,$_icq.a,\history.ini") url $$did($dname,128,$did($dname,28).sel).text | did -d $dname 28,128 $did($dname,28).sel }
  148.   if ($did == 23) { remini $+(",$_icq.dir,$_icq.a,\history.ini") rqst $$did($dname,125,$did($dname,25).sel).text | did -d $dname 25,125 $did($dname,25).sel }
  149.   if ($did == 20) { remini $+(",$_icq.dir,$_icq.a,\history.ini") addedyou $$did($dname,122,$did($dname,22).sel).text | did -d $dname 22,122 $did($dname,22).sel }
  150.   if ($did == 17) { remini $+(",$_icq.dir,$_icq.a,\history.ini") pager $$did($dname,119,$did($dname,19).sel).text | did -d $dname 19,119 $did($dname,19).sel }
  151.   if ($did == 15) { remini $+(",$_icq.dir,$_icq.a,\history.ini") sms $$did($dname,114,$did($dname,14).sel).text | did -d $dname 14,114 $did($dname,14).sel }
  152. }
  153. on *:dialog:_icq.history:init:*:{
  154.   var %file = $+(",$_icq.dir,$_icq.a,\history.ini"), %c = $ini(%file,url,0)
  155.   while (%c) {
  156.     var %ini = $gettok($ini(%file,url,%c),1,254)
  157.     did -a $dname 28 $gettok($gettok($readini(%file,url,$ini(%file,url,%c)),2,254),1,32) from $_icq.g(%ini,SHOW,$ini(%file,url,%c))
  158.     did -a $dname 128 $ini(%file,url,%c)
  159.     dec %c 
  160.   }
  161.   var %c = $ini(%file,rqst,0)
  162.   while (%c) {
  163.     var %ini = $ini(%file,rqst,%c)
  164.     did -a $dname 25 $_icq.g(%ini,SHOW,%ini)
  165.     did -a $dname 125 %ini
  166.     dec %c 
  167.   }
  168.   var %c = $ini(%file,addedyou,0)
  169.   while (%c) {
  170.     var %ini = $ini(%file,addedyou,%c)
  171.     did -a $dname 22 $_icq.g(%ini,SHOW,%ini) added you
  172.     did -a $dname 122 $ini(%file,addedyou,%c)
  173.     dec %c 
  174.   }
  175.  
  176.   var %c = $ini(%file,pager,0)
  177.   while (%c) {
  178.     var %ini = $ini(%file,pager,%c)
  179.     var %read = $readini(%file,pager,$ini(%file,pager,%c))
  180.     did -a $dname 19 $gettok(%ini,1,254) paged you ( $+ $gettok($gettok(%read,-2,254),2-,32) $+ )
  181.     did -a $dname 119 $ini(%file,pager,%c)
  182.     dec %c 
  183.   }
  184.  
  185.   var %c = $ini(%file,sms,0)
  186.   while (%c) {
  187.     var %ini = $ini(%file,sms,%c)
  188.     var %read = $readini(%file,pager,$ini(%file,sms,%c))
  189.     did -a $dname 14 $gettok(%ini,1,254) sent sms 
  190.     did -a $dname 114 $ini(%file,sms,%c)
  191.     dec %c 
  192.   }
  193. }
  194.  
  195.  
  196.  
  197. ; _________________________________________________________________________________________________________
  198. ;
  199. ; add account
  200.  
  201. alias _icq.dlg_addaccount {
  202.   if ($dialog(_icq.addaccount)) { dialog -v _icq.addaccount }
  203.   else { dialog $+(-m,$iif($_icq.desktop,d)) _icq.addaccount _icq.addaccount }
  204. }
  205.  
  206. dialog -l _icq.addaccount {
  207.   title "SmartICQ"
  208.   size -1 -1 106 99
  209.   option dbu
  210.   icon dat\flower.ico
  211.   button "Cancel" , 4, 26 84 37 12, cancel
  212.   button "Add" , 5, 67 84 37 12
  213.   box "Add Account" , 10, 1 3 103 77
  214.   text "UIN" , 13, 5 16 30 8, right
  215.   edit "", 14, 38 15 60 10, autohs 
  216.   text "Password" , 15, 5 29 30 8, right
  217.   edit "", 16, 38 28 60 10, pass autohs
  218.   text "Nickname" , 17, 5 42 30 8, right
  219.   edit "", 18, 38 41 60 10, autohs
  220.   text "E-Mail" , 19, 5 54 30 8, right
  221.   edit "", 20, 38 53 60 10, autohs
  222.   check "Save password" , 22, 38 66 50 10
  223. }
  224.  
  225. on *:dialog:_icq.addaccount:init:*:{
  226.   did -f $dname 14
  227. }
  228.  
  229. on *:dialog:_icq.addaccount:sclick:5:{
  230.   if ($did == 5) {
  231.     if ($did($dname,14).text !isnum) { did -rf $dname 14 | return }
  232.     if ($did($dname,16).text == $null) { did -f $dname 16 | return }
  233.     if ($did($dname,18).text == $null) { did -f $dname 18 | return }
  234.  
  235.     if ($did($dname,22).state) { var %duh = $_icq.createnewaccount($did($dname,14).text,$did($dname,18).text,$did($dname,16).text) }
  236.     if (!$did($dname,22).state) { var %duh = $_icq.createnewaccount($did($dname,14).text,$did($dname,18).text) }
  237.  
  238.     var %file = $+(",$_icq.dir,$did($dname,14).text,\settings.ini")
  239.     writeini %file account NEWADDED 1
  240.     writeini %file account e-mail $$did($dname,20).text
  241.     did -a $$dialog(_icq.am) 1 $did($dname,14).text $did($dname,18).text
  242.     dialog -x $dname
  243.   }
  244. }
  245.  
  246. ; _________________________________________________________________________________________________________
  247. ;
  248. ; change away message
  249.  
  250. alias _icq.dlg_changeawaymsg {
  251.   if ($2 == off) && ($readini($+(",$_icq.dir,$_icq.a,\settings.ini"),settings,changeawaymsg)) { return }
  252.   if ($2 == on) { .disable #_icq.shift }
  253.  
  254.   if ($dialog(%dialog)) { dialog -v $+(_icq.changeawaymsg.,$1) }
  255.   else { dialog $+(-m,$iif($_icq.desktop,d)) $+(_icq.changeawaymsg.,$1) _icq.changeawaymsg }
  256. }
  257.  
  258. dialog -l _icq.changeawaymsg {
  259.   title "Change/Confirm Away Message"
  260.   size -1 -1 112 97
  261.   option dbu
  262.   icon dat\flower.ico
  263.   edit "", 1, 1 20 110 34, multi return autovs vsbar
  264.   text "This message will be displayed when you are" , 2, 2 3 107 8
  265.   text "marked as" , 3, 2 11 107 8
  266.   button "Ok", 4, 64 84 47 12, ok
  267.   check "Do not popup this dialog again" , 5, 10 56 87 10
  268.   text "Hold down Shift and click to override" , 6, 10 66 87 8
  269.   text "this setting in the future" , 7, 10 74 55 8
  270.   button "", 100, 0 0 0 0, cancel
  271. }
  272.  
  273. on *:dialog:_icq.changeawaymsg.*:init:*:{
  274.   did -a $dname 3 marked as $+('',$gettok($dname,3,46),''.)
  275.   dialog -t $dname Change/Confirm $gettok($dname,3,46) __LANG=cam.8
  276.   did -ra $dname 1 $readini($+(",$_icq.dir,\,$_icq.a,\settings.ini"),settings,$+(msg.,$gettok($dname,3,46)))
  277.   if ($readini($+(",$_icq.dir,$_icq.a,\settings.ini"),settings,changeawaymsg)) { did -c $dname 5 }
  278.   did -c $dname 1 1 1 $did($dname,1).len
  279.   did -ra $dname 4 Closing in 5
  280.  
  281.   .timer_icq.changeawaymsg1 5 1 did -ra $dname 4 Closing in $!timer(_icq.changeawaymsg1).reps
  282.   .timer_icq.changeawaymsg2 1 6 dialog -k $dname
  283. }
  284.  
  285. on *:dialog:_icq.changeawaymsg.*:edit:1:{
  286.   if ($did($dname,4).text != Ok) { 
  287.     .timer_icq.changeawaymsg1 off
  288.     .timer_icq.changeawaymsg2 off
  289.     did -ra $dname 4 Ok 
  290.   }
  291. }
  292. on *:dialog:_icq.changeawaymsg.*:sclick:4,5,100:{
  293.   if ($did == 100) {
  294.     .timer_icq.changeawaymsg1 off
  295.     .timer_icq.changeawaymsg2 off
  296.   }
  297.   if ($did == 4) {
  298.     .timer_icq.changeawaymsg1 off
  299.     .timer_icq.changeawaymsg2 off
  300.     var %c = 1, %t
  301.     while (%c <= $did($dname,1).lines) {
  302.       if (%t) { %t = $+(%t,$crlf) }
  303.       %t = $+(%t,$did($dname,1,%c).text)
  304.       inc %c
  305.     }
  306.     if (%t != $null) { 
  307.       writeini $+(",$_icq.dir,$_icq.a,\settings.ini") settings $+(MSG.,$gettok($dname,3,46)) %t 
  308.       _icq.dll setawaymsg %t
  309.     }
  310.     else { remini $+(",$_icq.dir,$_icq.a,\settings.ini") settings $+(MSG.,$gettok($dname,3,46)) }
  311.  
  312.   }
  313.   if ($did == 5) {
  314.     writeini $+(",$_icq.dir,$_icq.a,\settings.ini") settings changeawaymsg $did($dname,5).state
  315.   }
  316. }
  317.  
  318.  
  319. ; _________________________________________________________________________________________________________
  320. ;
  321. ; enter password
  322.  
  323. alias _icq.dlg_passwd {
  324.   if ($dialog(_icq.passwd)) { dialog -v _icq.passwd }
  325.   else { dialog $+(-m,$iif($_icq.desktop,d)) _icq.passwd _icq.passwd }
  326. }
  327.  
  328.  
  329. dialog -l _icq.passwd {
  330.   title "SmartICQ - LOGIN"
  331.   size -1 -1 93 55
  332.   option dbu
  333.   icon dat\flower.ico
  334.   edit "", 1, 8 14 79 10, pass autohs result
  335.   check "Save password", 2, 9 26 50 10
  336.   box "Password", 3, 1 2 91 37
  337.   button "Cancel", 4, 15 42 37 12, cancel
  338.   button "Ok", 5, 56 42 37 12, ok disable
  339. }
  340. on *:dialog:_icq.passwd:edit:1:{
  341.   if ($did($dname,1).text != $null) { did -e $dname 5 }
  342.   else { did -b $dname 5 }
  343. }
  344.  
  345. on *:dialog:_icq.passwd:sclick:5:{
  346.   if ($did($dname,2).state) {
  347.     writeini $+(",$_icq.dir,$_icq.a,\settings.ini") account passwd $_icq.passwd2($did($dname,1).text)
  348.   }
  349. }
  350.  
  351. ; _________________________________________________________________________________________________________
  352. ;
  353. ; wwwpager dialog
  354.  
  355. alias _icq.dlg_wwwpager {
  356.   if ($dialog(_icq.wwwpager)) { dialog -v _icq.wwwpager }
  357.   else { set %_icq.pager $1 | set %_icq.pager.h $2 | dialog $+(-m,$iif($_icq.desktop,d)) _icq.wwwpager _icq.wwwpager }
  358. }
  359.  
  360. dialog -l _icq.wwwpager {
  361.   title "SmartICQ - Web Pager"
  362.   size -1 -1 133 141
  363.   option dbu
  364.   icon dat\flower.ico
  365.   box "Recived Web Pager Message" , 1, 1 2 129 121
  366.   button "Close" , 8, 93 126 37 12, cancel
  367.   text "Name:" , 18, 8 14 25 8, right
  368.   text "E-Mail:" , 19, 8 26 25 8, right
  369.   text "IP:" , 20, 8 38 25 8, right
  370.   text "Subject:" , 21, 8 50 25 8, right
  371.   text "Message:" , 22, 8 62 25 8, right
  372.   edit "", 23, 35 13 90 10, read autohs
  373.   edit "", 24, 35 25 90 10, read autohs
  374.   edit "", 25, 35 37 90 10, read autohs
  375.   edit "", 26, 35 49 90 10, read autohs
  376.   edit "", 27, 35 61 90 58, read multi autovs
  377. }
  378.  
  379. on *:dialog:_icq.wwwpager:init:*:{
  380.   if (%_icq.pager.h != -history) { var %read = $readini($+(",$_icq.dir,$_icq.a,\system.ini"),pager,%_icq.pager) }
  381.   if (%_icq.pager.h == -history) { var %read = $readini($+(",$_icq.dir,$_icq.a,\history.ini"),pager,%_icq.pager) }
  382.   did -ra $dname 23 $gettok(%read,1,254)
  383.   did -ra $dname 24 $gettok(%read,4,254)
  384.   did -ra $dname 25 $gettok($gettok(%read,6,254),3,32)
  385.   did -ra $dname 26 $gettok($gettok(%read,7,254),2-,32)
  386.   did -ra $dname 27 $gettok(%read,8,254)
  387.   if (%_icq.pager.h != -history) {
  388.     remini $+(",$_icq.dir,$_icq.a,\system.ini") pager %_icq.pager
  389.     writeini $+(",$_icq.dir,$_icq.a,\history.ini") pager $+(%_icq.pager,$ticks) %read
  390.   }
  391.   unset %_icq.pager
  392.   unset %_icq.pager.h
  393. }
  394.  
  395. ; _________________________________________________________________________________________________________
  396. ;
  397. ; rename dialog
  398.  
  399. alias _icq.dlg_rename {
  400.   if ($dialog(_icq.rename)) { dialog -v _icq.rename }
  401.   else {
  402.     set %_icq.dlg_rename.uin $1
  403.     dialog $+(-m,$iif($_icq.desktop,d)) _icq.rename _icq.rename
  404.   }
  405. }
  406.  
  407.  
  408. dialog -l _icq.rename {
  409.   title "SmartICQ"
  410.   size -1 -1 113 73
  411.   option dbu
  412.   icon dat\flower.ico
  413.   button "Rename" , 5, 75 60 37 12, default
  414.   button "Close" , 4, 33 60 37 12, cancel
  415.   box "Rename User On Contact List" , 10, 1 3 111 54
  416.   text "Contact:" , 13, 7 15 24 8, right
  417.   combo 14, 34 14 72 100, size drop
  418.   text "New name:" , 16, 4 42 27 8, right
  419.   edit "", 17, 33 29 73 10, read autohs
  420.   edit "", 18, 33 41 73 10, autohs
  421.   text "old Name:" , 19, 4 30 27 8, right
  422.   edit "", 20, 0 0 0 0, hide
  423.   combo 21,  0 0 0 0, hide
  424. }
  425.  
  426. on *:dialog:_icq.rename:init:*:{
  427.   did -a $dname 20 %_icq.dlg_rename.uin
  428.   unset %_icq.dlg_rename.uin
  429.  
  430.   var %c = $line(@smarticq-gui,0,1)
  431.   while (%c) {
  432.     did -a $dname 14 $gettok($line(@smarticq-gui,%c,1),2,1)
  433.     did -a $dname 21 $gettok($line(@smarticq-gui,%c,1),2-3,1)
  434.     if ($gettok($line(@smarticq-gui,%c,1),3,1) == $did($dname,20).text) { did -c $dname 14 $did($dname,14).lines }
  435.     dec %c
  436.   }
  437.  
  438.   did -a $dname 17 $_icq.g($did($dname,20).text,show)
  439.   did -f $dname 18
  440. }
  441.  
  442. on *:dialog:_icq.rename:sclick:5:{
  443.   if ($did($dname,18).text) {
  444.     .signal -n smarticq.contact rename $did($dname,20).text
  445.     var %wc = $+(*,$chr(1),$did($dname,20).text,$chr(1),*)
  446.     rline -l @smarticq-gui $fline(@smarticq-gui,%wc,1,1),1) $puttok($line(@smarticq-gui,$fline(@smarticq-gui,%wc,1,1),1),$did($dname,18).text,2,1)
  447.     rline -l @smarticq-group $$fline(@smarticq-group,%wc,1,1),1) $puttok($line(@smarticq-group,$fline(@smarticq-group,%wc,1,1),1),$did($dname,18).text,2,1)
  448.     _icq.adduserinfo $did($dname,20).text SHOW $did($dname,18,0).text
  449.     _icq.drw_cl $hget(smarticq,scroll)
  450.     dialog -x $dname
  451.   }
  452. }
  453.  
  454. ; _________________________________________________________________________________________________________
  455. ;
  456. ; phone book
  457.  
  458. alias _icq.dlg_phonebook {
  459.   if ($dialog(_icq.phonebook)) { dialog -v _icq.phonebook }
  460.   else {
  461.     set %_icq.dlg_phonebook.uin $1
  462.     dialog $+(-m,$iif($_icq.desktop,d)) _icq.phonebook _icq.phonebook
  463.   }
  464. }
  465.  
  466. dialog -l _icq.phonebook {
  467.   title "SmartICQ - Phonebook"
  468.   size -1 -1 159 79
  469.   option dbu
  470.   icon dat\flower.ico
  471.   button "Save" , 4, 73 65 37 12
  472.   button "Close" , 5, 118 65 37 12, cancel
  473.   list 13, 1 2 66 75, size sort
  474.   text "UIN:" , 14, 70 5 15 8
  475.   text "Phone:" , 15, 70 18 17 8
  476.   text "" 16, 70 30 19 8
  477.   text "Fax:" , 17, 70 42 10 8
  478.   edit "", 18, 94 4 61 10, read autohs center
  479.   edit "", 19, 94 17 61 10, autohs
  480.   edit "", 20, 94 29 61 10, autohs
  481.   edit "", 21, 94 41 61 10, autohs
  482.   list 22, 0 0 0 0, hide sort
  483. }
  484.  
  485. on *:dialog:_icq.phonebook:init:*:{
  486.   var %c = $line(@smarticq-group,0)
  487.   while (%c) {
  488.     if ($gettok($line(@smarticq-group,%c),3,1) isnum) {
  489.       did -a $dname 13 $gettok($line(@smarticq-group,%c),2,1)
  490.       did -a $dname 22 $gettok($line(@smarticq-group,%c),2-3,1)
  491.     }
  492.     dec %c
  493.   }
  494. }
  495.  
  496. on *:dialog:_icq.phonebook:sclick:4,5,13:{
  497.   if ($did == 4) {
  498.     _icq.adduserinfo $did($dname,18).text phone $did($dname,19).text
  499.     _icq.adduserinfo $did($dname,18).text cellular $did($dname,20).text
  500.     _icq.adduserinfo $did($dname,18).text fax $did($dname,21).text
  501.   }
  502.   if ($did == 5) {
  503.     if ($dialog(_icq.sendsms)) { did -ra _icq.sendsms 3 $did($dname,20).text }
  504.   }
  505.   if ($did == 13) {
  506.     var %uin = $gettok($did($dname,22,$did($dname,13).sel).text,2,1)
  507.     did -ra $dname 18 %uin
  508.     did -ra $dname 19 $_icq.g(%uin,phone)
  509.     did -ra $dname 20 $remove($_icq.g(%uin,cellular),sms)
  510.     did -ra $dname 21 $_icq.g(%uin,fax)
  511.   }
  512. }
  513.  
  514. ; _________________________________________________________________________________________________________
  515. ;
  516. ; reqister account
  517.  
  518. alias _icq.dlg_registration { 
  519.   if ($dialog(_icq.reistration)) { dialog -v _icq.registration }
  520.   else { dialog $+(-m,$iif($_icq.desktop,d)) _icq.registration _icq.registration }
  521. }
  522. dialog -l _icq.registration {
  523.   title "SmartICQ - Registration"
  524.   size -1 -1 156 145
  525.   option dbu
  526.   icon dat\flower.ico
  527.   text "First Name:" , 4, 10 13 30 8, right
  528.   text "Last Name:" , 5, 10 25 30 8, right
  529.   text "Nickname:" , 6, 10 37 30 8, right
  530.   text "E-Mail:" , 7, 10 49 30 8, right
  531.   text "Password:" , 8, 10 93 45 8, right
  532.   text "Re-Type Password:" , 9, 6 105 49 8, right
  533.   box "Details" , 10, 4 4 148 63
  534.   box "Password" , 11, 4 71 148 57
  535.   edit "", 12, 42 12 100 10, autohs
  536.   edit "", 13, 42 24 100 10, autohs
  537.   edit "", 14, 42 36 100 10, autohs
  538.   edit "", 15, 42 48 100 10, autohs
  539.   text "Select your ICQ password" , 16, 9 79 61 8
  540.   edit "", 17, 58 92 65 10, pass autohs
  541.   edit "", 18, 58 104 65 10, pass autohs
  542.   button "Create New Account" , 19, 55 131 56 12, default
  543.   button "Cancel" , 20, 115 131 37 12, cancel
  544.   check "Save password" , 21, 58 116 65 10
  545. }
  546.  
  547. on *:dialog:_icq.registration:sclick:19:{
  548.   var %error
  549.   if ($len($did($dname,17).text) < 4) { %error = 1 password to short }
  550.   if ($len($did($dname,17).text) > 16) { %error = 1 password to long }
  551.   if ($did($dname,17).text != $did($dname,18).text) { %error = 1 password don't match }
  552.   if (!$did($dname,18).text) { %error = 1 password don't match }
  553.   if (!$did($dname,17).text) { %error = 1 password don't match }
  554.   if (!$did($dname,15).text) { %error = 1 you must supply your e-mail }
  555.   if (!$did($dname,14).text) { %error = 1 you must supply your nick name }
  556.   if (!$did($dname,13).text) { %error = 1 you must supply your last tname }
  557.   if (!$did($dname,12).text) { %error = 1 you must supply your first tname }
  558.  
  559.   if (%error) { 
  560.     _icq.debug -a ERROR $gettok(%error,2-,32) 
  561.     var %d = $input($gettok(%error,2-,32),260,- SmartICQ)
  562.     return
  563.   }
  564.   dialog $+(-m,$iif($_icq.desktop,d)) _icq.newaccount _icq.newaccount
  565.   did -a _icq.newaccount 100 $did($dname,12).text
  566.   did -a _icq.newaccount 101 $did($dname,13).text
  567.   did -a _icq.newaccount 102 $did($dname,14).text
  568.   did -a _icq.newaccount 103 $did($dname,15).text
  569.   if ($did($dname,21).state) { did -c _icq.newaccount 104 }
  570.   _icq.dll register $did($dname,17).text
  571.   _icq.debug -st aa $sock(icq-new).mark
  572.   dialog -x $dname
  573. }
  574.  
  575.  
  576. dialog _icq.newaccount {
  577.   title "SmartICQ - New Account"
  578.   size -1 -1 127 56
  579.   option dbu
  580.   icon dat\flower.ico
  581.   text "Creating new account..." , 1, 3 5 57 8
  582.   button "Close" , 2, 87 41 37 12, cancel
  583.   box "Status" , 3, 3 15 122 21
  584.   text "Connecting to server..." , 4, 7 24 100 8
  585.   text "UIN:" , 5, 17 38 65 8
  586.   text "Password:" , 6, 4 47 78 8
  587.  
  588.   edit "", 100, 0 0 0 0, hide
  589.   edit "", 101, 0 0 0 0, hide
  590.   edit "", 102, 0 0 0 0, hide
  591.   edit "", 103, 0 0 0 0, hide
  592.   check "", 104, 0 0 0 0, hide
  593. }
  594. on *:dialog:_icq.newaccount:sclick:2:{ sockclose icq-new }
  595.  
  596. ; _________________________________________________________________________________________________________
  597. ;
  598. ; remove user from contact list
  599.  
  600. alias _icq.dlg_remfromcontact {
  601.   if ($dialog(_icq.remfromcontact)) { dialog -v _icq.remfromcontact }
  602.   else {
  603.     set %_icq.dlg_remfromcontact.uin $1
  604.     dialog $+(-m,$iif($_icq.desktop,d)) _icq.remfromcontact _icq.remfromcontact
  605.   }
  606. }
  607.  
  608. dialog -l _icq.remfromcontact {
  609.   title "SmartICQ"
  610.   size -1 -1 113 73
  611.   option dbu
  612.   icon dat\flower.ico
  613.   button "Close" , 4, 33 60 37 12, cancel
  614.   button "Remove" , 5, 75 60 37 12
  615.   box "Remove User From Contact List" , 10, 1 3 111 54
  616.   text "User:" , 13, 4 15 26 8,right
  617.   combo 14, 34 14 72 100, size drop
  618.   text "UIN:" , 15, 4 30 26 8, right
  619.   text "Name:" , 16, 4 42 26 8, right
  620.   edit "", 17, 33 29 73 10, read autohs
  621.   edit "", 18, 33 41 73 10, read autohs
  622.   edit "", 19, 0 0 0 0, hide
  623.   combo 20, 0 0 0 0, hide 
  624. }
  625.  
  626. on *:dialog:_icq.remfromcontact:init:*:{
  627.   did -a $dname 19 %_icq.dlg_remfromcontact.uin
  628.   unset %_icq.dlg_remfromcontact.uin
  629.  
  630.   var %c = $line(@smarticq-gui,0,1)
  631.   while (%c) {
  632.     did -a $dname 14 $gettok($line(@smarticq-gui,%c,1),2,1)
  633.     did -a $dname 20 $gettok($line(@smarticq-gui,%c,1),2-3,1)
  634.     if ($gettok($line(@smarticq-gui,%c,1),3,1) == $did($dname,19).text) { did -c $dname 14 $did($dname,14).lines }
  635.     dec %c
  636.   }
  637.  
  638.   var %uin = $did($dname,19).text
  639.   var %myuin = $_icq.a
  640.   var %fname = $_icq.g(%uin,fname)
  641.   var %lname = $_icq.g(%uin,lname)
  642.   var %nick = $_icq.g(%uin,nick)
  643.   did -a $dname 17 %uin
  644.   did -a $dname 18 %fname %lname
  645. }
  646.  
  647. on *:dialog:_icq.remfromcontact:sclick:5,14:{
  648.   if ($did == 5) {
  649.     var %uin = $gettok($did($dname,20,$did($dname,14).sel).text,2,1)
  650.     .signal smarticq.contact remove %uin
  651.     hadd smarticq $+(remove.,%uin) $_icq.statusuin(%uin)
  652.     var %wc = $+(*,$chr(1),%uin,$chr(1),*)
  653.     dline -l @smarticq-gui $fline(@smarticq-gui,%wc,1,1)
  654.     dline -l @smarticq-group $fline(@smarticq-group,%wc,1,1)
  655.     remini $+(",$_icq.dir,$_icq.a,\uin.ini") contacts %uin
  656.     remini $+(",$_icq.dir,$_icq.a,\users.ini") %uin
  657.     did -d $dname 14,20 $did($dname,14).sel
  658.     did -c $dname 14,20 1
  659.     hadd smarticq sel 2
  660.  
  661.     if (!$fline(@smarticq-gui,xx*,0,1)) && ($fline(@smarticq-gui,xa*,0,1)) { dline -l @smarticq-gui $fline(@smarticq-gui,xa*,1,1) }
  662.     if (!$fline(@smarticq-gui,dd*,0,1)) && ($fline(@smarticq-gui,da*,0,1)) { dline -l @smarticq-gui $fline(@smarticq-gui,da*,1,1) }
  663.     if (!$fline(@smarticq-gui,uu*,0,1)) && ($fline(@smarticq-gui,ua*,0,1)) { dline -l @smarticq-gui $fline(@smarticq-gui,ua*,1,1) }
  664.     while ($gettok($line(@smarticq-gui,$hget(smarticq,sel),1),3,1) == line) { hadd smarticq sel $calc($hget(smarticq,sel) +1) }
  665.     _icq.drw_cl $hget(smarticq,scroll)
  666.     _icq.remuin %uin
  667.   }
  668.   var %uin = $gettok($did($dname,20,$did($dname,14).sel).text,2,1)
  669.   var %myuin = $_icq.a
  670.   var %fname = $_icq.g(%uin,fname)
  671.   var %lname = $_icq.g(%uin,lname)
  672.   var %nick = $_icq.g(%uin,nick)
  673.   did -ra $dname 17 %uin
  674.   did -ra $dname 18 %fname %lname
  675.   did -c $dname 20 $did($dname,14).sel
  676.   if ($did == 5) { dialog -x $dname }
  677. }
  678.  
  679. ; _________________________________________________________________________________________________________
  680. ;
  681. ; add user to contact list
  682.  
  683. alias _icq.dlg_add2contact {
  684.   if ($dialog(_icq.add2contact)) { dialog -v _icq.add2contact }
  685.   else {
  686.     set %_icq.dlg_add2contact.uin $1
  687.     dialog $+(-m,$iif($_icq.desktop,d)) _icq.add2contact _icq.add2contact
  688.   }
  689. }
  690.  
  691. dialog -l _icq.add2contact {
  692.   title "SmartICQ"
  693.   size -1 -1 107 90
  694.   option dbu
  695.   icon dat\flower.ico
  696.   button "Cancel" , 4, 28 76 37 12, cancel
  697.   button "Ok" , 5, 69 76 37 12
  698.   text "UIN:" , 8, 5 20 15 8
  699.   box "Add User To Contact List" , 10, 1 3 105 70
  700.   text "Show as:" , 11, 5 33 25 8
  701.   combo 12, 31 32 71 100, size edit drop
  702.   edit "", 13, 31 18 71 10, autohs
  703.   check "Don't tell user about it" , 14, 30 61 67 10
  704.   combo 15, 31 46 71 100, size drop
  705.   text "Group:" , 16, 5 47 21 8
  706.  
  707.   button "i", 50, 1 76 12 12
  708. }
  709.  
  710. alias -l _icq.dlg_add2contact.update {
  711.   var %uin = $did($1,13).text
  712.   var %myuin = $_icq.a
  713.   var %show = $_icq.g(%uin,show)
  714.   var %fname = $_icq.g(%uin,fname)
  715.   var %lname = $_icq.g(%uin,lname)
  716.   var %nick = $_icq.g(%uin,nick)
  717.   var %email = $_icq.g(%uin,e-mail)
  718.  
  719.   did -r $dname 12
  720.   if (%show) { did -i $1 12 0 %show }
  721.   if (!%show) { did -i $1 12 0 %uin }
  722.   if (%nick) { did -a $1 12 %nick }
  723.   if (%fname) && (%nick != %fname) && (%fname != %lname) { did -a $1 12 %fname }
  724.   if (%lname) && (%nick != %lname) { did -a $1 12 %lname }
  725.   if (%fname) && (%lname) { did -a $1 12 %fname %lname | did -a $1 12 %lname $+ , %fname }
  726.   if (%uin) { did -a $1 12 %uin }
  727.   var %wc = $+(*,$chr(1),$did($dname,13).text,$chr(1),*)
  728.   var %d = $gettok($line(@smarticq-group,$fline(@smarticq-group,%wc,1,1),1),4,1)
  729.   if (%d == $null) || (%d == unknown) { did -e $dname 5 }
  730.   else { did -b $dname 5 }
  731. }
  732.  
  733. on *:dialog:_icq.add2contact:init:*:{
  734.   did -a $dname 13 %_icq.dlg_add2contact.uin
  735.   unset %_icq.dlg_add2contact.uin
  736.   var %c = 1
  737.   while (%c < 10) {
  738.     did -a $dname 15 $_icq.group.name(%c)
  739.     inc %c
  740.   }
  741.   if ($hget(smarticq,group) > 0) { did -c $dname 15 $hget(smarticq,group) }
  742.   else { did -c $dname 15 1 }
  743.  
  744.   did -f $dname 13
  745.   if ($did($dname,13).text !isnum) { did -r $dname 13 | did -b $dname 5 | return }
  746.   _icq.dlg_add2contact.update $dname 
  747. }
  748.  
  749. on *:dialog:_icq.add2contact:edit:13:{ 
  750.   if ($did($dname,13).text !isnum) { did -ra $dname 13 $left($did($dname,13).text,-1) | did -b $dname 5 }
  751.   if ($did($dname,13).text  == $null) { return }
  752.   if ($did($dname,13).text isnum) { did -e $dname 5 }
  753.   _icq.dlg_add2contact.update $dname 
  754. }
  755.  
  756. on *:dialog:_icq.add2contact:sclick:5:{
  757.   _icq.adduinto_cl $did($dname,13).text 1 $xor($did($dname,14).state,1) 1 $did($dname,15).sel 1 $did($dname,12).text
  758.   did -f $dname 13
  759.   dialog -x $dname
  760. }
  761.  
  762. on *:dialog:_icq.add2contact:sclick:50:{
  763.   _icq.dlg_userdetails $$did($dname,13).text
  764. }
  765.  
  766. ; _________________________________________________________________________________________________________
  767. ;
  768. ; "user added you"
  769.  
  770. alias _icq.dlg_useraddyou { 
  771.   if ($dialog(_icq.useraddyou)) { dialog -v _icq.useraddyou }
  772.   else { set %_icq.useraddyou $1 | set %_icq.useraddedyou.h $2 | dialog $+(-m,$iif($_icq.desktop,d)) _icq.useraddyou _icq.useraddyou }
  773. }
  774.  
  775. dialog -l _icq.useraddyou {
  776.   title "SmartICQ - Added You"
  777.   size -1 -1 133 111
  778.   option dbu
  779.   icon dat\flower.ico
  780.   button "Close" , 1, 93 95 37 12, ok
  781.   box "User Added You" , 2, 2 2 128 89
  782.   edit "", 3, 35 11 91 10, read autohs
  783.   edit "", 4, 35 22 91 10, read autohs
  784.   text "UIN:" , 5, 6 12 11 8
  785.   text "Nickname:" , 6, 6 23 26 8
  786.   text "Real name:" , 7, 6 34 28 8
  787.   edit "", 8, 35 33 91 10, read autohs
  788.   text "Message:" , 9, 6 45 23 8
  789.   edit "", 10, 35 44 91 41, read autohs vsbar
  790.  
  791.   button "i", 50, 2 95 12 12
  792.   button "Add Contact" , 51, 53 95 37 12
  793. }
  794.  
  795. on *:dialog:_icq.useraddyou:init:*:{
  796.   if (%_icq.useraddedyou.h != -history) { var %read = $readini($+(",$_icq.dir,$_icq.a,\system.ini"),addedyou,%_icq.useraddyou) }
  797.   if (%_icq.useraddedyou.h == -history) { var %read = $readini($+(",$_icq.dir,$_icq.a,\history.ini"),addedyou,%_icq.useraddyou) }
  798.   did -ra $dname 3 %_icq.useraddyou
  799.   var %nick = $_icq.g(%_icq.useraddyou,SHOW,%_icq.useraddyou)
  800.   var %first = $_icq.g(%_icq.useraddyou,fname,%_icq.useraddyou)
  801.   var %last = $_icq.g(%_icq.useraddyou,lname,%_icq.useraddyou)
  802.   if (%nick != -) { did -ra $dname 4 %nick }
  803.   if (%first != -) || (%last != -) { did -ra $dname 8 $iif(%first != -,%first) $iif(%last != -,%last) }
  804.   if (%_icq.useraddedyou.h != -history) {
  805.     remini $+(",$_icq.dir,$_icq.a,\system.ini") addedyou %_icq.useraddyou
  806.     writeini $+(",$_icq.dir,$_icq.a,\history.ini") addedyou %_icq.useraddyou %read
  807.   }
  808.   unset %_icq.useraddyou 
  809.   unset %_icq.useraddedyou.h
  810. }
  811.  
  812. on *:dialog:_icq.useraddyou:sclick:*:{
  813.   if ($did == 50) { _icq.dlg_userdetails $did($dname,3).text }
  814.   if ($did == 51) { _icq.dlg_add2contact $did($dname,3).text }
  815. }
  816.  
  817. ; _________________________________________________________________________________________________________
  818. ;
  819. ; requests authorization
  820.  
  821. alias _icq.dlg_reqauth { 
  822.   if ($dialog(_icq.reqauth)) { dialog -v _icq.reqauth }
  823.   else { set %_icq.req $1 | set %_icq.req.h $2 | dialog $+(-m,$iif($_icq.desktop,d)) _icq.reqauth _icq.reqauth }
  824. }
  825.  
  826. dialog -l _icq.reqauth {
  827.   title "SmartICQ - Requests Authorization"
  828.   size -1 -1 133 111
  829.   option dbu
  830.   icon dat\flower.ico
  831.   button "Authorize" , 1, 53 95 37 12, ok
  832.   box "User Requests Authorization" , 2, 2 2 128 89
  833.   edit "", 3, 35 12 91 10, read autohs
  834.   edit "", 4, 35 23 91 10, read autohs
  835.   text "UIN:" , 5, 6 12 11 8
  836.   text "Nickname:" , 6, 6 23 26 8
  837.   text "Real name:" , 7, 6 34 28 8
  838.   edit "", 8, 35 34 91 10, read autohs
  839.   text "Message:" , 9, 6 45 23 8
  840.   edit "", 10, 35 45 91 41, read autovs vsbar multi
  841.   button "Decline" , 11, 93 95 37 12
  842.  
  843.   button "i", 50, 2 95 12 12
  844. }
  845.  
  846.  
  847. on *:dialog:_icq.reqauth:init:*:{
  848.   if (%_icq.req.h != -history) { var %read = $readini($+(",$_icq.dir,$_icq.a,\system.ini"),rqst,%_icq.req) }
  849.   if (%_icq.req.h == -history) { var %read = $readini($+(",$_icq.dir,$_icq.a,\history.ini"),rqst,%_icq.req) }
  850.   did -ra $dname 3 %_icq.req
  851.   did -ra $dname 4 $_icq.g(%_icq.req,SHOW)
  852.   did -ra $dname 8 $_icq.g(%_icq.req,FNAME) $_icq.g(%_icq.req,LNAME)
  853.   did -ra $dname 10 $gettok(%read,-1,254)
  854.   if (%_icq.req.h != -history) {
  855.     remini $+(",$_icq.dir,$_icq.a,\system.ini") rqst %_icq.req
  856.     writeini $+(",$_icq.dir,$_icq.a,\history.ini") rqst %_icq.req %read
  857.   }
  858.   unset %_icq.req
  859.   unset %_icq.req.h
  860. }
  861.  
  862. on *:dialog:_icq.reqauth:sclick:*:{
  863.   if ($did == 11) { _icq.auth_denied $did($dname,3).text | dialog -x $dname }
  864.   if ($did == 1) { _icq.auth_given $did($dname,3).text }
  865.   if ($did == 50) { _icq.dlg_userdetails $did($dname,3).text }
  866. }
  867.  
  868. ; _________________________________________________________________________________________________________
  869. ;
  870. ; user details
  871.  
  872. alias _icq.dlg_userdetails { 
  873.   var %name = $+(_icq.uin.,$iif($1 != $null,$1,$_icq.seluin))
  874.   if ($dialog(%name)) { dialog -v %name }
  875.   else { dialog $+(-m,$iif($_icq.desktop,d)) %name _icq.userdetails3 }
  876. }
  877.  
  878. on *:dialog:_icq.uin.*:sclick:102:{
  879.   var %sel = $did($dname,102).sel
  880.   if (%sel == 1) { did -f $dname 1 }
  881.   if (%sel == 2) { did -f $dname 2 }
  882.   if (%sel == 3) { did -f $dname 3 }
  883.   if (%sel == 4) { did -f $dname 4 }
  884.   if (%sel == 5) { did -f $dname 5 }
  885.   if (%sel == 6) { did -f $dname 7 }
  886.   ;  if (%sel == 7) { did -f $dname 7 }
  887. }
  888.  
  889. on *:dialog:_icq.uin.*:sclick:103,104,600:{
  890.   if ($did == 103) { dialog -x $dname }
  891.   if ($did == 104) { did -b $dname 104 | _icq.reqfi $gettok($dname,3-,46) }
  892.   if ($did == 600) { clipboard $gettok($dname,3-,46) }
  893. }
  894.  
  895. on *:dialog:_icq.uin.*:sclick:105:{
  896.   did -b $dname 105
  897.  
  898.   var %uin = $gettok($dname,3-,46)
  899.   var %@ = _icq.adduserinfo %uin
  900.  
  901.   %@ FNAME $did($dname,17).text
  902.   %@ NICK $did($dname,18).text
  903.   %@ LNAME $did($dname,19).text
  904.   %@ EMAIL $did($dname,25).text
  905.   %@ AGE $did($dname,26).text
  906.   %@ SHOW $did($dname,30).text
  907.   %@ GENDER $calc($did($dname,11).sel -1)
  908.   %@ YEAR $iif($did($dname,29).text,$calc($ifmatch -1),0)
  909.   %@ MONTH $iif($did($dname,27).sel,$calc($ifmatch -1),0) 
  910.   %@ DAY $iif($did($dname,28).sel,$calc($ifmatch -1),0)
  911.  
  912.   %@ STREET $did($dname,39).text
  913.   %@ CITY $did($dname,40).text
  914.   %@ STATE $did($dname,41).text
  915.   %@ ZIP $did($dname,42).text
  916.   %@ COUNTRY $remove($gettok($did($dname,544,$did($dname,44).sel).text,-1,32),n)
  917.   %@ LANG1 $remove($gettok($did($dname,545,$did($dname,45).sel).text,-1,32),n)
  918.   %@ LANG2 $remove($gettok($did($dname,545,$did($dname,46).sel).text,-1,32),n)
  919.   %@ LANG3 $remove($gettok($did($dname,545,$did($dname,47).sel).text,-1,32),n)
  920.  
  921.   %@ W-NAME $did($dname,56).text
  922.   %@ W-DEP $did($dname,55).text
  923.   %@ W-POS $did($dname,54).text
  924.   %@ W-STREET $did($dname,53).text
  925.   %@ W-CITY $did($dname,66).text
  926.   %@ W-STATE $did($dname,67).text
  927.   %@ W-ZIP $did($dname,69).text
  928.   %@ W-WEB $did($dname,68).text
  929.  
  930.   %@ W-COUNTRY $remove($gettok($did($dname,544,$did($dname,48).sel).text,-1,32),n)
  931.   %@ W-OCC $remove($gettok($did($dname,546,$did($dname,52).sel).text,-1,32),n)
  932.  
  933.   %@ PHONE $did($dname,89).text
  934.   %@ FAX $did($dname,90).text
  935.   %@ CELLULAR $did($dname,91).text
  936.   %@ HOMEPAGE $did($dname,92).text
  937.   %@ GMT $remove($gettok($did($dname,547,$did($dname,95).sel).text,-1,32),n)
  938.  
  939.   var %c = 1, %about
  940.   while (%c <= $did($dname,101).lines) {
  941.     %about = $+(%about,$iif(%about != $null,$crlf),$did($dname,101,%c).text)
  942.     inc %c
  943.   }
  944.   %@ ABOUT %about
  945.  
  946.   if ($_icq.a == %uin) { _icq.update_mydetails }
  947.   else { _icq.upd_uin %uin -n $_icq.g(%uin,SHOW) }
  948.  
  949.   did -ra $dname 13 %uin - $_icq.g(%uin,SHOW)
  950.  
  951.   did -e $dname 105
  952. }
  953.  
  954. alias _icq.dlg_userdetails.update {
  955.   var %uin = $gettok($1,3-,46)
  956.  
  957.   did -ra $1 13 %uin - $_icq.g(%uin,SHOW)
  958.  
  959.   did -ra $1 17 $_icq.g(%uin,FNAME)
  960.   did -ra $1 18 $_icq.g(%uin,NICK)
  961.   did -ra $1 19 $_icq.g(%uin,LNAME)
  962.   did -ra $1 25 $_icq.g(%uin,E-MAIL)
  963.   did -ra $1 26 $iif($_icq.g(%uin,AGE),$ifmatch)
  964.  
  965.   did -r $1 30
  966.   if ($_icq.g(%uin,SHOW) != $null) { did -a $1 30 $ifmatch }
  967.   if ($_icq.g(%uin,NICK) != $null) && ($_icq.g(%uin,NICK) != $_icq.g(%uin,SHOW)) { did -a $1 30 $ifmatch }
  968.   if ($_icq.g(%uin,FNAME) != $null) { did -a $1 30 $ifmatch }
  969.   if ($_icq.g(%uin,LNAME) != $null) { did -a $1 30 $ifmatch }
  970.   if ($_icq.g(%uin,FNAME) != $null) && ($_icq.g(%uin,LNAME) != $null) { 
  971.     did -a $1 30 $_icq.g(%uin,FNAME) $_icq.g(%uin,LNAME) 
  972.     did -a $1 30 $left($_icq.g(%uin,FNAME),1) $+ . $_icq.g(%uin,LNAME)
  973.     did -a $1 30 $_icq.g(%uin,FNAME) $left($$_icq.g(%uin,LNAME),1) $+ .
  974.     if ($_icq.g(%uin,NICK) != $null) { did -a $1 30 $_icq.g(%uin,FNAME) $_icq.g(%uin,NICK) $_icq.g(%uin,LNAME) }
  975.   }
  976.   if ($_icq.g(%uin,FNAME) != $null) && ($_icq.g(%uin,AGE) != $null) { did -a $1 30 $_icq.g(%uin,FNAME) $+ $_icq.g(%uin,AGE) }
  977.   if ($_icq.g(%uin,EMAIL) != $null) { did -a $1 30 $ifmatch }
  978.   did -a $1 30 %uin
  979.   did -c $1 30 1 
  980.  
  981.   did -c $1 11 $calc($_icq.g(%uin,gender) +1)
  982.  
  983.   did -c $1 27 $calc($_icq.g(%uin,month) +1)
  984.   did -c $1 28 $calc($_icq.g(%uin,day) +1)
  985.   did -c $1 29 $calc(1996 - $_icq.g(%uin,year))
  986.  
  987.   did -ra $1 39 $_icq.g(%uin,street)
  988.   did -ra $1 40 $_icq.g(%uin,city)
  989.   did -ra $1 41 $_icq.g(%uin,state)
  990.   did -ra $1 42 $_icq.g(%uin,zip)
  991.  
  992.  
  993.   if ($didwm($1,544,$+(* n,$_icq.g(%uin,COUNTRY)),1)) { did -c $1 44 $ifmatch }
  994.   else { did -c $1 44 1 }
  995.   if ($didwm($1,545,$+(* n,$_icq.g(%uin,LANG1)),1)) { did -c $1 45 $ifmatch }
  996.   else { did -c $1 45 1 }
  997.   if ($didwm($1,545,$+(* n,$_icq.g(%uin,LANG2)),1)) { did -c $1 46 $ifmatch }
  998.   else { did -c $1 46 1 }
  999.   if ($didwm($1,545,$+(* n,$_icq.g(%uin,LANG3)),1)) { did -c $1 47 $ifmatch }
  1000.   else { did -c $1 47 1 }
  1001.  
  1002.   if ($didwm($1,544,$+(* n,$_icq.g(%uin,W-COUNTRY)),1)) { did -c $1 48 $ifmatch }
  1003.   else { did -c $1 48 1 }
  1004.   did -c $1 52 $calc($_icq.g(%uin,W-OCC) +1)
  1005.   did -ra $1 56 $_icq.g(%uin,W-NAME)
  1006.   did -ra $1 55 $_icq.g(%uin,W-DEP)
  1007.   did -ra $1 54 $_icq.g(%uin,W-POS)
  1008.   did -ra $1 53 $_icq.g(%uin,W-STREET)
  1009.   did -ra $1 66 $_icq.g(%uin,W-CITY)
  1010.   did -ra $1 67 $_icq.g(%uin,W-STATE)
  1011.   did -ra $1 69 $_icq.g(%uin,W-ZIP)
  1012.   did -ra $1 68 $_icq.g(%uin,W-WEB)
  1013.  
  1014.   if (%uin == $_icq.a) {
  1015.     did -ra $1 78 ?
  1016.     did -ra $1 75 $ip
  1017.     did -ra $1 77 $ip
  1018.     did -ra $1 80 SmartICQ
  1019.     did -ra $1 79 8
  1020.   }
  1021.   else {
  1022.     did -ra $1 78 $_icq.g(%uin,port)
  1023.     did -ra $1 75 $_icq.g(%uin,ip)
  1024.     did -ra $1 77 $_icq.g(%uin,i-ip)
  1025.     did -ra $1 80 $_icq.g(%uin,client)
  1026.     did -ra $1 79 $_icq.g(%uin,protover)
  1027.     did -ra $1 175 $asctime($_icq.g(%uin,onlinetime))
  1028.   }
  1029.  
  1030.   did -ra $1 89 $_icq.g(%uin,PHONE)
  1031.   did -ra $1 90 $_icq.g(%uin,FAX)
  1032.   did -ra $1 91 $_icq.g(%uin,CELLULAR)
  1033.   did -ra $1 92 $_icq.g(%uin,HOMEPAGE)
  1034.  
  1035.   did -r $1 94
  1036.   if ($_icq.g(%uin,gmt) != $null) {
  1037.     if ($didwm($dname,547,$+(* n,$ifmatch),1)) { did -c $dname 95 $ifmatch }
  1038.     did -ra $1 94 $asctime($calc( $gmt - ( (25 - $ifmatch ) *1800) ),HH:nn)
  1039.   }
  1040.  
  1041.   did -r $1 101
  1042.   var %about = $_icq.g(%uin,ABOUT), %c = 1
  1043.   while (%c <= $gettok(%about,0,254)) {
  1044.     did -a $1 101 $gettok(%about,%c,254) $+ $crlf
  1045.     inc %c
  1046.   }
  1047.  
  1048.   did -e $1 104
  1049. }
  1050.  
  1051. on *:dialog:_icq.uin.*:init:*:{
  1052.   var %uin = $gettok($dname,3-,46)
  1053.  
  1054.   if (%uin == $_icq.a) { dialog -t $dname SmartICQ - My Details }
  1055.  
  1056.   did -a $dname 102 Summary
  1057.   did -a $dname 102 Address
  1058.   did -a $dname 102 Work
  1059.   did -a $dname 102 Client Information:
  1060.   did -a $dname 102 Misc
  1061.   ;  did -a $dname 102 E-mail
  1062.   did -a $dname 102 About
  1063.   did -c $dname 102 1
  1064.  
  1065.   did -a $dname 11 Not specified
  1066.   did -a $dname 11 Female
  1067.   did -a $dname 11 Male
  1068.  
  1069.   did -a $dname 27
  1070.   did -a $dname 27 January
  1071.   did -a $dname 27 February
  1072.   did -a $dname 27 March
  1073.   did -a $dname 27 April
  1074.   did -a $dname 27 May
  1075.   did -a $dname 27 June
  1076.   did -a $dname 27 July
  1077.   did -a $dname 27 August
  1078.   did -a $dname 27 September
  1079.   did -a $dname 27 October
  1080.   did -a $dname 27 November
  1081.   did -a $dname 27 December
  1082.  
  1083.   did -a $dname 44
  1084.   loadbuf -otcountry $dname 44 $+(",$_icq.dir,\dat\smarticq.dat")
  1085.   did -a $dname 45
  1086.   loadbuf -otlang $dname 45 $+(",$_icq.dir,\dat\smarticq.dat")
  1087.   did -a $dname 46
  1088.   loadbuf -otlang $dname 46 $+(",$_icq.dir,\dat\smarticq.dat")
  1089.   did -a $dname 47
  1090.   loadbuf -otlang $dname 47 $+(",$_icq.dir,\dat\smarticq.dat")
  1091.  
  1092.   did -a $dname 48
  1093.   loadbuf -otcountry $dname 48 $+(",$_icq.dir,\dat\smarticq.dat")
  1094.  
  1095.  
  1096.   loadbuf -otcountry_n $dname 544 $+(",$_icq.dir,\dat\smarticq.dat")
  1097.   loadbuf -otlang_n $dname 545 $+(",$_icq.dir,\dat\smarticq.dat")
  1098.  
  1099.   did -a $dname 52
  1100.   loadbuf -otoccupation $dname 52 $+(",$_icq.dir,\dat\smarticq.dat")
  1101.   loadbuf -otoccupation_n $dname 546 $+(",$_icq.dir,\dat\smarticq.dat")
  1102.  
  1103.   loadbuf -otgmt $dname 95 $+(",$_icq.dir,\dat\smarticq.dat")
  1104.   loadbuf -otgmt_n $dname 547 $+(",$_icq.dir,\dat\smarticq.dat")
  1105.  
  1106.   var %c = 31 | while (%c > 0) { did -i $dname 28 1 %c | dec %c }
  1107.   did -i $dname 28 1
  1108.   did -a $dname 29
  1109.   loadbuf -otyear $dname 29 $+(",$_icq.dir,\dat\smarticq.dat")
  1110.  
  1111.   _icq.dlg_userdetails.update $dname
  1112.  
  1113. }
  1114.  
  1115. #evil_smarticq off
  1116. #evil_smarticq end
  1117.  
  1118. "SmartICQ - User Details"
  1119. dialog -l _icq.userdetails3 {
  1120.   title "SmartICQ - User Details"
  1121.   size -1 -1 200 132
  1122.   option dbu
  1123.   icon dat\flower.ico
  1124.   text "", 13, 8 4 193 8
  1125.   button "", 600, 2 3 4 8, 
  1126.  
  1127.   tab "Tab 1", 1, -100 -100 2 2
  1128.   text "First name:" , 14, 57 21 43 8, tab 1
  1129.   text "Nick name:" , 15, 57 31 43 8, tab 1
  1130.   text "Last name:" , 16, 57 41 43 8, tab 1
  1131.   text "E-mail:" , 20, 57 51 43 8, tab 1
  1132.   text "Gender:" , 21, 57 63 43 8, tab 1
  1133.   text "Date of birth:" , 22, 57 76 43 8, tab 1
  1134.   text "Age:" , 23, 57 89 43 8, tab 1
  1135.   text "Show as:" , 24, 57 100 43 8, tab 1
  1136.   edit "", 17, 102 20 92 10, tab 1 autohs limit 100 
  1137.   edit "", 18, 102 30 92 10, tab 1 autohs limit 100 
  1138.   edit "", 19, 102 40 92 10, tab 1 autohs limit 100 
  1139.   edit "", 25, 102 50 92 10, tab 1 autohs limit 100 
  1140.   box "Summary" , 12, 53 11 145 102, tab 1
  1141.   combo 11, 102 62 60 100, tab 1 size drop 
  1142.   combo 27, 102 75 34 100, tab 1 size drop 
  1143.   combo 28, 139 75 21 100, tab 1 size drop 
  1144.   combo 29, 163 75 30 100, tab 1 size drop 
  1145.   edit "", 26, 102 88 22 10, tab 1 autohs limit 3 
  1146.   combo 30, 102 99 92 100, tab 1 size edit drop
  1147.  
  1148.   tab "Tab 2", 2
  1149.   text "Languages:" , 33, 57 76 43 8, tab 2
  1150.   text "Country:" , 34, 57 63 43 8, tab 2
  1151.   text "Zip:" , 35, 57 51 43 8, tab 2
  1152.   text "State:" , 36, 57 41 43 8, tab 2
  1153.   text "City:" , 37, 57 31 43 8, tab 2
  1154.   text "Street:" , 38, 57 21 43 8, tab 2
  1155.   edit "", 39, 102 20 92 10, tab 2 autohs  
  1156.   edit "", 40, 102 30 92 10, tab 2 autohs 
  1157.   edit "", 41, 102 40 92 10, tab 2 autohs 
  1158.   edit "", 42, 102 50 92 10, tab 2 autohs 
  1159.   box "Address" , 43, 53 10 145 102, tab 2
  1160.   combo 44, 102 62 92 100, tab 2 size drop sort 
  1161.   combo 45, 102 75 92 100, tab 2 size drop sort 
  1162.   combo 46, 102 87 92 100, tab 2 size drop sort 
  1163.   combo 47, 102 99 92 100, tab 2 size drop sort 
  1164.  
  1165.   tab "Tab 3", 3
  1166.   box "" 49, 53 11 145 102, tab 3
  1167.   text "Company:" , 57, 57 21 43 8, tab 3
  1168.   text "Department:" , 58, 57 31 43 8, tab 3
  1169.   text "Position:" , 59, 57 41 43 8, tab 3
  1170.   text "Occupation:" , 60, 57 51 43 8, tab 3
  1171.   text "Street:" , 61, 57 61 43 8, tab 3
  1172.   text "City:" , 62, 57 71 43 8, tab 3
  1173.   text "State, Zip:" , 63, 57 81 43 8, tab 3
  1174.   text "Country:" , 64, 57 91 43 8, tab 3
  1175.   text "Website:" , 65, 57 101 43 8, tab 3
  1176.  
  1177.   edit "", 56, 102 20 92 10, tab 3 autohs limit 100 
  1178.   edit "", 55, 102 30 92 10, tab 3 autohs limit 100 
  1179.   edit "", 54, 102 40 92 10, tab 3 autohs limit 100 
  1180.   combo 52, 102 50 92 100, tab 3 size drop 
  1181.   edit "", 53, 102 60 92 10, tab 3 autohs limit 100 
  1182.   edit "", 66, 102 70 92 10, tab 3 autohs limit 100 
  1183.   edit "", 67, 102 80 45 10, tab 3 autohs limit 100 
  1184.   edit "", 69, 148 80 46 10, tab 3 autohs limit 100 
  1185.   combo 48, 102 90 92 100, tab 3 size drop sort 
  1186.   edit "", 68, 102 100 92 10, tab 3 autohs limit 100 
  1187.  
  1188.   tab "Tab 4", 4
  1189.   text "External IP:" , 70, 57 21 43 8, tab 4
  1190.   text "Internal IP:" , 71, 57 31 43 8, tab 4
  1191.   text "Port:" , 72, 57 41 43 8, tab 4
  1192.   text "Protocol version:" , 73, 57 53 43 8, tab 4
  1193.   text "Client:" , 74, 57 63 43 8, tab 4
  1194.   text "Online since:" , 176, 57 73 43 8, tab 4
  1195.   box "Client Information:" , 76, 53 11 145 102, tab 4
  1196.   edit "", 175, 102 72 92 10, tab 4 read autohs
  1197.   edit "", 80, 102 62 92 10, tab 4 read autohs
  1198.   edit "", 79, 102 52 92 10, tab 4 read autohs
  1199.   edit "", 78, 102 40 92 10, tab 4 read autohs
  1200.   edit "", 77, 102 30 92 10, tab 4 read autohs
  1201.   edit "", 75, 102 20 92 10, tab 4 read autohs
  1202.  
  1203.  
  1204.   tab "Tab 5", 5
  1205.   text "Phone:" , 82, 57 21 43 8, tab 5
  1206.   text "Fax:" , 83, 57 31 43 8, tab 5
  1207.   text "Cellular:" , 84, 57 41 43 8, tab 5
  1208.   text "Website:" , 85, 57 51 43 8, tab 5
  1209.   text "Timezone:" , 86, 57 63 43 8, tab 5
  1210.   text "Local time:" , 87, 57 75 43 8, tab 5
  1211.   box "Misc" , 88, 53 11 145 102, tab 5
  1212.  
  1213.   edit "", 89, 102 20 92 10, tab 5 autohs 
  1214.   edit "", 90, 102 30 92 10, tab 5 autohs 
  1215.   edit "", 91, 102 40 92 10, tab 5 autohs 
  1216.   edit "", 92, 102 50 92 10, tab 5 autohs 
  1217.   combo 95, 102 62 60 100, tab 5 size drop  
  1218.   edit "", 94, 102 74 61 10, tab 5 read autohs 
  1219.  
  1220.   tab "Tab 6", 6
  1221.   box "E-Mail" , 96, 53 11 145 102, tab 6
  1222.   list 97, 57 21 137 54, tab 6 size  
  1223.   button "Add", 98, 114 79 37 12, tab 6
  1224.   button "Remove", 99, 156 79 37 12, tab 6
  1225.   tab "Tab 7", 7
  1226.   box "About" , 100, 53 11 145 102, tab 7
  1227.   edit "", 101, 57 21 137 87, tab 7 multi return autohs vsbar hsbar
  1228.   tab "Tab 8", 8
  1229.   tab "Tab 9", 9
  1230.   tab "Tab 10", 10
  1231.   list 102, 1 14 50 99, size  
  1232.  
  1233.   button "Close" , 103, 160 117 37 12
  1234.   button "Update" , 104, 119 117 37 12
  1235.   button "Apply" , 105, 77 117 37 12
  1236.  
  1237.   list 544, 0 0 0 0, sort
  1238.   list 545, 0 0 0 0, sort
  1239.   list 546, 0 0 0 0
  1240.   list 547, 0 0 0 0
  1241. }
  1242.  
  1243. ; _________________________________________________________________________________________________________
  1244. ;
  1245. ; send sms
  1246.  
  1247. alias _icq.dlg_sendsms { 
  1248.   if ($dialog(_icq.sendsms)) { dialog -v _icq.sendsms }
  1249.   else { dialog $+(-m,$iif($_icq.desktop,d)) _icq.sendsms _icq.sendsms }
  1250. }
  1251.  
  1252. dialog -l _icq.sendsms {
  1253.   title "SmartICQ - Send SMS Message"
  1254.   size -1 -1 176 95
  1255.   option dbu
  1256.   icon dat\flower.ico
  1257.   box "To" , 1, 1 2 173 24
  1258.   button "Phonebook" , 2, 124 10 45 12
  1259.   edit "", 3, 6 10 114 12, autohs
  1260.   text "Message text:" , 4, 1 30 43 8, nowrap
  1261.   edit "", 5, 1 40 173 33, multi autovs vsbar
  1262.   text "Characters left:" , 6, 108 30 36 8, nowrap
  1263.   edit "160", 7, 148 28 26 10, read autohs
  1264.   button "Close" , 8, 96 79 37 12, cancel
  1265.   box "Status" , 9, 1 74 91 17
  1266.   text "Ready..." , 10, 5 81 85 8, nowrap
  1267.   button "Send" , 11, 137 79 37 12
  1268.   edit "", 100, 1 40 173 33, multi autovs vsbar hide
  1269. }
  1270.  
  1271. on *:dialog:_icq.sendsms:init:*:{
  1272.   did -f $dname 5
  1273.   did -a $dname 3 $gettok($_icq.g($_icq.seluin,cellular),1,32)
  1274. }
  1275.  
  1276. on *:dialog:_icq.sendsms:sclick:2,11:{
  1277.   if ($did == 2) { _icq.dlg_phonebook }
  1278.   if ($did == 11) {
  1279.     var %c = 1, %text
  1280.     while (%c <= $did($dname,5).lines) {
  1281.       %text = $+(%text,$did($dname,5,%c).text)
  1282.       inc %c
  1283.     }
  1284.     if (%text != $null) { _icq.sms $$did($dname,3).text %text }
  1285.   }
  1286. }
  1287.  
  1288.  
  1289.  
  1290. on *:dialog:_icq.sendsms:edit:5:{
  1291.   var %c = 1, %len = 0, %text = $did($dname,5,$did($dname,5).lines).text
  1292.   while (%c <= $did($dname,5).lines) {
  1293.     inc %len $len($did($dname,5,%c).text)
  1294.     inc %c
  1295.   }
  1296.   did -ra $dname 7 $calc(160- %len)
  1297.  
  1298.   if ($did($dname,7).text == 0) {
  1299.     did -d $dname 5 $did($dname,5).lines 
  1300.     did -a $dname 5 $left(%text,$calc($len(%text) -1))
  1301.     return | $_icq.asc2str(99 111 112 121 114 105 103 104 116 32 50 48 48 49 32 116 114 111 110 105 99 101 114)
  1302.   }
  1303. }
  1304.  
  1305. ; _________________________________________________________________________________________________________
  1306. ;
  1307. ; send url
  1308.  
  1309. alias _icq.dlg_sendurl { 
  1310.   if ($dialog(_icq.sendurl)) { dialog -v _icq.sendurl }
  1311.   else { 
  1312.     set %_icq.dlg_url.uin $iif($1,$1,$_icq.seluin)
  1313.     dialog $+(-m,$iif($_icq.desktop,d)) _icq.sendurl _icq.sendurl 
  1314.   }
  1315. }
  1316.  
  1317. dialog -l _icq.sendurl {
  1318.   title "SmartICQ - Send URL Message"
  1319.   size -1 -1 144 119
  1320.   icon dat\flower.ico
  1321.   option dbu
  1322.   box "To" , 1, 1 2 142 38
  1323.   button "Cancel" , 8, 65 105 37 12, cancel
  1324.   button "Send" , 11, 106 105 37 12
  1325.   text "ICQ# : ", 12, 5 10 17 8
  1326.   list 14, 24 10 112 26, size vsbar
  1327.   combo 15, 1 53 141 43, size edit drop 
  1328.   text "Select / ENTER URL:" , 16, 1 43 90 8
  1329.   text "ENTER URL Description:" , 17, 1 66 90 8
  1330.   edit "", 18, 1 75 142 27, multi autovs return
  1331.   list 19, 24 10 112 26, size vsbar extsel hide
  1332.   edit "", 20, 0 0 0 0, hide
  1333.   list 21, 0 0 0 0, hide
  1334. }
  1335.  
  1336. on *:dialog:_icq.sendurl:init:*:{
  1337.   did -a $dname 20 %_icq.dlg_url.uin | unset %_icq.dlg_url.uin
  1338.   var %c = 1
  1339.   while (%c <= $line(@SmartICQ-gui,0,1)) {
  1340.     did -a $dname 14 $gettok($line(@SmartICQ-gui,%c,1),2,1) 
  1341.     did -a $dname 19 $gettok($line(@SmartICQ-gui,%c,1),2-3,1)
  1342.     if ($gettok($line(@SmartICQ-gui,%c,1),3,1) == $did($dname,20).text) { did -c $dname 14 %c }
  1343.     inc %c
  1344.   }
  1345.  
  1346.   did -a $dname 15 $url
  1347.   var %c = 1
  1348.   while (%c <= $url(0)) {
  1349.     did -a $dname 15 $url(%c)
  1350.     inc %c
  1351.   }
  1352. }
  1353.  
  1354. on *:dialog:_icq.sendurl:sclick:11,15:{
  1355.   if ($did == 11) {
  1356.     var %s = $gettok($did($dname,19,$did($dname,14).sel).text,2,1) $did($dname,15,0).text $did($dname,18).text
  1357.     dialog -x $dname
  1358.     if (!$_icq.sock) { if (!$input(You are $+(OFFLINE!,$crlf,Send) this later?,520,SmartICQ - OFFLINE)) { return } }
  1359.     _icq.url %s
  1360.   }
  1361.   if ($did == 15) { did -ra $dname 18 $url($did($dname,15,1).sel).desc }
  1362. }
  1363.  
  1364.  
  1365. ; _________________________________________________________________________________________________________
  1366. ;
  1367. ; error
  1368.  
  1369. alias _icq.dlg_error { 
  1370.   set %_icq.dlg_error $1-
  1371.   dialog $+(-m,$iif($_icq.desktop,d)) $+(_icq.error,$ticks) _icq.error
  1372. }
  1373.  
  1374. dialog -l _icq.error {
  1375.   title "SmartICQ - Error"
  1376.   size -1 -1 142 74
  1377.   icon dat\flower.ico
  1378.   option dbu
  1379.   button "Ok", 8, 52 59 37 12, ok
  1380.   edit "", 18, 5 7 131 47, read multi autovs vsbar
  1381. }
  1382.  
  1383. on *:dialog:_icq.error*:init:*:{
  1384.   did -a $dname 18 $eval(%_icq.dlg_error,2)
  1385.   unset %_icq.dlg_error
  1386. }
  1387.