home *** CD-ROM | disk | FTP | other *** search
/ napalm.napnet.hu / 2015-02-12.napalm.napnet.hu.tar / napalm.napnet.hu / programok / kommunikacio / mpp700.exe / SystemInfo.mrc < prev    next >
Text File  |  2004-04-17  |  143KB  |  4,566 lines
  1. ;**** WARNING - IF YOU ARE VIEWING THIS THROUGH THE mIRC EDITOR. ****
  2. ;**** I STRONGLY RECOMMEND YOU CLICK CANCEL TO AVOID CUTTING OFF ****
  3. ;**** THE END OF THIS SCRIPT AS THE mIRC EDITOR CAN ONLY HANDLE  ****
  4. ;**** 30 KB OF DATA.  THANKYOU (C}{$)                            ****
  5.  
  6. dialog syssetup {
  7.   title "SystemInfo Setup by C}{$"
  8.   size -1 -1 316 166
  9.   option dbu
  10.   tab "Formatting and Updates", 1, 1 3 313 146
  11.   box "Headings:", 14, 3 48 154 34, tab 1
  12.   box "Values:", 10, 3 18 154 27, tab 1
  13.   text "Colour:", 7, 7 29 17 8, tab 1
  14.   combo 6, 26 28 68 50, tab 1 sort vsbar drop
  15.   check "Bold", 12, 96 28 22 10, tab 1
  16.   check "Underline", 13, 118 28 34 10, tab 1
  17.   text "Colour:", 9, 7 59 17 8, tab 1
  18.   combo 8, 26 58 68 48, tab 1 sort vsbar drop
  19.   check "Bold", 15, 96 58 22 10, tab 1
  20.   check "Underline", 16, 118 58 33 10, tab 1
  21.   check "Remove underlines from headers.", 132, 9 70 126 10, tab 1
  22.   box "Deliberation:", 17, 3 84 154 64, tab 1
  23.   text Enclose With:, 11, 6 94 34 7, tab 1
  24.   text "Left:", 2, 40 94 11 8, tab 1
  25.   edit "", 3, 52 93 25 10, tab 1 autohs
  26.   text "Right:", 4, 111 94 15 8, tab 1
  27.   edit "", 5, 127 93 24 10, tab 1 autohs
  28.   text "Colour:", 62, 7 105 17 8, tab 1
  29.   combo 61, 25 104 68 42, tab 1 sort vsbar drop
  30.   check "Bold", 57, 96 104 22 10, tab 1
  31.   check "Underline", 58, 119 104 33 10, tab 1
  32.   text "Seperate Values and Headers Using:", 18, 7 125 88 8, tab 1 right
  33.   edit "", 19, 96 124 50 10, tab 1 autohs
  34.   text "Colour:", 43, 7 135 17 8, tab 1
  35.   combo 42, 25 134 68 40, tab 1 sort vsbar drop
  36.   check "Bold", 44, 96 135 22 10, tab 1
  37.   check "Underline", 45, 119 135 33 10, tab 1
  38.   box "Themes", 106, 159 18 154 50, tab 1
  39.   text "Theme:", 63, 160 26 24 8, tab 1 right
  40.   combo 87, 185 25 126 38, tab 1 vsbar drop
  41.   button "Apply Theme", 83, 273 38 37 12, tab 1
  42.   button "Save", 84, 163 53 30 12, tab 1
  43.   button "Export", 85, 195 53 37 12, tab 1
  44.   button "Import", 86, 234 53 37 12, tab 1
  45.   button "Delete", 90, 273 53 37 12, tab 1
  46.   text "All themes are exported to YOURMIRCDIRECTORY\Themes", 128, 163 69 146 8, tab 1
  47.   box "Update Check", 140, 159 78 154 70, tab 1
  48.   check "Enable automatic checking for updates", 141, 162 85 129 10, tab 1
  49.   text "How often to check for updates:", 142, 162 96 87 8, tab 1
  50.   radio "On connect", 143, 162 105 50 10, tab 1
  51.   radio "Every day", 144, 162 115 50 10, tab 1
  52.   radio "Every week", 145, 162 125 50 10, tab 1
  53.   radio "Every month", 146, 162 135 50 10, tab 1
  54.   button "Check for updates now", 147, 247 133 62 12, tab 1
  55.   tab "Custom Lines", 35
  56.   box "Custom Line", 20, 3 18 154 131, tab 35
  57.   edit "", 21, 4 25 151 13, tab 35 autohs
  58.   text "For this, the token you input will be replaced with the data.", 22, 6 40 149 8, tab 35
  59.   text "Click here for more help. The tokens are: ", 23, 6 48 149 8, tab 35
  60.   text "@os == Operating System", 24, 6 56 67 8, tab 35
  61.   text "@up == Uptime", 25, 74 56 81 8, tab 35
  62.   text "@cpu == CPU Info", 26, 6 64 67 8, tab 35
  63.   text "@mem == Memory Info", 27, 74 64 81 8, tab 35
  64.   text "@hd == Hard Disk Info", 28, 6 71 67 8, tab 35
  65.   text "@ni == Network Interfaces", 29, 74 72 81 8, tab 35
  66.   text "@res == Display Info", 30, 6 79 67 8, tab 35
  67.   text "@temp == Temperature Info", 31, 74 80 81 8, tab 35
  68.   text "@mon == Monitor", 32, 6 87 67 8, tab 35
  69.   text "@snd == Sound card", 82, 74 88 81 8, tab 35
  70.   text "@gfx == gfx card", 77, 6 94 67 8, tab 35
  71.   text "@recup == Record Uptime", 134, 74 96 81 8, tab 35
  72.   text "@OSInstallInfo == OS Install Info", 135, 5 114 150 8, tab 35 center
  73.   text "You may use CTRL+K/B/U in this line, Type /cust to use.", 40, 5 122 150 8, tab 35 center
  74.   box "Intelligent Custom Line (/icust)", 115, 159 18 153 131, tab 35
  75.   text "Available items:", 112, 163 25 54 8, tab 35
  76.   list 100, 163 33 54 103, tab 35 sort size
  77.   check "Multiline", 139, 165 137 33 10, tab 35
  78.   button "->", 101, 219 56 16 12, tab 35
  79.   button "-->>", 102, 219 69 16 12, tab 35
  80.   button "<-", 108, 219 82 16 12, tab 35
  81.   button "<<--", 109, 219 95 16 12, tab 35
  82.   text "(Parsed from top to bottom)", 114, 229 137 70 8, tab 35
  83.   text "Current /icust:", 113, 237 25 57 8, tab 35
  84.   list 98, 237 33 53 103, tab 35 size
  85.   button "Up", 110, 291 68 18 12, tab 35
  86.   button "Down", 111, 291 82 18 12, tab 35
  87.   text "For more identifiers, click the Help button.", 33, 6 104 148 8, tab 35 center
  88.   tab "Options", 80
  89.   box "Other Options", 65, 3 18 154 52, tab 80
  90.   text "Graphics Card:", 64, 7 26 42 8, tab 80 right
  91.   edit "", 66, 51 25 101 10, tab 80 autohs
  92.   text "Sound card:", 76, 7 36 42 8, tab 80 right
  93.   edit "", 75, 51 35 101 10, tab 80 autohs
  94.   text "Monitor:", 78, 7 46 42 8, tab 80 right
  95.   edit "", 79, 51 45 101 10, tab 80 autohs
  96.   button "Auto-Detect sound and graphics", 74, 69 56 84 12, tab 80
  97.   box "Motherboard Monitor", 103, 3 72 154 76, tab 80
  98.   text "Motherboard monitor is available from ", 71, 5 80 150 8, tab 80 center
  99.   link "http://mbm.livewiredev.com", 72, 47 88 71 8, tab 80
  100.   text "Try different integer's until your fan shows up in the output.", 73, 5 96 150 8, tab 80 center
  101.   text "Temperatures in:", 136, 5 105 44 8, tab 80
  102.   radio "Degrees Celcius", 137, 50 104 50 10, tab 80
  103.   radio "Degrees Fahrenheit", 138, 50 113 68 10, tab 80
  104.   check "Disable MBM outputs from all parts of the script.", 125, 5 134 150 10, tab 80
  105.   box "Plugin Options", 105, 159 18 154 66, tab 80
  106.   text "Current Plug-in's Detected:", 92, 160 27 68 8, tab 80
  107.   list 91, 228 26 82 44, tab 80 size vsbar
  108.   button "Load Plugin", 94, 228 70 37 12, tab 80
  109.   button "Configure Plugin", 93, 266 70 43 12, tab 80
  110.   box "Miscellaneous Options", 104, 159 85 154 63, tab 80
  111.   check "Respond to CTCP VERSION with your /stats", 89, 162 91 137 10, tab 80
  112.   check "Allow RemoteStats via /ctcp NICKNAME SystemInfo", 127, 162 100 147 10, tab 80
  113.   check "Remove ALL formatting from output", 99, 162 109 97 10, tab 80
  114.   text "Delay between lines on /info command:", 96, 162 119 96 8, tab 80 right
  115.   edit "", 95, 259 118 11 10, tab 80
  116.   text "Integer (1- 10)", 97, 271 119 40 8, tab 80
  117.   check "Limit /space output to 5 drives", 126, 162 126 96 10, tab 80
  118.   check "Use alternative method for retrieving uptime.", 129, 162 135 146 10, tab 80
  119.   radio "Both", 68, 50 122 50 10, tab 80
  120.   button "Change NIC", 69, 6 56 61 12, tab 80
  121.   tab "About", 107
  122.   text "This script was mostly generated by C}{$ (aka Jan Staunton).", 47, 7 23 155 8, tab 107 center
  123.   text "If you wish to report bugs,", 48, 16 32 67 8, tab 107
  124.   link "http://bugs.phucknut.net", 34, 84 32 68 8, tab 107
  125.   text "Thanks also goes to the creators of moo.dll and Serial who ", 49, 9 41 152 8, tab 107 center
  126.   text "inspires me so very often :o and of course, my testing team!", 50, 8 49 152 8, tab 107 center
  127.   text "Links:", 51, 8 65 19 8, tab 107
  128.   link "http://scripts.phucknut.net", 52, 8 73 84 8, tab 107
  129.   text " - Website for other scripts.", 53, 93 73 68 8, tab 107
  130.   link "irchs@btinternet.com", 54, 8 81 52 8, tab 107
  131.   text " - My e-mail address", 55, 60 81 50 8, tab 107
  132.   link "http://www.mircscripts.org/dstudio/", 56, 8 89 102 8, tab 107
  133.   icon 130, 67 123 20 20,  $scriptdir $+ menkey.bmp, 0, tab 107 noborder
  134.   button "wtfyourleet click me!", 131, 51 109 54 12, hide tab 107
  135.   text "Script Version:", 67, 8 99 36 8, tab 107
  136.   text "N/A", 81, 45 99 108 8, tab 107
  137.   box "The creator of MBMinfo.dll", 36, 167 18 145 61, tab 107
  138.   box "", 88, 3 18 162 129, tab 107
  139.   link "http://www.planet-pmp.com/", 116, 200 27 77 8, tab 107
  140.   text "Thanks goes out to anhi, the creator of mbminfo.dll who has made a huge contribution to the SystemInfo community :)", 117, 171 36 134 28, tab 107 center
  141.   link "http://www.phucknut.net", 118, 207 121 66 8, tab 107
  142.   text "E-Mail:", 119, 172 67 20 8, tab 107
  143.   link "anhilator@fastrun.at", 120, 195 67 83 8, tab 107
  144.   box "moo.dll", 121, 167 81 145 37, tab 107
  145.   link "http://www.influenced.net/", 122, 203 89 70 8, tab 107
  146.   text "Thanks to marky the creator of the legendary moo.dll :) He's a cool dood.", 123, 170 98 139 16, tab 107 center
  147.   link "http://www.darkengine.net", 124, 206 132 69 8, tab 107
  148.   button "OK + Save", 37, 20 153 30 12, default ok
  149.   button "Default Settings", 38, 53 153 42 12
  150.   button "Exit Without Save", 39, 98 153 47 12, cancel
  151.   button "Help", 46, 148 153 28 12
  152.   button "Preview your current settings", 59, 179 153 79 12
  153.   text "(In a new window)", 60, 259 155 47 8
  154. }
  155.  
  156. dialog systeminfo {
  157.   title "SystemInfo by C}{$ Version 1.5!"
  158.   size -1 -1 253 209
  159.   option dbu
  160.   box "General Information", 11, 2 1 249 79
  161.   text "OS:", 1, 11 9 38 8, right
  162.   edit "", 2, 50 8 199 10, read autohs
  163.   text "Uptime:", 3, 30 19 19 8, right
  164.   edit "", 4, 50 18 199 10, read autohs
  165.   text "Record:", 8, 29 29 20 8, right
  166.   edit "", 7, 50 28 199 10, read autohs
  167.   text "CPU Info:", 5, 25 39 24 8, right
  168.   edit "", 6, 50 38 199 10, read autohs
  169.   text "Temperature:", 10, 16 49 33 8, right
  170.   edit "", 9, 50 48 199 10, read autohs
  171.   text "Memory Usage:", 40, 10 59 39 8, right
  172.   edit "", 39, 50 58 199 10, read autohs
  173.   text "Hard Disk Usage:", 43, 6 69 43 8, right
  174.   text "Total:", 50, 51 69 15 8
  175.   edit "", 42, 66 68 51 10, read autohs
  176.   text "Free:", 51, 118 69 14 8
  177.   edit "", 49, 132 68 51 10, read autohs
  178.   text "N/A", 52, 184 69 64 8
  179.   box "Peripherals", 12, 2 81 249 49
  180.   text "Display:", 14, 20 89 29 8, right
  181.   edit "", 13, 50 88 199 10, read autohs
  182.   text "Monitor:", 18, 28 99 21 8, right
  183.   edit "", 17, 50 98 199 10, read autohs
  184.   text "Graphics Card:", 16, 13 109 36 8, right
  185.   edit "", 15, 50 108 199 10, read autohs
  186.   text "Sound Card:", 20, 18 119 31 8, right
  187.   edit "", 19, 50 118 199 10, read autohs
  188.   box "Internet/Network Interfaces", 41, 2 132 249 30
  189.   text "Network:", 25, 25 141 23 8, right
  190.   edit "", 24, 50 140 199 10, read autohs
  191.   text "Connection:", 23, 18 151 30 8, right
  192.   edit "", 22, 50 150 199 10, read autohs
  193.   box "Script", 26, 2 164 182 21
  194.   text "Script Version:", 27, 4 173 36 8
  195.   edit "", 28, 41 172 50 10, read autohs
  196.   text "moo.dll Version:", 29, 92 173 39 8
  197.   edit "", 30, 132 172 50 10, read autohs
  198.   text "Refresh Rate:", 31, 185 166 35 8
  199.   edit "", 32, 221 165 13 10, autohs limit 2
  200.   button "Set", 35, 235 165 16 10
  201.   text "(Seconds between 1-60)", 33, 186 176 65 8, center
  202.   button "OK", 34, 2 186 124 12, ok cancel
  203.   button "Refresh", 36, 127 186 124 12
  204.   text "Status:", 45, 2 200 19 8
  205.   text "Initialising...", 46, 22 200 158 8
  206.   text "Next Refresh:", 47, 181 200 45 8, right
  207.   text "N/A", 48, 227 200 22 8
  208. }
  209.  
  210. dialog SIUpdateCheck {
  211.   title "SystemInfo Update Check"
  212.   size -1 -1 169 75
  213.   option dbu
  214.   button "E&xit", 2, 131 63 37 12, ok cancel
  215.   button "&Check", 3, 92 63 37 12
  216.   text "Status:", 4, 2 64 20 8
  217.   text "N/A", 5, 23 64 67 8
  218.   text "Update URL:", 6, 3 52 33 8, hide right
  219.   link "N/A", 7, 38 52 128 8, hide
  220.   box "Update Information", 8, 1 3 167 59
  221.   text "Checking for updates...", 9, 4 11 161 36
  222.   text "New version available:", 10, 7 20 55 8, hide right
  223.   text "N/A", 11, 63 20 88 8, hide
  224.   text "Date available since:", 12, 6 28 56 8, hide right
  225.   text "N/A", 13, 63 28 89 8, hide
  226.   text "N/A", 14, 63 12 89 8, hide
  227.   text "Your version:", 15, 6 12 56 8, hide right
  228.   button "Click here to view the changes in the new version", 16, 36 37 129 12, hide
  229. }
  230.  
  231. dialog SIupdatefound {
  232.   title "SystemInfo update found!"
  233.   size -1 -1 159 45
  234.   option dbu
  235.   text "An update for SystemInfo was found, do you wish to see more information about this update?", 1, 2 3 155 15
  236.   button "&Yes", 2, 19 20 37 12, ok
  237.   check "&Keep checking for updates", 3, 2 34 105 10
  238.   button "&No", 4, 59 20 37 12, cancel
  239.   button "&Configure", 5, 99 20 37 12
  240. }
  241.  
  242. dialog SIAgentControl {
  243.   title "SystemInfo by C}{$ Agent!"
  244.   size -1 -1 117 55
  245.   option dbu
  246.   button "Talk!", 1, 0 25 117 17, default
  247.   button "Quit", 2, 88 43 29 12, ok cancel
  248.   text "SystemInfo by C}{$ agent wants to say!", 4, 2 5 113 8
  249.   edit , 5, 1 14 115 10, autohs
  250. }
  251.  
  252. dialog unloadalert {
  253.   title "Alert!"
  254.   size -1 -1 118 45
  255.   option dbu
  256.   text "Are you sure you want unload SystemInfo by", 1, 0 2 117 8
  257.   text "C}{$ Version 1.5?! Doing this will lose all", 2, 0 10 117 8
  258.   text "your settings.  Do you wish to continue?!", 3, 0 18 117 8
  259.   button "Yes!", 4, 19 30 37 12, ok
  260.   button "No!", 5, 59 30 37 12, cancel
  261. }
  262.  
  263. on *:dialog:unloadalert:init:*:{
  264.   did -f unloadalert 5
  265. }
  266.  
  267. on *:DIALOG:SIupdatefound:INIT:*:{
  268.   did -c SIupdatefound 3
  269. }
  270.  
  271. on *:dialog:unloadalert:sclick:4:{
  272.   unload -rs " $+ $script $+ "
  273. }
  274.  
  275. on *:UNLOAD:{
  276.   echo -a 4*** SystemInfo by C}{$ %sys.version is now unloaded and all variables have been cleared.
  277.   unset %sys.* 
  278.   timeruptime off
  279. }
  280.  
  281. on *:DIALOG:SIupdatefound:sclick:4:{
  282.   if ( $did(3).state >= 1 ) {
  283.     set %sys.EnableAutoUpdateCheck 1
  284.   }
  285.   else {
  286.     set %sys.EnableAutoUpdateCheck 0
  287.   }
  288. }
  289.  
  290. on *:DIALOG:SIupdatefound:sclick:2:{
  291.   if ( $did(3).state >= 1 ) {
  292.     set %sys.EnableAutoUpdateCheck 1
  293.   }
  294.   else {
  295.     set %sys.EnableAutoUpdateCheck 0
  296.   }
  297.   siupdatecheck
  298. }
  299.  
  300. on *:DIALOG:SIupdatefound:sclick:5:{
  301.   if ( $did(3).state >= 1 ) {
  302.     set %sys.EnableAutoUpdateCheck 1
  303.   }
  304.   else {
  305.     set %sys.EnableAutoUpdateCheck 0
  306.   }
  307.   syssetup
  308.   timer 1 0.25 did -c syssetup 88
  309. }
  310.  
  311. on *:DIALOG:SIUpdateCheck:sclick:16:{
  312.   run $shortfn($scriptdir $+ SIUpdateChanges.txt)
  313. }
  314. on *:DIALOG:SIUpdateCheck:sclick:3:{
  315.  
  316.   did -h SIUpdateCheck 11
  317.   did -h SIUpdateCheck 14
  318.   did -h SIUpdateCheck 13
  319.   did -h SIUpdateCheck 11
  320.   did -h SIUpdateCheck 12
  321.   did -h SIUpdateCheck 10
  322.   did -h SIUpdateCheck 15
  323.   did -h SIUpdateCheck 6
  324.   did -h SIUpdateCheck 7
  325.   did -h SIUpdateCheck 16
  326.   did -v SIUpdateCheck 9
  327.  
  328.   set %sys.UpdateWithDialog 1
  329.   did -r SIUpdateCheck 5
  330.   did -a SIUpdateCheck 5 Connecting to server...
  331.   sockclose SIUpdate
  332.   sockopen SIUpdate www.phucknut.net 80
  333.   .remove $shortfn($scriptdir $+ SIUpdateChanges.txt)
  334. }
  335. on *:DIALOG:SIUpdateCheck:sclick:7:{
  336.   if ( %sys.UpdateURL != $null ) {
  337.     run %sys.UpdateURL
  338.   }
  339. }
  340.  
  341. alias SIUpdateCheck {
  342.   set %sys.LastUpdateChecked $asctime(dd/mm/yy hh:nn:ss)
  343.   if ( $1 == withoutdialog ) {
  344.     set %sys.UpdateWithDialog 0
  345.     sockclose SIUpdate
  346.     sockopen SIUpdate www.phucknut.net 80
  347.   }
  348.   else {
  349.     set %sys.UpdateWithDialog 1
  350.     if ( $dialog(SIUpdateCheck) != SIUpdateCheck ) {
  351.       dialog -m SIUpdateCheck SIUpdateCheck
  352.     }
  353.   }
  354. }
  355.  
  356. on *:DIALOG:SIUpdateCheck:INIT:*:{
  357.   did -r SIUpdateCheck 5
  358.   did -a SIUpdateCheck 5 Connecting to server...
  359.   sockclose SIUpdate
  360.   sockopen SIUpdate www.phucknut.net 80
  361.   .remove $shortfn($scriptdir $+ SIUpdateChanges.txt)
  362. }
  363.  
  364. on *:sockopen:SIUpdate:{
  365.  
  366.   if ( %sys.UpdateWithDialog == 1 ) {
  367.     did -r SIUpdateCheck 5
  368.     did -a SIUpdateCheck 5 Connecting to server...
  369.     did -b SIUpdateCheck 3
  370.     did -r SIUpdateCheck 5
  371.     did -a SIUpdateCheck 5 Sending request...
  372.   }
  373.   if ( $sock(SIUpdate).wsmsg != [0] Unknown Error ) {
  374.     did -r SIUpdateCheck 5
  375.     did -a SIUpdateCheck 5 $sock(SIUpdate).wsmsg
  376.     did -e SIUpdateCheck 3
  377.     sockclose SIUpdate
  378.   }
  379.   else {
  380.     sockwrite -n SIUpdate GET /scripts/update.php?script=si&currver= $+ %sys.SimpleVersion HTTP/1.1
  381.     sockwrite -n SIUpdate Host: www.phucknut.net
  382.     sockwrite -n SIUpdate
  383.     set %sys.OneVersionChecked 0
  384.     unset %sys.UpdateURL
  385.   }
  386. }
  387.  
  388. on *:sockread:SIUpdate:{
  389.   sockread %sys.buffer
  390.   %sys.buffer = $mid(%sys.buffer,1,930)
  391.   tokenize 32 %sys.buffer
  392.  
  393.   if ( <END FILE> isin %sys.buffer ) {
  394.     if ( %sys.UpdateWithDialog == 1 ) {
  395.       did -r SIUpdateCheck 5
  396.       did -a SIUpdateCheck 5 Check complete.
  397.       did -e SIUpdateCheck 3
  398.     }
  399.   }
  400.  
  401.  
  402.   if ( NEW VERSION isin %sys.buffer ) {
  403.     if ( %sys.UpdateWithDialog == 0 ) {
  404.       if ( $dialog(SIupdatefound) != SIupdatefound ) {
  405.         dialog -m SIupdatefound SIupdatefound
  406.       }
  407.       goto veryend
  408.     }
  409.  
  410.     if ( %sys.UpdateWithDialog == 1 ) {
  411.       did -r SIUpdateCheck 5
  412.       did -a SIUpdateCheck 5 Receiving data...
  413.       did -v SIUpdateCheck 11
  414.       did -v SIUpdateCheck 14
  415.       did -v SIUpdateCheck 13
  416.       did -v SIUpdateCheck 11
  417.       did -v SIUpdateCheck 12
  418.       did -v SIUpdateCheck 10
  419.       did -v SIUpdateCheck 15
  420.       did -v SIUpdateCheck 6
  421.       did -v SIUpdateCheck 7
  422.       did -v SIUpdateCheck 16
  423.       did -h SIUpdateCheck 9
  424.       if ( %sys.OneVersionChecked == 0 ) {
  425.  
  426.         set %sys.OneVersionChecked 1
  427.         did -r SIUpdateCheck 14
  428.         did -a SIUpdateCheck 14 %sys.SimpleVersion
  429.         did -r SIUpdateCheck 11
  430.         did -a SIUpdateCheck 11 $remove(%sys.buffer,NEW VERSION $+ $chr(32))
  431.       }
  432.     }
  433.     write " $+ $shortfn($scriptdir $+ SIUpdateChanges.txt) $+ " *******************************************************************************
  434.     write " $+ $shortfn($scriptdir $+ SIUpdateChanges.txt) $+ " *********** CHANGES IN $remove(%sys.buffer,NEW VERSION $+ $chr(32)) ***********
  435.     write " $+ $shortfn($scriptdir $+ SIUpdateChanges.txt) $+ " *******************************************************************************
  436.     unset %sys.buffer
  437.   }
  438.  
  439.   if ( URL isin %sys.buffer ) {
  440.     if ((%sys.UpdateURL == $null) && (%sys.UpdateWithDialog == 1)) {
  441.       set %sys.UpdateURL $remove(%sys.buffer,URL $+ $chr(32))
  442.       did -a SIUpdateCheck 7 %sys.UpdateURL
  443.     }
  444.   }
  445.  
  446.   if ( CHANGES isin %sys.buffer ) {
  447.     if ( %sys.UpdateWithDialog == 1 ) {
  448.       did -r SIUpdateCheck 5
  449.       did -a SIUpdateCheck 5 Receiving data...
  450.       write " $+ $shortfn($scriptdir $+ SIUpdateChanges.txt) $+ " $remove(%sys.buffer,CHANGES $+ $chr(32))
  451.  
  452.     }
  453.  
  454.     unset %sys.buffer
  455.   }
  456.  
  457.  
  458.   if ( DATE SINCE isin %sys.buffer ) {
  459.     if ( %sys.UpdateWithDialog == 1 ) {
  460.       did -r SIUpdateCheck 5
  461.       did -a SIUpdateCheck 5 Receiving data...
  462.       did -r SIUpdateCheck 13
  463.       did -a SIUpdateCheck 13 $remove(%sys.buffer,DATE SINCE $+ $chr(32))
  464.       unset %sys.buffer
  465.     }
  466.   }
  467.  
  468.   if ( NO UPDATE isin %sys.buffer ) {
  469.     sockclose SIUpdate
  470.     if ( %sys.UpdateWithDialog == 1 ) {
  471.       did -r SIUpdateCheck 5
  472.       did -a SIUpdateCheck 5 Receiving data...
  473.       did -r SIUpdateCheck 9
  474.       did -a SIUpdateCheck 9 You have the most current version of SystemInfo by C}{$
  475.       did -r SIUpdateCheck 5
  476.       did -a SIUpdateCheck 5 No Update.
  477.       did -e SIUpdateCheck 3
  478.     }
  479.     unset %sys.buffer
  480.   }
  481.  
  482.   :veryend
  483. }
  484.  
  485. alias systeminfo {
  486.   dialog -m systeminfo systeminfo
  487. }
  488.  
  489. on 1:dialog:systeminfo:init:*:{
  490.   set %sys.SystemInfoegg 0
  491.  
  492.   did -r SystemInfo 2
  493.   did -a SystemInfo 2 $si(os)
  494.  
  495.   did -r SystemInfo 17
  496.   did -a SystemInfo 17 %sys.monitor
  497.  
  498.   did -r SystemInfo 15
  499.   did -a SystemInfo 15 %sys.gfxcard
  500.  
  501.   did -r SystemInfo 19
  502.   did -a SystemInfo 19 %sys.soundcard
  503.  
  504.   did -r SystemInfo 28
  505.   did -a SystemInfo 28 %sys.version
  506.  
  507.   did -r SystemInfo 30
  508.   did -a SystemInfo 30 $dll($scriptdirmoo.dll,version,_)
  509.  
  510.   did -r SystemInfo 32
  511.   did -a SystemInfo 32 %sys.SystemInfoRefreshRate
  512.  
  513.   RefreshSystemInfoDialog
  514.  
  515.  
  516. }
  517.  
  518. on 1:dialog:siagentcontrol:init:*:{
  519.  
  520.   set %sys.SIAgentSays SystemInfo by CHS %sys.version rules!
  521.  
  522.   if ( $asctime(dd/mm) == 17/06 ) {
  523.     set %sys.SIAgentSays Today is CHS's birthday!  Happy birthday CHS!
  524.     goto continue
  525.   }
  526.  
  527.   if ( $asctime(dd/mm) == 15/06 ) {
  528.     set %sys.SIAgentSays Today is xaber's birthday!  He bribed me with a suck to do this, so happy birfday to him! :)
  529.     goto continue
  530.   }
  531.  
  532.   if ( $asctime(dd/mm) == 05/02 ) {
  533.     set %sys.SIAgentSays Today is AdamTasker's birthday!  Happy birthday mr taskeh!
  534.     goto continue
  535.   }
  536.  
  537.   if ( $asctime(dd/mm) == 04/04 ) {
  538.     set %sys.SIAgentSays Today is Fuzzyste's birthday!  Happy birthday Fuzzyste!
  539.     goto continue
  540.   }
  541.  
  542.   if ( $asctime(dd/mm) == 25/12 ) {
  543.     set %sys.SIAgentSays Merry christmas!
  544.     goto continue
  545.   }
  546.  
  547.   if ( $asctime(dd/mm) == 01/01 ) {
  548.     set %sys.SIAgentSays Happy new year!
  549.     goto continue
  550.   }
  551.  
  552.   if ( $rand(1,10) == 5 ) {
  553.     set %sys.SIAgentSays And the riot be the rhyme of the unheard.
  554.     goto continue
  555.   }
  556.  
  557.   if ( $rand(1,10) == 8 ) {
  558.     set %sys.SIAgentSays Just a quiet peaceful dance, for the things we'll never have.
  559.     goto continue
  560.   }
  561.  
  562.   if ( $rand(1,10) == 2 ) {
  563.     set %sys.SIAgentSays Anarchy is not chaos, but order without control.
  564.     goto continue
  565.   }
  566.  
  567.   if ( $rand(1,10) == 3 ) {
  568.     set %sys.SIAgentSays You'll never silence the voice of the voiceless!
  569.     goto continue
  570.   }
  571.  
  572.   if ( $rand(1,10) == 4 ) {
  573.     set %sys.SIAgentSays Linux, one Windows desktop at a time!
  574.     goto continue
  575.   }
  576.  
  577.   if ( $rand(1,10) == 6 ) {
  578.     set %sys.SIAgentSays Pardon me whilst I burst into flames!
  579.     goto continue
  580.   }
  581.  
  582.   if ( $rand(1,10) == 7 ) {
  583.     set %sys.SIAgentSays You cannot undermine police authority and then complain about rising crime.
  584.     goto continue
  585.   }
  586.  
  587.   if ( $rand(1,10) == 9 ) {
  588.     set %sys.SIAgentSays Two great European narcotics, alcohol and Christianity.
  589.     goto continue
  590.   }
  591.  
  592.   if ( $rand(1,10) == 10 ) {
  593.     set %sys.SIAgentSays "All these quotes aren't mine, don't sue me" - CHS
  594.     goto continue
  595.   }
  596.  
  597.  
  598.   if ( $rand(1,10) == 4 ) {
  599.     set %sys.SIAgentSays Deprive man of his life lie and you rob him of his happiness.
  600.     goto continue
  601.   }
  602.  
  603.   if ( $rand(1,10) == 3 ) {
  604.     set %sys.SIAgentSays Honest officer, the dwarf was on fire when I got here.
  605.     goto continue
  606.   }
  607.  
  608.   if ( $rand(1,10) == 3 ) {
  609.     set %sys.SIAgentSays Who wears short shorts? We wear short shorts! He likes short shorts! I like short shorts!
  610.     goto continue
  611.   }
  612.  
  613.  
  614.   :continue
  615.  
  616.   did -a siagentcontrol 5 %sys.SIAgentSays
  617.   .gload SIAgent
  618.   .gtalk SIAgent %sys.SIAgentSays
  619.  
  620.  
  621.  
  622. }
  623.  
  624.  
  625. on 1:dialog:siagentcontrol:sclick:1:{
  626.  
  627.   set %sys.SIAgentSays $did(5).text
  628.  
  629.   if ( %sys.SIAgentSays != $null ) {
  630.     .gtalk SIAgent %sys.SIAgentSays
  631.   }
  632.  
  633. }
  634.  
  635.  
  636. on 1:dialog:syssetup:sclick:131:{
  637.  
  638.   dialog -m siagentcontrol siagentcontrol
  639.  
  640. }
  641.  
  642.  
  643.  
  644. on 1:dialog:syssetup:*:130:{
  645.  
  646.   if (($devent == uclick) || ($devent == mouse) || ($devent == dclick)) {
  647.     goto veryend
  648.   }
  649.   elseif (($devent == sclick) && (%sys.SIAgent == $null)) {
  650.     set %sys.SIAgent 1
  651.   }
  652.   elseif (($devent == sclick) && (%sys.SIAgent == 1)) {
  653.     set %sys.SIAgent %sys.SIAgent 1
  654.   }
  655.   elseif (($devent == rclick) && (%sys.SIAgent == 1 1)) {
  656.     set %sys.SIAgent %sys.SIAgent 2
  657.   }
  658.   elseif (($devent == rclick) && (%sys.SIAgent == 1 1 2)) {
  659.     set %sys.SIAgent %sys.SIAgent 2
  660.   }
  661.   elseif (($devent == sclick) && (%sys.SIAgent == 1 1 2 2)) {
  662.     set %sys.SIAgent %sys.SIAgent 1
  663.   }
  664.   elseif (($devent == rclick) && (%sys.SIAgent == 1 1 2 2 1)) {
  665.     did -v syssetup 131
  666.     unset %sys.siagent
  667.   }
  668.   else {
  669.     unset %sys.SIAgent
  670.   }
  671.  
  672.   :veryend
  673. }
  674.  
  675. on 1:dialog:systeminfo:sclick:35:{
  676.  
  677.   set %sys.buffer $did(32).text
  678.  
  679.   if ((%sys.buffer > 0) && (%sys.buffer < 61)) {
  680.  
  681.     set %sys.SystemInfoRefreshRate %sys.buffer
  682.     did -r systeminfo 46
  683.     did -a systeminfo 46 Refresh rate set
  684.   }
  685.   else {
  686.     did -r systeminfo 32
  687.     did -a systeminfo 32 %sys.SystemInfoRefreshRate
  688.   }
  689.  
  690. }
  691.  
  692. on 1:dialog:systeminfo:sclick:34:{
  693.   .timerRefreshSystemInfo off
  694.   if ((%sys.buffer > 0) && (%sys.buffer < 61)) {
  695.  
  696.     set %sys.SystemInfoRefreshRate %sys.buffer
  697.   }
  698.  
  699. }
  700.  
  701. on 1:dialog:systeminfo:sclick:36:{
  702.  
  703.   RefreshSystemInfoDialog
  704.  
  705. }
  706.  
  707. ;****** ON CONNECT/START/blabla EVENTS *****
  708.  
  709. on *:CONNECT:{
  710.   SetupImportantStuff
  711.   if ( %sys.EnableAutoUpdateCheck == 1 ) {
  712.     if ( %sys.AutoCheckInterval == connect ) {
  713.       siupdatecheck withoutdialog
  714.     }
  715.   }
  716. }
  717.  
  718. on *:START:{
  719.   if ( %sys.FirstLoad == $null ) {
  720.     /syssetup
  721.   }
  722.   .timeruptime -o 0 60 /updateuptime
  723.   SetupImportantStuff
  724.   ;sgt+
  725.   ;echo 4*** SystemInfo by C}{$ %sys.version initialised and timers have been activated!
  726.   ;sgt-
  727.   GetWindowsDirectory
  728.   if ( %sys.HelpViewed != 1 ) {
  729.     run $shortfn($scriptdir $+ SystemInfoHelp\Index.html)
  730.     set %sys.HelpViewed 1
  731.   }
  732. }
  733.  
  734. ;****** END ON CONNECT/START/blabla EVENTS *****
  735.  
  736. ;****** Small Widely Used Aliases Section ******
  737.  
  738. alias syssetup {
  739.   dialog -m syssetup syssetup
  740. }
  741.  
  742. alias setupcolours {
  743.  
  744.   if ( %sys.headCol >= 10 ) {
  745.     set %sys.HeadColourVar %sys.headCol
  746.   }
  747.   else {
  748.     set %sys.HeadColourVar 0 $+ %sys.headCol
  749.   }
  750.  
  751.  
  752.   if ( %sys.headU == 1 ) {
  753.     set %sys.UnderLineHeader 
  754.   }
  755.   else {
  756.     unset %sys.UnderLineHeader
  757.   }
  758.  
  759.   if ( %sys.headBold == 1 ) {
  760.     set %sys.BoldHeader 
  761.   }
  762.   else {
  763.     unset %sys.BoldHeader
  764.   }
  765.  
  766.   if ( %sys.valCol >= 10 ) {
  767.     set %sys.ValueColourVar %sys.valCol
  768.   }
  769.   else {
  770.     set %sys.ValueColourVar 0 $+ %sys.valCol
  771.   }
  772.  
  773.   if ( %sys.valU == 1 ) {
  774.     set %sys.UnderLineValue 
  775.   }
  776.   else {
  777.     unset %sys.UnderLineValue
  778.   }
  779.  
  780.   if ( %sys.valBold == 1 ) {
  781.     set %sys.BoldValue 
  782.   }
  783.   else {
  784.     unset %sys.BoldValue
  785.   }
  786.  
  787.   if ( %sys.encCol >= 10 ) {
  788.     set %sys.encColourVar %sys.encCol
  789.   }
  790.   else {
  791.     set %sys.encColourVar 0 $+ %sys.encCol
  792.   }
  793.  
  794.  
  795.   if ( %sys.encBold == 1 ) {
  796.     set %sys.Boldenc 
  797.   }
  798.   else {
  799.     unset %sys.Boldenc
  800.   }
  801.  
  802.   if ( %sys.encU == 1 ) {
  803.     set %sys.Underlineenc 
  804.   }
  805.   else {
  806.     unset %sys.Underlineenc
  807.   }
  808.  
  809.   if ( %sys.sepBold == 1 ) {
  810.     set %sys.Boldsep 
  811.   }
  812.   else {
  813.     unset %sys.Boldsep
  814.   }
  815.  
  816.   if ( %sys.sepU == 1 ) {
  817.     set %sys.Underlinesep 
  818.   }
  819.   else {
  820.     unset %sys.Underlinesep
  821.   }
  822.  
  823.   if ( %sys.sepCol >= 10 ) {
  824.     set %sys.sepColourvar %sys.sepCol
  825.   }
  826.   else {
  827.     set %sys.sepColourvar 0 $+ %sys.sepCol
  828.   }
  829.  
  830.   set %sys.delib %sys.Boldsep $+ %sys.Underlinesep $+  $+ %sys.sepColourvar $+ %sys.sepWith $+ %sys.Boldsep $+  $+ %sys.Underlinesep 
  831.  
  832.   set %sys.buffer $si(conn)
  833.   if ((%sys.buffer == -1) || (%sys.buffer == none detected)) {
  834.     set %sys.ConnectionBuffer No active connection detected
  835.   }
  836.   else {
  837.     set %sys.ConnectionBuffer $si(conn)
  838.   }
  839.  
  840.   if ( %sys.sepCol == 99 ) {
  841.     set %sys.sepColourvar 
  842.   }
  843.  
  844.   if ( %sys.encCol == 99 ) {
  845.     set %sys.encColourVar 
  846.   }
  847.  
  848.   if ( %sys.headCol == 99 ) {
  849.     set %sys.HeadColourVar 
  850.   }
  851.  
  852.   if ( %sys.valCol == 99 ) {
  853.     set %sys.ValueColourVar 
  854.   }
  855.  
  856.  
  857. }
  858.  
  859. alias -l BuildPluginsMenu {
  860.  
  861.   did -r syssetup 91
  862.  
  863.   ; <<<<< BEGIN PLUGINS SETUP >>>>>
  864.  
  865.   set %sys.ini.number 0
  866.   set %sys.dialogbuffer 0
  867.   :beginplugloop
  868.   /inc %sys.ini.number 1
  869.   set %sys.ini.topictoscan $ini($shortfn($scriptdir $+ SystemInfo.ini),%sys.ini.number)
  870.  
  871.   if ( %sys.ini.topictoscan == uptime ) { goto beginplugloop }
  872.   if ( %sys.ini.topictoscan == $null ) { goto contafterplugins }
  873.  
  874.   /inc %sys.dialogbuffer 1
  875.   set %sys.buffer $readini $shortfn($scriptdir $+ SystemInfo.ini) %sys.ini.topictoscan name
  876.  
  877.   did -i syssetup 91 %sys.dialogbuffer %sys.buffer
  878.  
  879.   goto beginplugloop
  880.  
  881.   :contafterplugins
  882.  
  883.   ; <<<<< END PLUGINS SETUP >>>>>
  884.  
  885. }
  886.  
  887. alias -l buildThemesMenu {
  888.  
  889.  
  890.   did -r syssetup 87
  891.  
  892.   ; <<<<< BEGIN THEMES SETUP >>>>>
  893.  
  894.   set %sys.ini.number 0
  895.   :beginloop
  896.   /inc %sys.ini.number 1
  897.   set %sys.ini.topictoscan $ini($shortfn($scriptdir $+ systhemes.ini),%sys.ini.number)
  898.   if ( %sys.ini.topictoscan == $null ) {
  899.  
  900.     goto veryend
  901.  
  902.   }
  903.  
  904.   else {
  905.  
  906.     set %sys.buffer $readini $shortfn($scriptdir $+ systhemes.ini) %sys.ini.topictoscan name
  907.     did -i syssetup 87 %sys.ini.number %sys.buffer
  908.     goto beginloop
  909.  
  910.   }
  911.   ; <<<<< END THEMES SETUP >>>>>
  912.  
  913.  
  914.   :veryend
  915.   did -c syssetup 87 %sys.currenttheme
  916. }
  917.  
  918. alias -l RefreshTimer {
  919.  
  920.   if ( $dialog(systeminfo) != $null ) {
  921.     set %sys.counter $calc(%sys.counter - 1)
  922.     did -r systeminfo 48
  923.     did -a systeminfo 48 %sys.counter secs
  924.   }
  925.   else {
  926.     .timerRefreshTimerThing off
  927.     unset %sys.counter
  928.   }
  929.  
  930.  
  931. }
  932.  
  933. alias -l RefreshSystemInfoDialog {
  934.   setupcolours
  935.  
  936.   if ( $dialog(systeminfo) == $null ) {
  937.     goto veryend
  938.   }
  939.  
  940.   did -r systeminfo 46
  941.   did -a systeminfo 46 Refreshing...
  942.  
  943.   did -r SystemInfo 4
  944.   DoUptimeStuff
  945.   did -a SystemInfo 4 %sys.UptimeOutput
  946.  
  947.   did -r SystemInfo 7
  948.   did -a SystemInfo 7 %sys.RecordUptime
  949.  
  950.   did -r SystemInfo 6
  951.   did -a SystemInfo 6 $si(CPU)
  952.  
  953.   did -r SystemInfo 13
  954.   did -a SystemInfo 13 $dll($scriptdirmoo.dll,screeninfo,_)
  955.  
  956.   did -r SystemInfo 22
  957.   did -a SystemInfo 22 %sys.ConnectionBuffer
  958.  
  959.  
  960.   did -r SystemInfo 24
  961.   did -a SystemInfo 24 $si(NI)
  962.  
  963.   did -r SystemInfo 39
  964.   did -a SystemInfo 39 $dll($scriptdirmoo.dll,meminfo,_)
  965.  
  966.   calcspace
  967.  
  968.   did -r systeminfo 42
  969.   did -a systeminfo 42 %sys.total.size $+ %sys.byteunit
  970.  
  971.   did -r systeminfo 49
  972.   did -a systeminfo 49 %sys.total.free $+ %sys.byteunit
  973.  
  974.   did -r systeminfo 52
  975.   did -a systeminfo 52 $round($calc(($calc(%sys.total.size - %sys.total.free) / %sys.total.size) * 100 ),2) $+ % of total used.
  976.  
  977.  
  978.   getmbm5info
  979.   did -r SystemInfo 9
  980.   did -a SystemInfo 9 $result
  981.  
  982.   .timerRefreshSystemInfo 1 %sys.SystemInfoRefreshRate RefreshSystemInfoDialog
  983.   set %sys.counter %sys.SystemInfoRefreshRate
  984.   .timerRefreshTimerThing %sys.counter 1 RefreshTimer
  985.  
  986.   did -r systeminfo 46
  987.   did -a systeminfo 46 Refresh Complete
  988.  
  989.   :veryend
  990. }
  991.  
  992. alias -l DoUptimeStuff {
  993.   SetupImportantStuff
  994.   if ( %sys.EnableAutoUpdateCheck == 1 ) {
  995.  
  996.  
  997.     if ( %sys.LastUpdateChecked == $null ) {
  998.       siupdatecheck withoutdialog
  999.     }
  1000.  
  1001.  
  1002.     if ( %sys.AutoCheckInterval == day ) {
  1003.       if ( $calc($ctime - $ctime(%sys.LastUpdateChecked)) > 86400 ) {
  1004.         siupdatecheck withoutdialog
  1005.       }
  1006.     }
  1007.  
  1008.  
  1009.     if ( %sys.AutoCheckInterval == week ) {
  1010.       if ( $calc($ctime - $ctime(%sys.LastUpdateChecked)) > 604800 ) {
  1011.         siupdatecheck withoutdialog
  1012.       }
  1013.     }
  1014.  
  1015.  
  1016.     if ( %sys.AutoCheckInterval == month ) {
  1017.       if ( $calc($ctime - $ctime(%sys.LastUpdateChecked)) > 2419200 ) {
  1018.         siupdatecheck withoutdialog
  1019.       }
  1020.     }
  1021.  
  1022.  
  1023.   }
  1024.   set %sys.LatestUptime $calc($ticks / 1000 - 1))
  1025.   set %sys.LastUptime $readini $shortfn($scriptdir $+ SystemInfo.ini) uptime uptime
  1026.   if ( %sys.LastUptime == $null ) {
  1027.     set %sys.LastUptime 0
  1028.   }
  1029.   if ( %sys.LatestUptime > %sys.LastUptime ) {
  1030.     writeini " $+ $shortfn($scriptdir $+ SystemInfo.ini) $+ " uptime uptime %sys.LatestUptime
  1031.     writeini " $+ $shortfn($scriptdir $+ SystemInfo.ini) $+ " uptime date $asctime(dd/mm/yy)
  1032.     writeini " $+ $shortfn($scriptdir $+ SystemInfo.ini) $+ " uptime os $os
  1033.   }
  1034.   set %sys.RecordUptime $readini $shortfn($scriptdir $+ SystemInfo.ini) uptime uptime
  1035.   set %sys.RecordUptime $de(recorduptime)
  1036.   set %sys.UpTimeDate $readini $shortfn($scriptdir $+ SystemInfo.ini) uptime date
  1037.   set %sys.UptimeOS $readini $shortfn($scriptdir $+ SystemInfo.ini) uptime os
  1038.  
  1039.   if ( %sys.AltUptime == 1 ) {
  1040.     set %sys.UptimeOutput $duration($calc(( $ticks / 1000 ) -1))
  1041.   }
  1042.   else {
  1043.     set %sys.UptimeOutput $de(uptime)
  1044.   }
  1045.  
  1046. }
  1047.  
  1048. alias -l GetWindowsDirectory {
  1049.   if (( 5. isin $si(os) ) || ( NT isin $si(os) )) {
  1050.     set %sys.WindowsDirectory $dll($scriptdirregistry.dll,GetKeyValue, [ 1 ] HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\\SystemRoot)
  1051.   }
  1052.   else {
  1053.     set %sys.WindowsDirectory $dll($scriptdirfsmem.dll,GetWinDir,_)
  1054.   }
  1055. }
  1056.  
  1057. alias OSInstalledOn {
  1058.  
  1059.   if ( 2003 isin $si(OS) ) {
  1060.     set %sys.os 2003
  1061.   }
  1062.   elseif ( Longhorn isin $si(OS) ) {
  1063.     set %sys.os LH
  1064.   }
  1065.   else {
  1066.     set %sys.os $os
  1067.   }
  1068.  
  1069.   unset %sys.output
  1070.   if ( %sys.WindowsDirectory == $null ) {
  1071.     GetWindowsDirectory
  1072.   }
  1073.  
  1074.   if (( 5. isin $si(os) ) || ( NT isin $si(os) )) {
  1075.     return %sys.os was installed $duration($calc($ctime - $dll($scriptdirregistry.dll,GetKeyValue, [ 1 ] HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\\InstallDate)))
  1076.   }
  1077.  
  1078.   else {
  1079.     set %sys.Buffer $shortfn(%sys.WindowsDirectory $+ \system\ver.dll)
  1080.  
  1081.     if ( $file(%sys.Buffer).ctime == -1 ) {
  1082.       set %sys.Buffer $shortfn(%sys.WindowsDirectory $+ \system\ACPI.sys)
  1083.       if ( $exists(%sys.Buffer) == $true ) {
  1084.         return %sys.os was installed $duration($calc($ctime - $file(%sys.Buffer).ctime)) ago
  1085.         goto veryend
  1086.       }
  1087.     }
  1088.     else {
  1089.       return %sys.os was installed $duration($calc($ctime - $file(%sys.Buffer).ctime)) ago
  1090.       goto veryend
  1091.     }
  1092.   }
  1093.  
  1094.  
  1095.  
  1096.   return Unretrievable
  1097.  
  1098.   :veryend
  1099. }
  1100.  
  1101. ;DarkEngine stuff
  1102. alias -l de {
  1103.   return $dll($scriptdirdarkenginepro.dll,$1,_)
  1104. }
  1105. ;end DE stuff
  1106.  
  1107. alias -l FilterCache {
  1108.   unset %sys.buffer2
  1109.   set %sys.buffer $eval($de(cpuL1cache) $+ . $+ $de(cpuL2cache))
  1110.   set %sys.count 0
  1111.   while ( %sys.count < 2 ) {
  1112.     inc %sys.count 1
  1113.     if ( $gettok($gettok(%sys.buffer,%sys.count,46),1,32) > 0 ) {
  1114.       set %sys.buffer2 %sys.buffer2 L $+ %sys.count $+ : $gettok($gettok(%sys.buffer,%sys.count,46),1,32) $+ KB
  1115.     }
  1116.   }
  1117.   return %sys.buffer2
  1118. }
  1119.  
  1120. alias SIItemOutput {
  1121.   return %sys.Underlineenc $+  $+ %sys.encColourVar $+ %sys.Boldenc $+ %sys.encLeftvar $+ %sys.Underlineenc $+ %sys.Boldenc $+  $+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+ $1- $+ %sys.UnderLineValue $+  $+ %sys.BoldValue $+ %sys.Underlineenc $+ %sys.Boldenc $+  $+ %sys.encColourVar $+ %sys.encRightvar $+ %sys.Underlineenc $+ %sys.Boldenc
  1122. }
  1123.  
  1124. alias SIHeader {
  1125.   return %sys.BoldHeader $+ %sys.UnderLineHeader $+  $+ %sys.HeadColourVar $+ %sys.UnderLineInHeadings $+ $left($1-, 1) $+ %sys.UnderLineInHeadings $+ $right($1-, $calc($len($1-) -1)) $+ %sys.UnderLineHeader $+ %sys.BoldHeader $+ :
  1126. }
  1127.  
  1128. alias SIDelib {
  1129.   return %sys.Boldsep $+ %sys.Underlinesep $+  $+ %sys.sepColourvar $+ %sys.sepWith $+ %sys.Boldsep $+  $+ %sys.Underlinesep
  1130. }
  1131.  
  1132. alias si {
  1133.   if ( $1 == OS ) {
  1134.     if ( Home isin $dll($scriptdirmoo.dll,osinfo,_) ) {
  1135.       return $dll($scriptdirmoo.dll,osinfo,_)
  1136.     }
  1137.     else {
  1138.       return $de(os)
  1139.     }
  1140.   }
  1141.   if ( $1 == CPU ) {
  1142.     unset %sys.buffer
  1143.     if ( $de(cpucount) > 1 ) {
  1144.       set %sys.buffer 's
  1145.     }
  1146.     return $de(cpucount) CPU $+ %sys.buffer - $de(cpuinfo) $+ , $de(cpuspeed) $+ , $FilterCache ( $+ $de(cpuload) Load)
  1147.   }
  1148.   if ( $1 == NI ) {
  1149.     return $dll($scriptdirmoo.dll,interfaceinfo,_)
  1150.   }
  1151.   if ( $1 == CONN ) {
  1152.     return $de(conn)
  1153.   }
  1154.  
  1155.   if ( $1 == BWD ) {
  1156.  
  1157.     set %sys.count 0
  1158.     set %sys.dccget 0
  1159.  
  1160.     if ( $send(0) == 0 ) {
  1161.       set %sys.dccget 0
  1162.     }
  1163.     else {
  1164.       while ( %sys.count < $get(0) ) {
  1165.         inc %sys.count 1
  1166.         if ( $get(%sys.count).status == active ) {
  1167.           set %sys.dccget $calc( %sys.dccget + $get(%sys.count).cps )
  1168.         }
  1169.       }
  1170.     }
  1171.     set %sys.dccget $round($calc( %sys.dccget / 1024 ),2)
  1172.  
  1173.  
  1174.     return $calc( $de(banddown) + %sys.dccget )
  1175.   }
  1176.  
  1177.  
  1178.   if ( $1 == BWU ) {
  1179.  
  1180.     set %sys.count 0
  1181.     set %sys.dccsend 0
  1182.  
  1183.     if ( $send(0) == 0 ) {
  1184.       set %sys.dccsend 0
  1185.     }
  1186.     else {
  1187.       while ( %sys.count < $send(0) ) {
  1188.         inc %sys.count 1
  1189.         if ( $send(%sys.count).status == active ) {
  1190.           set %sys.dccsend $calc( %sys.dccsend + $send(%sys.count).cps )
  1191.         }
  1192.       }
  1193.     }
  1194.     set %sys.dccsend $round($calc( %sys.dccsend / 1024 ),2)
  1195.     return $calc( $de(bandup) + %sys.dccsend )
  1196.   }
  1197.  
  1198.  
  1199.   if ( $1 == CLUSTERSIZE ) {
  1200.     return $calc($dll($scriptdirfsmem.dll,GetSpaceInfo,total $2 $+ :\) / $dll($scriptdirfsmem.dll,GetClusterInfo,total $2 $+ :\)) bytes
  1201.   }
  1202. }
  1203.  
  1204. alias -l SetupImportantStuff {
  1205.   set %sys.version Version 1.5-r2
  1206.   set %sys.simpleversion 1.52
  1207.   set %sys.ScriptDir $scriptdir
  1208. }
  1209.  
  1210. alias OutputInfo {
  1211.   if (( %sys.removeALLformatting == 1 ) || (c isincs $chan($chan).mode)) {
  1212.     say $strip($1-,burc)
  1213.   }
  1214.   else {
  1215.     say $1-
  1216.   }
  1217. }
  1218.  
  1219.  
  1220. ;****** End of Small Widely Used Aliases Section ******
  1221.  
  1222.  
  1223. on *:dialog:syssetup:init:*:{
  1224.   SetupImportantStuff
  1225.  
  1226.   if ( %sys.SystemInfoRefreshRate == $null ) {
  1227.     set %sys.SystemInfoRefreshRate 10
  1228.   }
  1229.  
  1230.   if ( %sys.EnableAutoUpdateCheck == $null ) {
  1231.     set %sys.EnableAutoUpdateCheck 1
  1232.   }
  1233.  
  1234.   if ( %sys.AutoCheckInterval == $null ) {
  1235.     set %sys.AutoCheckInterval week
  1236.   }
  1237.  
  1238.   if ( %sys.TemperatureUnit == $null ) {
  1239.     set %sys.TemperatureUnit C
  1240.   }
  1241.  
  1242.   if ( %sys.ICustMultiLine == $null ) {
  1243.     set %sys.ICustMultiLine 240
  1244.   }
  1245.  
  1246.   if ( %sys.UnderLineInHeadings == $null ) {
  1247.     set %sys.UnderLineInHeadings 
  1248.   }
  1249.  
  1250.   if ( %sys.TurnOffMBM == $null ) {
  1251.     set %sys.TurnOffMBM 1
  1252.   }
  1253.  
  1254.   if ( %sys.RemoteStats == $null ) {
  1255.     set %sys.RemoteStats 1
  1256.   }
  1257.  
  1258.   if ( %sys.respondCTCP == $null ) {
  1259.     set %sys.respondCTCP 1
  1260.   }
  1261.  
  1262.   if ( %sys.RemoteStats == $null ) {
  1263.     set %sys.RemoteStats 1
  1264.   }
  1265.  
  1266.   if ( %sys.encU == $null ) {
  1267.     set %sys.encU 0
  1268.   }
  1269.  
  1270.   if ( %sys.encBold == $null ) {
  1271.     set %sys.encBold 0
  1272.   }    
  1273.  
  1274.   if ( %sys.encCol == $null ) {
  1275.     set %sys.encCol 4
  1276.   }    
  1277.  
  1278.   if ( %sys.valCol == $null ) {
  1279.     set %sys.valCol 99
  1280.   }
  1281.  
  1282.   if ( %sys.valU == $null ) {
  1283.     set %sys.valU 0
  1284.   }
  1285.  
  1286.   if ( %sys.valBold == $null ) {
  1287.     set %sys.valBold 0
  1288.   }
  1289.  
  1290.   if ( %sys.headCol == $null ) {
  1291.     set %sys.headCol 14
  1292.   }
  1293.  
  1294.   if ( %sys.headU == $null ) {
  1295.     set %sys.headU 0
  1296.   }
  1297.  
  1298.   if ( %sys.headBold == $null ) {
  1299.     set %sys.headBold 1
  1300.   }
  1301.  
  1302.   if ( %sys.sepCol == $null ) {
  1303.     set %sys.sepCol 15
  1304.   }
  1305.  
  1306.   if ( %sys.sepBold == $null ) {
  1307.     set %sys.sepBold 1
  1308.   }
  1309.  
  1310.   if ( %sys.sepU == $null ) {
  1311.     set %sys.sepU 0
  1312.   }
  1313.  
  1314.   if ( %sys.removeALLformatting == $null ) {
  1315.     set %sys.removeALLformatting 0
  1316.   }
  1317.  
  1318.   if ( %sys.infodelay == $null ) {
  1319.     set %sys.infodelay 0
  1320.   }
  1321.  
  1322.   if ( %sys.LimitSpace == $null ) {
  1323.     set %sys.LimitSpace 0
  1324.   }
  1325.  
  1326.   if ( %sys.TurnOffMBM == $null ) {
  1327.     set %sys.TurnOffMBM 1
  1328.   }
  1329.  
  1330.   if ( %sys.gfxcard == $null ) {
  1331.     set %sys.gfxcard $de(videocard)
  1332.   }
  1333.  
  1334.   if ( %sys.soundcard == $null ) {
  1335.     set %sys.soundcard $de(soundcard)
  1336.   }
  1337.  
  1338.  
  1339.   if ( %sys.monitor == $null ) {
  1340.     set %sys.monitor $de(monitor)
  1341.   }
  1342.  
  1343.   if ( %sys.FirstLoad != 1 ) {
  1344.  
  1345.     if ( %sys.sepWith == $null ) {
  1346.       set %sys.sepWith ñ
  1347.     }
  1348.     if ( %sys.encLeftvar == $null ) {
  1349.       set %sys.encLeftvar (
  1350.     }
  1351.  
  1352.     if ( %sys.encRightvar == $null ) {
  1353.       set %sys.encRightvar )
  1354.     }
  1355.     set %sys.CustomLine Please set a custom Line to use it.
  1356.     set %sys.FirstLoad 1
  1357.   }
  1358.  
  1359.  
  1360.   combocolours 6
  1361.   combocolours 8
  1362.   combocolours 42
  1363.   combocolours 61
  1364.  
  1365.   if ( %sys.encU == 1 ) { Did -c syssetup 58 }
  1366.   if ( %sys.encBold == 1 ) { Did -c syssetup 57 }
  1367.   if ( %sys.sepBold == 1 ) { Did -c syssetup 44 }
  1368.   if ( %sys.sepU == 1 ) { Did -c syssetup 45 }
  1369.   if ( %sys.valU == 1 ) { Did -c syssetup 13 }
  1370.   if ( %sys.valBold == 1 ) { Did -c syssetup 12 }
  1371.   if ( %sys.headU == 1 ) { Did -c syssetup 16 }
  1372.   if ( %sys.headBold == 1 ) { Did -c syssetup 15 }
  1373.   if ( %sys.respondCTCP == 1 ) { Did -c syssetup 89 }
  1374.   if ( %sys.removeALLformatting == 1 ) { Did -c syssetup 99 }
  1375.   if ( %sys.TurnOffMBM == 1 ) { did -c syssetup 125 }
  1376.   if ( %sys.LimitSpace == 1 ) { did -c syssetup 126 }
  1377.   if ( %sys.RemoteStats == 1 ) { did -c syssetup 127 }
  1378.   if ( %sys.AltUptime == 1 ) { did -c syssetup 129 }
  1379.   if ( %sys.UnderLineInHeadings ==  ) { did -c syssetup 132 }
  1380.   if ( %sys.TemperatureUnit == C ) { did -c syssetup 137 }
  1381.   if ( %sys.TemperatureUnit == F ) { did -c syssetup 138 }
  1382.   if ( %sys.TemperatureUnit == BOTH ) { did -c syssetup 68 }
  1383.   if ( %sys.ICustMultiLine == 240 ) { did -c syssetup 139 }
  1384.   if ( %sys.AutoCheckInterval == connect ) { did -c syssetup 143 }
  1385.   if ( %sys.AutoCheckInterval == day ) { did -c syssetup 144 }
  1386.   if ( %sys.AutoCheckInterval == week ) { did -c syssetup 145 }
  1387.   if ( %sys.AutoCheckInterval == month ) { did -c syssetup 146 }
  1388.   if ( %sys.EnableAutoUpdateCheck == 1 ) { did -c syssetup 141 }
  1389.  
  1390.  
  1391.   if ( %sys.valCol == 99 ) {
  1392.     did -c syssetup 6 17 
  1393.   }
  1394.   else {
  1395.     did -c syssetup 6 $calc(%sys.valCol + 1)
  1396.   }
  1397.  
  1398.   if ( %sys.headCol == 99 ) {
  1399.     did -c syssetup 8 17 
  1400.   }
  1401.   else {
  1402.     did -c syssetup 8 $calc(%sys.headCol + 1)
  1403.   }
  1404.  
  1405.   if ( %sys.encCol == 99 ) {
  1406.     did -c syssetup 61 17 
  1407.   }
  1408.   else {
  1409.     did -c syssetup 61 $calc(%sys.encCol + 1)
  1410.   }
  1411.  
  1412.   if ( %sys.sepCol == 99 ) {
  1413.     did -c syssetup 42 17 
  1414.   }
  1415.   else {
  1416.     did -c syssetup 42 $calc(%sys.sepCol + 1)
  1417.   }
  1418.  
  1419.   did -a syssetup 3 %sys.encLeftvar
  1420.   did -a syssetup 5 %sys.encRightvar
  1421.   did -a syssetup 19 %sys.sepWith
  1422.   did -a syssetup 21 %sys.CustomLine
  1423.   did -a syssetup 66 %sys.gfxcard
  1424.   did -a syssetup 75 %sys.soundcard
  1425.   did -a syssetup 79 %sys.monitor
  1426.   if ( %sys.infodelay == $null ) {
  1427.     set %sys.infodelay 0
  1428.   }
  1429.   did -a syssetup 95 %sys.infodelay
  1430.  
  1431.   buildThemesMenu
  1432.  
  1433.   did -c syssetup 87 %sys.currenttheme
  1434.  
  1435.   :continue
  1436.  
  1437.   BuildPluginsMenu
  1438.  
  1439.   set %sys.buffer $readini $shortfn($scriptdir $+ SystemInfo.ini) uptime os
  1440.   if ( %sys.buffer == $null ) {
  1441.     writeini " $+ $shortfn($scriptdir $+ SystemInfo.ini) $+ " uptime os $os
  1442.   }
  1443.  
  1444.   if ( %sys.icustomline == $null ) {
  1445.     set %sys.icustomline OS,OSINFO,UPTIME,RAM,HDD
  1446.     set %sys.icustcount 5
  1447.   }
  1448.  
  1449.   ;BUILD /ICUST LIST
  1450.   set %sys.count 0
  1451.   while ( %sys.count < $numtok(%sys.icustomline,44) ) {
  1452.     inc %sys.count
  1453.  
  1454.     if ( $gettok(%sys.icustomline,%sys.count,44) == OS ) {
  1455.       did -a syssetup 98 OS
  1456.     }
  1457.  
  1458.     if ( $gettok(%sys.icustomline,%sys.count,44) == BW ) {
  1459.       did -a syssetup 98 Bandwidth
  1460.     }
  1461.  
  1462.     if ( $gettok(%sys.icustomline,%sys.count,44) == OSINFO ) {
  1463.       did -a syssetup 98 Install Info
  1464.     }
  1465.  
  1466.     if ( $gettok(%sys.icustomline,%sys.count,44) == UPTIME ) {
  1467.       did -a syssetup 98 Uptime
  1468.     }
  1469.  
  1470.     if ( $gettok(%sys.icustomline,%sys.count,44) == DISPLAY ) {
  1471.       did -a syssetup 98 Display Info
  1472.     }
  1473.  
  1474.     if ( $gettok(%sys.icustomline,%sys.count,44) == RECUP ) {
  1475.       did -a syssetup 98 Record Uptime
  1476.     }
  1477.  
  1478.     if ( $gettok(%sys.icustomline,%sys.count,44) == CPU ) {
  1479.       did -a syssetup 98 CPU Info
  1480.     }
  1481.  
  1482.     if ( $gettok(%sys.icustomline,%sys.count,44) == RAM ) {
  1483.       did -a syssetup 98 RAM Usage
  1484.     }
  1485.  
  1486.     if ( $gettok(%sys.icustomline,%sys.count,44) == PAGE ) {
  1487.       did -a syssetup 98 Page File
  1488.     }
  1489.  
  1490.     if ( $gettok(%sys.icustomline,%sys.count,44) == VMEM ) {
  1491.       did -a syssetup 98 Virtual Memory
  1492.     }
  1493.  
  1494.     if ( $gettok(%sys.icustomline,%sys.count,44) == NI ) {
  1495.       did -a syssetup 98 Network Interfaces
  1496.     }
  1497.  
  1498.     if ( $gettok(%sys.icustomline,%sys.count,44) == CONN ) {
  1499.       did -a syssetup 98 Connection Info
  1500.     }
  1501.  
  1502.     if ( $gettok(%sys.icustomline,%sys.count,44) == GFXCARD ) {
  1503.       did -a syssetup 98 Graphics Card
  1504.     }
  1505.  
  1506.     if ( $gettok(%sys.icustomline,%sys.count,44) == SNDCARD ) {
  1507.       did -a syssetup 98 Sound Card
  1508.     }
  1509.  
  1510.     if ( $gettok(%sys.icustomline,%sys.count,44) == HDD ) {
  1511.       did -a syssetup 98 Hard Disks
  1512.     }
  1513.  
  1514.     if ( $gettok(%sys.icustomline,%sys.count,44) == TEMP ) {
  1515.       did -a syssetup 98 Temperature
  1516.     }
  1517.  
  1518.     if ( $gettok(%sys.icustomline,%sys.count,44) == VOLTS ) {
  1519.       did -a syssetup 98 Voltages
  1520.     }
  1521.  
  1522.     if ( $gettok(%sys.icustomline,%sys.count,44) == MONI ) {
  1523.       did -a syssetup 98 Monitor
  1524.     }
  1525.     ;END BUILD /ICUST LIST
  1526.   }
  1527.  
  1528.   ;BEGIN LEFT OVERS
  1529.   if ( $findtok(%sys.icustomline,OS,1,44) == $null ) {
  1530.     did -a syssetup 100 OS
  1531.   }
  1532.  
  1533.   if ( $findtok(%sys.icustomline,BW,1,44) == $null ) {
  1534.     did -a syssetup 100 Bandwidth
  1535.   }
  1536.  
  1537.   if ( $findtok(%sys.icustomline,OSINFO,1,44) == $null ) {
  1538.     did -a syssetup 100 Install Info
  1539.   }
  1540.  
  1541.   if ( $findtok(%sys.icustomline,UPTIME,1,44) == $null ) {
  1542.     did -a syssetup 100 Uptime
  1543.   }
  1544.  
  1545.   if ( $findtok(%sys.icustomline,RECUP,1,44) == $null ) {
  1546.     did -a syssetup 100 Record Uptime
  1547.   }
  1548.  
  1549.   if ( $findtok(%sys.icustomline,CPU,1,44) == $null ) {
  1550.     did -a syssetup 100 CPU Info
  1551.   }
  1552.  
  1553.   if ( $findtok(%sys.icustomline,DISPLAY,1,44) == $null ) {
  1554.     did -a syssetup 100 Display Info
  1555.   }
  1556.  
  1557.   if ( $findtok(%sys.icustomline,RAM,1,44) == $null ) {
  1558.     did -a syssetup 100 RAM Usage
  1559.   }
  1560.  
  1561.   if ( $findtok(%sys.icustomline,PAGE,1,44) == $null ) {
  1562.     did -a syssetup 100 Page File
  1563.   }
  1564.  
  1565.   if ( $findtok(%sys.icustomline,VMEM,1,44) == $null ) {
  1566.     did -a syssetup 100 Virtual Memory
  1567.   }
  1568.  
  1569.   if ( $findtok(%sys.icustomline,NI,1,44) == $null ) {
  1570.     did -a syssetup 100 Network Interfaces
  1571.   }
  1572.  
  1573.   if ( $findtok(%sys.icustomline,CONN,1,44) == $null ) {
  1574.     did -a syssetup 100 Connection Info
  1575.   }
  1576.  
  1577.   if ( $findtok(%sys.icustomline,GFXCARD,1,44) == $null ) {
  1578.     did -a syssetup 100 Graphics Card
  1579.   }
  1580.  
  1581.   if ( $findtok(%sys.icustomline,SNDCARD,1,44) == $null ) {
  1582.     did -a syssetup 100 Sound Card
  1583.   }
  1584.  
  1585.   if ( $findtok(%sys.icustomline,HDD,1,44) == $null ) {
  1586.     did -a syssetup 100 Hard Disks
  1587.   }
  1588.  
  1589.   if ( $findtok(%sys.icustomline,TEMP,1,44) == $null ) {
  1590.     did -a syssetup 100 Temperature
  1591.   }
  1592.  
  1593.   if ( $findtok(%sys.icustomline,VOLTS,1,44) == $null ) {
  1594.     did -a syssetup 100 Voltages
  1595.   }
  1596.  
  1597.   if ( $findtok(%sys.icustomline,MONI,1,44) == $null ) {
  1598.     did -a syssetup 100 Monitor
  1599.   }
  1600.   ;END LEFT OVERS
  1601.  
  1602.   did -r syssetup 81
  1603.   did -a syssetup 81 %sys.Version
  1604.  
  1605.   CheckForDisabledSetup
  1606.  
  1607.   if ( %sys.HelpViewed != 1 ) {
  1608.     run $shortfn($scriptdir $+ SystemInfoHelp\Index.html)
  1609.     set %sys.HelpViewed 1
  1610.   }
  1611.  
  1612. }
  1613.  
  1614.  
  1615. alias -l combocolours {
  1616.  
  1617.   did -i syssetup $1 1 White
  1618.   did -i syssetup $1 2 Black
  1619.   did -i syssetup $1 3 Navy Blue
  1620.   did -i syssetup $1 4 Dark Green
  1621.   did -i syssetup $1 5 Red
  1622.   did -i syssetup $1 6 Brown
  1623.   did -i syssetup $1 7 Purple
  1624.   did -i syssetup $1 8 Orange
  1625.   did -i syssetup $1 9 Yellow
  1626.   did -i syssetup $1 10 Light Green
  1627.   did -i syssetup $1 11 Turquoise
  1628.   did -i syssetup $1 12 Sky Blue
  1629.   did -i syssetup $1 13 Blue
  1630.   did -i syssetup $1 14 Pink
  1631.   did -i syssetup $1 15 Grey
  1632.   did -i syssetup $1 16 Light Grey
  1633.   did -i syssetup $1 17 No colour
  1634.  
  1635. }
  1636.  
  1637. on 1:dialog:syssetup:sclick:38:{
  1638.   did -r syssetup 3
  1639.   did -r syssetup 5
  1640.   did -r syssetup 19
  1641.   did -a syssetup 3 /
  1642.   did -a syssetup 5 \
  1643.   did -a syssetup 19 ║
  1644.   did -u syssetup 12
  1645.   did -u syssetup 13
  1646.   did -c syssetup 15
  1647.   did -c syssetup 125
  1648.   did -c syssetup 89
  1649.   did -c syssetup 127
  1650.   did -u syssetup 99
  1651.   did -u syssetup 126
  1652.   did -u syssetup 16
  1653.   did -u syssetup 57
  1654.   did -u syssetup 44
  1655.   did -u syssetup 45
  1656.   did -c syssetup 58
  1657.   did -c syssetup 42 10
  1658.   did -c syssetup 61 10
  1659.   did -c syssetup 6 17
  1660.   did -c syssetup 8 3
  1661.   did -r syssetup 95
  1662.   did -a syssetup 95 0
  1663.  
  1664. }
  1665.  
  1666. on 1:dialog:syssetup:sclick:37:{
  1667.  
  1668.   set %sys.buffer $did(3).text
  1669.   set %sys.encLeftvar $strip(%sys.buffer,burc)
  1670.  
  1671.   set %sys.buffer $did(5).text
  1672.   set %sys.encRightvar $strip(%sys.buffer,burc)
  1673.  
  1674.   set %sys.buffer $did(19).text
  1675.   set %sys.sepWith $strip(%sys.buffer,burc)
  1676.  
  1677.   set %sys.CustomLine $did(21).text
  1678.  
  1679.   if ( $did(132).state >= 1 ) {
  1680.     set %sys.UnderLineInHeadings 
  1681.   }
  1682.   else {
  1683.     set %sys.UnderLineInHeadings 
  1684.   }
  1685.  
  1686.   if ( $did(139).state >= 1 ) {
  1687.     set %sys.ICustMultiLine 240
  1688.   }
  1689.   else {
  1690.     set %sys.ICustMultiLine 3000000
  1691.   }
  1692.  
  1693.   if ( $did(141).state >= 1 ) {
  1694.     set %sys.EnableAutoUpdateCheck 1
  1695.   }
  1696.   else {
  1697.     set %sys.EnableAutoUpdateCheck 0
  1698.   }
  1699.  
  1700.   if ( $did(143).state >= 1 ) {
  1701.     set %sys.AutoCheckInterval connect
  1702.   }
  1703.  
  1704.   if ( $did(144).state >= 1 ) {
  1705.     set %sys.AutoCheckInterval day
  1706.   }
  1707.  
  1708.   if ( $did(145).state >= 1 ) {
  1709.     set %sys.AutoCheckInterval week
  1710.   }
  1711.  
  1712.   if ( $did(146).state >= 1 ) {
  1713.     set %sys.AutoCheckInterval month
  1714.   }
  1715.  
  1716.   if ( $did(137).state >= 1 ) {
  1717.     set %sys.TemperatureUnit C
  1718.   }
  1719.  
  1720.   if ( $did(138).state >= 1 ) {
  1721.     set %sys.TemperatureUnit F
  1722.   }
  1723.  
  1724.   if ( $did(68).state >= 1 ) {
  1725.     set %sys.TemperatureUnit BOTH
  1726.   }
  1727.  
  1728.   if ( $did(99).state >= 1 ) {
  1729.     set %sys.removeALLformatting 1
  1730.   }
  1731.   else {
  1732.     set %sys.removeALLformatting 0
  1733.   }  
  1734.  
  1735.   if ( $did(126).state >= 1 ) {
  1736.     set %sys.LimitSpace 1
  1737.   }
  1738.   else {
  1739.     set %sys.LimitSpace 0
  1740.   }
  1741.  
  1742.   if ( $did(12).state >= 1 ) {
  1743.     set %sys.valBold 1
  1744.   }
  1745.   else {
  1746.     set %sys.valBold 0
  1747.   }
  1748.  
  1749.   if ( $did(127).state >= 1 ) {
  1750.     set %sys.RemoteStats 1
  1751.   }
  1752.   else {
  1753.     set %sys.RemoteStats 0
  1754.   }
  1755.  
  1756.   if ( $did(129).state >= 1 ) {
  1757.     set %sys.AltUptime 1
  1758.   }
  1759.   else {
  1760.     set %sys.AltUptime 0
  1761.   }
  1762.  
  1763.   if ( $did(89).state >= 1 ) {
  1764.     set %sys.respondCTCP 1
  1765.   }
  1766.   else {
  1767.     set %sys.respondCTCP 0
  1768.   }
  1769.  
  1770.   if ( $did(13).state >= 1 ) {
  1771.     set %sys.valU 1
  1772.   }
  1773.   else {
  1774.     set %sys.valU 0
  1775.   }
  1776.  
  1777.   if ( $did(15).state >= 1 ) {
  1778.     set %sys.headBold 1
  1779.   }
  1780.   else {
  1781.     set %sys.headBold 0
  1782.   }
  1783.  
  1784.   if ( $did(16).state >= 1 ) {
  1785.     set %sys.headU 1
  1786.   }
  1787.   else {
  1788.     set %sys.headU 0
  1789.   }
  1790.  
  1791.   if ( $did(57).state >= 1 ) {
  1792.     set %sys.encBold 1
  1793.   }
  1794.   else {
  1795.     set %sys.encBold 0
  1796.   }
  1797.  
  1798.   if ( $did(58).state >= 1 ) {
  1799.     set %sys.encU 1
  1800.   }
  1801.   else {
  1802.     set %sys.encU 0
  1803.   }
  1804.  
  1805.   if ( $did(44).state >= 1 ) {
  1806.     set %sys.sepBold 1
  1807.   }
  1808.   else {
  1809.     set %sys.sepBold 0
  1810.   }
  1811.  
  1812.   if ( $did(45).state >= 1 ) {
  1813.     set %sys.sepU 1
  1814.   }
  1815.   else {
  1816.     set %sys.sepU 0
  1817.   }
  1818.  
  1819.   if ( $did(61).sel == 17 ) {
  1820.     set %sys.encCol 99
  1821.   }
  1822.   else {
  1823.     set %sys.encCol $calc($did(61).sel - 1)
  1824.   }
  1825.  
  1826.   if ( $did(42).sel == 17 ) {
  1827.     set %sys.sepCol 99
  1828.   }
  1829.   else {
  1830.     set %sys.sepCol $calc($did(42).sel - 1)
  1831.   }
  1832.  
  1833.   if ( $did(6).sel == 17 ) {
  1834.     set %sys.valCol 99
  1835.   }
  1836.   else {
  1837.     set %sys.valCol $calc($did(6).sel - 1)
  1838.   }
  1839.  
  1840.   if ( $did(8).sel == 17 ) {
  1841.     set %sys.headCol 99
  1842.   }
  1843.   else {
  1844.     set %sys.headCol $calc($did(8).sel - 1)
  1845.   }
  1846.  
  1847.   set %sys.buffer $did(66).text
  1848.   set %sys.gfxcard $strip(%sys.buffer,burc)
  1849.  
  1850.   set %sys.buffer $did(75).text
  1851.   set %sys.soundcard $strip(%sys.buffer,burc)
  1852.  
  1853.   set %sys.buffer $did(79).text
  1854.   set %sys.monitor $strip(%sys.buffer,burc)
  1855.  
  1856.   set %sys.buffer $did(95).text
  1857.   set %sys.buffer $strip(%sys.buffer,burc)
  1858.   if ((%sys.buffer >= 0) && (%sys.buffer < 11)) {
  1859.     set %sys.infodelay $strip(%sys.buffer,burc)
  1860.   }
  1861.  
  1862.   if ( $did(125).state >= 1 ) {
  1863.     set %sys.TurnOffMBM 1
  1864.   }
  1865.   else {
  1866.     set %sys.TurnOffMBM 0
  1867.   }
  1868.  
  1869.   unset %sys.icustomline
  1870.   set %sys.icustcount 0
  1871.  
  1872.   ;BEGIN NEW ICUST DIALOG SAVE CODE
  1873.   unset %sys.icustomline
  1874.   set %sys.icustcount 0
  1875.   set %sys.count 0
  1876.  
  1877.   while ( %sys.count < $did(syssetup,98).lines ) {
  1878.     inc %sys.count
  1879.     set %sys.icustcount $did(syssetup,98).lines
  1880.  
  1881.     if ( $did(syssetup,98,%sys.count).text == OS ) {
  1882.       set %sys.icustomline %sys.icustomline $+ OS
  1883.       if ( %sys.count < $did(syssetup,98).lines ) {
  1884.         set %sys.icustomline %sys.icustomline $+ ,
  1885.       }
  1886.     }
  1887.  
  1888.     if ( $did(syssetup,98,%sys.count).text == Bandwidth ) {
  1889.       set %sys.icustomline %sys.icustomline $+ BW
  1890.       if ( %sys.count < $did(syssetup,98).lines ) {
  1891.         set %sys.icustomline %sys.icustomline $+ ,
  1892.       }
  1893.     }
  1894.  
  1895.     if ( $did(syssetup,98,%sys.count).text == Install Info ) {
  1896.       set %sys.icustomline %sys.icustomline $+ OSINFO
  1897.       if ( %sys.count < $did(syssetup,98).lines ) {
  1898.         set %sys.icustomline %sys.icustomline $+ ,
  1899.       }
  1900.     }
  1901.  
  1902.     if ( $did(syssetup,98,%sys.count).text == Uptime ) {
  1903.       set %sys.icustomline %sys.icustomline $+ UPTIME
  1904.       if ( %sys.count < $did(syssetup,98).lines ) {
  1905.         set %sys.icustomline %sys.icustomline $+ ,
  1906.       }
  1907.     }
  1908.  
  1909.     if ( $did(syssetup,98,%sys.count).text == Record Uptime ) {
  1910.       set %sys.icustomline %sys.icustomline $+ RECUP
  1911.       if ( %sys.count < $did(syssetup,98).lines ) {
  1912.         set %sys.icustomline %sys.icustomline $+ ,
  1913.       }
  1914.     }
  1915.  
  1916.     if ( $did(syssetup,98,%sys.count).text == CPU Info ) {
  1917.       set %sys.icustomline %sys.icustomline $+ CPU
  1918.       if ( %sys.count < $did(syssetup,98).lines ) {
  1919.         set %sys.icustomline %sys.icustomline $+ ,
  1920.       }
  1921.     }
  1922.  
  1923.     if ( $did(syssetup,98,%sys.count).text == RAM Usage ) {
  1924.       set %sys.icustomline %sys.icustomline $+ RAM
  1925.       if ( %sys.count < $did(syssetup,98).lines ) {
  1926.         set %sys.icustomline %sys.icustomline $+ ,
  1927.       }
  1928.  
  1929.     }
  1930.  
  1931.     if ( $did(syssetup,98,%sys.count).text == Page File ) {
  1932.       set %sys.icustomline %sys.icustomline $+ PAGE
  1933.       if ( %sys.count < $did(syssetup,98).lines ) {
  1934.         set %sys.icustomline %sys.icustomline $+ ,
  1935.       }
  1936.     }
  1937.  
  1938.     if ( $did(syssetup,98,%sys.count).text == Display Info ) {
  1939.       set %sys.icustomline %sys.icustomline $+ DISPLAY
  1940.       if ( %sys.count < $did(syssetup,98).lines ) {
  1941.         set %sys.icustomline %sys.icustomline $+ ,
  1942.       }
  1943.     }
  1944.  
  1945.     if ( $did(syssetup,98,%sys.count).text == Virtual Memory ) {
  1946.       set %sys.icustomline %sys.icustomline $+ VMEM
  1947.       if ( %sys.count < $did(syssetup,98).lines ) {
  1948.         set %sys.icustomline %sys.icustomline $+ ,
  1949.       }
  1950.     }
  1951.  
  1952.     if ( $did(syssetup,98,%sys.count).text == Network Interfaces ) {
  1953.       set %sys.icustomline %sys.icustomline $+ NI
  1954.       if ( %sys.count < $did(syssetup,98).lines ) {
  1955.         set %sys.icustomline %sys.icustomline $+ ,
  1956.       }
  1957.     }
  1958.  
  1959.     if ( $did(syssetup,98,%sys.count).text == Connection Info ) {
  1960.       set %sys.icustomline %sys.icustomline $+ CONN
  1961.       if ( %sys.count < $did(syssetup,98).lines ) {
  1962.         set %sys.icustomline %sys.icustomline $+ ,
  1963.       }
  1964.     }
  1965.  
  1966.     if ( $did(syssetup,98,%sys.count).text == Graphics Card ) {
  1967.       set %sys.icustomline %sys.icustomline $+ GFXCARD
  1968.       if ( %sys.count < $did(syssetup,98).lines ) {
  1969.         set %sys.icustomline %sys.icustomline $+ ,
  1970.       }
  1971.     }
  1972.  
  1973.     if ( $did(syssetup,98,%sys.count).text ==  Sound Card ) {
  1974.       set %sys.icustomline %sys.icustomline $+ SNDCARD
  1975.       if ( %sys.count < $did(syssetup,98).lines ) {
  1976.         set %sys.icustomline %sys.icustomline $+ ,
  1977.       }
  1978.     }
  1979.  
  1980.     if ( $did(syssetup,98,%sys.count).text == Hard Disks ) {
  1981.       set %sys.icustomline %sys.icustomline $+ HDD
  1982.       if ( %sys.count < $did(syssetup,98).lines ) {
  1983.         set %sys.icustomline %sys.icustomline $+ ,
  1984.       }
  1985.     }
  1986.  
  1987.     if ( $did(syssetup,98,%sys.count).text == Temperature ) {
  1988.       set %sys.icustomline %sys.icustomline $+ TEMP
  1989.       if ( %sys.count < $did(syssetup,98).lines ) {
  1990.         set %sys.icustomline %sys.icustomline $+ ,
  1991.       }
  1992.     }
  1993.  
  1994.     if ( $did(syssetup,98,%sys.count).text == Voltages ) {
  1995.       set %sys.icustomline %sys.icustomline $+ VOLTS
  1996.       if ( %sys.count < $did(syssetup,98).lines ) {
  1997.         set %sys.icustomline %sys.icustomline $+ ,
  1998.       }
  1999.     }
  2000.  
  2001.     if ( $did(syssetup,98,%sys.count).text == Monitor ) {
  2002.       set %sys.icustomline %sys.icustomline $+ MONI
  2003.       if ( %sys.count < $did(syssetup,98).lines ) {
  2004.         set %sys.icustomline %sys.icustomline $+ ,
  2005.       }
  2006.     }
  2007.   }
  2008.   if ( %sys.icustcount == 0 ) {
  2009.     set %sys.icustomline NOTHING
  2010.   }
  2011.  
  2012.   ;END NEW ICUST DIALOG SAVE CODE
  2013.  
  2014. }
  2015.  
  2016. on *:dialog:syssetup:sclick:101:{
  2017.   if ( $did(syssetup,100).sel != $null ) {
  2018.     did -a syssetup 98 $did(syssetup,100).seltext
  2019.     did -d syssetup 100 $did(syssetup,100).sel
  2020.   }
  2021. }
  2022.  
  2023. on *:dialog:syssetup:sclick:69:{
  2024.   ni -change
  2025. }
  2026.  
  2027.  
  2028. on *:dialog:syssetup:sclick:102:{
  2029.   while ( $did(syssetup,100).lines > 0 ) {
  2030.     did -a syssetup 98 $did(syssetup,100,1).text
  2031.     did -d syssetup 100 1
  2032.   }
  2033. }
  2034.  
  2035. on *:dialog:syssetup:sclick:109:{
  2036.   while ( $did(syssetup,98).lines > 0 ) {
  2037.     did -a syssetup 100 $did(syssetup,98,1).text
  2038.     did -d syssetup 98 1
  2039.   }
  2040. }
  2041.  
  2042. on *:dialog:syssetup:sclick:110:{
  2043.   set %sys.buffer $did(syssetup,98).sel
  2044.   if ((%sys.buffer != $null) && (%sys.buffer > 1)) {
  2045.     did -i syssetup 98 $calc(%sys.buffer + 1) $did(syssetup,98,$calc(%sys.buffer - 1)).text
  2046.     did -d syssetup 98 $calc(%sys.buffer - 1)
  2047.   }
  2048. }
  2049.  
  2050. on *:dialog:syssetup:sclick:111:{
  2051.   set %sys.buffer $did(syssetup,98).sel
  2052.   if ((%sys.buffer != $null) && (%sys.buffer < $did(syssetup,98).lines)) {
  2053.     did -i syssetup 98 %sys.buffer $did(syssetup,98,$calc(%sys.buffer + 1)).text
  2054.     did -d syssetup 98 $calc(%sys.buffer + 2)
  2055.   }
  2056. }
  2057.  
  2058. on *:dialog:syssetup:sclick:108:{
  2059.   if ( $did(syssetup,98).sel != $null ) {
  2060.     did -a syssetup 100 $did(syssetup,98).seltext
  2061.     did -d syssetup 98 $did(syssetup,98).sel
  2062.   }
  2063. }
  2064.  
  2065. ; <<<<< BEGIN PREVIEW CODE >>>>>
  2066.  
  2067. on 1:dialog:syssetup:sclick:59:{
  2068.  
  2069.   ; <<<<< BEGIN BACKUP VALUES >>>>>
  2070.  
  2071.   set %sys.encLeftvar.backup %sys.encLeftvar
  2072.   set %sys.encRightvar.backup %sys.encRightvar
  2073.   set %sys.encU.backup %sys.encU
  2074.   set %sys.encBold.backup %sys.encBold
  2075.   set %sys.encCol.backup %sys.encCol
  2076.   set %sys.valCol.backup %sys.valCol
  2077.   set %sys.valU.backup %sys.valU
  2078.   set %sys.valBold.backup %sys.valBold
  2079.   set %sys.headCol.backup %sys.headCol
  2080.   set %sys.headU.backup %sys.headU
  2081.   set %sys.headBold.backup %sys.headBold
  2082.   set %sys.sepWith.backup %sys.sepWith
  2083.   set %sys.sepCol.backup %sys.sepCol
  2084.   set %sys.sepBold.backup %sys.sepBold
  2085.   set %sys.sepU.backup %sys.sepU
  2086.   set %sys.removeALLformatting.backup %sys.removeALLformatting
  2087.  
  2088.   ; <<<<< END BACKUP VALUES >>>>>
  2089.  
  2090.   ; <<<<< BEGIN GATHERING VALUES >>>>>
  2091.  
  2092.   set %sys.buffer $did(3).text
  2093.   set %sys.encLeftvar $strip(%sys.buffer,burc)
  2094.  
  2095.   set %sys.buffer $did(5).text
  2096.   set %sys.encRightvar $strip(%sys.buffer,burc)
  2097.  
  2098.   set %sys.buffer $did(19).text
  2099.   set %sys.sepWith $strip(%sys.buffer,burc)
  2100.  
  2101.   if ( $did(99).state >= 1 ) {
  2102.     set %sys.removeALLformatting 1
  2103.   }
  2104.   else {
  2105.     set %sys.removeALLformatting 0
  2106.   }  
  2107.  
  2108.   if ( $did(12).state >= 1 ) {
  2109.     set %sys.valBold 1
  2110.   }
  2111.   else {
  2112.     set %sys.valBold 0
  2113.   }
  2114.  
  2115.   if ( $did(13).state >= 1 ) {
  2116.     set %sys.valU 1
  2117.   }
  2118.   else {
  2119.     set %sys.valU 0
  2120.   }
  2121.  
  2122.   if ( $did(15).state >= 1 ) {
  2123.     set %sys.headBold 1
  2124.   }
  2125.   else {
  2126.     set %sys.headBold 0
  2127.   }
  2128.  
  2129.   if ( $did(16).state >= 1 ) {
  2130.     set %sys.headU 1
  2131.   }
  2132.   else {
  2133.     set %sys.headU 0
  2134.   }
  2135.  
  2136.   if ( $did(57).state >= 1 ) {
  2137.     set %sys.encBold 1
  2138.   }
  2139.   else {
  2140.     set %sys.encBold 0
  2141.   }
  2142.  
  2143.   if ( $did(58).state >= 1 ) {
  2144.     set %sys.encU 1
  2145.   }
  2146.   else {
  2147.     set %sys.encU 0
  2148.   }
  2149.  
  2150.   if ( $did(44).state >= 1 ) {
  2151.     set %sys.sepBold 1
  2152.   }
  2153.   else {
  2154.     set %sys.sepBold 0
  2155.   }
  2156.  
  2157.   if ( $did(45).state >= 1 ) {
  2158.     set %sys.sepU 1
  2159.   }
  2160.   else {
  2161.     set %sys.sepU 0
  2162.   }
  2163.  
  2164.   if ( $did(61).sel == 17 ) {
  2165.     set %sys.encCol 99
  2166.   }
  2167.   else {
  2168.     set %sys.encCol $calc($did(61).sel - 1)
  2169.   }
  2170.  
  2171.   if ( $did(42).sel == 17 ) {
  2172.     set %sys.sepCol 99
  2173.   }
  2174.   else {
  2175.     set %sys.sepCol $calc($did(42).sel - 1)
  2176.   }
  2177.  
  2178.   if ( $did(6).sel == 17 ) {
  2179.     set %sys.valCol 99
  2180.   }
  2181.   else {
  2182.     set %sys.valCol $calc($did(6).sel - 1)
  2183.   }
  2184.  
  2185.   if ( $did(8).sel == 17 ) {
  2186.     set %sys.headCol 99
  2187.   }
  2188.   else {
  2189.     set %sys.headCol $calc($did(8).sel - 1)
  2190.   }
  2191.  
  2192.   ; <<<<< END GATHERING VALUES >>>>>
  2193.  
  2194.   setupcolours
  2195.  
  2196.   ; <<<<< BEING MAKING WINDOW >>>>>
  2197.  
  2198.   window -c @SystemInfo
  2199.  
  2200.   window -ab @SystemInfo
  2201.  
  2202.   /aline @SystemInfo *** These are the CURRENT SETTINGS IN YOUR DIALOG.  None of your official settings have been altered.
  2203.   /aline @SystemInfo *** TO NOT USE THESE SETTINGS. Just click "Exit Without Save" in the dialog.
  2204.  
  2205.   set %sys.rb_size 30
  2206.   rambar
  2207.  
  2208.   DoUptimeStuff
  2209.  
  2210.   set %sys.output $SIHeader(Operating System) $SIItemOutput($SI(OS)) $SIDelib $SIHeader(Uptime) $SIItemOutput(%sys.UptimeOutput) $SIDelib $SIHeader(Record) $SIItemOutput(%sys.RecordUptime)
  2211.   if ( %sys.removeALLformatting == 1 ) {
  2212.     /aline @SystemInfo $strip(%sys.output,burc)
  2213.   }
  2214.   else {
  2215.     /aline @SystemInfo %sys.output
  2216.   }
  2217.   unset %sys.output
  2218.   set %sys.output $SIHeader(Memory Usage) $SIItemOutput($dll($scriptdirmoo.dll,meminfo,_)) $SIDelib $result $SIHeader(Display Info) $SIItemOutput($dll($scriptdirmoo.dll,screeninfo,_)) $SIDelib $SIHeader(Monitor) $SIItemOutput(%sys.monitor)
  2219.   if ( %sys.removeALLformatting == 1 ) {
  2220.     /aline @SystemInfo $strip(%sys.output,burc)
  2221.   }
  2222.   else {
  2223.     /aline @SystemInfo %sys.output
  2224.   }
  2225.   unset %sys.output
  2226.  
  2227.  
  2228.   getmbm5info
  2229.  
  2230.   set %sys.output $SIHeader(CPU Info) $SIItemOutput($si(CPU))
  2231.   set %sys.output %sys.output $SIDelib $SIHeader($getmbm5info)
  2232.   if ( %sys.removeALLformatting == 1 ) {
  2233.     /aline @SystemInfo $strip(%sys.output,burc)
  2234.   }
  2235.   else {
  2236.     /aline @SystemInfo %sys.output
  2237.   }
  2238.   unset %sys.output
  2239.  
  2240.   /calcspace
  2241.   /calcspace2
  2242.  
  2243.   set %sys.output $SIHeader(Hard Disks) $SIItemOutput(%sys.BoldHeader $+ %sys.UnderLineHeader $+  $+ %sys.HeadColourVar $+ Total $+ %sys.sepColourvar $+ %sys.BoldHeader $+ %sys.UnderLineHeader $+ / $+ %sys.BoldHeader $+ %sys.UnderLineHeader $+  $+ %sys.HeadColourVar $+ Free $+ %sys.BoldHeader $+ %sys.UnderLineHeader $+ :  $+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+ %sys.total.size $+  $+ %sys.sepColourvar $+ / $+ %sys.ValueColourVar $+ %sys.total.free $+ %sys.byteunit $+ %sys.UnderLineValue $+ %sys.BoldValue $SIDelib %sys.bigstring)
  2244.   if ( %sys.removeALLformatting == 1 ) {
  2245.     /aline @SystemInfo $strip(%sys.output,burc)
  2246.   }
  2247.   else {
  2248.     /aline @SystemInfo %sys.output
  2249.   }
  2250.   unset %sys.output
  2251.  
  2252.  
  2253.   set %sys.output $SIHeader(Connection/Network) $SIItemOutput($SI(NI))
  2254.   if ( %sys.removeALLformatting == 1 ) {
  2255.     /aline @SystemInfo $strip(%sys.output,burc)
  2256.   }
  2257.   else {
  2258.     /aline @SystemInfo %sys.output
  2259.   }
  2260.   unset %sys.output
  2261.  
  2262.   /aline @SystemInfo *** These are the CURRENT SETTINGS IN YOUR DIALOG.  None of your official settings have been altered.
  2263.   /aline @SystemInfo *** TO NOT USE THESE SETTINGS. Just click "Exit Without Save" in the dialog.
  2264.  
  2265.   ; <<<<< END WINDOW CODE >>>>>
  2266.  
  2267.   ; <<<<< BEING RE-DOING VARS >>>>>
  2268.  
  2269.   set %sys.encLeftvar %sys.encLeftvar.backup
  2270.   set %sys.encRightvar %sys.encRightvar.backup
  2271.   set %sys.encU %sys.encU.backup
  2272.   set %sys.encBold %sys.encBold.backup
  2273.   set %sys.encCol %sys.encCol.backup
  2274.   set %sys.valCol %sys.valCol.backup
  2275.   set %sys.valU %sys.valU.backup
  2276.   set %sys.valBold %sys.valBold.backup
  2277.   set %sys.headCol %sys.headCol.backup
  2278.   set %sys.headU %sys.headU.backup
  2279.   set %sys.headBold %sys.headBold.backup
  2280.   set %sys.sepWith %sys.sepWith.backup
  2281.   set %sys.sepCol %sys.sepCol.backup
  2282.   set %sys.sepBold %sys.sepBold.backup
  2283.   set %sys.sepU %sys.sepU.backup
  2284.   set %sys.removeALLformatting %sys.removeALLformatting.backup
  2285.  
  2286.   ; <<<<< END RE-DOING VARS >>>>>
  2287.  
  2288. }
  2289.  
  2290. ; <<<<< END PREVIEW CODE >>>>>
  2291.  
  2292. on 1:dialog:syssetup:sclick:46:{
  2293.   run $shortfn($scriptdir $+ SystemInfoHelp\Index.html)
  2294. }
  2295.  
  2296. ; <<<<< BEGIN DELETE CODE >>>>>
  2297.  
  2298. on 1:dialog:syssetup:sclick:90:{
  2299.  
  2300.   if ( $?!="Are you sure you want to delete the theme?!" == $false ) {
  2301.     goto veryend
  2302.   }
  2303.  
  2304.   set %sys.buffer $did(87).sel
  2305.  
  2306.   if ( %sys.buffer == $null ) {
  2307.     goto veryend
  2308.   }
  2309.  
  2310.   set %sys.buffer $ini($shortfn($scriptdir $+ systhemes.ini),%sys.buffer)
  2311.  
  2312.   remini $shortfn($scriptdir $+ systhemes.ini) %sys.buffer
  2313.   buildThemesMenu
  2314.   :veryend
  2315. }
  2316.  
  2317. ; <<<<< END DELETE CODE >>>>>
  2318.  
  2319. ; <<<<< BEGIN SAVE CODE >>>>>
  2320.  
  2321. on 1:dialog:syssetup:sclick:84:{
  2322.  
  2323.   set %sys.ini $ini($shortfn($scriptdir $+ systhemes.ini),0)
  2324.   set %sys.ini $ini($shortfn($scriptdir $+ systhemes.ini),%sys.ini)
  2325.   set %sys.ini $calc(%sys.ini + 1)
  2326.  
  2327.   set %sys.buffer $$?="Enter a name for your theme!"
  2328.  
  2329.   :name
  2330.  
  2331.   while ( %sys.buffer == $null ) {
  2332.     set %sys.buffer $$?="Enter a name for your theme!"
  2333.   }
  2334.  
  2335.   writeini " $+ $shortfn($scriptdir $+ systhemes.ini) $+ " %sys.ini name %sys.buffer
  2336.  
  2337.   writeini " $+ $shortfn($scriptdir $+ systhemes.ini) $+ " %sys.ini version %sys.simpleversion
  2338.  
  2339.   set %sys.buffer $did(3).text
  2340.   if ( %sys.buffer == $null ) {
  2341.     writeini " $+ $shortfn($scriptdir $+ systhemes.ini) $+ " %sys.ini encLeftVar <NO VALUE>
  2342.   }
  2343.   else {
  2344.     writeini " $+ $shortfn($scriptdir $+ systhemes.ini) $+ " %sys.ini encLeftVar $strip(%sys.buffer,burc)
  2345.   }
  2346.  
  2347.  
  2348.   set %sys.buffer $did(5).text
  2349.   if ( %sys.buffer == $null ) {
  2350.     writeini " $+ $shortfn($scriptdir $+ systhemes.ini) $+ " %sys.ini encRightvar <NO VALUE>
  2351.   }
  2352.   else {
  2353.     writeini " $+ $shortfn($scriptdir $+ systhemes.ini) $+ " %sys.ini encRightvar $strip(%sys.buffer,burc)
  2354.   }
  2355.  
  2356.   set %sys.buffer $did(19).text
  2357.   if ( %sys.buffer == $null ) {
  2358.     writeini " $+ $shortfn($scriptdir $+ systhemes.ini) $+ " %sys.ini sepWith <NO VALUE>
  2359.   }
  2360.   else {
  2361.     writeini " $+ $shortfn($scriptdir $+ systhemes.ini) $+ " %sys.ini sepWith $strip(%sys.buffer,burc)
  2362.   }
  2363.  
  2364.   if ( $did(12).state >= 1 ) {
  2365.     writeini " $+ $shortfn($scriptdir $+ systhemes.ini) $+ " %sys.ini valBold 1
  2366.   }
  2367.   else {
  2368.     writeini " $+ $shortfn($scriptdir $+ systhemes.ini) $+ " %sys.ini valBold 0
  2369.   }
  2370.  
  2371.   if ( $did(13).state >= 1 ) {
  2372.     writeini " $+ $shortfn($scriptdir $+ systhemes.ini) $+ " %sys.ini valU 1
  2373.   }
  2374.   else {
  2375.     writeini " $+ $shortfn($scriptdir $+ systhemes.ini) $+ " %sys.ini valU 0
  2376.   }
  2377.  
  2378.   if ( $did(15).state >= 1 ) {
  2379.     writeini " $+ $shortfn($scriptdir $+ systhemes.ini) $+ " %sys.ini headBold 1
  2380.   }
  2381.   else {
  2382.     writeini " $+ $shortfn($scriptdir $+ systhemes.ini) $+ " %sys.ini headBold 0
  2383.   }
  2384.  
  2385.   if ( $did(16).state >= 1 ) {
  2386.     writeini " $+ $shortfn($scriptdir $+ systhemes.ini) $+ " %sys.ini headU 1
  2387.   }
  2388.   else {
  2389.     writeini " $+ $shortfn($scriptdir $+ systhemes.ini) $+ " %sys.ini headU 0
  2390.   }
  2391.  
  2392.   if ( $did(57).state >= 1 ) {
  2393.     writeini " $+ $shortfn($scriptdir $+ systhemes.ini) $+ " %sys.ini encBold 1
  2394.   }
  2395.   else {
  2396.     writeini " $+ $shortfn($scriptdir $+ systhemes.ini) $+ " %sys.ini encBold 0
  2397.   }
  2398.  
  2399.   if ( $did(58).state >= 1 ) {
  2400.     writeini " $+ $shortfn($scriptdir $+ systhemes.ini) $+ " %sys.ini encU 1
  2401.   }
  2402.   else {
  2403.     writeini " $+ $shortfn($scriptdir $+ systhemes.ini) $+ " %sys.ini encU 0
  2404.   }
  2405.  
  2406.   if ( $did(44).state >= 1 ) {
  2407.     writeini " $+ $shortfn($scriptdir $+ systhemes.ini) $+ " %sys.ini sepBold 1
  2408.   }
  2409.   else {
  2410.     writeini " $+ $shortfn($scriptdir $+ systhemes.ini) $+ " %sys.ini sepBold 0
  2411.   }
  2412.  
  2413.   if ( $did(45).state >= 1 ) {
  2414.     writeini " $+ $shortfn($scriptdir $+ systhemes.ini) $+ " %sys.ini sepU 1
  2415.   }
  2416.   else {
  2417.     writeini " $+ $shortfn($scriptdir $+ systhemes.ini) $+ " %sys.ini sepU 0
  2418.   }
  2419.  
  2420.   if ( $did(61).sel == 17 ) {
  2421.     writeini " $+ $shortfn($scriptdir $+ systhemes.ini) $+ " %sys.ini encCol 99
  2422.   }
  2423.   else {
  2424.     writeini " $+ $shortfn($scriptdir $+ systhemes.ini) $+ " %sys.ini encCol $calc($did(61).sel - 1)
  2425.   }
  2426.  
  2427.   if ( $did(42).sel == 17 ) {
  2428.     writeini " $+ $shortfn($scriptdir $+ systhemes.ini) $+ " %sys.ini sepCol 99
  2429.   }
  2430.   else {
  2431.     writeini " $+ $shortfn($scriptdir $+ systhemes.ini) $+ " %sys.ini sepCol $calc($did(42).sel - 1)
  2432.   }
  2433.  
  2434.   if ( $did(6).sel == 17 ) {
  2435.     writeini " $+ $shortfn($scriptdir $+ systhemes.ini) $+ " %sys.ini valCol 99
  2436.   }
  2437.   else {
  2438.     writeini " $+ $shortfn($scriptdir $+ systhemes.ini) $+ " %sys.ini valCol $calc($did(6).sel - 1)
  2439.   }
  2440.  
  2441.   if ( $did(8).sel == 17 ) {
  2442.     writeini " $+ $shortfn($scriptdir $+ systhemes.ini) $+ " %sys.ini headCol 99
  2443.   }
  2444.   else {
  2445.     writeini " $+ $shortfn($scriptdir $+ systhemes.ini) $+ " %sys.ini headCol $calc($did(8).sel - 1)
  2446.   }
  2447.  
  2448.   buildThemesMenu
  2449.  
  2450. }
  2451.  
  2452. ; <<<<< END SAVE CODE >>>>>
  2453.  
  2454. ; <<<<< BEGIN EXPORT CODE >>>>>
  2455.  
  2456. on 1:dialog:syssetup:sclick:85:{
  2457.  
  2458.   set %sys.ini 1
  2459.  
  2460.   set %sys.buffer $$?="Please enter a file name without an extension! (NO SPACES)"
  2461.  
  2462.   set %sys.iniexpath $shortfn($scriptdir $+ Themes\ $+ %sys.buffer $+ .thm)
  2463.  
  2464.   while ( %sys.iniexpath == $true ) {
  2465.  
  2466.     set %sys.buffer $$?="That file name exists, please specifiy another name! (NO SPACES)"
  2467.  
  2468.     set %sys.iniexpath $shortfn($scriptdir $+ Themes\ $+ %sys.buffer $+ .thm)
  2469.  
  2470.   }
  2471.  
  2472.   set %sys.buffer2 $$?="Please enter a name for the theme!"
  2473.  
  2474.   while ( %sys.buffer2 == $null ) {
  2475.  
  2476.     set %sys.buffer2 $$?="Please enter a name for the theme!"
  2477.  
  2478.   }
  2479.  
  2480.  
  2481.   writeini " $+ %sys.iniexpath $+ " %sys.ini name %sys.buffer2
  2482.  
  2483.   writeini " $+ %sys.iniexpath $+ " %sys.ini version %sys.simpleversion
  2484.  
  2485.   set %sys.buffer $did(3).text
  2486.   if ( %sys.buffer == $null ) {
  2487.     writeini " $+ %sys.iniexpath $+ " %sys.ini encLeftVar <NO VALUE>
  2488.   }
  2489.   else {
  2490.     writeini " $+ %sys.iniexpath $+ " %sys.ini encLeftVar $strip(%sys.buffer,burc)
  2491.   }
  2492.  
  2493.   set %sys.buffer $did(5).text
  2494.   if ( %sys.buffer == $null ) {
  2495.     writeini " $+ %sys.iniexpath $+ " %sys.ini encRightvar <NO VALUE>
  2496.   }
  2497.   else {
  2498.     writeini " $+ %sys.iniexpath $+ " %sys.ini encRightvar $strip(%sys.buffer,burc)
  2499.   }
  2500.  
  2501.   set %sys.buffer $did(19).text
  2502.   if ( %sys.buffer == $null ) {
  2503.     writeini " $+ %sys.iniexpath $+ " %sys.ini sepWith <NO VALUE>
  2504.   }
  2505.   else {
  2506.     writeini " $+ %sys.iniexpath $+ " %sys.ini sepWith $strip(%sys.buffer,burc)
  2507.   }
  2508.  
  2509.   if ( $did(12).state >= 1 ) {
  2510.     writeini " $+ %sys.iniexpath $+ " %sys.ini valBold 1
  2511.   }
  2512.   else {
  2513.     writeini " $+ %sys.iniexpath $+ " %sys.ini valBold 0
  2514.   }
  2515.  
  2516.   if ( $did(13).state >= 1 ) {
  2517.     writeini " $+ %sys.iniexpath $+ " %sys.ini valU 1
  2518.   }
  2519.   else {
  2520.     writeini " $+ %sys.iniexpath $+ " %sys.ini valU 0
  2521.   }
  2522.  
  2523.   if ( $did(15).state >= 1 ) {
  2524.     writeini " $+ %sys.iniexpath $+ " %sys.ini headBold 1
  2525.   }
  2526.   else {
  2527.     writeini " $+ %sys.iniexpath $+ " %sys.ini headBold 0
  2528.   }
  2529.  
  2530.   if ( $did(16).state >= 1 ) {
  2531.     writeini " $+ %sys.iniexpath $+ " %sys.ini headU 1
  2532.   }
  2533.   else {
  2534.     writeini " $+ %sys.iniexpath $+ " %sys.ini headU 0
  2535.   }
  2536.  
  2537.   if ( $did(57).state >= 1 ) {
  2538.     writeini " $+ %sys.iniexpath $+ " %sys.ini encBold 1
  2539.   }
  2540.   else {
  2541.     writeini " $+ %sys.iniexpath $+ " %sys.ini encBold 0
  2542.   }
  2543.  
  2544.   if ( $did(58).state >= 1 ) {
  2545.     writeini " $+ %sys.iniexpath $+ " %sys.ini encU 1
  2546.   }
  2547.   else {
  2548.     writeini " $+ %sys.iniexpath $+ " %sys.ini encU 0
  2549.   }
  2550.  
  2551.   if ( $did(44).state >= 1 ) {
  2552.     writeini " $+ %sys.iniexpath $+ " %sys.ini sepBold 1
  2553.   }
  2554.   else {
  2555.     writeini " $+ %sys.iniexpath $+ " %sys.ini sepBold 0
  2556.   }
  2557.  
  2558.   if ( $did(45).state >= 1 ) {
  2559.     writeini " $+ %sys.iniexpath $+ " %sys.ini sepU 1
  2560.   }
  2561.   else {
  2562.     writeini " $+ %sys.iniexpath $+ " %sys.ini sepU 0
  2563.   }
  2564.  
  2565.   if ( $did(61).sel == 17 ) {
  2566.     writeini " $+ %sys.iniexpath $+ " %sys.ini encCol 99
  2567.   }
  2568.   else {
  2569.     writeini " $+ %sys.iniexpath $+ " %sys.ini encCol $calc($did(61).sel - 1)
  2570.   }
  2571.  
  2572.   if ( $did(42).sel == 17 ) {
  2573.     writeini " $+ %sys.iniexpath $+ " %sys.ini sepCol 99
  2574.   }
  2575.   else {
  2576.     writeini " $+ %sys.iniexpath $+ " %sys.ini sepCol $calc($did(42).sel - 1)
  2577.   }
  2578.  
  2579.   if ( $did(6).sel == 17 ) {
  2580.     writeini " $+ %sys.iniexpath $+ " %sys.ini valCol 99
  2581.   }
  2582.   else {
  2583.     writeini " $+ %sys.iniexpath $+ " %sys.ini valCol $calc($did(6).sel - 1)
  2584.   }
  2585.  
  2586.   if ( $did(8).sel == 17 ) {
  2587.     writeini " $+ %sys.iniexpath $+ " %sys.ini headCol 99
  2588.   }
  2589.   else {
  2590.     writeini " $+ %sys.iniexpath $+ " %sys.ini headCol $calc($did(8).sel - 1)
  2591.   }
  2592.  
  2593. }
  2594.  
  2595. ; <<<<< END EXPORT CODE >>>>>
  2596.  
  2597. ; <<<<< BEGIN APPLY CODE >>>>>
  2598.  
  2599. on 1:dialog:syssetup:sclick:83:{
  2600.  
  2601.  
  2602.   set %sys.ini $did(87).sel
  2603.   set %sys.currenttheme $did(87).sel
  2604.   set %sys.ini $ini($shortfn($scriptdir $+ systhemes.ini),%sys.ini)
  2605.  
  2606.   if ( %sys.ini == $null ) {
  2607.     goto veryend
  2608.   }
  2609.  
  2610.   :continue
  2611.   did -r syssetup 3
  2612.   did -r syssetup 5
  2613.   did -r syssetup 19
  2614.   set %sys.buffer $readini $shortfn($scriptdir $+ systhemes.ini) %sys.ini encLeftVar
  2615.   if ( %sys.buffer == <NO VALUE> ) {
  2616.     did -r syssetup 3
  2617.   }
  2618.   else {
  2619.     did -a syssetup 3 %sys.buffer
  2620.   }
  2621.  
  2622.   set %sys.buffer $readini $shortfn($scriptdir $+ systhemes.ini) %sys.ini encRightVar
  2623.   if ( %sys.buffer == <NO VALUE> ) {
  2624.     did -r syssetup 5
  2625.   }
  2626.   else {
  2627.     did -a syssetup 5 %sys.buffer
  2628.   }
  2629.  
  2630.   set %sys.buffer $readini $shortfn($scriptdir $+ systhemes.ini) %sys.ini sepWith
  2631.   if ( %sys.buffer == <NO VALUE> ) {
  2632.     did -r syssetup 19
  2633.   }
  2634.   else {
  2635.     did -a syssetup 19 %sys.buffer
  2636.   }
  2637.  
  2638.   set %sys.buffer $readini $shortfn($scriptdir $+ systhemes.ini) %sys.ini valBold
  2639.  
  2640.   if ( %sys.buffer == 1 ) {
  2641.     did -c syssetup 12
  2642.   }
  2643.   else {
  2644.     did -u syssetup 12
  2645.   }
  2646.  
  2647.   set %sys.buffer $readini $shortfn($scriptdir $+ systhemes.ini) %sys.ini valU
  2648.  
  2649.   if ( %sys.buffer == 1 ) {
  2650.     did -c syssetup 13
  2651.   }
  2652.   else {
  2653.     did -u syssetup 13
  2654.   }
  2655.  
  2656.   set %sys.buffer $readini $shortfn($scriptdir $+ systhemes.ini) %sys.ini headBold
  2657.  
  2658.   if ( %sys.buffer == 1 ) {
  2659.     did -c syssetup 15
  2660.   }
  2661.   else {
  2662.     did -u syssetup 15
  2663.   }
  2664.  
  2665.   set %sys.buffer $readini $shortfn($scriptdir $+ systhemes.ini) %sys.ini headU
  2666.  
  2667.   if ( %sys.buffer == 1 ) {
  2668.     did -c syssetup 16
  2669.   }
  2670.   else {
  2671.     did -u syssetup 16
  2672.   }
  2673.  
  2674.   set %sys.buffer $readini $shortfn($scriptdir $+ systhemes.ini) %sys.ini encBold
  2675.  
  2676.   if ( %sys.buffer == 1 ) {
  2677.     did -c syssetup 57
  2678.   }
  2679.   else {
  2680.     did -u syssetup 57
  2681.   }
  2682.  
  2683.   set %sys.buffer $readini $shortfn($scriptdir $+ systhemes.ini) %sys.ini encU
  2684.  
  2685.   if ( %sys.buffer == 1 ) {
  2686.     did -c syssetup 58
  2687.   }
  2688.   else {
  2689.     did -u syssetup 58
  2690.   }
  2691.  
  2692.   set %sys.buffer $readini $shortfn($scriptdir $+ systhemes.ini) %sys.ini sepBold
  2693.  
  2694.   if ( %sys.buffer == 1 ) {
  2695.     did -c syssetup 44
  2696.   }
  2697.   else {
  2698.     did -u syssetup 44
  2699.   }
  2700.  
  2701.   set %sys.buffer $readini $shortfn($scriptdir $+ systhemes.ini) %sys.ini sepU
  2702.  
  2703.   if ( %sys.buffer == 1 ) {
  2704.     did -c syssetup 45
  2705.   }
  2706.   else {
  2707.     did -u syssetup 45
  2708.   }
  2709.  
  2710.   set %sys.buffer $readini $shortfn($scriptdir $+ systhemes.ini) %sys.ini encCol
  2711.  
  2712.   if ( %sys.buffer == 99 ) {
  2713.     did -c syssetup 61 17
  2714.   }
  2715.   else {
  2716.     did -c syssetup 61 $calc(%sys.buffer + 1)
  2717.   }
  2718.  
  2719.   set %sys.buffer $readini $shortfn($scriptdir $+ systhemes.ini) %sys.ini sepCol
  2720.  
  2721.   if ( %sys.buffer == 99 ) {
  2722.     did -c syssetup 42 17
  2723.   }
  2724.   else {
  2725.     did -c syssetup 42 $calc(%sys.buffer + 1)
  2726.   }
  2727.  
  2728.   set %sys.buffer $readini $shortfn($scriptdir $+ systhemes.ini) %sys.ini valCol
  2729.  
  2730.   if ( %sys.buffer == 99 ) {
  2731.     did -c syssetup 6 17
  2732.   }
  2733.   else {
  2734.     did -c syssetup 6 $calc(%sys.buffer + 1)
  2735.   }
  2736.  
  2737.   set %sys.buffer $readini $shortfn($scriptdir $+ systhemes.ini) %sys.ini headCol
  2738.  
  2739.   if ( %sys.buffer == 99 ) {
  2740.     did -c syssetup 8 17
  2741.   }
  2742.   else {
  2743.     did -c syssetup 8 $calc(%sys.buffer + 1)
  2744.   }
  2745.   :veryend
  2746. }
  2747.  
  2748. ; <<<<< END APPLY CODE >>>>>
  2749.  
  2750. ; <<<<< BEGIN IMPORT CODE >>>>>
  2751.  
  2752. on 1:dialog:syssetup:sclick:86:{
  2753.  
  2754.   set %sys.iniinpath $sfile($scriptdir $+ \Themes\,Find file to import!)
  2755.  
  2756.   if ( %sys.iniinpath == $null ) {
  2757.  
  2758.     goto veryend
  2759.  
  2760.   }
  2761.  
  2762.   set %sys.iniinpath $shortfn(%sys.iniinpath)
  2763.   set %sys.ini $ini($shortfn($scriptdir $+ systhemes.ini),0)
  2764.   set %sys.ini $ini($shortfn($scriptdir $+ systhemes.ini),%sys.ini)
  2765.   set %sys.ini $calc(%sys.ini + 1)
  2766.  
  2767.   writeini " $+ $shortfn($scriptdir $+ systhemes.ini) $+ " %sys.ini name $readini %sys.iniinpath 1 name
  2768.   writeini " $+ $shortfn($scriptdir $+ systhemes.ini) $+ " %sys.ini version $readini %sys.iniinpath 1 version
  2769.   writeini " $+ $shortfn($scriptdir $+ systhemes.ini) $+ " %sys.ini encLeftVar $readini %sys.iniinpath 1 encLeftVar
  2770.   writeini " $+ $shortfn($scriptdir $+ systhemes.ini) $+ " %sys.ini encRightVar $readini %sys.iniinpath 1 encRightVar
  2771.   writeini " $+ $shortfn($scriptdir $+ systhemes.ini) $+ " %sys.ini sepWith $readini %sys.iniinpath 1 sepWith
  2772.   writeini " $+ $shortfn($scriptdir $+ systhemes.ini) $+ " %sys.ini valBold $readini %sys.iniinpath 1 valBold
  2773.   writeini " $+ $shortfn($scriptdir $+ systhemes.ini) $+ " %sys.ini valU $readini %sys.iniinpath 1 valU
  2774.   writeini " $+ $shortfn($scriptdir $+ systhemes.ini) $+ " %sys.ini headBold $readini %sys.iniinpath 1 headBold
  2775.   writeini " $+ $shortfn($scriptdir $+ systhemes.ini) $+ " %sys.ini headU $readini %sys.iniinpath 1 headU
  2776.   writeini " $+ $shortfn($scriptdir $+ systhemes.ini) $+ " %sys.ini encBold $readini %sys.iniinpath 1 encBold
  2777.   writeini " $+ $shortfn($scriptdir $+ systhemes.ini) $+ " %sys.ini encU $readini %sys.iniinpath 1 encU
  2778.   writeini " $+ $shortfn($scriptdir $+ systhemes.ini) $+ " %sys.ini sepBold $readini %sys.iniinpath 1 sepBold
  2779.   writeini " $+ $shortfn($scriptdir $+ systhemes.ini) $+ " %sys.ini sepU $readini %sys.iniinpath 1 sepU
  2780.   writeini " $+ $shortfn($scriptdir $+ systhemes.ini) $+ " %sys.ini encCol $readini %sys.iniinpath 1 encCol
  2781.   writeini " $+ $shortfn($scriptdir $+ systhemes.ini) $+ " %sys.ini sepCol $readini %sys.iniinpath 1 sepCol
  2782.   writeini " $+ $shortfn($scriptdir $+ systhemes.ini) $+ " %sys.ini valCol $readini %sys.iniinpath 1 valCol
  2783.   writeini " $+ $shortfn($scriptdir $+ systhemes.ini) $+ " %sys.ini headCol $readini %sys.iniinpath 1 headCol
  2784.  
  2785.   buildThemesMenu
  2786.   :veryend
  2787. }
  2788.  
  2789. ; <<<<< END IMPORT CODE >>>>>
  2790.  
  2791. on *:DIALOG:syssetup:sclick:120:{
  2792.   run mailto:anhilator@fastrun.at
  2793. }
  2794.  
  2795. on *:DIALOG:syssetup:sclick:116:{
  2796.   run http://www.planet-pmp.com/
  2797. }
  2798.  
  2799. on *:DIALOG:syssetup:sclick:122:{
  2800.   run http://www.influenced.net/
  2801. }
  2802.  
  2803. on *:DIALOG:syssetup:sclick:124:{
  2804.   run http://www.darkengine.net/
  2805. }
  2806.  
  2807. on *:DIALOG:syssetup:sclick:118:{
  2808.   run http://www.phucknut.net/
  2809. }
  2810.  
  2811. on 1:dialog:syssetup:sclick:52:{
  2812.   run http://scripts.phucknut.net/
  2813. }
  2814.  
  2815. on 1:dialog:syssetup:sclick:54:{
  2816.   run mailto:irchs@btinternet.com
  2817. }
  2818.  
  2819. on 1:dialog:syssetup:sclick:56:{
  2820.   run http://www.mircscripts.org/dstudio/
  2821. }
  2822.  
  2823. on 1:dialog:syssetup:sclick:72:{
  2824.   run http://mbm.livewiredev.com
  2825. }
  2826.  
  2827. on 1:dialog:syssetup:sclick:48:{
  2828.   run mailto:irchs@btinternet.com
  2829. }
  2830.  
  2831. on 1:dialog:syssetup:sclick:34:{
  2832.   run http://bugs.phucknut.net
  2833. }
  2834.  
  2835. on 1:dialog:syssetup:sclick:23:{
  2836.   run $scriptdir $+ SystemInfoHelp/index.html
  2837. }
  2838.  
  2839. on 1:dialog:syssetup:sclick:74:{
  2840.   did -r syssetup 66
  2841.  
  2842.   did -a syssetup 66 $de(videocard)
  2843.  
  2844.  
  2845.   did -r syssetup 75
  2846.  
  2847.   did -a syssetup 75 $de(soundcard)
  2848.  
  2849.   did -r syssetup 79
  2850.  
  2851.   did -a syssetup 79 $de(monitor)
  2852.  
  2853. }
  2854.  
  2855. alias icust {
  2856.   ; This should be fun, Intelligent Custom Line
  2857.   unset %sys.output
  2858.   set %sys.parsecount 0
  2859.   setupcolours
  2860.   set %sys.rb_size 10
  2861.   calcspace
  2862.   calcspace2
  2863.   set %sys.tempcount 0
  2864.   while ( %sys.tempcount < $numtok(%sys.icustomline,44) ) {
  2865.     inc %sys.tempcount
  2866.     if ( OS == $gettok(%sys.icustomline,%sys.tempcount,44) ) {
  2867.       set %sys.output %sys.output $SIHeader(OS) $SIItemOutput($si(os))
  2868.       inc %sys.parsecount
  2869.       if ( %sys.icustcount > %sys.parsecount ) {
  2870.         set %sys.output %sys.output $SIDelib
  2871.       }
  2872.     }
  2873.  
  2874.     if ( OSINFO == $gettok(%sys.icustomline,%sys.tempcount,44) ) {
  2875.       set %sys.output %sys.output $SIHeader(OSInstall) $SIItemOutput($OSInstalledOn)
  2876.       inc %sys.parsecount
  2877.       if ( $len(%sys.output) > %sys.ICustMultiLine ) {
  2878.         OutputInfo %sys.output
  2879.         unset %sys.output
  2880.       }
  2881.       else {
  2882.         if ( %sys.icustcount > %sys.parsecount ) {
  2883.           set %sys.output %sys.output $SIDelib
  2884.         }
  2885.       }
  2886.     }
  2887.  
  2888.     if ( BW == $gettok(%sys.icustomline,%sys.tempcount,44) ) {
  2889.       set %sys.output %sys.output $SIHeader(BW) $SIItemOutput($si(BWD))
  2890.       inc %sys.parsecount
  2891.       if ( $len(%sys.output) > %sys.ICustMultiLine ) {
  2892.         OutputInfo %sys.output
  2893.         unset %sys.output
  2894.       }
  2895.       else {
  2896.         if ( %sys.icustcount > %sys.parsecount ) {
  2897.           set %sys.output %sys.output $SIDelib
  2898.         }
  2899.       }
  2900.     }
  2901.  
  2902.     if ( UPTIME == $gettok(%sys.icustomline,%sys.tempcount,44) ) {
  2903.  
  2904.       DoUptimeStuff
  2905.  
  2906.       set %sys.output %sys.output $SIHeader(Up) $SIItemOutput(%sys.UptimeOutput)
  2907.       inc %sys.parsecount
  2908.       if ( $len(%sys.output) > %sys.ICustMultiLine ) {
  2909.         OutputInfo %sys.output
  2910.         unset %sys.output
  2911.       }
  2912.       else {
  2913.         if ( %sys.icustcount > %sys.parsecount ) {
  2914.           set %sys.output %sys.output $SIDelib
  2915.         }
  2916.       }
  2917.     }
  2918.  
  2919.     if ( RECUP == $gettok(%sys.icustomline,%sys.tempcount,44) ) {
  2920.       set %sys.output %sys.output $SIHeader(RecUP) $SIItemOutput(%sys.RecordUptime)
  2921.       inc %sys.parsecount
  2922.       if ( $len(%sys.output) > %sys.ICustMultiLine ) {
  2923.         OutputInfo %sys.output
  2924.         unset %sys.output
  2925.       }
  2926.       else {
  2927.         if ( %sys.icustcount > %sys.parsecount ) {
  2928.           set %sys.output %sys.output $SIDelib
  2929.         }
  2930.       }
  2931.     }
  2932.  
  2933.     if ( CPU == $gettok(%sys.icustomline,%sys.tempcount,44) ) {
  2934.       set %sys.output %sys.output $SIHeader(CPU) $SIItemOutput($si(CPU))
  2935.       inc %sys.parsecount
  2936.       if ( $len(%sys.output) > %sys.ICustMultiLine ) {
  2937.         OutputInfo %sys.output
  2938.         unset %sys.output
  2939.       }
  2940.       else {
  2941.         if ( %sys.icustcount > %sys.parsecount ) {
  2942.           set %sys.output %sys.output $SIDelib
  2943.         }
  2944.       }
  2945.     }
  2946.  
  2947.     if ( TEMP == $gettok(%sys.icustomline,%sys.tempcount,44) ) {
  2948.       getmbm5info
  2949.       set %sys.output %sys.output $SIHeader(Temp) $SIItemOutput($getmbm5info)
  2950.       inc %sys.parsecount
  2951.       if ( $len(%sys.output) > %sys.ICustMultiLine ) {
  2952.         OutputInfo %sys.output
  2953.         unset %sys.output
  2954.       }
  2955.       else {
  2956.         if ( %sys.icustcount > %sys.parsecount ) {
  2957.           set %sys.output %sys.output $SIDelib
  2958.         }
  2959.       }
  2960.     }
  2961.  
  2962.     if ( RAM == $gettok(%sys.icustomline,%sys.tempcount,44) ) {
  2963.       set %sys.output %sys.output $SIHeader(Mem) $SIItemOutput($dll($scriptdirmoo.dll,meminfo,_))
  2964.       if ( <RAMBAR> isin %sys.icustomline ) {
  2965.         rambar
  2966.         set %sys.output %sys.output  $+ %sys.sepColourvar $+ / $result
  2967.       }
  2968.       inc %sys.parsecount
  2969.       if ( $len(%sys.output) > %sys.ICustMultiLine ) {
  2970.         OutputInfo %sys.output
  2971.         unset %sys.output
  2972.       }
  2973.       else {
  2974.         if ( %sys.icustcount > %sys.parsecount ) {
  2975.           set %sys.output %sys.output $SIDelib
  2976.         }
  2977.       }
  2978.     }
  2979.  
  2980.     if ( DISPLAY == $gettok(%sys.icustomline,%sys.tempcount,44) ) {
  2981.       set %sys.output %sys.output $SIHeader(Disp) $SIItemOutput($dll($scriptdirmoo.dll,screeninfo,_))
  2982.       inc %sys.parsecount
  2983.       if ( $len(%sys.output) > %sys.ICustMultiLine ) {
  2984.         OutputInfo %sys.output
  2985.         unset %sys.output
  2986.       }
  2987.       else {
  2988.         if ( %sys.icustcount > %sys.parsecount ) {
  2989.           set %sys.output %sys.output $SIDelib
  2990.         }
  2991.       }
  2992.     }
  2993.  
  2994.     if ( PAGE == $gettok(%sys.icustomline,%sys.tempcount,44) ) {
  2995.       set %sys.output %sys.output $SIHeader(Page File) $SIItemOutput($pagefile)
  2996.       inc %sys.parsecount
  2997.       if ( $len(%sys.output) > %sys.ICustMultiLine ) {
  2998.         OutputInfo %sys.output
  2999.         unset %sys.output
  3000.       }
  3001.       else {
  3002.         if ( %sys.icustcount > %sys.parsecount ) {
  3003.           set %sys.output %sys.output $SIDelib
  3004.         }
  3005.       }
  3006.     }
  3007.  
  3008.     if ( VMEM == $gettok(%sys.icustomline,%sys.tempcount,44) ) {
  3009.       set %sys.output %sys.output $SIHeader(Virtual Memory) $SIItemOutput($virtualmem)
  3010.       inc %sys.parsecount
  3011.       if ( $len(%sys.output) > %sys.ICustMultiLine ) {
  3012.         OutputInfo %sys.output
  3013.         unset %sys.output
  3014.       }
  3015.       else {
  3016.         if ( %sys.icustcount > %sys.parsecount ) {
  3017.           set %sys.output %sys.output $SIDelib
  3018.         }
  3019.       }
  3020.     }
  3021.  
  3022.     if ( MONI == $gettok(%sys.icustomline,%sys.tempcount,44) ) {
  3023.       set %sys.output %sys.output $SIHeader(Moni) $SIItemOutput(%sys.monitor)
  3024.       inc %sys.parsecount
  3025.       if ( $len(%sys.output) > %sys.ICustMultiLine ) {
  3026.         OutputInfo %sys.output
  3027.         unset %sys.output
  3028.       }
  3029.       else {
  3030.         if ( %sys.icustcount > %sys.parsecount ) {
  3031.           set %sys.output %sys.output $SIDelib
  3032.         }
  3033.       }
  3034.     }
  3035.  
  3036.     if ( GFXCARD == $gettok(%sys.icustomline,%sys.tempcount,44) ) {
  3037.       set %sys.output %sys.output $SIHeader(VidCard) $SIItemOutput(%sys.gfxcard)
  3038.       inc %sys.parsecount
  3039.       if ( $len(%sys.output) > %sys.ICustMultiLine ) {
  3040.         OutputInfo %sys.output
  3041.         unset %sys.output
  3042.       }
  3043.       else {
  3044.         if ( %sys.icustcount > %sys.parsecount ) {
  3045.           set %sys.output %sys.output $SIDelib
  3046.         }
  3047.       }
  3048.     }
  3049.  
  3050.     if ( SNDCARD == $gettok(%sys.icustomline,%sys.tempcount,44) ) {
  3051.       set %sys.output %sys.output $SIHeader(Sound) $SIItemOutput(%sys.soundcard)
  3052.       inc %sys.parsecount
  3053.       if ( $len(%sys.output) > %sys.ICustMultiLine ) {
  3054.         OutputInfo %sys.output
  3055.         unset %sys.output
  3056.       }
  3057.       else {
  3058.         if ( %sys.icustcount > %sys.parsecount ) {
  3059.           set %sys.output %sys.output $SIDelib
  3060.         }
  3061.       }
  3062.     }
  3063.  
  3064.     if ( HDD == $gettok(%sys.icustomline,%sys.tempcount,44) ) {
  3065.       set %sys.output %sys.output $SIHeader(HD) $SIItemOutput(%sys.BoldHeader $+ %sys.UnderLineHeader $+  $+ %sys.HeadColourVar $+ %sys.UnderLineInHeadings $+ T $+ %sys.UnderLineInHeadings $+ otal/ $+ %sys.UnderLineInHeadings $+ F $+ %sys.UnderLineInHeadings $+ ree $+ %sys.UnderLineHeader $+ %sys.BoldHeader $+ :  $+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+ %sys.total.size $+  $+ %sys.sepColourvar $+ / $+ %sys.ValueColourVar $+ %sys.total.free $+ %sys.byteunit $+ %sys.UnderLineValue $+  $+ %sys.BoldValue)
  3066.       inc %sys.parsecount
  3067.       if ( $len(%sys.output) > %sys.ICustMultiLine ) {
  3068.         OutputInfo %sys.output
  3069.         unset %sys.output
  3070.       }
  3071.       else {
  3072.         if ( %sys.icustcount > %sys.parsecount ) {
  3073.           set %sys.output %sys.output $SIDelib
  3074.         }
  3075.       }
  3076.     }
  3077.  
  3078.     if ( CONN == $gettok(%sys.icustomline,%sys.tempcount,44) ) {
  3079.       set %sys.output %sys.output $SIHeader(Conn) $SIItemOutput(%sys.ConnectionBuffer)
  3080.       inc %sys.parsecount
  3081.       if ( $len(%sys.output) > %sys.ICustMultiLine ) {
  3082.         OutputInfo %sys.output
  3083.         unset %sys.output
  3084.       }
  3085.       else {
  3086.         if ( %sys.icustcount > %sys.parsecount ) {
  3087.           set %sys.output %sys.output $SIDelib
  3088.         }
  3089.       }
  3090.     }
  3091.  
  3092.     if ( NI == $gettok(%sys.icustomline,%sys.tempcount,44) ) {
  3093.       set %sys.output %sys.output $SIHeader(Network) $SIItemOutput($si(NI))
  3094.       inc %sys.parsecount
  3095.       if ( $len(%sys.output) > %sys.ICustMultiLine ) {
  3096.         OutputInfo %sys.output
  3097.         unset %sys.output
  3098.       }
  3099.       else {
  3100.         if ( %sys.icustcount > %sys.parsecount ) {
  3101.           set %sys.output %sys.output $SIDelib
  3102.         }
  3103.       }
  3104.     }
  3105.  
  3106.   }
  3107.  
  3108.   if ( %sys.parsecount == 0 ) {
  3109.     echo 4*** Please setup your Intelligent Custom Line in the SystemInfo by C}{$ setup dialog!
  3110.   }
  3111.   else {
  3112.     if ( %sys.output != $null ) {
  3113.       OutputInfo %sys.output
  3114.     }
  3115.     unset %sys.output
  3116.   }
  3117.  
  3118. }
  3119.  
  3120.  
  3121. alias cust {
  3122.   setupcolours
  3123.   if ( $1 != $null ) {
  3124.     set %sys.output $1-200
  3125.   }
  3126.   else {
  3127.     set %sys.output %sys.CustomLine
  3128.   }
  3129.   set %sys.output $replace(%sys.output,@OSInstallInfo,$OSInstalledOn)
  3130.   set %sys.output $replace(%sys.output,@os,$si(os))
  3131.  
  3132.   DoUptimeStuff
  3133.  
  3134.   set %sys.output $replace(%sys.output,@up,%sys.UptimeOutput)
  3135.   set %sys.output $replace(%sys.output,@cpu,$si(CPU))
  3136.   set %sys.output $replace(%sys.output,@mem,$dll($scriptdirmoo.dll,meminfo,_))
  3137.   set %sys.output $replace(%sys.output,@hd,%sys.total.size $+ / $+ %sys.total.free)
  3138.   set %sys.output $replace(%sys.output,@ni,$si(NI))
  3139.   set %sys.output $replace(%sys.output,@res,$dll($scriptdirmoo.dll,screeninfo,_))
  3140.   set %sys.output $replace(%sys.output,@temp,$getmbm5info)
  3141.   set %sys.output $replace(%sys.output,@mon,%sys.monitor)
  3142.   set %sys.output $replace(%sys.output,@gfx,%sys.gfxcard)
  3143.   set %sys.output $replace(%sys.output,@snd,%sys.soundcard)
  3144.   set %sys.output $replace(%sys.output,@recup,%sys.RecordUptime)
  3145.  
  3146.   ;NEW ONES
  3147.  
  3148.   set %sys.output $replace(%sys.output,@pageinfo,$pagefile)
  3149.   set %sys.output $replace(%sys.output,@vmeminfo,$virtualmem)
  3150.   set %sys.output $replace(%sys.output,@RAMBAR,$rambar)
  3151.   set %sys.output $replace(%sys.output,@PAGEBAR,$PAGEBAR)
  3152.   set %sys.output $replace(%sys.output,@VMEMBAR,$VMEMBAR)
  3153.  
  3154.   say %sys.output
  3155.  
  3156. }
  3157.  
  3158.  
  3159. alias display {
  3160.   setupcolours
  3161.   OutputInfo $SIHeader(Display Info) $SIItemOutput($dll($scriptdirmoo.dll,screeninfo,_)) $SIDelib $SIHeader(Monitor) $SIItemOutput(%sys.monitor)
  3162. }
  3163.  
  3164. alias periph {
  3165.   setupcolours
  3166.   OutputInfo $SIHeader(Video Card) $SIItemOutput(%sys.gfxcard) $SIDelib $SIHeader(Sound card) $SIItemOutput(%sys.soundcard)
  3167. }
  3168.  
  3169. on 1:dialog:syssetup:sclick:93:{
  3170.  
  3171.   set %sys.checktopic $ini($shortfn($scriptdir $+ SystemInfo.ini),uptime)
  3172.  
  3173.   set %sys.buffer $did(91).sel
  3174.  
  3175.   if ( %sys.buffer == $null ) {
  3176.     goto veryend
  3177.   }
  3178.  
  3179.   if ( %sys.buffer >= %sys.checktopic ) {
  3180.     /inc %sys.buffer 1
  3181.   }
  3182.   set %sys.buffer2 $ini($shortfn($scriptdir $+ SystemInfo.ini),%sys.buffer)
  3183.  
  3184.   set %sys.buffer $readini $shortfn($scriptdir $+ SystemInfo.ini) %sys.buffer2 command
  3185.  
  3186.   %sys.buffer
  3187.  
  3188.  
  3189.   :veryend
  3190. }
  3191.  
  3192. on 1:dialog:syssetup:sclick:94:{
  3193.   set %sys.buffer $sfile($mircdir,Please choose an addon to load!,Load!)
  3194.   if ( %sys.buffer == $null ) {
  3195.     echo 4*** Please select an addon to load!
  3196.   }
  3197.   else {
  3198.     /load -rs " $+ %sys.buffer $+ "
  3199.   }
  3200.   BuildPluginsMenu
  3201. }
  3202.  
  3203.  
  3204. ctcp *:SYSTEMINFO*:*:{
  3205.  
  3206.   unset %sys.output
  3207.  
  3208.   if ( %sys.RemoteStats == 0 ) {
  3209.     goto veryend
  3210.   }
  3211.  
  3212.   setupcolours
  3213.   set %sys.rb_size 50
  3214.   calcspace
  3215.   calcspace2
  3216.   set %sys.OMGCHECK 0
  3217.  
  3218.  
  3219.   if (($2 == $null) || ($2 == STATS)) {
  3220.     set %sys.rb_size 10
  3221.     rambar
  3222.     calcspace
  3223.     setupcolours
  3224.  
  3225.     DoUptimeStuff
  3226.  
  3227.     set %sys.output $SIHeader(OS) $SIItemOutput($si(OS)) $SIDelib $SIHeader(Up) $SIItemOutput(%sys.UptimeOutput) $SIDelib $SIHeader(CPU) $SIItemOutput($si(CPU))
  3228.     set %sys.output %sys.output $SIDelib $SIHeader(Mem) $SIItemOutput($dll($scriptdirmoo.dll,meminfo,_)) $SIDelib $rambar $SIDelib $SIHeader(HD) $SIItemOutput(%sys.BoldHeader $+ %sys.UnderLineHeader $+  $+ %sys.HeadColourVar $+ %sys.UnderLineInHeadings $+ T $+ %sys.UnderLineInHeadings $+ otal/ $+ %sys.UnderLineInHeadings $+ F $+ %sys.UnderLineInHeadings $+ ree $+ %sys.UnderLineHeader $+ %sys.BoldHeader $+ :  $+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+ %sys.total.size $+  $+ %sys.sepColourvar $+ / $+ %sys.ValueColourVar $+ %sys.total.free $+ %sys.byteunit $+ %sys.UnderLineValue $+  $+ %sys.BoldValue)
  3229.     if ( %sys.removeALLformatting == 1 ) {
  3230.       ctcpreply $nick SYSTEMINFO $strip(%sys.output,burc)
  3231.     }
  3232.     else {
  3233.       ctcpreply $nick SYSTEMINFO %sys.output
  3234.     }
  3235.     unset %sys.output
  3236.     set %sys.OMGCHECK 1
  3237.     ctcpreply $nick SYSTEMINFO I am using SystemInfo by C}{$ %sys.version $+ ! Download it @ http://scripts.phucknut.net/
  3238.   }
  3239.  
  3240.   if ( $2 == OS ) {
  3241.  
  3242.     set %sys.output $SIHeader(OS) $SIItemOutput($si(OS))
  3243.  
  3244.     if ( %sys.removeALLformatting == 1 ) {
  3245.       ctcpreply $nick SYSTEMINFO $strip(%sys.output,burc)
  3246.     }
  3247.     else {
  3248.       ctcpreply $nick SYSTEMINFO %sys.output
  3249.     }
  3250.     unset %sys.output
  3251.     set %sys.OMGCHECK 1
  3252.   }
  3253.  
  3254.   if ( $2 == UPTIME ) {
  3255.  
  3256.     DoUptimeStuff
  3257.  
  3258.     set %sys.output $SIHeader(Up) $SIItemOutput(%sys.UptimeOutput)
  3259.     if ( %sys.removeALLformatting == 1 ) {
  3260.       ctcpreply $nick SYSTEMINFO $strip(%sys.output,burc)
  3261.     }
  3262.     else {
  3263.       ctcpreply $nick SYSTEMINFO %sys.output
  3264.     }
  3265.     unset %sys.output
  3266.     set %sys.OMGCHECK 1
  3267.   }
  3268.  
  3269.   if ( $2 == RECORDUP ) {
  3270.  
  3271.     DoUptimeStuff
  3272.  
  3273.     set %sys.output $SIHeader(RecUP) $SIItemOutput(%sys.RecordUptime)
  3274.     if ( %sys.removeALLformatting == 1 ) {
  3275.       ctcpreply $nick SYSTEMINFO $strip(%sys.output,burc)
  3276.     }
  3277.     else {
  3278.       ctcpreply $nick SYSTEMINFO %sys.output
  3279.     }
  3280.     unset %sys.output
  3281.     set %sys.OMGCHECK 1
  3282.   }
  3283.  
  3284.   if ( $2 == CPUINFO ) {
  3285.  
  3286.     set %sys.output $SIHeader(CPU) $SIItemOutput($si(CPU))
  3287.     if ( %sys.removeALLformatting == 1 ) {
  3288.       ctcpreply $nick SYSTEMINFO $strip(%sys.output,burc)
  3289.     }
  3290.     else {
  3291.       ctcpreply $nick SYSTEMINFO %sys.output
  3292.     }
  3293.     unset %sys.output
  3294.     set %sys.OMGCHECK 1
  3295.   }
  3296.  
  3297.   if ( $2 == TEMP ) {
  3298.     getmbm5info
  3299.     set %sys.output $SIHeader(Temp) $SIItemOutput($getmbm5info)
  3300.     if ( %sys.removeALLformatting == 1 ) {
  3301.       ctcpreply $nick SYSTEMINFO $strip(%sys.output,burc)
  3302.     }
  3303.     else {
  3304.       ctcpreply $nick SYSTEMINFO %sys.output
  3305.     }
  3306.     unset %sys.output
  3307.     set %sys.OMGCHECK 1
  3308.   }
  3309.  
  3310.   if ( $2 == MEMINFO ) {
  3311.     set %sys.output $SIHeader(Mem) $SIItemOutput($dll($scriptdirmoo.dll,meminfo,_)) $SIDelib $rambar
  3312.     if ( %sys.removeALLformatting == 1 ) {
  3313.       ctcpreply $nick SYSTEMINFO $strip(%sys.output,burc)
  3314.     }
  3315.     else {
  3316.       ctcpreply $nick SYSTEMINFO %sys.output
  3317.     }
  3318.     unset %sys.output
  3319.     set %sys.OMGCHECK 1
  3320.   }
  3321.  
  3322.   if ( $2 == PAGEINFO ) {
  3323.     set %sys.output $SIHeader(Page) $SIItemOutput($pagefile) $SIDelib $pagebar
  3324.     if ( %sys.removeALLformatting == 1 ) {
  3325.       ctcpreply $nick SYSTEMINFO $strip(%sys.output,burc)
  3326.     }
  3327.     else {
  3328.       ctcpreply $nick SYSTEMINFO %sys.output
  3329.     }
  3330.     unset %sys.output
  3331.     set %sys.OMGCHECK 1
  3332.   }
  3333.  
  3334.   if ( $2 == VMEMINFO ) {
  3335.     set %sys.output $SIHeader(VMem) $SIItemOutput($virtualmem) $SIDelib $vmembar
  3336.     if ( %sys.removeALLformatting == 1 ) {
  3337.       ctcpreply $nick SYSTEMINFO $strip(%sys.output,burc)
  3338.     }
  3339.     else {
  3340.       ctcpreply $nick SYSTEMINFO %sys.output
  3341.     }
  3342.     unset %sys.output
  3343.     set %sys.OMGCHECK 1
  3344.   }
  3345.  
  3346.   if ( $2 == DISPLAY ) {
  3347.  
  3348.     set %sys.output $SIHeader(Disp) $SIItemOutput($dll($scriptdirmoo.dll,screeninfo,_))
  3349.     if ( %sys.removeALLformatting == 1 ) {
  3350.       ctcpreply $nick SYSTEMINFO $strip(%sys.output,burc)
  3351.     }
  3352.     else {
  3353.       ctcpreply $nick SYSTEMINFO %sys.output
  3354.     }
  3355.     unset %sys.output
  3356.     set %sys.OMGCHECK 1
  3357.   }
  3358.  
  3359.   if ( $2 == MONITOR ) {
  3360.  
  3361.     set %sys.output $SIHeader(Moni) $SIItemOutput(%sys.monitor)
  3362.     if ( %sys.removeALLformatting == 1 ) {
  3363.       ctcpreply $nick SYSTEMINFO $strip(%sys.output,burc)
  3364.     }
  3365.     else {
  3366.       ctcpreply $nick SYSTEMINFO %sys.output
  3367.     }
  3368.     unset %sys.output
  3369.     set %sys.OMGCHECK 1
  3370.   }
  3371.  
  3372.   if ( $2 == GFXCARD ) {
  3373.     set %sys.output $SIHeader(VidCard) $SIItemOutput(%sys.gfxcard)
  3374.     if ( %sys.removeALLformatting == 1 ) {
  3375.       ctcpreply $nick SYSTEMINFO $strip(%sys.output,burc)
  3376.     }
  3377.     else {
  3378.       ctcpreply $nick SYSTEMINFO %sys.output
  3379.     }
  3380.     unset %sys.output
  3381.     set %sys.OMGCHECK 1
  3382.   }
  3383.  
  3384.   if ( $2 == SNDCARD ) {
  3385.  
  3386.     set %sys.output $SIHeader(Sound) $SIItemOutput(%sys.soundcard)
  3387.     if ( %sys.removeALLformatting == 1 ) {
  3388.       ctcpreply $nick SYSTEMINFO $strip(%sys.output,burc)
  3389.     }
  3390.     else {
  3391.       ctcpreply $nick SYSTEMINFO %sys.output
  3392.     }
  3393.     unset %sys.output
  3394.     set %sys.OMGCHECK 1
  3395.   }
  3396.  
  3397.   if ( $2 == HD ) {
  3398.  
  3399.     set %sys.output $SIHeader(HD) $SIItemOutput(%sys.BoldHeader $+ %sys.UnderLineHeader $+  $+ %sys.HeadColourVar $+ %sys.UnderLineInHeadings $+ T $+ %sys.UnderLineInHeadings $+ otal/ $+ %sys.UnderLineInHeadings $+ F $+ %sys.UnderLineInHeadings $+ ree $+ %sys.UnderLineHeader $+ %sys.BoldHeader $+ :  $+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+ %sys.total.size $+  $+ %sys.sepColourvar $+ / $+ %sys.ValueColourVar $+ %sys.total.free $+ %sys.byteunit $+ %sys.UnderLineValue $+  $+ %sys.BoldValue)
  3400.     if ( %sys.removeALLformatting == 1 ) {
  3401.       ctcpreply $nick SYSTEMINFO $strip(%sys.output,burc)
  3402.     }
  3403.     else {
  3404.       ctcpreply $nick SYSTEMINFO %sys.output
  3405.     }
  3406.     unset %sys.output
  3407.     set %sys.OMGCHECK 1
  3408.   }
  3409.  
  3410.   if ( $2 == CONN ) {
  3411.     set %sys.output $SIHeader(Conn) $SIItemOutput(%sys.ConnectionBuffer)
  3412.     if ( %sys.removeALLformatting == 1 ) {
  3413.       ctcpreply $nick SYSTEMINFO $strip(%sys.output,burc)
  3414.     }
  3415.     else {
  3416.       ctcpreply $nick SYSTEMINFO %sys.output
  3417.     }
  3418.     unset %sys.output
  3419.     set %sys.OMGCHECK 1
  3420.   }
  3421.  
  3422.   if ( $2 == NI ) {
  3423.     set %sys.output $SIHeader(Network) $SIItemOutput($si(NI))
  3424.     if ( %sys.removeALLformatting == 1 ) {
  3425.       ctcpreply $nick SYSTEMINFO $strip(%sys.output,burc)
  3426.     }
  3427.     else {
  3428.       ctcpreply $nick SYSTEMINFO %sys.output
  3429.     }
  3430.     unset %sys.output
  3431.     set %sys.OMGCHECK 1
  3432.   }
  3433.  
  3434.   if ( $2 == BW ) {
  3435.     set %sys.output $SIHeader(Bandwidth) $SIItemOutput(Current Downstream: $si(BWD) $+ kb/s $SIDelib  $+ %sys.ValueColourVar $+ Current Upstream: $si(BWU) $+ kb/s)
  3436.     if ( %sys.removeALLformatting == 1 ) {
  3437.       ctcpreply $nick SYSTEMINFO $strip(%sys.output,burc)
  3438.     }
  3439.     else {
  3440.       ctcpreply $nick SYSTEMINFO %sys.output
  3441.     }
  3442.     unset %sys.output
  3443.     set %sys.OMGCHECK 1
  3444.   }
  3445.  
  3446.   if ( %sys.OMGCHECK == 0 ) {
  3447.     ctcpreply $nick SYSTEMINFO Unknown command.
  3448.   }
  3449.  
  3450.   :VERYEND
  3451.  
  3452. }
  3453.  
  3454.  
  3455. ctcp *:VERSION:*:{
  3456.   if ( %sys.respondCTCP == 1 ) {
  3457.     set %sys.rb_size 10
  3458.     rambar
  3459.     calcspace
  3460.     setupcolours
  3461.  
  3462.     DoUptimeStuff
  3463.  
  3464.     set %sys.output $SIHeader(OS) $SIItemOutput($si(OS)) $SIDelib $SIHeader(Up) $SIItemOutput(%sys.UptimeOutput) $SIDelib $SIHeader(CPU) $SIItemOutput($si(CPU))
  3465.     set %sys.output %sys.output $SIDelib $SIHeader(Mem) $SIItemOutput($dll($scriptdirmoo.dll,meminfo,_)) $SIDelib $rambar $SIDelib $SIHeader(HD) $SIItemOutput(%sys.BoldHeader $+ %sys.UnderLineHeader $+  $+ %sys.HeadColourVar $+ %sys.UnderLineInHeadings $+ T $+ %sys.UnderLineInHeadings $+ otal/ $+ %sys.UnderLineInHeadings $+ F $+ %sys.UnderLineInHeadings $+ ree $+ %sys.UnderLineHeader $+ %sys.BoldHeader $+ :  $+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+ %sys.total.size $+  $+ %sys.sepColourvar $+ / $+ %sys.ValueColourVar $+ %sys.total.free $+ %sys.byteunit $+ %sys.UnderLineValue $+  $+ %sys.BoldValue)
  3466.     if ( %sys.removeALLformatting == 1 ) {
  3467.       ctcpreply $nick VERSION $strip(%sys.output,burc)
  3468.     }
  3469.     else {
  3470.       ctcpreply $nick VERSION %sys.output
  3471.     }
  3472.     unset %sys.output
  3473.  
  3474.     ctcpreply $nick VERSION I am using SystemInfo by C}{$ %sys.version $+ ! Download it @ http://scripts.phucknut.net/
  3475.  
  3476.   }
  3477. }
  3478.  
  3479. on *:LOAD:{
  3480.   SetupImportantStuff
  3481.   /echo -a 4*** Thankyou for loading SystemInfo by C}{$ %sys.version $+ .
  3482.   /echo -a 4*** Please report bugs to irchs@btinternet.com
  3483.   /echo -a 4*** http://scripts.phucknut.net/
  3484.   /syssetup
  3485.   .timeruptime -o 0 60 /updateuptime
  3486.  
  3487.   if ( %sys.HelpViewed != 1 ) {
  3488.     run $scriptdir $+ SystemInfoHelp\Index.html
  3489.     set %sys.HelpViewed 1
  3490.   }
  3491.  
  3492. }
  3493.  
  3494. on *:DIALOG:syssetup:sclick:141,125:{
  3495.   CheckForDisabledSetup
  3496. }
  3497.  
  3498. alias -l CheckForDisabledSetup {
  3499.  
  3500.   if ( $did(syssetup,141).state >= 1 ) {
  3501.     did -e syssetup 143,144,145,146
  3502.   }
  3503.   else {
  3504.     did -b syssetup 143,144,145,146
  3505.   }
  3506.  
  3507.   if ( $did(syssetup,125).state >= 1 ) {
  3508.     did -b syssetup 137,138,68
  3509.   }
  3510.   else {
  3511.     did -e syssetup 137,138,68
  3512.   }
  3513.  
  3514. }
  3515.  
  3516. alias updateuptime {
  3517.   DoUptimeStuff
  3518. }
  3519.  
  3520. alias -l detectplugins {
  3521.   setupcolours
  3522.   unset %sys.plugins
  3523.   set %sys.topictoscan 0
  3524.   set %sys.counter 0
  3525.   :beginloop
  3526.   /inc %sys.topictoscan 1
  3527.  
  3528.   if ( %sys.counter >= 3 ) {
  3529.  
  3530.     set %sys.buffer $readini $shortfn($scriptdir $+ SystemInfo.ini) $ini($shortfn($scriptdir $+ SystemInfo.ini),%sys.topictoscan) name
  3531.     if ( %sys.buffer == $null ) {
  3532.       goto veryend
  3533.     }
  3534.  
  3535.     set %sys.LastPluginLoaded %sys.buffer
  3536.     set %sys.LastPluginLoadedVersion $readini $shortfn($scriptdir $+ SystemInfo.ini) $ini($shortfn($scriptdir $+ SystemInfo.ini),%sys.topictoscan) version
  3537.  
  3538.     /inc %sys.counter 1
  3539.     goto beginloop
  3540.  
  3541.   }
  3542.  
  3543.   if ( $ini($shortfn($scriptdir $+ SystemInfo.ini),%sys.topictoscan) == uptime ) {
  3544.     goto beginloop
  3545.   }
  3546.  
  3547.   set %sys.buffer $readini $shortfn($scriptdir $+ SystemInfo.ini) $ini($shortfn($scriptdir $+ SystemInfo.ini),%sys.topictoscan) name
  3548.   if ( %sys.buffer == $null ) {
  3549.  
  3550.     goto veryend
  3551.   }
  3552.   else {
  3553.     /inc %sys.counter 1
  3554.     if ( %sys.counter == 1 ) {
  3555.       set %sys.plugins   $+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+ Addons: $readini $shortfn($scriptdir $+ SystemInfo.ini) $ini($shortfn($scriptdir $+ SystemInfo.ini),%sys.topictoscan) name - $readini $shortfn($scriptdir $+ SystemInfo.ini) $ini($shortfn($scriptdir $+ SystemInfo.ini),%sys.topictoscan) version $+ %sys.UnderLineValue $+  $+ %sys.BoldValue
  3556.       goto beginloop
  3557.     }
  3558.     else {
  3559.       set %sys.plugins %sys.plugins $SIDelib  $+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+ $readini $shortfn($scriptdir $+ SystemInfo.ini) $ini($shortfn($scriptdir $+ SystemInfo.ini),%sys.topictoscan) name - $readini $shortfn($scriptdir $+ SystemInfo.ini) $ini($shortfn($scriptdir $+ SystemInfo.ini),%sys.topictoscan) version $+ %sys.UnderLineValue $+  $+ %sys.BoldValue
  3560.       goto beginloop
  3561.     }
  3562.   }
  3563.  
  3564.  
  3565.   :veryend
  3566.   if ( %sys.counter >= 4 ) {
  3567.     set %sys.plugins   $+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+ Addons: %sys.counter addons loaded $+ %sys.UnderLineValue $+  $+ %sys.BoldValue $SIDelib  $+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+ Last loaded addon: %sys.LastpluginLoaded - %sys.LastPluginLoadedVersion $+ %sys.UnderLineValue $+  $+ %sys.BoldValue
  3568.   }
  3569.  
  3570.   if ( %sys.plugins == $null ) {
  3571.     set %sys.plugins   $+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+ Addons: None detected $+ %sys.UnderLineValue $+  $+ %sys.BoldValue
  3572.   }
  3573.  
  3574.   :veryvend
  3575. }
  3576.  
  3577. alias client {
  3578.   SetupImportantStuff
  3579.   detectplugins
  3580.   set %sys.output $SIHeader(Client Version) $SIItemOutput(mIRC v $+ $version) $SIDelib $SIHeader(MOO Version) $SIItemOutput($dll($scriptdirmoo.dll,version,_)) $SIDelib 
  3581.   if (($getmbm5info(MBMVersion) != $null) && ($getmbm5info(MBMVersion) != Deactivated by user) && ($getmbm5info(MBMVersion) != MBM not loaded)) {
  3582.     set %sys.output %sys.output $SIHeader(MBM Version) $SIItemOutput($getmbm5info(MBMVersion)) $SIDelib 
  3583.   }
  3584.   set %sys.output %sys.output $SIHeader(Script Version) $SIItemOutput(SystemInfo by C}{$ %sys.version $+  $+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $SIDelib %sys.plugins $+ %sys.UnderLineValue $+  $+ %sys.BoldValue)
  3585.   OutputInfo %sys.output
  3586.   unset %sys.output
  3587. }
  3588.  
  3589. alias -l calcspace {
  3590.   set %sys.total.size 0
  3591.   set %sys.total.free 0
  3592.   set %sys.Letter 66
  3593.   :beginloop
  3594.   /inc %sys.letter 1
  3595.   if ( %sys.Letter == 91 ) { goto returnresult }
  3596.   set %sys.driveletter $chr(%sys.Letter)
  3597.   set %sys.check $disk(%sys.driveletter).free
  3598.   if ( $disk(%sys.driveletter).type != fixed ) {
  3599.     goto beginloop
  3600.   }
  3601.  
  3602.   else {
  3603.     set %sys.check $disk(%sys.driveletter).size
  3604.     set %sys.total.size $calc((%sys.total.size)+(%sys.check))
  3605.     set %sys.check $disk(%sys.driveletter).free
  3606.     set %sys.total.free $calc((%sys.total.free)+(%sys.check))
  3607.     goto beginloop
  3608.   }
  3609.   :returnresult
  3610.   if ( %sys.total.size > 1099511627776 ) {
  3611.     set %sys.byteunit TB
  3612.     set %sys.divider 1099511627776
  3613.   }
  3614.   elseif ( %sys.total.size > 2147483648 ) {
  3615.     set %sys.byteunit GB
  3616.     set %sys.divider 1073741824
  3617.   }
  3618.   else {
  3619.     set %sys.byteunit MB
  3620.     set %sys.divider 1048576
  3621.   }
  3622.  
  3623.   set %sys.total.size $round($calc((%sys.total.size)/%sys.divider),2)
  3624.   set %sys.total.free $round($calc((%sys.total.free)/%sys.divider),2)
  3625.   :veryend
  3626. }
  3627.  
  3628. alias -l calcspace2 {
  3629.   setupcolours
  3630.   .unset %sys.bigstring
  3631.   set %sys.Letter 66
  3632.   set %sys.spacecount 0
  3633.   :beginloop
  3634.   inc %sys.letter 1
  3635.  
  3636.   if ( %sys.Letter == 91 ) { goto veryend }
  3637.   set %sys.driveletter $chr(%sys.Letter)
  3638.   set %sys.driveletter $upper(%sys.driveletter)
  3639.   set %sys.check $disk(%sys.driveletter).free
  3640.   if ( $disk(%sys.driveletter).type != fixed ) {
  3641.     goto beginloop
  3642.   }
  3643.   else {
  3644.     if ( $disk(%sys.driveletter).size > 1099511627776 ) {
  3645.       set %sys.tempbyteunit TB
  3646.       set %sys.tempdivider 1099511627776
  3647.     }
  3648.     elseif ( $disk(%sys.driveletter).size > 2147483648 ) {
  3649.       set %sys.tempbyteunit GB
  3650.       set %sys.tempdivider 1073741824
  3651.     }
  3652.     else {
  3653.       set %sys.tempbyteunit MB
  3654.       set %sys.tempdivider 1048576
  3655.     }
  3656.     if ( %sys.spacecount == 0 ) {
  3657.       inc %sys.spacecount 1
  3658.       set %sys.bigstring %sys.BoldHeader $+ %sys.UnderLineHeader $+  $+ %sys.HeadColourVar $+ %sys.UnderLineInHeadings $+ T $+ %sys.UnderLineInHeadings $+ otal $+ %sys.sepColourvar $+ / $+ %sys.HeadColourVar $+ %sys.UnderLineInHeadings $+ F $+ %sys.UnderLineInHeadings $+ ree space on $+ %sys.BoldHeader $+  $+ %sys.UnderLineHeader $+ : %sys.BoldHeader $+ %sys.UnderLineHeader $+  $+ %sys.HeadColourVar $+ %sys.driveletter $+ %sys.BoldHeader $+  $+ %sys.UnderLineHeader $+ :  $+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+ $round($calc(($disk(%sys.driveletter).size)/%sys.tempdivider),2) $+  $+ %sys.sepColourvar $+ / $+ %sys.ValueColourVar $+ $round($calc(($disk(%sys.driveletter).free)/%sys.tempdivider),2) $+ %sys.tempbyteunit $+ %sys.UnderLineValue $+ %sys.BoldValue
  3659.     }
  3660.  
  3661.     else {
  3662.       inc %sys.spacecount 1
  3663.       set %sys.bigstring %sys.bigstring $SIDelib %sys.BoldHeader $+ %sys.UnderLineHeader $+  $+ %sys.HeadColourVar $+ %sys.driveletter $+ %sys.BoldHeader $+ %sys.UnderLineHeader $+ :  $+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+ $round($calc(($disk(%sys.driveletter).size)/%sys.tempdivider),2) $+  $+ %sys.sepColourvar $+ / $+ %sys.ValueColourVar $+ $round($calc(($disk(%sys.driveletter).free)/%sys.tempdivider),2) $+ %sys.tempbyteunit $+ %sys.UnderLineValue $+ %sys.BoldValue
  3664.  
  3665.       if ( %sys.LimitSpace == 1 ) {
  3666.         if ( %sys.spacecount == 5 ) {
  3667.           set %sys.bigstring %sys.bigstring Output Limited by user
  3668.           goto veryend
  3669.         }
  3670.       }
  3671.  
  3672.     }
  3673.  
  3674.   }
  3675.   goto beginloop
  3676.  
  3677.   :veryend
  3678. }
  3679.  
  3680. alias -l calcnetspace2 {
  3681.   set %sys.total.size 0
  3682.   set %sys.total.free 0
  3683.   set %sys.Letter 66
  3684.   :beginloop
  3685.   /inc %sys.letter 1
  3686.   if ( %sys.Letter == 91 ) { goto returnresult }
  3687.   set %sys.driveletter $chr(%sys.Letter)
  3688.   set %sys.check $disk(%sys.driveletter).free
  3689.   if ( $disk(%sys.driveletter).type != remote ) {
  3690.     goto beginloop
  3691.   }
  3692.  
  3693.   else {
  3694.     set %sys.check $disk(%sys.driveletter).size
  3695.     set %sys.total.size $calc((%sys.total.size)+(%sys.check))
  3696.     set %sys.check $disk(%sys.driveletter).free
  3697.     set %sys.total.free $calc((%sys.total.free)+(%sys.check))
  3698.     goto beginloop
  3699.   }
  3700.   :returnresult
  3701.   if ( %sys.total.size > 1099511627776 ) {
  3702.     set %sys.byteunit TB
  3703.     set %sys.divider 1099511627776
  3704.   }
  3705.   elseif ( %sys.total.size > 2147483648 ) {
  3706.     set %sys.byteunit GB
  3707.     set %sys.divider 1073741824
  3708.   }
  3709.   else {
  3710.     set %sys.byteunit MB
  3711.     set %sys.divider 1048576
  3712.   }
  3713.  
  3714.   set %sys.total.size $round($calc((%sys.total.size)/%sys.divider),2)
  3715.   set %sys.total.free $round($calc((%sys.total.free)/%sys.divider),2)
  3716.   :veryend
  3717. }
  3718.  
  3719. alias -l calcnetspace {
  3720.   setupcolours
  3721.   .unset %sys.bigstring
  3722.   set %sys.Letter 66
  3723.   set %sys.spacecount 0
  3724.   :beginloop
  3725.   inc %sys.letter 1
  3726.  
  3727.   if ( %sys.Letter == 91 ) { goto veryend }
  3728.   set %sys.driveletter $chr(%sys.Letter)
  3729.   set %sys.driveletter $upper(%sys.driveletter)
  3730.   set %sys.check $disk(%sys.driveletter).free
  3731.   if ( $disk(%sys.driveletter).type != remote ) {
  3732.     goto beginloop
  3733.   }
  3734.   else {
  3735.     if ( $disk(%sys.driveletter).size > 1099511627776 ) {
  3736.       set %sys.tempbyteunit TB
  3737.       set %sys.tempdivider 1099511627776
  3738.     }
  3739.     elseif ( $disk(%sys.driveletter).size > 2147483648 ) {
  3740.       set %sys.tempbyteunit GB
  3741.       set %sys.tempdivider 1073741824
  3742.     }
  3743.     else {
  3744.       set %sys.tempbyteunit MB
  3745.       set %sys.tempdivider 1048576
  3746.     }
  3747.     if ( %sys.spacecount == 0 ) {
  3748.       inc %sys.spacecount 1
  3749.       set %sys.bigstring %sys.BoldHeader $+ %sys.UnderLineHeader $+  $+ %sys.HeadColourVar $+ %sys.UnderLineInHeadings $+ T $+ %sys.UnderLineInHeadings $+ otal $+ %sys.sepColourvar $+ / $+ %sys.HeadColourVar $+ %sys.UnderLineInHeadings $+ F $+ %sys.UnderLineInHeadings $+ ree space on $+ %sys.BoldHeader $+  $+ %sys.UnderLineHeader $+ : %sys.BoldHeader $+ %sys.UnderLineHeader $+  $+ %sys.HeadColourVar $+ %sys.driveletter $+ %sys.BoldHeader $+  $+ %sys.UnderLineHeader $+ :  $+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+ $round($calc(($disk(%sys.driveletter).size)/%sys.tempdivider),2) $+  $+ %sys.sepColourvar $+ / $+ %sys.ValueColourVar $+ $round($calc(($disk(%sys.driveletter).free)/%sys.tempdivider),2) $+ %sys.tempbyteunit $+ %sys.UnderLineValue $+ %sys.BoldValue
  3750.     }
  3751.  
  3752.     else {
  3753.       inc %sys.spacecount 1
  3754.       set %sys.bigstring %sys.bigstring $SIDelib %sys.BoldHeader $+ %sys.UnderLineHeader $+  $+ %sys.HeadColourVar $+ %sys.driveletter $+ %sys.BoldHeader $+ %sys.UnderLineHeader $+ :  $+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+ $round($calc(($disk(%sys.driveletter).size)/%sys.tempdivider),2) $+  $+ %sys.sepColourvar $+ / $+ %sys.ValueColourVar $+ $round($calc(($disk(%sys.driveletter).free)/%sys.tempdivider),2) $+ %sys.tempbyteunit $+ %sys.UnderLineValue $+ %sys.BoldValue
  3755.  
  3756.       if ( %sys.LimitSpace == 1 ) {
  3757.         if ( %sys.spacecount == 5 ) {
  3758.           set %sys.bigstring %sys.bigstring Output Limited by user
  3759.           goto veryend
  3760.         }
  3761.       }
  3762.  
  3763.     }
  3764.  
  3765.   }
  3766.   goto beginloop
  3767.   :veryend
  3768.   if ( %sys.spacecount == 0 ) {
  3769.     set %sys.bigstring None Detected
  3770.   }
  3771. }
  3772.  
  3773. alias netspace {
  3774.   calcnetspace
  3775.   if ( %sys.bigstring == None Detected ) {
  3776.     set %sys.output $SIHeader(Network Drives) $SIItemOutput(%sys.bigstring)
  3777.   }
  3778.   else {
  3779.     calcnetspace2
  3780.     set %sys.output $SIHeader(Network Drives) $SIItemOutput(%sys.BoldHeader $+ %sys.UnderLineHeader $+  $+ %sys.HeadColourVar $+ %sys.UnderLineInHeadings $+ T $+ %sys.UnderLineInHeadings $+ otal $+ %sys.sepColourvar $+ %sys.BoldHeader $+ %sys.UnderLineHeader $+ / $+ %sys.BoldHeader $+ %sys.UnderLineHeader $+  $+ %sys.HeadColourVar $+ %sys.UnderLineInHeadings $+ F $+ %sys.UnderLineInHeadings $+ ree $+ %sys.BoldHeader $+ %sys.UnderLineHeader $+ :  $+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+ %sys.total.size $+  $+ %sys.sepColourvar $+ / $+ %sys.ValueColourVar $+ %sys.total.free $+ %sys.byteunit $+ %sys.UnderLineValue $+ %sys.BoldValue $SIDelib %sys.bigstring)
  3781.   }
  3782.   OutputInfo %sys.output
  3783. }
  3784.  
  3785. alias space {
  3786.   setupcolours
  3787.   if ( $1 == $null ) {
  3788.     calcspace
  3789.     calcspace2
  3790.     set %sys.output %sys.BoldHeader $+ %sys.UnderLineHeader $+  $+ %sys.HeadColourVar $+ %sys.UnderLineInHeadings $+ H $+ %sys.UnderLineInHeadings $+ ard Disks $+ %sys.BoldHeader $+ %sys.UnderLineHeader $+ : %sys.Underlineenc $+  $+ %sys.encColourVar $+ %sys.Boldenc $+ %sys.encLeftvar $+ %sys.Underlineenc $+ %sys.Boldenc $+ %sys.BoldHeader $+ %sys.UnderLineHeader $+  $+ %sys.HeadColourVar $+ %sys.UnderLineInHeadings $+ T $+ %sys.UnderLineInHeadings $+ otal $+ %sys.sepColourvar $+ %sys.BoldHeader $+ %sys.UnderLineHeader $+ / $+ %sys.BoldHeader $+ %sys.UnderLineHeader $+  $+ %sys.HeadColourVar $+ %sys.UnderLineInHeadings $+ F $+ %sys.UnderLineInHeadings $+ ree $+ %sys.BoldHeader $+ %sys.UnderLineHeader $+ :  $+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+ %sys.total.size $+  $+ %sys.sepColourvar $+ / $+ %sys.ValueColourVar $+ %sys.total.free $+ %sys.byteunit $+ %sys.UnderLineValue $+ %sys.BoldValue
  3791.     set %sys.output %sys.output $SIDelib %sys.bigstring $+ %sys.Underlineenc $+ %sys.Boldenc $+  $+ %sys.encColourVar $+ %sys.encRightvar $+ %sys.Underlineenc $+ %sys.Boldenc
  3792.     OutputInfo %sys.output
  3793.  
  3794.   }
  3795.   else {
  3796.  
  3797.     if (($1 == -c) && ($isfile($2-) == $false)) {
  3798.       echo 4*** The -c switch can only be used with Files.
  3799.       goto veryend
  3800.     }
  3801.  
  3802.     if ( $1 == -c ) {
  3803.       set %sys.buffer $2-
  3804.     }
  3805.     else {
  3806.       set %sys.buffer $1-
  3807.     }
  3808.  
  3809.     if ( %sys.buffer == $null ) {
  3810.       echo 4*** Syntax is: /space X Where X is a drive letter/directory, or /space PATH Where PATH is the path to a file. (Used with -c switch for CRC.)
  3811.       goto veryend
  3812.     }
  3813.  
  3814.     if ( $len(%sys.buffer) == 1 ) {
  3815.       set %sys.buffer %sys.buffer $+ :\
  3816.     }
  3817.  
  3818.  
  3819.  
  3820.     if (( $isdir(%sys.buffer) == $true ) && ( $dll($scriptdirfsmem.dll,GetVolumeInfo,fstype %sys.buffer) == $null )) {
  3821.  
  3822.       set %sys.FolderSize 0
  3823.       set %sys.NoOfFilesInFolder $findfile(%sys.buffer,*.*,0)
  3824.       set %sys.NoOfSubDirs $finddir(%sys.buffer,*.*,0)
  3825.       set %sys.LargestFileSize 0
  3826.       unset %sys.LargestFileName
  3827.       set %sys.count 0
  3828.  
  3829.       while ( %sys.count < %sys.NoOfFilesInFolder ) {
  3830.         inc %sys.count 1
  3831.         set %sys.FileSize $file($findfile(%sys.buffer,*.*,%sys.count)).size
  3832.         set %sys.FolderSize $calc(%sys.FolderSize + %sys.FileSize)
  3833.  
  3834.         if ( %sys.FileSize > %sys.LargestFileSize ) {
  3835.           set %sys.LargestFileSize %sys.FileSize
  3836.           set %sys.LargestFileName $nopath($findfile(%sys.buffer,*.*,%sys.count))
  3837.         }
  3838.       }
  3839.  
  3840.       set %sys.output %sys.BoldHeader $+ %sys.UnderLineHeader $+  $+ %sys.HeadColourVar $+ %sys.UnderLineInHeadings $+ F $+ %sys.UnderLineInHeadings $+ older Information $+ %sys.BoldHeader $+ %sys.UnderLineHeader $+ : %sys.Underlineenc $+  $+ %sys.encColourVar $+ %sys.Boldenc $+ %sys.encLeftvar $+ %sys.Underlineenc $+ %sys.Boldenc $+ %sys.BoldHeader $+ %sys.UnderLineHeader $+  $+ %sys.HeadColourVar $+ %sys.UnderLineInHeadings $+ F $+ %sys.UnderLineInHeadings $+ older Name $+ %sys.BoldHeader $+ %sys.UnderLineHeader $+ :  $+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+ %sys.buffer $+ %sys.UnderLineValue $+ %sys.BoldValue $SIDelib
  3841.  
  3842.       if ( %sys.FolderSize > 1099511627776 ) {
  3843.         set %sys.tempbyteunit TB
  3844.         set %sys.tempdivider 1099511627776
  3845.       }
  3846.       elseif ( %sys.FolderSize > 2147483648 ) {
  3847.         set %sys.tempbyteunit GB
  3848.         set %sys.tempdivider 1073741824
  3849.       }
  3850.       elseif ( %sys.FolderSize > 1048576 ) {
  3851.         set %sys.tempbyteunit MB
  3852.         set %sys.tempdivider 1048576
  3853.       }
  3854.       elseif ( %sys.FolderSize > 1024 ) {
  3855.         set %sys.tempbyteunit KB
  3856.         set %sys.tempdivider 1024
  3857.       }
  3858.       else {
  3859.         set %sys.tempbyteunit bytes
  3860.         set %sys.tempdivider 1
  3861.       }
  3862.  
  3863.       set %sys.output %sys.output %sys.BoldHeader $+ %sys.UnderLineHeader $+  $+ %sys.HeadColourVar $+ %sys.UnderLineInHeadings $+ F $+ %sys.UnderLineInHeadings $+ older Size $+ %sys.BoldHeader $+ %sys.UnderLineHeader $+ :  $+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+ $round($calc((%sys.FolderSize)/%sys.tempdivider),2)
  3864.       set %sys.output %sys.output $+ %sys.tempbyteunit $+ %sys.UnderLineValue $+ %sys.BoldValue
  3865.  
  3866.       set %sys.output %sys.output $SIDelib %sys.BoldHeader $+ %sys.UnderLineHeader $+  $+ %sys.HeadColourVar $+ %sys.UnderLineInHeadings $+ F $+ %sys.UnderLineInHeadings $+ iles In Folder $+ %sys.BoldHeader $+ %sys.UnderLineHeader $+ :  $+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+ %sys.NoOfFilesInFolder $+ %sys.UnderLineValue $+ %sys.BoldValue
  3867.       set %sys.output %sys.output $SIDelib %sys.BoldHeader $+ %sys.UnderLineHeader $+  $+ %sys.HeadColourVar $+ %sys.UnderLineInHeadings $+ S $+ %sys.UnderLineInHeadings $+ ub-Directories In Folder $+ %sys.BoldHeader $+ %sys.UnderLineHeader $+ :  $+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+ %sys.NoOfSubDirs $+ %sys.UnderLineValue $+ %sys.BoldValue
  3868.       set %sys.output %sys.output $SIDelib %sys.BoldHeader $+ %sys.UnderLineHeader $+  $+ %sys.HeadColourVar $+ %sys.UnderLineInHeadings $+ L $+ %sys.UnderLineInHeadings $+ argest File $+ %sys.BoldHeader $+ %sys.UnderLineHeader $+ :  $+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+ %sys.LargestFileName $+ %sys.UnderLineValue $+ %sys.BoldValue
  3869.  
  3870.       if ( %sys.LargestFileSize > 1099511627776 ) {
  3871.         set %sys.tempbyteunit TB
  3872.         set %sys.tempdivider 1099511627776
  3873.       }
  3874.       elseif ( %sys.LargestFileSize > 2147483648 ) {
  3875.         set %sys.tempbyteunit GB
  3876.         set %sys.tempdivider 1073741824
  3877.       }
  3878.       elseif ( %sys.LargestFileSize > 1048576 ) {
  3879.         set %sys.tempbyteunit MB
  3880.         set %sys.tempdivider 1048576
  3881.       }
  3882.       elseif ( %sys.LargestFileSize > 1024 ) {
  3883.         set %sys.tempbyteunit KB
  3884.         set %sys.tempdivider 1024
  3885.       }
  3886.       else {
  3887.         set %sys.tempbyteunit bytes
  3888.         set %sys.tempdivider 1
  3889.       }
  3890.  
  3891.       set %sys.output %sys.output $SIDelib %sys.BoldHeader $+ %sys.UnderLineHeader $+  $+ %sys.HeadColourVar $+ %sys.UnderLineInHeadings $+ L $+ %sys.UnderLineInHeadings $+ argest File Size $+ %sys.BoldHeader $+ %sys.UnderLineHeader $+ :  $+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+ $round($calc((%sys.LargestFileSize)/%sys.tempdivider),2)
  3892.       set %sys.output %sys.output $+ %sys.tempbyteunit $+ %sys.UnderLineValue $+ %sys.BoldValue
  3893.  
  3894.       set %sys.output %sys.output $+ %sys.Underlineenc $+ %sys.Boldenc $+  $+ %sys.encColourVar $+ %sys.encRightvar
  3895.  
  3896.  
  3897.  
  3898.  
  3899.     }
  3900.  
  3901.     elseif (( $isfile(%sys.buffer) == $true ) && ( $isdir(%sys.buffer) == $false )) {
  3902.  
  3903.       if ( $file(%sys.buffer).size > 1099511627776 ) {
  3904.         set %sys.tempbyteunit TB
  3905.         set %sys.tempdivider 1099511627776
  3906.       }
  3907.       elseif ( $file(%sys.buffer).size > 2147483648 ) {
  3908.         set %sys.tempbyteunit GB
  3909.         set %sys.tempdivider 1073741824
  3910.       }
  3911.       elseif ( $file(%sys.buffer).size > 1048576 ) {
  3912.         set %sys.tempbyteunit MB
  3913.         set %sys.tempdivider 1048576
  3914.       }
  3915.       elseif ( $file(%sys.buffer).size > 1024 ) {
  3916.         set %sys.tempbyteunit KB
  3917.         set %sys.tempdivider 1024
  3918.       }
  3919.       else {
  3920.         set %sys.tempbyteunit bytes
  3921.         set %sys.tempdivider 1
  3922.       }
  3923.  
  3924.  
  3925.       set %sys.output %sys.BoldHeader $+ %sys.UnderLineHeader $+  $+ %sys.HeadColourVar $+ %sys.UnderLineInHeadings $+ F $+ %sys.UnderLineInHeadings $+ ile Information $+ %sys.BoldHeader $+ %sys.UnderLineHeader $+ : %sys.Underlineenc $+  $+ %sys.encColourVar $+ %sys.Boldenc $+ %sys.encLeftvar $+ %sys.Underlineenc $+ %sys.Boldenc $+ %sys.BoldHeader $+ %sys.UnderLineHeader $+  $+ %sys.HeadColourVar $+ %sys.UnderLineInHeadings $+ F $+ %sys.UnderLineInHeadings $+ ile Name $+ %sys.BoldHeader $+ %sys.UnderLineHeader $+ :  $+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+ $nopath(%sys.buffer) $+ %sys.UnderLineValue $+ %sys.BoldValue $SIDelib
  3926.       set %sys.output %sys.output %sys.BoldHeader $+ %sys.UnderLineHeader $+  $+ %sys.HeadColourVar $+ %sys.UnderLineInHeadings $+ F $+ %sys.UnderLineInHeadings $+ ile Size $+ %sys.BoldHeader $+ %sys.UnderLineHeader $+ :  $+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+ $round($calc(($file(%sys.buffer).size)/%sys.tempdivider),2)
  3927.       set %sys.output %sys.output $+ %sys.tempbyteunit $+ %sys.UnderLineValue $+ %sys.BoldValue
  3928.       set %sys.output %sys.output $SIDelib %sys.BoldHeader $+ %sys.UnderLineHeader $+  $+ %sys.HeadColourVar $+ %sys.UnderLineInHeadings $+ P $+ %sys.UnderLineInHeadings $+ ath $+ %sys.BoldHeader $+ %sys.UnderLineHeader $+ :  $+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+ $nofile(%sys.buffer) $+ %sys.UnderLineValue $+ %sys.BoldValue
  3929.       if ( $1 == -c ) {
  3930.         set %sys.output %sys.output $SIDelib %sys.BoldHeader $+ %sys.UnderLineHeader $+  $+ %sys.HeadColourVar $+ %sys.UnderLineInHeadings $+ C $+ %sys.UnderLineInHeadings $+ yclic Redundancy Check (CRC) $+ %sys.BoldHeader $+ %sys.UnderLineHeader $+ :  $+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+ $crc(%sys.buffer) $+ %sys.UnderLineValue $+ %sys.BoldValue
  3931.       }
  3932.       set %sys.output %sys.output $+ %sys.Underlineenc $+ %sys.Boldenc $+  $+ %sys.encColourVar $+ %sys.encRightvar
  3933.     }
  3934.  
  3935.     elseif (( $dll($scriptdirfsmem.dll,GetVolumeInfo,fstype %sys.buffer) == $null ) && ( $disk(%sys.buffer).type == cdrom )) {
  3936.       echo 4*** There is no CD/DVD present in drive %sys.buffer
  3937.       goto veryend
  3938.     }
  3939.  
  3940.     elseif ( $dll($scriptdirfsmem.dll,GetVolumeInfo,fstype %sys.buffer) != $null ) {
  3941.  
  3942.       if ( $disk($1).type == remote ) {
  3943.         set %sys.DISKTYPETEMP Networked Disk
  3944.       }
  3945.       elseif ( $disk($1).type == cdrom ) {
  3946.         if ( $dll($scriptdirfsmem.dll,GetVolumeInfo,fstype $1 $+ :\) == CDFS ) {
  3947.           set %sys.DISKTYPETEMP CDROM
  3948.         }
  3949.         elseif ( $dll($scriptdirfsmem.dll,GetVolumeInfo,fstype $1 $+ :\) == UDF ) {
  3950.           set %sys.DISKTYPETEMP DVDROM
  3951.         }
  3952.       }
  3953.       elseif ( $disk($1).type == fixed ) {
  3954.         set %sys.DISKTYPETEMP Local Fixed Disk
  3955.       }
  3956.  
  3957.       else {
  3958.         set %sys.DISKTYPETEMP Unknown
  3959.       }
  3960.  
  3961.       if ( $disk($1).size > 1099511627776 ) {
  3962.         set %sys.tempbyteunit TB
  3963.         set %sys.tempdivider 1099511627776
  3964.       }
  3965.       elseif ( $disk($1).size > 2147483648 ) {
  3966.         set %sys.tempbyteunit GB
  3967.         set %sys.tempdivider 1073741824
  3968.       }
  3969.       else {
  3970.         set %sys.tempbyteunit MB
  3971.         set %sys.tempdivider 1048576
  3972.       }
  3973.  
  3974.       set %sys.output %sys.BoldHeader $+ %sys.UnderLineHeader $+  $+ %sys.HeadColourVar $+ %sys.UnderLineInHeadings $+ H $+ %sys.UnderLineInHeadings $+ ard Disks $+ %sys.BoldHeader $+ %sys.UnderLineHeader $+ : %sys.Underlineenc $+  $+ %sys.encColourVar $+ %sys.Boldenc $+ %sys.encLeftvar $+ %sys.Underlineenc $+ %sys.Boldenc $+ %sys.BoldHeader $+ %sys.UnderLineHeader $+  $+ %sys.HeadColourVar $+ %sys.UnderLineInHeadings $+ T $+ %sys.UnderLineInHeadings $+ otal space on $+ %sys.BoldHeader $+ %sys.UnderLineHeader $+ : %sys.BoldHeader $+  $+ %sys.HeadColourVar $+ %sys.UnderLineHeader $+ $upper($1) $+ %sys.BoldHeader $+  $+ %sys.HeadColourVar $+ :  $+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+ $round($calc(($disk( $+ $1 $+ ).size)/%sys.tempdivider),2) $+ %sys.tempbyteunit $+ %sys.UnderLineValue $+ %sys.BoldValue $SIDelib
  3975.       set %sys.output %sys.output %sys.BoldHeader $+ %sys.UnderLineHeader $+  $+ %sys.HeadColourVar $+ %sys.UnderLineInHeadings $+ F $+ %sys.UnderLineInHeadings $+ ree space on $+ %sys.BoldHeader $+ %sys.UnderLineHeader $+ : %sys.BoldHeader $+  $+ %sys.HeadColourVar $+ %sys.UnderLineHeader $+ $upper($1) $+ %sys.BoldHeader $+  $+ %sys.HeadColourVar $+ :  $+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+ $round($calc(($disk( $+ $1 $+ ).free)/%sys.tempdivider),2)
  3976.       set %sys.output %sys.output $+ %sys.tempbyteunit ( $+ $round($calc((($disk( $+ $1 $+ ).size - $disk( $+ $1 $+ ).free)/$disk( $+ $1 $+ ).size)*100),2) $+ % Used) $+ %sys.UnderLineValue $+ %sys.BoldValue
  3977.       set %sys.output %sys.output $SIDelib %sys.BoldHeader $+ %sys.UnderLineHeader $+  $+ %sys.HeadColourVar $+ %sys.UnderLineInHeadings $+ C $+ %sys.UnderLineInHeadings $+ luster Size $+ %sys.BoldHeader $+ %sys.UnderLineHeader $+ :  $+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+ $si(CLUSTERSIZE,$upper($1)) $+ %sys.UnderLineValue $+ %sys.BoldValue
  3978.       set %sys.output %sys.output $SIDelib %sys.BoldHeader $+ %sys.UnderLineHeader $+  $+ %sys.HeadColourVar $+ %sys.UnderLineInHeadings $+ F $+ %sys.UnderLineInHeadings $+ ile System $+ %sys.BoldHeader $+ %sys.UnderLineHeader $+ :  $+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+ $dll($scriptdirfsmem.dll,GetVolumeInfo,fstype $upper($1) $+ :\) $+ %sys.UnderLineValue $+ %sys.BoldValue
  3979.       set %sys.output %sys.output $SIDelib %sys.BoldHeader $+ %sys.UnderLineHeader $+  $+ %sys.HeadColourVar $+ %sys.UnderLineInHeadings $+ T $+ %sys.UnderLineInHeadings $+ ype $+ %sys.BoldHeader $+ %sys.UnderLineHeader $+ :  $+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+ %sys.DISKTYPETEMP $+ %sys.UnderLineValue $+ %sys.BoldValue
  3980.       set %sys.output %sys.output $SIDelib %sys.BoldHeader $+ %sys.UnderLineHeader $+  $+ %sys.HeadColourVar $+ %sys.UnderLineInHeadings $+ L $+ %sys.UnderLineInHeadings $+ abel $+ %sys.BoldHeader $+ %sys.UnderLineHeader $+ :  $+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+ $disk($1).label $+ %sys.UnderLineValue $+ %sys.BoldValue $+ %sys.Underlineenc $+ %sys.Boldenc $+  $+ %sys.encColourVar $+ %sys.encRightvar
  3981.     }
  3982.  
  3983.     else {
  3984.       echo 4*** Syntax is: /space X Where X is a drive letter/directory, or /space PATH Where PATH is the path to a file. (Used with -c switch for CRC.)
  3985.       goto veryend
  3986.     }
  3987.  
  3988.     OutputInfo %sys.output
  3989.   }
  3990.  
  3991.  
  3992.   :veryend
  3993. }
  3994.  
  3995. alias osinfo {
  3996.  
  3997.   setupcolours
  3998.   DoUptimeStuff
  3999.  
  4000.   OutputInfo $SIHeader(Operating System) $SIItemOutput($SI(os)) $SIDelib $SIHeader(Installed) $SIItemOutput($OSInstalledOn) $SIDelib $SIHeader(Uptime) $SIItemOutput(%sys.UptimeOutput)
  4001.  
  4002. }
  4003.  
  4004.  
  4005. alias up {
  4006.  
  4007.   if ( $1 == DoUptimeStuffOnly ) {
  4008.  
  4009.     DoUptimeStuff
  4010.     goto veryend
  4011.   }
  4012.  
  4013.   DoUptimeStuff
  4014.   setupcolours
  4015.   OutputInfo $SIHeader(Operating System) $SIItemOutput($SI(OS)) $SIDelib $SIHeader(Uptime) $SIItemOutput(%sys.UptimeOutput) $SIDelib $SIHeader(Record Uptime) $SIItemOutput(%sys.RecordUptime)
  4016.  
  4017.   :veryend
  4018. }
  4019.  
  4020.  
  4021.  
  4022. alias conn {
  4023.   setupcolours
  4024.   OutputInfo $SIHeader(Connection) $SIItemOutput(%sys.ConnectionBuffer)
  4025. }
  4026.  
  4027. alias ni {
  4028.   if ( $1 == -change ) {
  4029.     $de(change_adapter)
  4030.   }
  4031.   else {
  4032.     setupcolours
  4033.     OutputInfo $SIHeader(Network %sys.UnderLineInHeadings $+ I $+ %sys.UnderLineInHeadings $+ nterfaces $+ %sys.UnderLineHeader)  $SIItemOutput($si(NI))
  4034.   }
  4035. }
  4036.  
  4037. alias bw {
  4038.   setupcolours
  4039.   OutputInfo $SIHeader(Bandwidth) $SIItemOutput(Current Downstream: $si(BWD) $+ kb/s $SIDelib  $+ %sys.ValueColourVar $+ Current Upstream: $si(BWU) $+ kb/s)
  4040. }
  4041.  
  4042. alias meminfo {
  4043.   set %sys.rb_size 10
  4044.   setupcolours
  4045.   OutputInfo $SIHeader(Memory Usage) $SIItemOutput($dll($scriptdirmoo.dll,meminfo,_)) $SIDelib $rambar $SIDelib $SIHeader(Virtual Memory) $SIItemOutput($virtualmem) $SIDelib $vmembar $SIDelib $SIHeader(Page File) $SIItemOutput($pagefile) $SIDelib $pagebar
  4046.  
  4047. }
  4048.  
  4049. alias pageinfo {
  4050.   set %sys.rb_size 50
  4051.   setupcolours
  4052.   OutputInfo $SIHeader(Page File) $SIItemOutput($pagefile) $SIDelib $pagebar
  4053. }
  4054.  
  4055. alias raminfo {
  4056.   set %sys.rb_size 50
  4057.   setupcolours
  4058.   OutputInfo $SIHeader(Memory Usage) $SIItemOutput($dll($scriptdirmoo.dll,meminfo,_)) $SIDelib $rambar
  4059. }
  4060.  
  4061. alias vinfo {
  4062.   set %sys.rb_size 50
  4063.   setupcolours
  4064.   OutputInfo $SIHeader(Virtual Memory) $SIItemOutput($virtualmem) $SIDelib $vmembar
  4065. }
  4066.  
  4067. alias -l pagefile {
  4068.  
  4069.   ;Set %sys.count 66
  4070.   ;set %sys.totalpage 0
  4071.  
  4072.   ;while ( %sys.count < 90 ) {
  4073.   ;inc %sys.count 1
  4074.   ;if (($disk($chr(%sys.count)).type == fixed ) && ($file($eval($chr(%sys.count) $+ :\pagefile.sys,1)).size != $null)) {
  4075.   ;set %sys.totalpage $calc(%sys.totalpage + $file($eval($chr(%sys.count) $+ :\pagefile.sys)).size)
  4076.   ;}
  4077.   ;}
  4078.  
  4079.  
  4080.   set %sys.totalpage $dll($scriptdirfsmem.dll,GetMemInfo,totalpagefile)
  4081.   set %sys.freepage $dll($scriptdirfsmem.dll,GetMemInfo,freepagefile)
  4082.   set %sys.buffer Usage: $round($calc((%sys.totalpage - %sys.freepage)/1048576),0) $+ / $+ $round($calc( %sys.totalpage / 1048576 ),0) $+ MB ( $+ $round($calc(( (%sys.totalpage - %sys.freepage) / %sys.totalpage ) * 100),2) $+ $eval(%,0) $+ )
  4083.   return %sys.buffer
  4084. }
  4085.  
  4086. alias -l pagebar {
  4087.   if ( %sys.rb_size == 0 ) { set %sys.rb_size 10 }
  4088.   set %sys.rb_used $round($calc((( (%sys.totalpage - %sys.freepage) / %sys.totalpage ) * 100 ) / 100 * %sys.rb_size),0)
  4089.   set %sys.check $round(( (%sys.totalpage - %sys.freepage) / %sys.totalpage ),0)
  4090.   if ( %sys.check <= 33 ) {
  4091.     set %sys.check1 9|
  4092.     goto gogogo
  4093.   }
  4094.   if ( %sys.check <= 66 ) {
  4095.     set %sys.check1 7|
  4096.     goto gogogo
  4097.   }
  4098.   if ( %sys.check > 66 ) {
  4099.     set %sys.check1 4|
  4100.     goto gogogo
  4101.   }
  4102.   :gogogo
  4103.   set %sys.rb_unused $round($calc(%sys.rb_size - %sys.rb_used),0)
  4104.   set %sys.rb_usedstr $str(%sys.check1,%sys.rb_used)
  4105.   set %sys.rb_unusedstr $str(-,%sys.rb_unused)
  4106.   return %sys.Underlineenc $+  $+ %sys.encColourVar $+ %sys.Boldenc $+ %sys.encLeftvar $+ %sys.Underlineenc $+ %sys.Boldenc $+ %sys.rb_usedstr $+  $+ %sys.rb_unusedstr $+ %sys.Underlineenc $+ %sys.Boldenc $+  $+ %sys.encColourVar $+ %sys.encRightvar $+ %sys.Underlineenc $+ %sys.Boldenc
  4107. }
  4108.  
  4109. alias -l virtualmem {
  4110.   set %sys.totalvirt $dll($scriptdirfsmem.dll,GetMemInfo,totalvirtual)
  4111.   set %sys.freevirt $dll($scriptdirfsmem.dll,GetMemInfo,freevirtual)
  4112.   set %sys.buffer Usage: $round($calc((%sys.totalvirt - %sys.freevirt)/1048576),0) $+ / $+ $round($calc( %sys.totalvirt / 1048576 ),0) $+ MB ( $+ $round($calc(( (%sys.totalvirt - %sys.freevirt) / %sys.totalvirt ) * 100),2) $+ $eval(%,0) $+ )
  4113.   return %sys.buffer
  4114. }
  4115.  
  4116. alias -l vmembar {
  4117.   if ( %sys.rb_size == 0 ) { set %sys.rb_size 10 }
  4118.   set %sys.rb_used $round($calc((( (%sys.totalvirt - %sys.freevirt) / %sys.totalvirt ) * 100 ) / 100 * %sys.rb_size),0)
  4119.   set %sys.check $round(( (%sys.totalvirt - %sys.freevirt) / %sys.totalvirt ),0)
  4120.   if ( %sys.check <= 33 ) {
  4121.     set %sys.check1 9|
  4122.     goto gogogo
  4123.   }
  4124.   if ( %sys.check <= 66 ) {
  4125.     set %sys.check1 7|
  4126.     goto gogogo
  4127.   }
  4128.   if ( %sys.check > 66 ) {
  4129.     set %sys.check1 4|
  4130.     goto gogogo
  4131.   }
  4132.   :gogogo
  4133.   set %sys.rb_unused $round($calc(%sys.rb_size - %sys.rb_used),0)
  4134.   set %sys.rb_usedstr $str(%sys.check1,%sys.rb_used)
  4135.   set %sys.rb_unusedstr $str(-,%sys.rb_unused)
  4136.   return $SIItemOutput(%sys.rb_usedstr $+  $+ %sys.rb_unusedstr)
  4137.  
  4138. }
  4139.  
  4140. alias cpuinfo {
  4141.   setupcolours
  4142.   OutputInfo $SIHeader(CPU Info) $SIItemOutput($si(cpu))
  4143. }
  4144.  
  4145. alias stats {
  4146.   setupcolours
  4147.   set %sys.rb_size 10
  4148.  
  4149.  
  4150.   DoUptimeStuff
  4151.  
  4152.   rambar
  4153.   calcspace
  4154.   OutputInfo $SIHeader(OS) $+ $SIItemOutput($si(os)) $SIDelib $SIHeader(Up) $+ $SIItemOutput(%sys.UptimeOutput) $SIDelib $SIHeader(CPU) $+ $SIItemOutput($si(cpu)) $SIDelib $SIHeader(Mem) $+ $SIItemOutput($dll($scriptdirmoo.dll,meminfo,_) $SIDelib $result) $SIDelib $SIHeader(HD) $+ $SIItemOutput(%sys.BoldHeader $+ %sys.UnderLineHeader $+  $+ %sys.HeadColourVar $+ %sys.UnderLineInHeadings $+ T $+ %sys.UnderLineInHeadings $+ otal/ $+ %sys.UnderLineInHeadings $+ F $+ %sys.UnderLineInHeadings $+ ree $+ %sys.UnderLineHeader $+ %sys.BoldHeader $+ :  $+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+ %sys.total.size $+  $+ %sys.sepColourvar $+ / $+ %sys.ValueColourVar $+ %sys.total.free $+ %sys.byteunit)
  4155. }
  4156.  
  4157. alias info {
  4158.   set %sys.chan #
  4159.   setupcolours
  4160.   set %sys.rb_size 30
  4161.   rambar
  4162.  
  4163.   DoUptimeStuff
  4164.  
  4165.   OutputInfo $SIHeader(Operating System) $SIItemOutput($si(os)) $SIDelib $SIHeader(Uptime) $SIItemOutput(%sys.UptimeOutput) $SIDelib $SIHeader(Record) $SIItemOutput(%sys.RecordUptime)
  4166.   set %sys.output $SIHeader(Memory Usage) $SIItemOutput($dll($scriptdirmoo.dll,meminfo,_) $SIDelib $result) $SIDelib $SIHeader(Display Info) $SIItemOutput($dll($scriptdirmoo.dll,screeninfo,_)) $SIDelib $SIHeader(Monitor) $SIItemOutput(%sys.monitor)
  4167.   if ( %sys.infodelay == 0 ) {
  4168.     OutputInfo %sys.output
  4169.   }
  4170.   else {
  4171.     if ( %sys.removeALLformatting == 1 ) {
  4172.       set %sys.infobuffer1 $strip(%sys.output,burc)
  4173.     }
  4174.     else {
  4175.       set %sys.infobuffer1 %sys.output
  4176.     }
  4177.     set %sys.delaybuffer %sys.infodelay
  4178.     .timer 1 %sys.delaybuffer msg %sys.chan %sys.infobuffer1 | unset %sys.infobuffer1
  4179.   }
  4180.  
  4181.  
  4182.   getmbm5info
  4183.   set %sys.output $SIHeader(CPU Info) $SIItemOutput($SI(CPU)) $SIDelib $SIHeader(Temperature) $SIItemOutput($result)
  4184.   if ( %sys.infodelay == 0 ) {
  4185.     OutputInfo %sys.output
  4186.   }
  4187.   else {
  4188.     if ( %sys.removeALLformatting == 1 ) {
  4189.       set %sys.infobuffer2 $strip(%sys.output,burc)
  4190.     }
  4191.     else {
  4192.       set %sys.infobuffer2 %sys.output
  4193.     }
  4194.     set %sys.delaybuffer $calc(%sys.delaybuffer + %sys.infodelay)
  4195.     .timer 1 %sys.delaybuffer msg %sys.chan %sys.infobuffer2 | unset %sys.infobuffer2
  4196.   }
  4197.  
  4198.   calcspace
  4199.   calcspace2
  4200.  
  4201.   set %sys.output $SIHeader(Hard Disks) $SIItemOutput(%sys.BoldHeader $+ %sys.UnderLineHeader $+  $+ %sys.HeadColourVar $+ %sys.UnderLineInHeadings $+ T $+ %sys.UnderLineInHeadings $+ otal $+ %sys.sepColourvar $+ %sys.BoldHeader $+ %sys.UnderLineHeader $+ / $+ %sys.BoldHeader $+ %sys.UnderLineHeader $+  $+ %sys.HeadColourVar $+ %sys.UnderLineInHeadings $+ F $+ %sys.UnderLineInHeadings $+ ree $+ %sys.BoldHeader $+ %sys.UnderLineHeader $+ :  $+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+ %sys.total.size $+  $+ %sys.sepColourvar $+ / $+ %sys.ValueColourVar $+ %sys.total.free $+ %sys.byteunit $+ %sys.UnderLineValue $+ %sys.BoldValue $SIDelib %sys.bigstring)
  4202.  
  4203.   if ( %sys.infodelay == 0 ) {
  4204.     OutputInfo %sys.output
  4205.   }
  4206.   else {
  4207.     if ( %sys.removeALLformatting == 1 ) {
  4208.       set %sys.infobuffer3 $strip(%sys.output,burc)
  4209.     }
  4210.     else {
  4211.       set %sys.infobuffer3 %sys.output
  4212.     }
  4213.     set %sys.delaybuffer $calc(%sys.delaybuffer + %sys.infodelay)
  4214.     .timer 1 %sys.delaybuffer msg %sys.chan %sys.infobuffer3 | unset %sys.infobuffer3
  4215.   }
  4216.  
  4217.   set %sys.output $SIHeader(Connection/ $+ %sys.UnderLineInHeadings $+ N $+ %sys.UnderLineInHeadings $+ etwork %sys.UnderLineInHeadings $+ I $+ %sys.UnderLineInHeadings $+ nterfaces) $SIItemOutput($SI(NI))
  4218.   if ( %sys.infodelay == 0 ) {
  4219.     OutputInfo %sys.output
  4220.   }
  4221.   else {
  4222.     if ( %sys.removeALLformatting == 1 ) {
  4223.       set %sys.infobuffer4 $strip(%sys.output,burc)
  4224.     }
  4225.     else {
  4226.       set %sys.infobuffer4 %sys.output
  4227.     }
  4228.     set %sys.delaybuffer $calc(%sys.delaybuffer + %sys.infodelay)
  4229.     .timer 1 %sys.delaybuffer msg %sys.chan %sys.infobuffer4 | unset %sys.infobuffer4
  4230.   }
  4231.  
  4232. }
  4233.  
  4234. alias temp {
  4235.   setupcolours
  4236.   getmbm5info
  4237.   OutputInfo $SIHeader(Temperature) $SIItemOutput($result)
  4238. }
  4239.  
  4240. alias volts {
  4241.   setupcolours
  4242.   OutputInfo $SIHeader(Voltages) $SIItemOutput($getmbm5info(voltages))
  4243. }
  4244.  
  4245. alias -l rambar {
  4246.   if ( %sys.rb_size == 0 ) { set %sys.rb_size 10 }
  4247.   set %sys.rb_used $round($calc($dll($scriptdirmoo.dll,rambar,_) / 100 * %sys.rb_size),0)
  4248.   set %sys.check $round($dll($scriptdirmoo.dll,rambar,_),0)
  4249.   if ( %sys.check <= 33 ) {
  4250.     set %sys.check1 9|
  4251.     goto gogogo
  4252.   }
  4253.   if ( %sys.check <= 66 ) {
  4254.     set %sys.check1 7|
  4255.     goto gogogo
  4256.   }
  4257.   if ( %sys.check > 66 ) {
  4258.     set %sys.check1 4|
  4259.     goto gogogo
  4260.   }
  4261.   :gogogo
  4262.   set %sys.rb_unused $round($calc(%sys.rb_size - %sys.rb_used),0)
  4263.   set %sys.rb_usedstr $str(%sys.check1,%sys.rb_used)
  4264.   set %sys.rb_unusedstr $str(-,%sys.rb_unused)
  4265.   return $SIItemOutput(%sys.rb_usedstr $+  $+ %sys.rb_unusedstr)
  4266. }
  4267.  
  4268. alias -l CharFilter {
  4269.   set %sys.temp $replace($1-,$chr(44),$chr(46))
  4270.   while ( $right(%sys.temp,1) !isnum ) {
  4271.     set %sys.temp $left(%sys.temp,$calc($len(%sys.temp) - 1))
  4272.   }
  4273.   return %sys.temp
  4274. }
  4275.  
  4276. alias -l JustName {
  4277.   set %sys.temp $1-
  4278.   set %sys.temp $left(%sys.temp,$calc($len(%sys.temp) - ($len(%sys.temp) - $pos(%sys.temp,:,1)) - 1))
  4279.   return %sys.temp
  4280. }
  4281.  
  4282. alias -l JustTemperature {
  4283.   set %sys.temp $1-
  4284.   set %sys.temp $right(%sys.temp,$calc($len(%sys.temp) - $pos(%sys.temp,:,1) - 1))
  4285.   set %sys.temp $replace(%sys.temp,$chr(32),$chr(44))
  4286.   return $gettok(%sys.temp,1,44)
  4287. }
  4288.  
  4289. alias -l ConvertToFahr {
  4290.   set %sys.temp $round($calc(($1 * 9)/5 + 32),0)
  4291.   return %sys.temp
  4292. }
  4293.  
  4294. alias getmbm5info {
  4295.   unset %sys.mbm5_output
  4296.   if ( %sys.TurnOffMBM == 1 ) {
  4297.     return Deactivated by user
  4298.     goto veryend
  4299.   }
  4300.  
  4301.   if ( $dll($scriptdirmbminfo.dll,wert,0) == 0 ) {
  4302.     return MBM not loaded
  4303.     goto veryend
  4304.   }
  4305.  
  4306.   if ( $1 == MBMVersion ) {
  4307.     return $remove($dll($scriptdirmbminfo.dll,wert,-1),Version: )
  4308.     goto veryend
  4309.   }
  4310.  
  4311.   if ( $1 == voltages ) {
  4312.  
  4313.     set %sys.count 31
  4314.     while ( %sys.count < 47 ) {
  4315.       inc %sys.count 1
  4316.       set %sys.buffer2 $CharFilter($dll($scriptdirmbminfo.dll,wert,%sys.count))
  4317.       if ( $JustTemperature(%sys.buffer2) != 255 ) {
  4318.         set %sys.buffer $JustTemperature($CharFilter(%sys.buffer2))
  4319.         set %sys.buffer $replace(%sys.buffer,$chr(44),$chr(46))
  4320.         set %sys.buffer $round(%sys.buffer,3)
  4321.  
  4322.         if ( %sys.count == 32 ) {
  4323.           set %sys.mbm5_output $JustName(%sys.buffer2) $+ : %sys.buffer $+ V
  4324.         }
  4325.         else {
  4326.           set %sys.mbm5_output %sys.mbm5_output $+ , $JustName(%sys.buffer2) $+ : %sys.buffer $+ V
  4327.         }
  4328.       }
  4329.     }
  4330.     return %sys.mbm5_output
  4331.     goto veryend
  4332.   }
  4333.  
  4334.   set %sys.count -1
  4335.   while ( %sys.count < 31 ) {
  4336.     inc %sys.count 1
  4337.     set %sys.buffer $CharFilter($dll($scriptdirmbminfo.dll,wert,%sys.count))
  4338.     if ( $JustTemperature(%sys.buffer) != 255 ) {
  4339.       if ( %sys.TemperatureUnit == C ) {
  4340.         if ( %sys.count == 0 ) {
  4341.           set %sys.mbm5_output $JustName(%sys.buffer) $+ : $JustTemperature(%sys.buffer) $+ ░C
  4342.         }
  4343.         else {
  4344.           set %sys.mbm5_output %sys.mbm5_output $+ , $JustName(%sys.buffer) $+ : $JustTemperature(%sys.buffer) $+ ░C
  4345.         }
  4346.       }
  4347.       elseif ( %sys.TemperatureUnit == BOTH ) {
  4348.         if ( %sys.count == 0 ) {
  4349.           set %sys.mbm5_output $JustName(%sys.buffer) $+ : $JustTemperature(%sys.buffer) $+ ░C/ $+ $ConvertToFahr($JustTemperature(%sys.buffer)) $+ ░F
  4350.         }
  4351.         else {
  4352.           set %sys.mbm5_output %sys.mbm5_output $+ , $JustName(%sys.buffer) $+ : $JustTemperature(%sys.buffer) $+ ░C/ $+ $ConvertToFahr($JustTemperature(%sys.buffer)) $+ ░F
  4353.         }
  4354.       }
  4355.       else {
  4356.         if ( %sys.count == 0 ) {
  4357.           set %sys.mbm5_output $JustName(%sys.buffer) $+ : $ConvertToFahr($JustTemperature(%sys.buffer)) $+ ░F
  4358.         }
  4359.         else {
  4360.           set %sys.mbm5_output %sys.mbm5_output $+ , $JustName(%sys.buffer) $+ : $ConvertToFahr($JustTemperature(%sys.buffer)) $+ ░F
  4361.         }
  4362.       }
  4363.     }
  4364.   }
  4365.  
  4366.   set %sys.count 47
  4367.   while ( %sys.count < 63 ) {
  4368.     inc %sys.count 1
  4369.     set %sys.buffer $CharFilter($dll($scriptdirmbminfo.dll,wert,%sys.count))
  4370.     if ( $JustTemperature(%sys.buffer) != 255 ) {
  4371.       set %sys.mbm5_output %sys.mbm5_output $+ , $JustName(%sys.buffer) $+ : $JustTemperature(%sys.buffer) $+ RPM
  4372.     }
  4373.   }
  4374.  
  4375.   if ( %sys.mbm5_output == $null ) {
  4376.     return MBM not configured properly
  4377.   }
  4378.   else {
  4379.     return %sys.mbm5_output
  4380.   }
  4381.  
  4382.   :veryend
  4383. }
  4384.  
  4385. alias uninstallSystemInfo {
  4386.   /dialog -m unloadalert unloadalert
  4387. }
  4388.  
  4389. alias reinstallSystemInfo { 
  4390.   .timer 1 1 /syssetup | /reload -rs " $+ $script $+ "
  4391. }
  4392.  
  4393. alias SystemInfoHelp {
  4394.   run " $+ $scriptdir $+ SystemInfoHelp\Index.html $+ "
  4395. }
  4396.  
  4397. alias debugSystemInfo {
  4398.  
  4399.   echo SystemInfo by C}{$ %sys.version $+ : $crc($script) $dll($scriptdirmoo.dll,version,_) $si(os) $version
  4400.  
  4401. }
  4402.  
  4403. ;sgt+
  4404. menu channel {
  4405.   Extra Tools
  4406.   .SystemInfo
  4407.   ..Setup (/syssetup):/syssetup
  4408.   ..SystemInfo (/systeminfo):/systeminfo
  4409.   ;..Check for updates...:/siupdatecheck
  4410.   ..-
  4411.   ..Show DCC Info (/di all):/di all
  4412.   ..DCCInfo Dialog (/di):/di
  4413.   ..-
  4414.   ..Custom Line (/cust):/cust
  4415.   ..Intelligent Custom Line (/icust):/icust
  4416.   ..Info (/info):/Info
  4417.   ..Stats (/stats):/stats
  4418.   ..OS Information (/osinfo):/osinfo
  4419.   ..Uptime (/up):/up
  4420.   ..CPU (/cpuinfo):/cpuinfo
  4421.   ..Temperature (/temp):/temp
  4422.   ..Voltages (/volts):/volts
  4423.   ..Memory Usage (/meminfo):/meminfo
  4424.   ..RAM Info (/raminfo):/raminfo
  4425.   ..Virtual Memory (/vinfo):/vinfo
  4426.   ..Page File (/pageinfo):/pageinfo
  4427.   ..Network Drives (/netspace):/netspace
  4428.   ..Hard Disk(s) (/space):/space
  4429.   ..Drive Info (/space LETTER):/space $?="Please enter a drive letter:"
  4430.   ..Folder Information (/space DIR):/space $sdir($scriptdir,Choose a folder...,OK)
  4431.   ..File Information (/space PATH):/space $sfile($scriptdir,Choose a file...,OK)
  4432.   ..File Info with CRC (/space -c PATH):/space -c $sfile($scriptdir,Choose a file...,OK)
  4433.   ..Display (/display):/display
  4434.   ..Peripherals (/periph):/periph
  4435.   ..Connection (/conn):/conn
  4436.   ..Network Interfaces (/ni):/ni
  4437.   ..Change NIC (/ni -change):/ni -change
  4438.   ..Bandwidth (/bw):/bw
  4439.   ..Client (/client):/client
  4440.   ..-
  4441.   ..About...:.syssetup | .timer 1 0.25 did -c syssetup 107
  4442.   ;..Reload Script:/reinstallSystemInfo
  4443.   ;..Completely Unload:/uninstallSystemInfo
  4444. }
  4445.  
  4446. menu nicklist {
  4447.   Extra Tools
  4448.   .SystemInfo
  4449.   ..Setup (/syssetup):/syssetup
  4450.   ..SystemInfo (/systeminfo):/systeminfo
  4451.   ;..Check for updates...:/siupdatecheck
  4452.   ..-
  4453.   ..RemoteStats
  4454.   ...Stats + Version:ctcp $1 SYSTEMINFO
  4455.   ...Stats:ctcp $1 SYSTEMINFO STATS
  4456.   ...Operating System:ctcp $1 SYSTEMINFO OS
  4457.   ...Uptime:ctcp $1 SYSTEMINFO UPTIME
  4458.   ...Record Uptime:ctcp $1 SYSTEMINFO RECORDUP
  4459.   ...CPU Info:ctcp $1 SYSTEMINFO CPUINFO
  4460.   ...MBM Info:ctcp $1 SYSTEMINFO TEMP
  4461.   ...Memory Usage:ctcp $1 SYSTEMINFO MEMINFO
  4462.   ...Page File Info:ctcp $1 SYSTEMINFO PAGEINFO
  4463.   ...Virtual Memory Info:ctcp $1 SYSTEMINFO VMEMINFO
  4464.   ...Hard Disks:ctcp $1 SYSTEMINFO HD
  4465.   ...Display Info:ctcp $1 SYSTEMINFO DISPLAY
  4466.   ...Monitor:ctcp $1 SYSTEMINFO MONITOR
  4467.   ...Graphics Card:ctcp $1 SYSTEMINFO GFXCARD
  4468.   ...Sound card:ctcp $1 SYSTEMINFO SNDCARD
  4469.   ...Connection:ctcp $1 SYSTEMINFO CONN
  4470.   ...Network Interfaces:ctcp $1 SYSTEMINFO NI
  4471.   ...Bandwidth:ctcp $1 SYSTEMINFO BW
  4472.   ..-
  4473.   ..About...:.syssetup | .timer 1 0.25 did -c syssetup 107
  4474.   ;..Reload Script:/reinstallSystemInfo
  4475.   ;..Completely Unload:/dialog -m unloadalert unloadalert
  4476. }
  4477.  
  4478. ;menu status,menubar {
  4479. ;  SystemInfo
  4480. ;  .Setup (/syssetup):/syssetup
  4481. ;  .SystemInfo (/systeminfo):/systeminfo
  4482. ;  .Check for updates...:/siupdatecheck
  4483. ;  .-
  4484. ;  .About...:.syssetup | .timer 1 0.25 did -c syssetup 107
  4485. ;  .Reload Script:/reinstallSystemInfo
  4486. ;  .Completely Unload:/dialog -m unloadalert unloadalert
  4487. ;}
  4488.  
  4489. menu query {
  4490.   Extra Tools
  4491.   .SystemInfo
  4492.   ..Setup (/syssetup):/syssetup
  4493.   ..SystemInfo (/systeminfo):/systeminfo
  4494.   ;..Check for updates...:/siupdatecheck
  4495.   ..-
  4496.   ..RemoteStats
  4497.   ...Stats + Version:ctcp $1 SYSTEMINFO
  4498.   ...Stats:ctcp $1 SYSTEMINFO STATS
  4499.   ...Operating System:ctcp $1 SYSTEMINFO OS
  4500.   ...Uptime:ctcp $1 SYSTEMINFO UPTIME
  4501.   ...Record Uptime:ctcp $1 SYSTEMINFO RECORDUP
  4502.   ...CPU Info:ctcp $1 SYSTEMINFO CPUINFO
  4503.   ...MBM Info:ctcp $1 SYSTEMINFO TEMP
  4504.   ...Memory Usage:ctcp $1 SYSTEMINFO MEMINFO
  4505.   ...Page File Info:ctcp $1 SYSTEMINFO PAGEINFO
  4506.   ...Virtual Memory Info:ctcp $1 SYSTEMINFO VMEMINFO
  4507.   ...Hard Disks:ctcp $1 SYSTEMINFO HD
  4508.   ...Display Info:ctcp $1 SYSTEMINFO DISPLAY
  4509.   ...Monitor:ctcp $1 SYSTEMINFO MONITOR
  4510.   ...Graphics Card:ctcp $1 SYSTEMINFO GFXCARD
  4511.   ...Sound card:ctcp $1 SYSTEMINFO SNDCARD
  4512.   ...Connection:ctcp $1 SYSTEMINFO CONN
  4513.   ...Network Interfaces:ctcp $1 SYSTEMINFO NI
  4514.   ...Bandwidth:ctcp $1 SYSTEMINFO BW
  4515.   ..-
  4516.   ..Custom Line (/cust):/cust
  4517.   ..Intelligent Custom Line (/icust):/icust
  4518.   ..Info (/info):/Info
  4519.   ..Stats (/stats):/stats
  4520.   ..OS Information (/osinfo):/osinfo
  4521.   ..Uptime (/up):/up
  4522.   ..CPU (/cpuinfo):/cpuinfo
  4523.   ..Temperature (/temp):/temp
  4524.   ..Voltages (/volts):/volts
  4525.   ..Memory Usage (/meminfo):/meminfo
  4526.   ..RAM Info (/raminfo):/raminfo
  4527.   ..Virtual Memory (/vinfo):/vinfo
  4528.   ..Page File (/pageinfo):/pageinfo
  4529.   ..Network Drives (/netspace):/netspace
  4530.   ..Hard Disk(s) (/space):/space
  4531.   ..Drive Info (/space LETTER):/space $?*!="Please enter a drive letter:"
  4532.   ..Folder Information (/space DIR):/space $sdir($scriptdir,Choose a folder...,OK)
  4533.   ..File Information (/space PATH):/space $sfile($scriptdir,Choose a file...,OK)
  4534.   ..File Info with CRC (/space -c PATH):/space -c $sfile($scriptdir,Choose a file...,OK)
  4535.   ..Display (/display):/display
  4536.   ..Peripherals (/periph):/periph
  4537.   ..Connection (/conn):/conn
  4538.   ..Network Interfaces (/ni):/ni
  4539.   ..Change NIC (/ni -change):/ni -change
  4540.   ..Bandwidth (/bw):/bw
  4541.   ..Client (/client):/client
  4542.   ..-
  4543.   ..About...:.syssetup | .timer 1 0.25 did -c syssetup 107
  4544.   ;..Reload Script:/reinstallSystemInfo
  4545.   ;..Completely Unload:/uninstallSystemInfo
  4546. }
  4547. ;sgt-
  4548.  
  4549. menu @SystemInfo {
  4550.   SystemInfo
  4551.   .Setup (/syssetup):/syssetup
  4552.   .SystemInfo (/systeminfo):/systeminfo
  4553.   .Check for updates...:/siupdatecheck
  4554.   .-
  4555.   .Change NIC (/ni -change):/ni -change
  4556.   .-
  4557.   .About...:.syssetup | .timer 1 0.25 did -c syssetup 107
  4558.   .Reload Script:/reinstallSystemInfo
  4559.   .Completely Unload:/dialog -m unloadalert unloadalert
  4560.   .-
  4561.   .Close this window:window -c @SystemInfo
  4562. }
  4563.  
  4564.  
  4565. ;CopyRight WiggleSoft 2001 :P
  4566.