Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

How to show PC info in mIRC?

5 views
Skip to first unread message

No Way

unread,
Feb 3, 2007, 4:34:50 PM2/3/07
to
I often see some people showing the details of their computers in
channels from what looks to be an automatic listing script and was
wondering what script is used to achieve that?

They seem to be able to show everything from the OS, the type of
videocard, the type of display, the type of soundcard and right down
to the amount of RAM. Some even show their up/down stream info and so
forth. Thanks.

"Reb" Ruster

unread,
Feb 3, 2007, 5:57:02 PM2/3/07
to

PC-Info1
=====
dialog syssetup {
title "PC-Info Setup by Albator"
size -1 -1 151 139
option dbu
tab "Colours", 1, 0 1 150 107
box "Headings:", 14, 2 50 148 26, tab 1
box "Values:", 10, 2 16 148 27, tab 1
combo 6, 23 26 68 50, tab 1 sort vsbar drop
text "Colour:", 7, 4 27 17 8, tab 1
combo 8, 23 60 68 48, tab 1 sort vsbar drop
text "Colour:", 9, 4 61 17 8, tab 1
check "Bold", 12, 93 26 22 10, tab 1
check "Underline", 13, 115 26 34 10, tab 1
check "Bold", 15, 93 60 22 10, tab 1
check "Underline", 16, 115 60 33 10, tab 1
tab "Seperators", 34
box "Deliberation:", 17, 2 16 148 63, tab 34
edit "", 5, 124 22 24 10, tab 34 autohs
text "Right:", 4, 108 23 15 8, tab 34
edit "", 3, 51 22 25 10, tab 34 autohs
text "Left:", 2, 39 23 11 8, tab 34
edit "", 19, 95 55 50 10, tab 34 autohs
text "Seperate Values and Headers Using:", 18, 3 56 88 8, tab 34
text Enclose With:, 11, 3 23 34 7, tab 34
check "Underline", 45, 114 66 33 10, tab 34
check "Bold", 44, 92 66 22 10, tab 34
combo 42, 22 66 68 40, tab 34 sort vsbar drop
text "Colour:", 43, 3 67 17 8, tab 34
combo 61, 22 33 68 42, tab 34 sort vsbar drop
text "Colour:", 62, 3 34 17 8, tab 34
check "Bold", 57, 91 33 22 10, tab 34
check "Underline", 58, 114 33 33 10, tab 34
tab "Custom Line", 35
box "Custom Line", 20, 2 19 148 90, tab 35
text "@temp == Temperature Info", 31, 72 79 67 8, tab 35
text "@mon == Monitor", 32, 4 86 42 8, tab 35
text "@res == Display Info", 30, 4 78 49 8, tab 35
text "@ni == Network Interfaces", 29, 72 71 64 8, tab 35
text "@hd == Hard Disk Info", 28, 4 70 55 8, tab 35
text "@mem == Memory Info", 27, 72 63 55 8, tab 35
text "@cpu == CPU Info", 26, 4 63 45 8, tab 35
text "@up == Uptime", 25, 68 55 37 8, tab 35
text "@os == Operating System", 24, 4 55 62 8, tab 35
text "Click here for more help. The tokens are: ", 23, 4 47 98 8,
tab 35
text "For this, the token you input will be replaced with the
data.", 22, 4 39 143 8, tab 35
edit "", 21, 4 26 144 13, tab 35 autohs
text "You may use CTRL+K/B/U in this line, Type /cust to use.", 40,
4 100 136 8, tab 35
text "@gfx == gfx card", 77, 3 93 41 8, tab 35
text "@snd == Sound card", 82, 72 87 51 8, tab 35
tab "Options 1", 36
text "Graphics Card:", 64, 6 24 35 8, tab 36
box "Other Options", 65, 2 16 148 92, tab 36
edit "", 66, 43 23 101 10, tab 36 autohs
text "Motherboard Monitor:", 67, 6 66 51 8, tab 36
text "Fan Integer:", 68, 6 75 29 8, tab 36
edit "", 69, 37 74 17 10, tab 36 autohs
text "(Integer between 1 and 5.)", 70, 55 75 63 8, tab 36
text "Motherboard monitor is available from ", 71, 33 83 89 8, tab
36
text "http://mbm.livewiredev.com", 72, 44 91 66 8, tab 36
text "Try different integer's until your fan shows up in the
output.", 73, 8 99 137 8, tab 36
button "Auto-Detect sound and graphics", 74, 61 54 84 12, tab 36
edit "", 75, 43 33 101 10, tab 36 autohs
text "Sound card", 76, 6 34 28 8, tab 36
text "Monitor:", 78, 6 44 19 8, tab 36
edit "", 79, 43 43 101 10, tab 36 autohs
tab "Options 2", 80
check "Respond to CTCP VERSION with your /stats", 89, 2 16 119 10,
tab 80
list 91, 67 28 82 44, tab 80 size vsbar
text "Current Plug-in's Detected:", 92, 2 29 63 8, tab 80
button "Configure Plugin", 93, 105 72 43 12, tab 80
button "Load Plugin", 94, 67 72 37 12, tab 80
tab "Themes", 33
button "Import", 86, 73 45 37 12, tab 33
button "Export", 85, 34 45 37 12, tab 33
button "Save", 84, 2 45 30 12, tab 33
button "Apply Theme", 83, 112 30 37 12, tab 33
combo 87, 22 18 126 38, tab 33 vsbar drop
text "Theme:", 63, 2 18 18 8, tab 33
button "Delete", 90, 112 45 37 12, tab 33
button "OK + Save", 37, 1 127 30 12, default ok
button "Default Settings", 38, 34 127 42 12
button "Exit Without Save", 39, 79 127 47 12, cancel
button "Preview your current settings", 59, 1 112 75 12
text "(In a new window)", 60, 77 114 43 8
}


dialog unloadalert {
title "Alert!"
size -1 -1 118 45
option dbu
text "Are you sure you want unload PC-Info by Albator", 1, 0 2 117 8
text "BETA 3.4?! Doing this will lose all your", 2, 16 10 88 8
text "settings. Do you wish to continue?!", 3, 18 18 87 8
button "Yes!", 4, 19 30 37 12, ok
button "No!", 5, 59 30 37 12, cancel
}

on 1:dialog:unloadalert:init:*:{
did -f unloadalert 5
}

on 1:dialog:unloadalert:sclick:4:{
/echo -a
4
*** PC-Info by Albator %sys.version is now unloaded and all varibales
have been cleared.
unset %sys.*
unload -rs $script
}

on 1:dialog:syssetup:init:*:{
.set %sys.version BETA 3.4

if ( %sys.FirstLoad == $null ) {
.set %sys.respondCTCP 1
.set %sys.encLeftvar /
.set %sys.encRightvar \
.set %sys.encU 1
.set %sys.encBold 0
.set %sys.encCol 9
.set %sys.valCol 99
.set %sys.valU 0
.set %sys.valBold 0
.set %sys.headCol 2
.set %sys.headU 0
.set %sys.headBold 1
.set %sys.sepWith º
.set %sys.sepCol 9
.set %sys.sepBold 0
.set %sys.sepU 0
.set %sys.CustomLine Please set a custom Line to use it.
.set %sys.FanInteger 0

if ( $dll(registry.dll,GetKeyValue, [ 1 ]
HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Class\{4D36E968-E325-11CE-BFC1-08002BE10318}\0000\\DriverDesc)
== $null ) {
.set %sys.gfxcard $dll(registry.dll,GetKeyValue, [ 1 ]
HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Class\DISPLAY\0000\\DriverDesc)
}
else {
.set %sys.gfxcard $dll(registry.dll,GetKeyValue, [ 1 ]
HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Class\{4D36E968-E325-11CE-BFC1-08002BE10318}\0000\\DriverDesc)
}


if ( $dll(registry.dll,GetKeyValue, [ 1 ]
HKEY_LOCAL_MACHINE\SYSTEM\ControlSet002\Control\Class\{4D36E96C-E325-11CE-BFC1-08002BE10318}\0000\\DriverDesc)
== $null ) {
.set %sys.soundcard $dll(registry.dll,GetKeyValue, [ 1 ]
HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Class\MEDIA\0000\\DriverDesc)
}
else {
.set %sys.soundcard $dll(registry.dll,GetKeyValue, [ 1 ]
HKEY_LOCAL_MACHINE\SYSTEM\ControlSet002\Control\Class\{4D36E96C-E325-11CE-BFC1-08002BE10318}\0000\\DriverDesc)
}

if ( $dll(registry.dll,GetKeyValue, [ 1 ]
HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Class\{4D36E96E-E325-11CE-BFC1-08002BE10318}\0000\\DriverDesc)
== $null ) {
.set %sys.monitor $dll(registry.dll,GetKeyValue, [ 1 ]
HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Class\Monitor\0000\\DriverDesc)
}
else {
.set %sys.monitor $dll(registry.dll,GetKeyValue, [ 1 ]
HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Class\{4D36E96E-E325-11CE-BFC1-08002BE10318}\0000\\DriverDesc)
}


.set %sys.FirstLoad 1
}

.set %sys.simpleversion 0.5

combocolours 6
combocolours 8
combocolours 42
combocolours 61

if ( %sys.encU == 1 ) { Did -c syssetup 58 }
if ( %sys.encBold == 1 ) { Did -c syssetup 57 }
if ( %sys.sepBold == 1 ) { Did -c syssetup 44 }
if ( %sys.sepU == 1 ) { Did -c syssetup 45 }
if ( %sys.valU == 1 ) { Did -c syssetup 13 }
if ( %sys.valBold == 1 ) { Did -c syssetup 12 }
if ( %sys.headU == 1 ) { Did -c syssetup 16 }
if ( %sys.headBold == 1 ) { Did -c syssetup 15 }
if ( %sys.respondCTCP == 1 ) { Did -c syssetup 89 }

if ( %sys.valCol == 99 ) {
did -c syssetup 6 17
}
else {
did -c syssetup 6 $calc(%sys.valCol + 1)
}

if ( %sys.headCol == 99 ) {
did -c syssetup 8 17
}
else {
did -c syssetup 8 $calc(%sys.headCol + 1)
}

if ( %sys.encCol == 99 ) {
did -c syssetup 61 17
}
else {
did -c syssetup 61 $calc(%sys.encCol + 1)
}

if ( %sys.sepCol == 99 ) {
did -c syssetup 42 17
}
else {
did -c syssetup 42 $calc(%sys.sepCol + 1)
}

did -a syssetup 3 %sys.encLeftvar
did -a syssetup 5 %sys.encRightvar
did -a syssetup 19 %sys.sepWith
did -a syssetup 21 %sys.CustomLine
did -a syssetup 66 %sys.gfxcard
did -a syssetup 75 %sys.soundcard
did -a syssetup 79 %sys.monitor
did -a syssetup 69 %sys.FanInteger

; <<<<< BEGIN THEMES SETUP >>>>>

.set %sys.ini.number 0
:beginloop
/inc %sys.ini.number 1
.set %sys.ini.topictoscan $ini(systhemes.ini,%sys.ini.number)
if ( %sys.ini.topictoscan == $null ) {

goto continue

}

else {

.set %sys.buffer $readini systhemes.ini %sys.ini.topictoscan name
did -i syssetup 87 %sys.ini.number %sys.buffer
goto beginloop

}
; <<<<< END THEMES SETUP >>>>>
:continue

; <<<<< BEGIN PLUGINS SETUP >>>>>

.set %sys.ini.number 0
set %sys.dialogbuffer 0
:beginplugloop
/inc %sys.ini.number 1
set %sys.ini.topictoscan $ini(PC-Info.ini,%sys.ini.number)

if ( %sys.ini.topictoscan == uptime ) { goto beginplugloop }
if ( %sys.ini.topictoscan == $null ) { goto contafterplugins }

/inc %sys.dialogbuffer 1
.set %sys.buffer $readini PC-Info.ini %sys.ini.topictoscan name

did -i syssetup 91 %sys.dialogbuffer %sys.buffer

goto beginplugloop

:contafterplugins

; <<<<< END PLUGINS SETUP >>>>>

did -c syssetup 87 %sys.currenttheme

.set %sys.buffer $readini PC-Info.ini uptime os
if ( %sys.buffer == $null ) {
writeini PC-Info.ini uptime os $os
}


}


alias -l combocolours {

did -i syssetup $1 1 White
did -i syssetup $1 2 Black
did -i syssetup $1 3 Navy Blue
did -i syssetup $1 4 Dark Green
did -i syssetup $1 5 Red
did -i syssetup $1 6 Brown
did -i syssetup $1 7 Purple
did -i syssetup $1 8 Orange
did -i syssetup $1 9 Yellow
did -i syssetup $1 10 Light Green
did -i syssetup $1 11 Turquoise
did -i syssetup $1 12 Sky Blue
did -i syssetup $1 13 Blue
did -i syssetup $1 14 Pink
did -i syssetup $1 15 Grey
did -i syssetup $1 16 Light Grey
did -i syssetup $1 17 No colour

}

on 1:dialog:syssetup:sclick:38:{
did -r syssetup 3
did -r syssetup 5
did -r syssetup 19
did -a syssetup 3 /
did -a syssetup 5 \
did -a syssetup 19 º
did -u syssetup 12
did -u syssetup 13
did -c syssetup 15
did -u syssetup 16
did -u syssetup 57
did -u syssetup 44
did -u syssetup 45
did -c syssetup 58
did -c syssetup 42 10
did -c syssetup 61 10
did -c syssetup 6 17
did -c syssetup 8 3
}

on 1:dialog:syssetup:sclick:37:{

.set %sys.buffer $did(3).text
.set %sys.encLeftvar $strip(%sys.buffer,burc)

.set %sys.buffer $did(5).text
.set %sys.encRightvar $strip(%sys.buffer,burc)

.set %sys.buffer $did(19).text
.set %sys.sepWith $strip(%sys.buffer,burc)

.set %sys.CustomLine $did(21).text

if ( $did(12).state >= 1 ) {
.set %sys.valBold 1
}
else {
.set %sys.valBold 0
}

if ( $did(89).state >= 1 ) {
.set %sys.respondCTCP 1
}
else {
.set %sys.respondCTCP 0
}

if ( $did(13).state >= 1 ) {
.set %sys.valU 1
}
else {
.set %sys.valU 0
}

if ( $did(15).state >= 1 ) {
.set %sys.headBold 1
}
else {
.set %sys.headBold 0
}

if ( $did(16).state >= 1 ) {
.set %sys.headU 1
}
else {
.set %sys.headU 0
}

if ( $did(57).state >= 1 ) {
.set %sys.encBold 1
}
else {
.set %sys.encBold 0
}

if ( $did(58).state >= 1 ) {
.set %sys.encU 1
}
else {
.set %sys.encU 0
}

if ( $did(44).state >= 1 ) {
.set %sys.sepBold 1
}
else {
.set %sys.sepBold 0
}

if ( $did(45).state >= 1 ) {
.set %sys.sepU 1
}
else {
.set %sys.sepU 0
}

if ( $did(61).sel == 17 ) {
.set %sys.encCol 99
}
else {
.set %sys.encCol $calc($did(61).sel - 1)
}

if ( $did(42).sel == 17 ) {
.set %sys.sepCol 99
}
else {
.set %sys.sepCol $calc($did(42).sel - 1)
}

if ( $did(6).sel == 17 ) {
.set %sys.valCol 99
}
else {
.set %sys.valCol $calc($did(6).sel - 1)
}

if ( $did(8).sel == 17 ) {
.set %sys.headCol 99
}
else {
.set %sys.headCol $calc($did(8).sel - 1)
}

.set %sys.buffer $did(66).text
.set %sys.gfxcard $strip(%sys.buffer,burc)

.set %sys.buffer $did(75).text
.set %sys.soundcard $strip(%sys.buffer,burc)

.set %sys.buffer $did(79).text
.set %sys.monitor $strip(%sys.buffer,burc)

.set %sys.buffer $did(69).text
.set %sys.buffer $strip(%sys.buffer,burc)

if ((%sys.buffer >= 0) || (%sys.buffer < 6)) {

.set %sys.FanInteger $strip(%sys.buffer,burc)

}

:veryend
}

; <<<<< BEGIN PREVIEW CODE >>>>>

on 1:dialog:syssetup:sclick:59:{

; <<<<< BEGIN BACKUP VALUES >>>>>

.set %sys.encLeftvar.backup %sys.encLeftvar
.set %sys.encRightvar.backup %sys.encRightvar
.set %sys.encU.backup %sys.encU
.set %sys.encBold.backup %sys.encBold
.set %sys.encCol.backup %sys.encCol
.set %sys.valCol.backup %sys.valCol
.set %sys.valU.backup %sys.valU
.set %sys.valBold.backup %sys.valBold
.set %sys.headCol.backup %sys.headCol
.set %sys.headU.backup %sys.headU
.set %sys.headBold.backup %sys.headBold
.set %sys.sepWith.backup %sys.sepWith
.set %sys.sepCol.backup %sys.sepCol
.set %sys.sepBold.backup %sys.sepBold
.set %sys.sepU.backup %sys.sepU

; <<<<< END VACKUP VALUES >>>>>

; <<<<< BEGIN GATHERING VALUES >>>>>

.set %sys.buffer $did(3).text
.set %sys.encLeftvar $strip(%sys.buffer,burc)

.set %sys.buffer $did(5).text
.set %sys.encRightvar $strip(%sys.buffer,burc)

.set %sys.buffer $did(19).text
.set %sys.sepWith $strip(%sys.buffer,burc)

if ( $did(12).state >= 1 ) {
.set %sys.valBold 1
}
else {
.set %sys.valBold 0
}

if ( $did(13).state >= 1 ) {
.set %sys.valU 1
}
else {
.set %sys.valU 0
}

if ( $did(15).state >= 1 ) {
.set %sys.headBold 1
}
else {
.set %sys.headBold 0
}

if ( $did(16).state >= 1 ) {
.set %sys.headU 1
}
else {
.set %sys.headU 0
}

if ( $did(57).state >= 1 ) {
.set %sys.encBold 1
}
else {
.set %sys.encBold 0
}

if ( $did(58).state >= 1 ) {
.set %sys.encU 1
}
else {
.set %sys.encU 0
}

if ( $did(44).state >= 1 ) {
.set %sys.sepBold 1
}
else {
.set %sys.sepBold 0
}

if ( $did(45).state >= 1 ) {
.set %sys.sepU 1
}
else {
.set %sys.sepU 0
}

if ( $did(61).sel == 17 ) {
.set %sys.encCol 99
}
else {
.set %sys.encCol $calc($did(61).sel - 1)
}

if ( $did(42).sel == 17 ) {
.set %sys.sepCol 99
}
else {
.set %sys.sepCol $calc($did(42).sel - 1)
}

if ( $did(6).sel == 17 ) {
.set %sys.valCol 99
}
else {
.set %sys.valCol $calc($did(6).sel - 1)
}

if ( $did(8).sel == 17 ) {
.set %sys.headCol 99
}
else {
.set %sys.headCol $calc($did(8).sel - 1)
}

; <<<<< END GATHERING VALUES >>>>>

setupcolours

; <<<<< BEING MAKING WINDOW >>>>>

window -c @PC-Info

window -a @PC-Info

/aline @PC-Info
*** These are the CURRENT SETTINGS IN YOUR DIALOG. None of your
official settings have been altered.
/aline @PC-Info
*** TO NOT USE THESE SETTINGS. Just click "Exit Without Save" in the
dialog.

.set %rb_size 30
rambar
.set %sys.LatestUptime $calc($ticks / 1000 - 1))
.set %sys.LastUptime $readini PC-Info.ini uptime uptime
if ( %sys.LatestUptime > %sys.LastUptime ) {
/writeini PC-Info.ini uptime uptime %sys.LatestUptime
/writeini PC-Info.ini uptime date $asctime(dd/mm/yy)
writeini PC-Info.ini uptime os $os
}
.set %sys.RecordUptime $readini PC-Info.ini uptime uptime
.set %sys.RecordUptime $duration(%sys.RecordUptime)
.set %sys.UpTimeDate $readini PC-Info.ini uptime date
.set %sys.UptimeOS $readini PC-Info.ini uptime os

.set %sys.output %sys.BoldHeader $+ %sys.UnderLineHeader $+
$+ %sys.HeadColourVar $+ O perating System $+ %sys.BoldHeader $+
%sys.UnderLineHeader $+
99: %sys.Underlineenc $+
$+ %sys.encColourVar $+ %sys.Boldenc $+ %sys.encLeftvar $+
%sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+
$dll(moo.dll,osinfo,_) $+ %sys.UnderLineValue $+ %sys.BoldValue $+ $+
%sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.encColourVar $+ %sys.encRightvar $+ %sys.Underlineenc $+
%sys.Boldenc
.set %sys.output %sys.output %sys.Boldsep $+ %sys.Underlinesep $+
$+ %sys.sepColourvar $+ %sys.sepWith $+ %sys.Boldsep $+
$+ %sys.Underlinesep %sys.BoldHeader $+ %sys.UnderLineHeader $+
$+ %sys.HeadColourVar $+ U ptime $+ %sys.UnderLineHeader $+
%sys.BoldHeader $+
99: %sys.Underlineenc $+
$+ %sys.encColourVar $+ %sys.Boldenc $+ %sys.encLeftvar $+
%sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+
$dll(moo.dll,uptime,_) $+ %sys.UnderLineValue $+
$+ %sys.BoldValue $+ %sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.encColourVar $+ %sys.encRightvar $+ %sys.Underlineenc $+
%sys.Boldenc
.set %sys.output %sys.output %sys.Boldsep $+ %sys.Underlinesep $+
$+ %sys.sepColourvar $+ %sys.sepWith $+ %sys.Boldsep $+
$+ %sys.Underlinesep %sys.BoldHeader $+ %sys.UnderLineHeader $+
$+ %sys.HeadColourVar $+ R ecord $+ %sys.UnderLineHeader $+
%sys.BoldHeader $+
99: %sys.Underlineenc $+
$+ %sys.encColourVar $+ %sys.Boldenc $+ %sys.encLeftvar $+
%sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+
%sys.RecordUptime $+ (Set on %sys.UpTimeDate using %sys.UptimeOS $+ )
$+ %sys.UnderLineValue $+
$+ %sys.BoldValue $+ %sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.encColourVar $+ %sys.encRightvar
/aline @PC-Info %sys.output


.set %sys.output %sys.BoldHeader $+ %sys.UnderLineHeader $+
$+ %sys.HeadColourVar $+ M emory Usage $+ %sys.UnderLineHeader $+
%sys.BoldHeader $+
99: %sys.Underlineenc $+
$+ %sys.encColourVar $+ %sys.Boldenc $+ %sys.encLeftvar $+
%sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+
$dll(moo.dll,meminfo,_) $+ %sys.UnderLineValue $+
$+ %sys.BoldValue $+ %sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.encColourVar $+ %sys.encRightvar $+ %sys.Underlineenc $+
%sys.Boldenc
.set %sys.output %sys.output %sys.Boldsep $+ %sys.Underlinesep $+
$+ %sys.sepColourvar $+ %sys.sepWith $+ %sys.Boldsep $+
$+ %sys.Underlinesep $result
.set %sys.output %sys.output %sys.BoldHeader $+ %sys.UnderLineHeader
$+
$+ %sys.HeadColourVar $+ D isplay Info $+ %sys.UnderLineHeader $+
%sys.BoldHeader $+
99: %sys.Underlineenc $+
$+ %sys.encColourVar $+ %sys.Boldenc $+ %sys.encLeftvar $+
%sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+
$dll(moo.dll,screeninfo,_) $+ %sys.UnderLineValue $+
$+ %sys.BoldValue $+ %sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.encColourVar $+ %sys.encRightvar $+ %sys.Underlineenc $+
%sys.Boldenc
.set %sys.output %sys.output %sys.Boldsep $+ %sys.Underlinesep $+
$+ %sys.sepColourvar $+ %sys.sepWith $+ %sys.Boldsep $+
$+ %sys.Underlinesep %sys.BoldHeader $+ %sys.UnderLineHeader $+
$+ %sys.HeadColourVar $+ M onitor $+ %sys.UnderLineHeader $+
%sys.BoldHeader $+
99: %sys.Underlineenc $+
$+ %sys.encColourVar $+ %sys.Boldenc $+ %sys.encLeftvar $+
%sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+
%sys.monitor $+ %sys.UnderLineValue $+
$+ %sys.BoldValue $+ %sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.encColourVar $+ %sys.encRightvar
/aline @PC-Info %sys.output


/getmbm5info

.set %sys.output %sys.BoldHeader $+ %sys.UnderLineHeader $+
$+ %sys.HeadColourVar $+ C PU Info $+ %sys.UnderLineHeader $+
%sys.BoldHeader $+
99: %sys.Underlineenc $+
$+ %sys.encColourVar $+ %sys.Boldenc $+ %sys.encLeftvar $+
%sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+
$dll(moo.dll,cpuinfo,_) $+ %sys.UnderLineValue $+
$+ %sys.BoldValue $+ %sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.encColourVar $+ %sys.encRightvar $+ %sys.Underlineenc $+
%sys.Boldenc
.set %sys.output %sys.output %sys.Boldsep $+ %sys.Underlinesep $+
$+ %sys.sepColourvar $+ %sys.sepWith $+ %sys.Boldsep $+
$+ %sys.Underlinesep %sys.BoldHeader $+ %sys.UnderLineHeader $+
$+ %sys.HeadColourVar $+ T emperature $+ %sys.UnderLineHeader $+
%sys.BoldHeader $+
99: %sys.Underlineenc $+
$+ %sys.encColourVar $+ %sys.Boldenc $+ %sys.encLeftvar $+
%sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+
$result $+ %sys.UnderLineValue $+
$+ %sys.BoldValue $+ %sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.encColourVar $+ %sys.encRightvar $+ %sys.Underlineenc $+
%sys.Boldenc
/aline @PC-Info %sys.output

/calcspace
/calcspace2

.set %sys.output %sys.BoldHeader $+ %sys.UnderLineHeader $+
$+ %sys.HeadColourVar $+ H ard Disks $+ %sys.BoldHeader $+
%sys.UnderLineHeader $+
99: %sys.Underlineenc $+
$+ %sys.encColourVar $+ %sys.Boldenc $+ %sys.encLeftvar $+
%sys.Underlineenc $+ %sys.Boldenc $+ %sys.BoldHeader $+
%sys.UnderLineHeader $+
$+ %sys.HeadColourVar $+ T otal
$+ %sys.sepColourvar $+ %sys.BoldHeader $+ %sys.UnderLineHeader $+ /
99 $+ %sys.BoldHeader $+ %sys.UnderLineHeader $+
$+ %sys.HeadColourVar $+ F ree $+ %sys.BoldHeader $+
%sys.UnderLineHeader $+
99:
$+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+
%sys.total.size $+
$+ %sys.sepColourvar $+ /
$+ %sys.ValueColourVar $+ %sys.total.free $+ GB $+
%sys.UnderLineValue $+ %sys.BoldValue
.set %sys.output %sys.output %sys.Boldsep $+ %sys.Underlinesep $+
$+ %sys.sepColourvar $+ %sys.sepWith $+ %sys.Boldsep $+
$+ %sys.Underlinesep %sys.bigstring $+ %sys.Underlineenc $+
%sys.Boldenc $+
$+ %sys.encColourVar $+ %sys.encRightvar $+ %sys.Underlineenc $+
%sys.Boldenc
/aline @PC-Info %sys.output


/aline @PC-Info %sys.BoldHeader $+ %sys.UnderLineHeader $+
$+ %sys.HeadColourVar $+ C onnection/ N etwork I nterfaces $+
%sys.UnderLineHeader $+ %sys.BoldHeader $+
99: %sys.Underlineenc $+
$+ %sys.encColourVar $+ %sys.Boldenc $+ %sys.encLeftvar $+
%sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+
$dll(moo.dll,interfaceinfo,_) $+ %sys.UnderLineValue $+
$+ %sys.BoldValue $+ %sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.encColourVar $+ %sys.encRightvar

/aline @PC-Info
*** These are the CURRENT SETTINGS IN YOUR DIALOG. None of your
official settings have been altered.
/aline @PC-Info
*** TO NOT USE THESE SETTINGS. Just click "Exit Without Save" in the
dialog.

; <<<<< END WINDOW CODE >>>>>

; <<<<< BEING RE-DOING VARS >>>>>

.set %sys.encLeftvar %sys.encLeftvar.backup
.set %sys.encRightvar %sys.encRightvar.backup
.set %sys.encU %sys.encU.backup
.set %sys.encBold %sys.encBold.backup
.set %sys.encCol %sys.encCol.backup
.set %sys.valCol %sys.valCol.backup
.set %sys.valU %sys.valU.backup
.set %sys.valBold %sys.valBold.backup
.set %sys.headCol %sys.headCol.backup
.set %sys.headU %sys.headU.backup
.set %sys.headBold %sys.headBold.backup
.set %sys.sepWith %sys.sepWith.backup
.set %sys.sepCol %sys.sepCol.backup
.set %sys.sepBold %sys.sepBold.backup
.set %sys.sepU %sys.sepU.backup

; <<<<< END RE-DOING VARS >>>>>

}

; <<<<< END PREVIEW CODE >>>>>

; <<<<< BEGIN DELETE CODE >>>>>

on 1:dialog:syssetup:sclick:90:{

if ( $?!="Are you sure you want to delete the theme?!" == $false ) {
goto veryend
}

set %sys.buffer $did(87).sel

remini systhemes.ini %sys.buffer
dialog -c syssetup
/timer 1 1 dialog -m syssetup syssetup
:veryend
}

; <<<<< END DELETE CODE >>>>>

; <<<<< BEGIN SAVE CODE >>>>>

on 1:dialog:syssetup:sclick:84:{

.set %sys.ini $ini(systhemes.ini,0)
set %sys.ini $ini(systhemes.ini,%sys.ini)
.set %sys.ini $calc(%sys.ini + 1)

.set %sys.buffer $$?="Enter a name for your theme!"

:name

while ( %sys.buffer == $null ) {
.set %sys.buffer $$?="Enter a name for your theme!"
}

writeini systhemes.ini %sys.ini name %sys.buffer

writeini systhemes.ini %sys.ini version %sys.simpleversion

.set %sys.buffer $did(3).text
writeini systhemes.ini %sys.ini encLeftVar $strip(%sys.buffer,burc)

.set %sys.buffer $did(5).text
writeini systhemes.ini %sys.ini encRightvar $strip(%sys.buffer,burc)

.set %sys.buffer $did(19).text
writeini systhemes.ini %sys.ini sepWith $strip(%sys.buffer,burc)

if ( $did(12).state >= 1 ) {
writeini systhemes.ini %sys.ini valBold 1
}
else {
writeini systhemes.ini %sys.ini valBold 0
}

if ( $did(13).state >= 1 ) {
writeini systhemes.ini %sys.ini valU 1
}
else {
writeini systhemes.ini %sys.ini valU 0
}

if ( $did(15).state >= 1 ) {
writeini systhemes.ini %sys.ini headBold 1
}
else {
writeini systhemes.ini %sys.ini headBold 0
}

if ( $did(16).state >= 1 ) {
writeini systhemes.ini %sys.ini headU 1
}
else {
writeini systhemes.ini %sys.ini headU 0
}

if ( $did(57).state >= 1 ) {
writeini systhemes.ini %sys.ini encBold 1
}
else {
writeini systhemes.ini %sys.ini encBold 0
}

if ( $did(58).state >= 1 ) {
writeini systhemes.ini %sys.ini encU 1
}
else {
writeini systhemes.ini %sys.ini encU 0
}

if ( $did(44).state >= 1 ) {
writeini systhemes.ini %sys.ini sepBold 1
}
else {
writeini systhemes.ini %sys.ini sepBold 0
}

if ( $did(45).state >= 1 ) {
writeini systhemes.ini %sys.ini sepU 1
}
else {
writeini systhemes.ini %sys.ini sepU 0
}

if ( $did(61).sel == 17 ) {
writeini systhemes.ini %sys.ini encCol 99
}
else {
writeini systhemes.ini %sys.ini encCol $calc($did(61).sel - 1)
}

if ( $did(42).sel == 17 ) {
writeini systhemes.ini %sys.ini sepCol 99
}
else {
writeini systhemes.ini %sys.ini sepCol $calc($did(42).sel - 1)
}

if ( $did(6).sel == 17 ) {
writeini systhemes.ini %sys.ini valCol 99
}
else {
writeini systhemes.ini %sys.ini valCol $calc($did(6).sel - 1)
}

if ( $did(8).sel == 17 ) {
writeini systhemes.ini %sys.ini headCol 99
}
else {
writeini systhemes.ini %sys.ini headCol $calc($did(8).sel - 1)
}

dialog -c syssetup
/timer 1 1 dialog -m syssetup syssetup

}

; <<<<< END SAVE CODE >>>>>

; <<<<< BEGIN EXPORT CODE >>>>>

on 1:dialog:syssetup:sclick:85:{

.set %sys.ini 1

.set %sys.buffer $$?="Please enter a file name without an extension!
(NO SPACES)"

.set %sys.iniexpath $mircdir $+ Themes\ $+ %sys.buffer $+ .thm

while ( %sys.iniexpath == $true ) {

.set %sys.buffer $$?="That file name exists, please specifiy
another name! (NO SPACES)"

.set %sys.iniexpath $mircdir $+ Themes\ $+ %sys.buffer $+ .thm

}

.set %sys.buffer2 $$?="Please enter a name for the theme!"

while ( %sys.buffer2 == $null ) {

.set %sys.buffer2 $$?="Please enter a name for the theme!"

}


writeini %sys.iniexpath %sys.ini name %sys.buffer2

writeini %sys.iniexpath %sys.ini version %sys.simpleversion

.set %sys.buffer $did(3).text
writeini %sys.iniexpath %sys.ini encLeftVar $strip(%sys.buffer,burc)

.set %sys.buffer $did(5).text
writeini %sys.iniexpath %sys.ini encRightvar
$strip(%sys.buffer,burc)

.set %sys.buffer $did(19).text
writeini %sys.iniexpath %sys.ini sepWith $strip(%sys.buffer,burc)

if ( $did(12).state >= 1 ) {
writeini %sys.iniexpath %sys.ini valBold 1
}
else {
writeini %sys.iniexpath %sys.ini valBold 0
}

if ( $did(13).state >= 1 ) {
writeini %sys.iniexpath %sys.ini valU 1
}
else {
writeini %sys.iniexpath %sys.ini valU 0
}

if ( $did(15).state >= 1 ) {
writeini %sys.iniexpath %sys.ini headBold 1
}
else {
writeini %sys.iniexpath %sys.ini headBold 0
}

if ( $did(16).state >= 1 ) {
writeini %sys.iniexpath %sys.ini headU 1
}
else {
writeini %sys.iniexpath %sys.ini headU 0
}

if ( $did(57).state >= 1 ) {
writeini %sys.iniexpath %sys.ini encBold 1
}
else {
writeini %sys.iniexpath %sys.ini encBold 0
}

if ( $did(58).state >= 1 ) {
writeini %sys.iniexpath %sys.ini encU 1
}
else {
writeini %sys.iniexpath %sys.ini encU 0
}

if ( $did(44).state >= 1 ) {
writeini %sys.iniexpath %sys.ini sepBold 1
}
else {
writeini %sys.iniexpath %sys.ini sepBold 0
}

if ( $did(45).state >= 1 ) {
writeini %sys.iniexpath %sys.ini sepU 1
}
else {
writeini %sys.iniexpath %sys.ini sepU 0
}

if ( $did(61).sel == 17 ) {
writeini %sys.iniexpath %sys.ini encCol 99
}
else {
writeini %sys.iniexpath %sys.ini encCol $calc($did(61).sel - 1)
}

if ( $did(42).sel == 17 ) {
writeini %sys.iniexpath %sys.ini sepCol 99
}
else {
writeini %sys.iniexpath %sys.ini sepCol $calc($did(42).sel - 1)
}

if ( $did(6).sel == 17 ) {
writeini %sys.iniexpath %sys.ini valCol 99
}
else {
writeini %sys.iniexpath %sys.ini valCol $calc($did(6).sel - 1)
}

if ( $did(8).sel == 17 ) {
writeini %sys.iniexpath %sys.ini headCol 99
}
else {
writeini %sys.iniexpath %sys.ini headCol $calc($did(8).sel - 1)
}

}

; <<<<< END EXPORT CODE >>>>>

; <<<<< BEGIN APPLY CODE >>>>>

on 1:dialog:syssetup:sclick:83:{

set %sys.ini $did(87).sel
set %sys.currenttheme $did(87).sel
set %sys.ini $ini(systhemes.ini,%sys.ini)

did -r syssetup 3
did -r syssetup 5
did -r syssetup 19
did -a syssetup 3 $readini systhemes.ini %sys.ini encLeftVar
did -a syssetup 5 $readini systhemes.ini %sys.ini encRightVar
did -a syssetup 19 $readini systhemes.ini %sys.ini sepWith

.set %sys.buffer $readini systhemes.ini %sys.ini valBold

if ( %sys.buffer == 1 ) {
did -c syssetup 12
}
else {
did -u syssetup 12
}

.set %sys.buffer $readini systhemes.ini %sys.ini valU

if ( %sys.buffer == 1 ) {
did -c syssetup 13
}
else {
did -u syssetup 13
}

.set %sys.buffer $readini systhemes.ini %sys.ini headBold

if ( %sys.buffer == 1 ) {
did -c syssetup 15
}
else {
did -u syssetup 15
}

.set %sys.buffer $readini systhemes.ini %sys.ini headU

if ( %sys.buffer == 1 ) {
did -c syssetup 16
}
else {
did -u syssetup 16
}

.set %sys.buffer $readini systhemes.ini %sys.ini encBold

if ( %sys.buffer == 1 ) {
did -c syssetup 57
}
else {
did -u syssetup 57
}

.set %sys.buffer $readini systhemes.ini %sys.ini encU

if ( %sys.buffer == 1 ) {
did -c syssetup 58
}
else {
did -u syssetup 58
}

.set %sys.buffer $readini systhemes.ini %sys.ini sepBold

if ( %sys.buffer == 1 ) {
did -c syssetup 44
}
else {
did -u syssetup 44
}

.set %sys.buffer $readini systhemes.ini %sys.ini sepU

if ( %sys.buffer == 1 ) {
did -c syssetup 45
}
else {
did -u syssetup 45
}

.set %sys.buffer $readini systhemes.ini %sys.ini encCol

if ( %sys.buffer == 99 ) {
did -c syssetup 61 17
}
else {
did -c syssetup 61 $calc(%sys.buffer + 1)
}

.set %sys.buffer $readini systhemes.ini %sys.ini sepCol

if ( %sys.buffer == 99 ) {
did -c syssetup 42 17
}
else {
did -c syssetup 42 $calc(%sys.buffer + 1)
}

.set %sys.buffer $readini systhemes.ini %sys.ini valCol

if ( %sys.buffer == 99 ) {
did -c syssetup 6 17
}
else {
did -c syssetup 6 $calc(%sys.buffer + 1)
}

.set %sys.buffer $readini systhemes.ini %sys.ini headCol

if ( %sys.buffer == 99 ) {
did -c syssetup 8 17
}
else {
did -c syssetup 8 $calc(%sys.buffer + 1)
}

}

; <<<<< END APPLY CODE >>>>>

; <<<<< BEGIN IMPORT CODE >>>>>

on 1:dialog:syssetup:sclick:86:{

.set %sys.iniinpath $sfile($mircdir $+ \Themes\,Find file to
import!)

if ( %sys.iniinpath == $null ) {

goto veryend

}

.set %sys.ini $ini(systhemes.ini,0)
set %sys.ini $ini(systhemes.ini,%sys.ini)
.set %sys.ini $calc(%sys.ini + 1)

.writeini systhemes.ini %sys.ini name $readini %sys.iniinpath 1 name
.writeini systhemes.ini %sys.ini version $readini %sys.iniinpath 1
version
.writeini systhemes.ini %sys.ini encLeftVar $readini %sys.iniinpath
1 encLeftVar
.writeini systhemes.ini %sys.ini encRightVar $readini %sys.iniinpath
1 encRightVar
.writeini systhemes.ini %sys.ini sepWith $readini %sys.iniinpath 1
sepWith
.writeini systhemes.ini %sys.ini valBold $readini %sys.iniinpath 1
valBold
.writeini systhemes.ini %sys.ini valU $readini %sys.iniinpath 1 valU
.writeini systhemes.ini %sys.ini headBold $readini %sys.iniinpath 1
headBold
.writeini systhemes.ini %sys.ini headU $readini %sys.iniinpath 1
headU
.writeini systhemes.ini %sys.ini encBold $readini %sys.iniinpath 1
encBold
.writeini systhemes.ini %sys.ini encU $readini %sys.iniinpath 1 encU
.writeini systhemes.ini %sys.ini sepBold $readini %sys.iniinpath 1
sepBold
.writeini systhemes.ini %sys.ini sepU $readini %sys.iniinpath 1 sepU
.writeini systhemes.ini %sys.ini encCol $readini %sys.iniinpath 1
encCol
.writeini systhemes.ini %sys.ini sepCol $readini %sys.iniinpath 1
sepCol
.writeini systhemes.ini %sys.ini valCol $readini %sys.iniinpath 1
valCol
.writeini systhemes.ini %sys.ini headCol $readini %sys.iniinpath 1
headCol

dialog -c syssetup
/timer 1 1 dialog -m syssetup syssetup

}

; <<<<< END IMPORT CODE >>>>>

on 1:dialog:syssetup:sclick:74:{
did -r syssetup 66

if ( $dll(registry.dll,GetKeyValue, [ 1 ]
HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Class\{4D36E968-E325-11CE-BFC1-08002BE10318}\0000\\DriverDesc)
== $null ) {
did -a syssetup 66 $dll(registry.dll,GetKeyValue, [ 1 ]
HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Class\DISPLAY\0000\\DriverDesc)
}
else {
did -a syssetup 66 $dll(registry.dll,GetKeyValue, [ 1 ]
HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Class\{4D36E968-E325-11CE-BFC1-08002BE10318}\0000\\DriverDesc)
}


did -r syssetup 75

if ( $dll(registry.dll,GetKeyValue, [ 1 ]
HKEY_LOCAL_MACHINE\SYSTEM\ControlSet002\Control\Class\{4D36E96C-E325-11CE-BFC1-08002BE10318}\0000\\DriverDesc)
== $null ) {
did -a syssetup 75 $dll(registry.dll,GetKeyValue, [ 1 ]
HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Class\MEDIA\0000\\DriverDesc)
}
else {
did -a syssetup 75 $dll(registry.dll,GetKeyValue, [ 1 ]
HKEY_LOCAL_MACHINE\SYSTEM\ControlSet002\Control\Class\{4D36E96C-E325-11CE-BFC1-08002BE10318}\0000\\DriverDesc)
}

did -r syssetup 79

if ( $dll(registry.dll,GetKeyValue, [ 1 ]
HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Class\{4D36E96E-E325-11CE-BFC1-08002BE10318}\0000\\DriverDesc)
== $null ) {
did -a syssetup 79 $dll(registry.dll,GetKeyValue, [ 1 ]
HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Class\Monitor\0000\\DriverDesc)
}
else {
did -a syssetup 79 $dll(registry.dll,GetKeyValue, [ 1 ]
HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Class\{4D36E96E-E325-11CE-BFC1-08002BE10318}\0000\\DriverDesc)
}

}

alias cust {
setupcolours
if ( $1 != $null ) {
.set %sys.output $1-200
}
else {
.set %sys.output %sys.CustomLine
}
.set %sys.output $replace(%sys.output,@os,$dll(moo.dll,osinfo,_))
.set %sys.output $replace(%sys.output,@up,$dll(moo.dll,uptime,_))
.set %sys.output $replace(%sys.output,@cpu,$dll(moo.dll,cpuinfo,_))
.set %sys.output $replace(%sys.output,@mem,$dll(moo.dll,meminfo,_))
.set %sys.output $replace(%sys.output,@up,$dll(moo.dll,uptime,_))
.set %sys.output $replace(%sys.output,@hd,%sys.total.size $+ / $+
%sys.total.free)
.set %sys.output
$replace(%sys.output,@ni,$dll(moo.dll,interfaceinfo,_))
.set %sys.output
$replace(%sys.output,@res,$dll(moo.dll,screeninfo,_))
getmbm5info
.set %sys.output $replace(%sys.output,@temp,$result)
.set %sys.output $replace(%sys.output,@mon,%sys.monitor)
.set %sys.output $replace(%sys.output,@gfx,%sys.gfxcard)
.set %sys.output $replace(%sys.output,@snd,%sys.soundcard)
.set %sys.output $replace(%sys.output,@mon,%sys.monitor)
say %sys.output

}


alias syssetup {
dialog -m syssetup syssetup
}

alias -l setupcolours {

if ( %sys.headCol >= 10 ) {
.set %sys.HeadColourVar %sys.headCol
}
else {
.set %sys.HeadColourVar 0 $+ %sys.headCol
}


if ( %sys.headU == 1 ) {
.set %sys.UnderLineHeader
}
else {
unset %sys.UnderLineHeader
}

if ( %sys.headBold == 1 ) {
.set %sys.BoldHeader

}
else {
unset %sys.BoldHeader
}

if ( %sys.valCol >= 10 ) {
.set %sys.ValueColourVar %sys.valCol
}
else {
.set %sys.ValueColourVar 0 $+ %sys.valCol
}

if ( %sys.valU == 1 ) {
.set %sys.UnderLineValue
}
else {
unset %sys.UnderLineValue
}

if ( %sys.valBold == 1 ) {
.set %sys.BoldValue

}
else {
unset %sys.BoldValue
}

if ( %sys.encCol >= 10 ) {
.set %sys.encColourVar %sys.encCol
}
else {
.set %sys.encColourVar 0 $+ %sys.encCol
}


if ( %sys.encBold == 1 ) {
.set %sys.Boldenc

}
else {
unset %sys.Boldenc
}

if ( %sys.encU == 1 ) {
.set %sys.Underlineenc
}
else {
unset %sys.Underlineenc
}

if ( %sys.sepBold == 1 ) {
.set %sys.Boldsep

}
else {
unset %sys.Boldsep
}

if ( %sys.sepU == 1 ) {
.set %sys.Underlinesep
}
else {
unset %sys.Underlinesep
}

if ( %sys.sepCol >= 10 ) {
.set %sys.sepColourvar %sys.sepCol
}
else {
.set %sys.sepColourvar 0 $+ %sys.sepCol
}

}

alias display {
setupcolours
.set %sys.output %sys.BoldHeader $+ %sys.UnderLineHeader $+
$+ %sys.HeadColourVar $+ D isplay Info $+ %sys.UnderLineHeader $+
%sys.BoldHeader $+
99: %sys.Underlineenc $+
$+ %sys.encColourVar $+ %sys.Boldenc $+ %sys.encLeftvar $+
%sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+
$dll(moo.dll,screeninfo,_) $+ %sys.UnderLineValue $+
$+ %sys.BoldValue $+ %sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.encColourVar $+ %sys.encRightvar $+ %sys.Underlineenc $+
%sys.Boldenc
.set %sys.output %sys.output %sys.Boldsep $+ %sys.Underlinesep $+
$+ %sys.sepColourvar $+ %sys.sepWith $+ %sys.Boldsep $+
$+ %sys.Underlinesep %sys.BoldHeader $+ %sys.UnderLineHeader $+
$+ %sys.HeadColourVar $+ M onitor $+ %sys.UnderLineHeader $+
%sys.BoldHeader $+
99: %sys.Underlineenc $+
$+ %sys.encColourVar $+ %sys.Boldenc $+ %sys.encLeftvar $+
%sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+
%sys.monitor $+ %sys.UnderLineValue $+
$+ %sys.BoldValue $+ %sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.encColourVar $+ %sys.encRightvar
/say %sys.output
unset %sys.output
}

alias periph {
setupcolours
.set %sys.output %sys.BoldHeader $+ %sys.UnderLineHeader $+
$+ %sys.HeadColourVar $+ V ideo card $+ %sys.UnderLineHeader $+
%sys.BoldHeader $+
99: %sys.Underlineenc $+
$+ %sys.encColourVar $+ %sys.Boldenc $+ %sys.encLeftvar $+
%sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+
%sys.gfxcard $+ %sys.UnderLineValue $+
$+ %sys.BoldValue $+ %sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.encColourVar $+ %sys.encRightvar $+ %sys.Underlineenc $+
%sys.Boldenc %sys.Boldsep $+ %sys.Underlinesep $+
$+ %sys.sepColourvar $+ %sys.sepWith $+ %sys.Boldsep $+
$+ %sys.Underlinesep
.set %sys.output %sys.output %sys.BoldHeader $+ %sys.UnderLineHeader
$+
$+ %sys.HeadColourVar $+ S ound card $+ %sys.UnderLineHeader $+
%sys.BoldHeader $+
99: %sys.Underlineenc $+
$+ %sys.encColourVar $+ %sys.Boldenc $+ %sys.encLeftvar $+
%sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+
%sys.soundcard $+ %sys.UnderLineValue $+
$+ %sys.BoldValue $+ %sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.encColourVar $+ %sys.encRightvar
/say %sys.output
unset %sys.output
}

on 1:dialog:syssetup:sclick:93:{

.set %sys.checktopic $ini(PC-Info.ini,uptime)

.set %sys.buffer $did(91).sel

if ( %sys.buffer == $null ) {
goto veryend
}

if ( %sys.buffer >= %sys.checktopic ) {
/inc %sys.buffer 1
}
set %sys.buffer2 $ini(PC-Info.ini,%sys.buffer)

set %sys.buffer $readini PC-Info.ini %sys.buffer2 command

%sys.buffer


:veryend
}

on 1:dialog:syssetup:sclick:94:{
/load -rs $sfile($mircdir,Please choose an addon to load!,Load!)
}


on *:START:{
if ( %sys.FirstLoad == $null ) {
/syssetup
}
/timeruptime -o 0 60 /updateuptime
.set %sys.version BETA 5
}

alias setgfx {
.set %sys.gfxcard $$?="Please enter the name of your Graphics card,
if any?!"
}

ctcp *:VERSION:?:{
if ( %sys.respondCTCP == 1 ) {
.set %rb_size 10
rambar
/calcspace
setupcolours
.set %sys.output %sys.BoldHeader $+ %sys.UnderLineHeader $+
$+ %sys.HeadColourVar $+ O S $+ %sys.UnderLineHeader $+
%sys.BoldHeader $+
99: $+ %sys.Underlineenc $+
$+ %sys.encColourVar $+ %sys.Boldenc $+ %sys.encLeftvar $+
%sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+
$dll(moo.dll,osinfo,_) $+ %sys.UnderLineValue $+
$+ %sys.BoldValue $+ %sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.encColourVar $+ %sys.encRightvar $+ %sys.Underlineenc $+
%sys.Boldenc
.set %sys.output %sys.output %sys.Boldsep $+ %sys.Underlinesep $+
$+ %sys.sepColourvar $+ %sys.sepWith $+ %sys.Boldsep $+
$+ %sys.Underlinesep %sys.BoldHeader $+ %sys.UnderLineHeader $+
$+ %sys.HeadColourVar $+ U p $+ %sys.UnderLineHeader $+
%sys.BoldHeader $+
99: $+ %sys.Underlineenc $+
$+ %sys.encColourVar $+ %sys.Boldenc $+ %sys.encLeftvar $+
%sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+
$dll(moo.dll,uptime,_) $+ %sys.UnderLineValue $+
$+ %sys.BoldValue $+ %sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.encColourVar $+ %sys.encRightvar $+ %sys.Underlineenc $+
%sys.Boldenc
.set %sys.output %sys.output %sys.Boldsep $+ %sys.Underlinesep $+
$+ %sys.sepColourvar $+ %sys.sepWith $+ %sys.Boldsep $+
$+ %sys.Underlinesep %sys.BoldHeader $+ %sys.UnderLineHeader $+
$+ %sys.HeadColourVar $+ C PU $+ %sys.UnderLineHeader $+
%sys.BoldHeader $+
99: $+ %sys.Underlineenc $+
$+ %sys.encColourVar $+ %sys.Boldenc $+ %sys.encLeftvar $+
%sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+
$dll(moo.dll,cpuinfo,_) $+ %sys.UnderLineValue $+
$+ %sys.BoldValue $+ %sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.encColourVar $+ %sys.encRightvar $+ %sys.Underlineenc $+
%sys.Boldenc
.set %sys.output %sys.output %sys.Boldsep $+ %sys.Underlinesep $+
$+ %sys.sepColourvar $+ %sys.sepWith $+ %sys.Boldsep $+
$+ %sys.Underlinesep %sys.BoldHeader $+ %sys.UnderLineHeader $+
$+ %sys.HeadColourVar $+ M em $+ %sys.UnderLineHeader $+
%sys.BoldHeader $+
99: $+ %sys.Underlineenc $+
$+ %sys.encColourVar $+ %sys.Boldenc $+ %sys.encLeftvar $+
%sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+
$dll(moo.dll,meminfo,_) $+ $+ %sys.UnderLineValue $+
$+ %sys.BoldValue $+ %sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.encColourVar $+ %sys.encRightvar $+ %sys.Underlineenc $+
%sys.Boldenc
$+ %sys.sepColourvar $+ /
99 $result
.set %sys.output %sys.output %sys.Boldsep $+ %sys.Underlinesep $+
$+ %sys.sepColourvar $+ %sys.sepWith $+ %sys.Boldsep $+
$+ %sys.Underlinesep %sys.BoldHeader $+ %sys.UnderLineHeader $+
$+ %sys.HeadColourVar $+ H D $+ %sys.UnderLineHeader $+
%sys.BoldHeader $+
99: $+ %sys.Underlineenc $+
$+ %sys.encColourVar $+ %sys.Boldenc $+ %sys.encLeftvar $+
%sys.Underlineenc $+ %sys.Boldenc $+ %sys.BoldHeader $+
%sys.UnderLineHeader $+
$+ %sys.HeadColourVar $+ T otal/ F ree $+ %sys.UnderLineHeader $+
%sys.BoldHeader $+ :
$+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+
%sys.total.size $+
$+ %sys.sepColourvar $+ /
$+ %sys.ValueColourVar $+ %sys.total.free $+ GB $+
%sys.UnderLineValue $+
$+ %sys.BoldValue $+ %sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.encColourVar $+ %sys.encRightvar $+ %sys.Underlineenc $+
%sys.Boldenc
ctcpreply $nick VERSION %sys.output
unset %sys.output

ctcpreply $nick VERSION I am using PC-Info by Albator
%sys.version $+
!

}
}

on *:LOAD:{
.set %sys.version BETA 5
/echo -a
4
*** Thankyou for loading PC-Info by Albator %sys.version $+ .
/echo -a
4
*** Please report bugs to ala...@hotmail.com
/syssetup
/timeruptime -o 0 60 /updateuptime
}

alias updateuptime {
.set %sys.LatestUptime $calc($ticks / 1000 - 1))
.set %sys.LastUptime $readini PC-Info.ini uptime uptime
if ( %sys.LastUptime == $null ) {
.set %sys.LastUptime 0
}
if ( %sys.LatestUptime > %sys.LastUptime ) {
/writeini PC-Info.ini uptime uptime %sys.LatestUptime
/writeini PC-Info.ini uptime date $asctime(dd/mm/yy)
writeini PC-Info.ini uptime os $os
}
}

alias detectplugins {
setupcolours
unset %sys.plugins
set %sys.topictoscan 0
set %sys.counter 0
:beginloop
/inc %sys.topictoscan 1

if ( $ini(PC-Info.ini,%sys.topictoscan) == uptime ) {
goto beginloop
}

.set %sys.buffer $readini PC-Info.ini
$ini(PC-Info.ini,%sys.topictoscan) name
if ( %sys.buffer == $null ) {

goto veryend
}
else {
/inc %sys.counter 1
if ( %sys.counter == 1 ) {
set %sys.plugins %sys.ValueColourVar $+ %sys.UnderLineValue $+
%sys.BoldValue $+ Addons: $readini PC-Info.ini
$ini(PC-Info.ini,%sys.topictoscan) name - $readini PC-Info.ini
$ini(PC-Info.ini,%sys.topictoscan) version $+ %sys.UnderLineValue $+
$+ %sys.BoldValue
goto beginloop
}
else {
set %sys.plugins %sys.plugins %sys.Boldsep $+ %sys.Underlinesep
$+
$+ %sys.sepColourvar $+ %sys.sepWith $+ %sys.Boldsep $+
$+ %sys.Underlinesep $+ %sys.ValueColourVar $+ %sys.UnderLineValue $+
%sys.BoldValue $+ $readini PC-Info.ini
$ini(PC-Info.ini,%sys.topictoscan) name - $readini PC-Info.ini
$ini(PC-Info.ini,%sys.topictoscan) version $+ %sys.UnderLineValue $+
$+ %sys.BoldValue
goto beginloop
}
}


:veryend
if ( %sys.plugins == $null ) {
set %sys.plugins %sys.ValueColourVar $+ %sys.UnderLineValue $+
%sys.BoldValue $+ Addons: None detected $+ %sys.UnderLineValue $+
$+ %sys.BoldValue
}
}

alias client {
detectplugins
.set %sys.output %sys.BoldHeader $+ %sys.UnderLineHeader $+
$+ %sys.HeadColourVar $+ C lient Version $+ %sys.UnderLineHeader $+
%sys.BoldHeader $+
99: %sys.Underlineenc $+
$+ %sys.encColourVar $+ %sys.Boldenc $+ %sys.encLeftvar $+
%sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+
mIRC v $+ $version $+ %sys.UnderLineValue $+
$+ %sys.BoldValue $+ %sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.encColourVar $+ %sys.encRightvar $+ %sys.Underlineenc $+
%sys.Boldenc
.set %sys.output %sys.output %sys.Boldsep $+ %sys.Underlinesep $+
$+ %sys.sepColourvar $+ %sys.sepWith $+ %sys.Boldsep $+
$+ %sys.Underlinesep %sys.BoldHeader $+ %sys.UnderLineHeader $+
$+ %sys.HeadColourVar $+ M OO Version $+ %sys.UnderLineHeader $+
%sys.BoldHeader $+
99: %sys.Underlineenc $+
$+ %sys.encColourVar $+ %sys.Boldenc $+ %sys.encLeftvar $+
%sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+
$dll(moo.dll,version,_) $+ %sys.UnderLineValue $+
$+ %sys.BoldValue $+ %sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.encColourVar $+ %sys.encRightvar $+ %sys.Underlineenc $+
%sys.Boldenc
.set %sys.output %sys.output %sys.Boldsep $+ %sys.Underlinesep $+
$+ %sys.sepColourvar $+ %sys.sepWith $+ %sys.Boldsep $+
$+ %sys.Underlinesep %sys.BoldHeader $+ %sys.UnderLineHeader $+
$+ %sys.HeadColourVar $+ S cript Version $+ %sys.UnderLineHeader $+
%sys.BoldHeader $+
99: %sys.Underlineenc $+
$+ %sys.encColourVar $+ %sys.Boldenc $+ %sys.encLeftvar $+
%sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+
PC-Info by Albator %sys.version %sys.UnderLineValue $+
$+ %sys.BoldValue $+ %sys.Boldsep $+ %sys.Underlinesep $+
$+ %sys.sepColourvar $+ %sys.sepWith %sys.Boldsep $+
$+ %sys.Underlinesep $+ %sys.plugins $+ %sys.Underlineenc $+
%sys.Boldenc $+
$+ %sys.encColourVar $+ %sys.encRightvar $+ %sys.Underlineenc $+
%sys.Boldenc
/say %sys.output
unset %sys.output
}

alias calcspace {
.set %sys.total.size 0
.set %sys.total.free 0
.set %sys.Letter 66
:beginloop
/inc %sys.letter 1
if ( %sys.Letter == 91 ) { goto returnresult }
.set %sys.driveletter $chr(%sys.Letter)
.set %sys.check $disk(%sys.driveletter).free
if ( $disk(%sys.driveletter).type != fixed ) {
goto beginloop
}

else {
.set %sys.check $disk(%sys.driveletter).size
.set %sys.total.size $calc((%sys.total.size)+(%sys.check))
.set %sys.check $disk(%sys.driveletter).free
.set %sys.total.free $calc((%sys.total.free)+(%sys.check))
goto beginloop
}
:returnresult
.set %sys.total.size $round($calc((%sys.total.size)/1073741824),2)
.set %sys.total.free $round($calc((%sys.total.free)/1073741824),2)
:veryend
}

alias calcspace2 {
setupcolours
.unset %sys.bigstring
.set %sys.Letter 66
:beginloop
/inc %sys.letter 1
if ( %sys.Letter == 91 ) { goto veryend }
.set %sys.driveletter $chr(%sys.Letter)
.set %sys.check $disk(%sys.driveletter).free
if ( $disk(%sys.driveletter).type != fixed ) {
goto beginloop
}

else {
if ( %sys.driveletter == C ) {
.set %sys.bigstring %sys.BoldHeader $+ %sys.UnderLineHeader $+
$+ %sys.HeadColourVar $+ T otal
$+ %sys.sepColourvar $+ /
$+ %sys.HeadColourVar $+ F ree space on $+ %sys.BoldHeader $+
$+ %sys.UnderLineHeader $+
99: %sys.BoldHeader $+ %sys.UnderLineHeader $+
$+ %sys.HeadColourVar $+ %sys.driveletter $+ %sys.BoldHeader $+
$+ %sys.UnderLineHeader $+
99:
$+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+
$round($calc(($disk(%sys.driveletter).size)/1073741824),2) $+ GB
$+ %sys.sepColourvar $+ /
$+ %sys.ValueColourVar $+
$round($calc(($disk(%sys.driveletter).free)/1073741824),2) $+ GB $+
%sys.UnderLineValue $+ %sys.BoldValue
}
else {
.set %sys.bigstring %sys.bigstring %sys.Boldsep $+
%sys.Underlinesep $+
$+ %sys.sepColourvar $+ %sys.sepWith $+ %sys.Boldsep $+
$+ %sys.Underlinesep %sys.BoldHeader $+ %sys.UnderLineHeader $+
$+ %sys.HeadColourVar $+ %sys.driveletter $+ %sys.BoldHeader $+
%sys.UnderLineHeader $+
99:
$+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+
$round($calc(($disk(%sys.driveletter).size)/1073741824),2) $+ GB
$+ %sys.sepColourvar $+ /
$+ %sys.ValueColourVar $+
$round($calc(($disk(%sys.driveletter).free)/1073741824),2) $+ GB $+
%sys.UnderLineValue $+ %sys.BoldValue
}
goto beginloop
}
:veryend
}

alias space {
if ( $1 == $null ) {
/calcspace
/calcspace2
.set %sys.output %sys.BoldHeader $+ %sys.UnderLineHeader $+
$+ %sys.HeadColourVar $+ H ard Disks $+ %sys.BoldHeader $+
%sys.UnderLineHeader $+
99: %sys.Underlineenc $+
$+ %sys.encColourVar $+ %sys.Boldenc $+ %sys.encLeftvar $+
%sys.Underlineenc $+ %sys.Boldenc $+ %sys.BoldHeader $+
%sys.UnderLineHeader $+
$+ %sys.HeadColourVar $+ T otal
$+ %sys.sepColourvar $+ %sys.BoldHeader $+ %sys.UnderLineHeader $+ /
99 $+ %sys.BoldHeader $+ %sys.UnderLineHeader $+
$+ %sys.HeadColourVar $+ F ree $+ %sys.BoldHeader $+
%sys.UnderLineHeader $+
99:
$+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+
%sys.total.size $+
$+ %sys.sepColourvar $+ /
$+ %sys.ValueColourVar $+ %sys.total.free $+ GB $+
%sys.UnderLineValue $+ %sys.BoldValue
.set %sys.output %sys.output %sys.Boldsep $+ %sys.Underlinesep $+
$+ %sys.sepColourvar $+ %sys.sepWith $+ %sys.Boldsep $+
$+ %sys.Underlinesep %sys.bigstring $+ %sys.Underlineenc $+
%sys.Boldenc $+
$+ %sys.encColourVar $+ %sys.encRightvar $+ %sys.Underlineenc $+
%sys.Boldenc
/say %sys.output

}
else {
.set %sys.output %sys.BoldHeader $+ %sys.UnderLineHeader $+
$+ %sys.HeadColourVar $+ H ard Disks $+ %sys.BoldHeader $+
%sys.UnderLineHeader $+
99: %sys.Underlineenc $+
$+ %sys.encColourVar $+ %sys.Boldenc $+ %sys.encLeftvar $+
%sys.Underlineenc $+ %sys.Boldenc $+ %sys.BoldHeader $+
%sys.UnderLineHeader $+
$+ %sys.HeadColourVar $+ T otal space on $+ %sys.BoldHeader $+
%sys.UnderLineHeader $+
99:
99 %sys.BoldHeader $+
$+ %sys.HeadColourVar $+ %sys.UnderLineHeader $+ $1 $+
%sys.BoldHeader $+
$+ %sys.HeadColourVar $+
99: $round($calc(($disk( $+ $1 $+ ).size)/1073741824),2) $+ GB
%sys.BoldHeader $+ %sys.UnderLineHeader $+
$+ %sys.HeadColourVar $+ F ree space on $+ %sys.BoldHeader $+
%sys.UnderLineHeader $+ :
99 $+ %sys.BoldHeader $+
$+ %sys.HeadColourVar $+ %sys.UnderLineHeader $+ $1 $+
%sys.BoldHeader $+
$+ %sys.HeadColourVar $+
99: $round($calc(($disk( $+ $1 $+ ).free)/1073741824),2)
.set %sys.output %sys.output $+ GB $+ %sys.Underlineenc $+
%sys.Boldenc $+
$+ %sys.encColourVar $+ %sys.encRightvar
/say %sys.output

}
}

alias uptime {
.set %sys.LatestUptime $calc($ticks / 1000 - 1))
.set %sys.LastUptime $readini PC-Info.ini uptime uptime
if ( %sys.LastUptime == $null ) {
.set %sys.LastUptime 0
}
if ( %sys.LatestUptime > %sys.LastUptime ) {
/writeini PC-Info.ini uptime uptime %sys.LatestUptime
/writeini PC-Info.ini uptime date $asctime(dd/mm/yy)
writeini PC-Info.ini uptime os $os
}

.set %sys.RecordUptime $readini PC-Info.ini uptime uptime
.set %sys.RecordUptime $duration(%sys.RecordUptime)
.set %sys.UpTimeDate $readini PC-Info.ini uptime date
.set %sys.UptimeOS $readini PC-Info.ini uptime os

setupcolours
.set %sys.output %sys.BoldHeader $+ %sys.UnderLineHeader $+
$+ %sys.HeadColourVar $+ O perating System $+ %sys.BoldHeader $+
%sys.UnderLineHeader $+
99: %sys.Underlineenc $+
$+ %sys.encColourVar $+ %sys.Boldenc $+ %sys.encLeftvar $+
%sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+
$dll(moo.dll,osinfo,_) $+ %sys.UnderLineValue $+ %sys.BoldValue $+
%sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.encColourVar $+ %sys.encRightvar $+ %sys.Underlineenc $+
%sys.Boldenc
.set %sys.output %sys.output %sys.Boldsep $+ %sys.Underlinesep $+
$+ %sys.sepColourvar $+ %sys.sepWith %sys.Boldsep $+
$+ %sys.Underlinesep $+ %sys.BoldHeader $+ %sys.UnderLineHeader $+
$+ %sys.HeadColourVar $+ U ptime $+ %sys.UnderLineHeader $+
%sys.BoldHeader $+
99: %sys.Underlineenc $+
$+ %sys.encColourVar $+ %sys.Boldenc $+ %sys.encLeftvar $+
%sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+
$dll(moo.dll,uptime,_) $+ %sys.UnderLineValue $+
$+ %sys.BoldValue $+ %sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.encColourVar $+ %sys.encRightvar $+ %sys.Underlineenc $+
%sys.Boldenc
.set %sys.output %sys.output %sys.Boldsep $+ %sys.Underlinesep $+
$+ %sys.sepColourvar $+ %sys.sepWith %sys.Boldsep $+
$+ %sys.Underlinesep $+ %sys.BoldHeader $+ %sys.UnderLineHeader $+
$+ %sys.HeadColourVar $+ R ecord $+ %sys.UnderLineHeader $+
%sys.BoldHeader $+
99: %sys.Underlineenc $+
$+ %sys.encColourVar $+ %sys.Boldenc $+ %sys.encLeftvar $+
%sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+
%sys.RecordUptime $+ (Set on %sys.UpTimeDate using %sys.UptimeOS $+ )
$+ %sys.UnderLineValue $+
$+ %sys.BoldValue $+ %sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.encColourVar $+ %sys.encRightvar
/say %sys.output
unset %sys.output
}
alias conn {
setupcolours
/say %sys.BoldHeader $+ %sys.UnderLineHeader $+
$+ %sys.HeadColourVar $+ C onnection $+ %sys.UnderLineHeader $+
%sys.BoldHeader $+
99: %sys.Underlineenc $+
$+ %sys.encColourVar $+ %sys.Boldenc $+ %sys.encLeftvar $+
%sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+
$dll(moo.dll,connection,_) $+ %sys.UnderLineValue $+
$+ %sys.BoldValue $+ %sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.encColourVar $+ %sys.encRightvar
}

alias ni {
setupcolours
/say %sys.BoldHeader $+ %sys.UnderLineHeader $+
$+ %sys.HeadColourVar $+ N etwork I nterfaces $+
%sys.UnderLineHeader $+ %sys.BoldHeader $+
99: %sys.Underlineenc $+
$+ %sys.encColourVar $+ %sys.Boldenc $+ %sys.encLeftvar $+
%sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+
$dll(moo.dll,interfaceinfo,_) $+ %sys.UnderLineValue $+
$+ %sys.BoldValue $+ %sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.encColourVar $+ %sys.encRightvar

}

alias meminfo {
.set %rb_size 50
setupcolours
rambar
.set %sys.output %sys.BoldHeader $+ %sys.UnderLineHeader $+
$+ %sys.HeadColourVar $+ M emory Usage $+ %sys.UnderLineHeader $+
%sys.BoldHeader $+
99: %sys.Underlineenc $+
$+ %sys.encColourVar $+ %sys.Boldenc $+ %sys.encLeftvar $+
%sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+
$dll(moo.dll,meminfo,_) $+ %sys.UnderLineValue $+
$+ %sys.BoldValue $+ %sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.encColourVar $+ %sys.encRightvar $+ %sys.Underlineenc $+
%sys.Boldenc
.set %sys.output %sys.output %sys.Boldsep $+ %sys.Underlinesep $+
$+ %sys.sepColourvar $+ %sys.sepWith %sys.Boldsep $+
$+ %sys.Underlinesep $+ $result
/say %sys.output
unset %sys.output
}

alias cpuinfo {
setupcolours
/say %sys.BoldHeader $+ %sys.UnderLineHeader $+
$+ %sys.HeadColourVar $+ C PU Info $+ %sys.UnderLineHeader $+
%sys.BoldHeader $+
99: %sys.Underlineenc $+
$+ %sys.encColourVar $+ %sys.Boldenc $+ %sys.encLeftvar $+
%sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+
$dll(moo.dll,cpuinfo,_) $+ %sys.UnderLineValue $+
$+ %sys.BoldValue $+ %sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.encColourVar $+ %sys.encRightvar $+ %sys.Underlineenc $+
%sys.Boldenc
}

alias stats {
setupcolours
.set %rb_size 10

rambar
/calcspace
.set %sys.output %sys.BoldHeader $+ %sys.UnderLineHeader $+
$+ %sys.HeadColourVar $+ O S $+ %sys.UnderLineHeader $+
%sys.BoldHeader $+
99: $+ %sys.Underlineenc $+
$+ %sys.encColourVar $+ %sys.Boldenc $+ %sys.encLeftvar $+
%sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+
$dll(moo.dll,osinfo,_) $+ %sys.UnderLineValue $+
$+ %sys.BoldValue $+ %sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.encColourVar $+ %sys.encRightvar $+ %sys.Underlineenc $+
%sys.Boldenc
.set %sys.output %sys.output %sys.Boldsep $+ %sys.Underlinesep $+
$+ %sys.sepColourvar $+ %sys.sepWith %sys.Boldsep $+
$+ %sys.Underlinesep $+ %sys.BoldHeader $+ %sys.UnderLineHeader $+
$+ %sys.HeadColourVar $+ U p $+ %sys.UnderLineHeader $+
%sys.BoldHeader $+
99: $+ %sys.Underlineenc $+
$+ %sys.encColourVar $+ %sys.Boldenc $+ %sys.encLeftvar $+
%sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+
$dll(moo.dll,uptime,_) $+ %sys.UnderLineValue $+
$+ %sys.BoldValue $+ %sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.encColourVar $+ %sys.encRightvar $+ %sys.Underlineenc $+
%sys.Boldenc
.set %sys.output %sys.output %sys.Boldsep $+ %sys.Underlinesep $+
$+ %sys.sepColourvar $+ %sys.sepWith %sys.Boldsep $+
$+ %sys.Underlinesep $+ %sys.BoldHeader $+ %sys.UnderLineHeader $+
$+ %sys.HeadColourVar $+ C PU $+ %sys.UnderLineHeader $+
%sys.BoldHeader $+
99: $+ %sys.Underlineenc $+
$+ %sys.encColourVar $+ %sys.Boldenc $+ %sys.encLeftvar $+
%sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+
$dll(moo.dll,cpuinfo,_) $+ %sys.UnderLineValue $+
$+ %sys.BoldValue $+ %sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.encColourVar $+ %sys.encRightvar $+ %sys.Underlineenc $+
%sys.Boldenc
.set %sys.output %sys.output %sys.Boldsep $+ %sys.Underlinesep $+
$+ %sys.sepColourvar $+ %sys.sepWith %sys.Boldsep $+
$+ %sys.Underlinesep $+ %sys.BoldHeader $+ %sys.UnderLineHeader $+
$+ %sys.HeadColourVar $+ M em $+ %sys.UnderLineHeader $+
%sys.BoldHeader $+
99: $+ %sys.Underlineenc $+
$+ %sys.encColourVar $+ %sys.Boldenc $+ %sys.encLeftvar $+
%sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+
$dll(moo.dll,meminfo,_) $+ %sys.UnderLineValue $+
$+ %sys.BoldValue $+ %sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.encColourVar $+ %sys.encRightvar $+ %sys.Underlineenc $+
%sys.Boldenc
$+ %sys.sepColourvar $+ /
99 $result
.set %sys.output %sys.output %sys.Boldsep $+ %sys.Underlinesep $+
$+ %sys.sepColourvar $+ %sys.sepWith %sys.Boldsep $+
$+ %sys.Underlinesep $+ %sys.BoldHeader $+ %sys.UnderLineHeader $+
$+ %sys.HeadColourVar $+ H D $+ %sys.UnderLineHeader $+
%sys.BoldHeader $+
99: $+ %sys.Underlineenc $+
$+ %sys.encColourVar $+ %sys.Boldenc $+ %sys.encLeftvar $+
%sys.Underlineenc $+ %sys.Boldenc $+ %sys.BoldHeader $+
%sys.UnderLineHeader $+
$+ %sys.HeadColourVar $+ T otal/ F ree $+ %sys.UnderLineHeader $+
%sys.BoldHeader $+ :
$+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+
%sys.total.size $+
$+ %sys.sepColourvar $+ /
$+ %sys.ValueColourVar $+ %sys.total.free $+ GB $+
%sys.UnderLineValue $+
$+ %sys.BoldValue $+ %sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.encColourVar $+ %sys.encRightvar $+ %sys.Underlineenc $+
%sys.Boldenc
/say %sys.output
unset %sys.output
}
==============================================
PC-Info 2
======
alias info {
setupcolours
.set %rb_size 30
rambar
.set %sys.LatestUptime $calc($ticks / 1000 - 1))
.set %sys.LastUptime $readini PC-Info.ini uptime uptime
if ( %sys.LatestUptime > %sys.LastUptime ) {
/writeini PC-Info.ini uptime uptime %sys.LatestUptime
/writeini PC-Info.ini uptime date $asctime(dd/mm/yy)
writeini PC-Info.ini uptime os $os
}
.set %sys.RecordUptime $readini PC-Info.ini uptime uptime
.set %sys.RecordUptime $duration(%sys.RecordUptime)
.set %sys.UpTimeDate $readini PC-Info.ini uptime date
.set %sys.UptimeOS $readini PC-Info.ini uptime os

.set %sys.output %sys.BoldHeader $+ %sys.UnderLineHeader $+
$+ %sys.HeadColourVar $+ O perating System $+ %sys.BoldHeader $+
%sys.UnderLineHeader $+
99: %sys.Underlineenc $+
$+ %sys.encColourVar $+ %sys.Boldenc $+ %sys.encLeftvar $+
%sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+
$dll(moo.dll,osinfo,_) $+ %sys.UnderLineValue $+ %sys.BoldValue $+ $+
%sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.encColourVar $+ %sys.encRightvar $+ %sys.Underlineenc $+
%sys.Boldenc
.set %sys.output %sys.output %sys.Boldsep $+ %sys.Underlinesep $+
$+ %sys.sepColourvar $+ %sys.sepWith $+ %sys.Boldsep $+
$+ %sys.Underlinesep %sys.BoldHeader $+ %sys.UnderLineHeader $+
$+ %sys.HeadColourVar $+ U ptime $+ %sys.UnderLineHeader $+
%sys.BoldHeader $+
99: %sys.Underlineenc $+
$+ %sys.encColourVar $+ %sys.Boldenc $+ %sys.encLeftvar $+
%sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+
$dll(moo.dll,uptime,_) $+ %sys.UnderLineValue $+
$+ %sys.BoldValue $+ %sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.encColourVar $+ %sys.encRightvar $+ %sys.Underlineenc $+
%sys.Boldenc
.set %sys.output %sys.output %sys.Boldsep $+ %sys.Underlinesep $+
$+ %sys.sepColourvar $+ %sys.sepWith $+ %sys.Boldsep $+
$+ %sys.Underlinesep %sys.BoldHeader $+ %sys.UnderLineHeader $+
$+ %sys.HeadColourVar $+ R ecord $+ %sys.UnderLineHeader $+
%sys.BoldHeader $+
99: %sys.Underlineenc $+
$+ %sys.encColourVar $+ %sys.Boldenc $+ %sys.encLeftvar $+
%sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+
%sys.RecordUptime $+ (Set on %sys.UpTimeDate using %sys.UptimeOS $+ )
$+ %sys.UnderLineValue $+
$+ %sys.BoldValue $+ %sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.encColourVar $+ %sys.encRightvar
/say %sys.output


.set %sys.output %sys.BoldHeader $+ %sys.UnderLineHeader $+
$+ %sys.HeadColourVar $+ M emory Usage $+ %sys.UnderLineHeader $+
%sys.BoldHeader $+
99: %sys.Underlineenc $+
$+ %sys.encColourVar $+ %sys.Boldenc $+ %sys.encLeftvar $+
%sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+
$dll(moo.dll,meminfo,_) $+ %sys.UnderLineValue $+
$+ %sys.BoldValue $+ %sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.encColourVar $+ %sys.encRightvar $+ %sys.Underlineenc $+
%sys.Boldenc
.set %sys.output %sys.output %sys.Boldsep $+ %sys.Underlinesep $+
$+ %sys.sepColourvar $+ %sys.sepWith $+ %sys.Boldsep $+
$+ %sys.Underlinesep $result
.set %sys.output %sys.output %sys.BoldHeader $+ %sys.UnderLineHeader
$+
$+ %sys.HeadColourVar $+ D isplay Info $+ %sys.UnderLineHeader $+
%sys.BoldHeader $+
99: %sys.Underlineenc $+
$+ %sys.encColourVar $+ %sys.Boldenc $+ %sys.encLeftvar $+
%sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+
$dll(moo.dll,screeninfo,_) $+ %sys.UnderLineValue $+
$+ %sys.BoldValue $+ %sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.encColourVar $+ %sys.encRightvar $+ %sys.Underlineenc $+
%sys.Boldenc
.set %sys.output %sys.output %sys.Boldsep $+ %sys.Underlinesep $+
$+ %sys.sepColourvar $+ %sys.sepWith $+ %sys.Boldsep $+
$+ %sys.Underlinesep %sys.BoldHeader $+ %sys.UnderLineHeader $+
$+ %sys.HeadColourVar $+ M onitor $+ %sys.UnderLineHeader $+
%sys.BoldHeader $+
99: %sys.Underlineenc $+
$+ %sys.encColourVar $+ %sys.Boldenc $+ %sys.encLeftvar $+
%sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+
%sys.monitor $+ %sys.UnderLineValue $+
$+ %sys.BoldValue $+ %sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.encColourVar $+ %sys.encRightvar
/say %sys.output


/getmbm5info

.set %sys.output %sys.BoldHeader $+ %sys.UnderLineHeader $+
$+ %sys.HeadColourVar $+ C PU Info $+ %sys.UnderLineHeader $+
%sys.BoldHeader $+
99: %sys.Underlineenc $+
$+ %sys.encColourVar $+ %sys.Boldenc $+ %sys.encLeftvar $+
%sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+
$dll(moo.dll,cpuinfo,_) $+ %sys.UnderLineValue $+
$+ %sys.BoldValue $+ %sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.encColourVar $+ %sys.encRightvar $+ %sys.Underlineenc $+
%sys.Boldenc
.set %sys.output %sys.output %sys.Boldsep $+ %sys.Underlinesep $+
$+ %sys.sepColourvar $+ %sys.sepWith $+ %sys.Boldsep $+
$+ %sys.Underlinesep %sys.BoldHeader $+ %sys.UnderLineHeader $+
$+ %sys.HeadColourVar $+ T emperature $+ %sys.UnderLineHeader $+
%sys.BoldHeader $+
99: %sys.Underlineenc $+
$+ %sys.encColourVar $+ %sys.Boldenc $+ %sys.encLeftvar $+
%sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+
$result $+ %sys.UnderLineValue $+
$+ %sys.BoldValue $+ %sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.encColourVar $+ %sys.encRightvar $+ %sys.Underlineenc $+
%sys.Boldenc
/say %sys.output

/calcspace
/calcspace2

.set %sys.output %sys.BoldHeader $+ %sys.UnderLineHeader $+
$+ %sys.HeadColourVar $+ H ard Disks $+ %sys.BoldHeader $+
%sys.UnderLineHeader $+
99: %sys.Underlineenc $+
$+ %sys.encColourVar $+ %sys.Boldenc $+ %sys.encLeftvar $+
%sys.Underlineenc $+ %sys.Boldenc $+ %sys.BoldHeader $+
%sys.UnderLineHeader $+
$+ %sys.HeadColourVar $+ T otal
$+ %sys.sepColourvar $+ %sys.BoldHeader $+ %sys.UnderLineHeader $+ /
99 $+ %sys.BoldHeader $+ %sys.UnderLineHeader $+
$+ %sys.HeadColourVar $+ F ree $+ %sys.BoldHeader $+
%sys.UnderLineHeader $+
99:
$+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+
%sys.total.size $+
$+ %sys.sepColourvar $+ /
$+ %sys.ValueColourVar $+ %sys.total.free $+ GB $+
%sys.UnderLineValue $+ %sys.BoldValue
.set %sys.output %sys.output %sys.Boldsep $+ %sys.Underlinesep $+
$+ %sys.sepColourvar $+ %sys.sepWith $+ %sys.Boldsep $+
$+ %sys.Underlinesep %sys.bigstring $+ %sys.Underlineenc $+
%sys.Boldenc $+
$+ %sys.encColourVar $+ %sys.encRightvar $+ %sys.Underlineenc $+
%sys.Boldenc
/say %sys.output


/say %sys.BoldHeader $+ %sys.UnderLineHeader $+
$+ %sys.HeadColourVar $+ C onnection/ N etwork I nterfaces $+
%sys.UnderLineHeader $+ %sys.BoldHeader $+
99: %sys.Underlineenc $+
$+ %sys.encColourVar $+ %sys.Boldenc $+ %sys.encLeftvar $+
%sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+
$dll(moo.dll,interfaceinfo,_) $+ %sys.UnderLineValue $+
$+ %sys.BoldValue $+ %sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.encColourVar $+ %sys.encRightvar
}

alias temp {
setupcolours
/getmbm5info
/say %sys.BoldHeader $+ %sys.UnderLineHeader $+
$+ %sys.HeadColourVar $+ T emperature $+ %sys.UnderLineHeader $+
%sys.BoldHeader $+
99: %sys.Underlineenc $+
$+ %sys.encColourVar $+ %sys.Boldenc $+ %sys.encLeftvar $+
%sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.ValueColourVar $+ %sys.UnderLineValue $+ %sys.BoldValue $+
$result $+ %sys.UnderLineValue $+
$+ %sys.BoldValue $+ %sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.encColourVar $+ %sys.encRightvar $+ %sys.Underlineenc $+
%sys.Boldenc
}

alias echomdm {
/getmbm5info
/echo MDM Info
12[
99 $+ $result $+
12]
}
***********End System Info Aliases***********

alias rambar {
if ( %rb_size == 0 ) { .set %rb_size 10 }
.set %rb_used $round($calc($dll(moo.dll,rambar,_) / 100 *
%rb_size),0)
.set %check $round($dll(moo.dll,rambar,_),0)
if ( %check <= 33 ) {
.set %check1
9|
goto twat
}
if ( %check <= 66 ) {
.set %check1
7|
goto twat
}
if ( %check > 66 ) {
.set %check1
4|
goto twat
}
:twat
.set %rb_unused $round($calc(%rb_size - %rb_used),0)
.set %rb_usedstr $str(%check1,%rb_used)
.set %rb_unusedstr $str(-,%rb_unused)
/return %sys.Underlineenc $+
$+ %sys.encColourVar $+ %sys.Boldenc $+ %sys.encLeftvar $+
%sys.Underlineenc $+ %sys.Boldenc $+ %rb_usedstr $+
99 $+ %rb_unusedstr $+ %sys.Underlineenc $+ %sys.Boldenc $+
$+ %sys.encColourVar $+ %sys.encRightvar $+ %sys.Underlineenc $+
%sys.Boldenc
}

alias getmbm5info {

; format of %mbm5info..
; comma delimited
; temp1,temp2..temp10,v1,v2..v7,fan1,fan2..fan4,cpuspd,cpus
set %mbm5_info $dll(moo.dll,mbm5info,_)
if (%mbm5_info == not_loaded) { return MBM Not loaded }
; System temperature, assumed sensor 1
set %mbm5_output System: $gettok(%mbm5_info,1,44) $+ °C

set %mbm5_cpus $gettok(%mbm5_info,23,44)
set %mbm5_cpuspeed $gettok(%mbm5_info,24,44)

set %mbm5_output %mbm5_output $+ , %mbm5_cpus CPU
if (%mbm5_cpus > 1) { set %mbm5_output %mbm5_output $+ s }

var %intReps = 0
while (%intReps < %mbm5_cpus) {
inc %intReps
set %mbm5_output %mbm5_output $+ , CPU( $+ %intReps $+ ):
$gettok(%mbm5_info,$calc(1+%intReps),44) $+ °C
}

var %intLastFan = 0
var %intCurFan = %sys.FanInteger
while (%intLastFan != 1) {
inc %intCurFan
if ( $gettok(%mbm5_info,$calc(17+%intCurFan),44) == 255 ) {
set %intLastFan 1
}
else {
set %mbm5_output %mbm5_output $+ , Fan( $+ %intCurFan $+ ):
$gettok(%mbm5_info,$calc(17+%intCurFan),44) $+ RPM
}
}

return %mbm5_output

}

menu channel {
PC-Info by Albator
.Setup:/syssetup
.-
.Custom Line:/cust
.Hard Disk:/space
.Stats:/stats
.Info:/Info
.periph:/periph
.Network Interfaces:/ni
.Connection:/conn
.Display:/display
.Uptime:/uptime
.CPU:/cpuinfo
.Memory Usage:/meminfo
.MBM Info:/temp
.Client:/client
.-
.Reload Script:/timer 1 1 /syssetup | /reload -rs $script
.Completely Unload:/dialog -m unloadalert unloadalert
}

"Reb" Ruster

unread,
Feb 3, 2007, 6:01:48 PM2/3/07
to
On Sat, 03 Feb 2007 21:34:50 GMT, No Way <n...@way.com> wrote:

alias info {

No Way

unread,
Feb 3, 2007, 7:18:13 PM2/3/07
to
On Sat, 03 Feb 2007 17:57:02 -0500, "\"Reb\" Ruster"
<rru...@rebulon.net> wrote:

>On Sat, 03 Feb 2007 21:34:50 GMT, No Way <n...@way.com> wrote:
>
>>I often see some people showing the details of their computers in
>>channels from what looks to be an automatic listing script and was
>>wondering what script is used to achieve that?
>>
>>They seem to be able to show everything from the OS, the type of
>>videocard, the type of display, the type of soundcard and right down
>>to the amount of RAM. Some even show their up/down stream info and so
>>forth. Thanks.
>
>PC-Info1

Great, that's awesome. I'll try to make good use of the script.
Thanks!

"Reb" Ruster

unread,
Feb 3, 2007, 7:34:40 PM2/3/07
to

You're welcome, but you may need the MOO.DLL to make it work, and you
must unload all other scripts first. You can grab that here:
http://www.hm2k.org/projects/moo


0 new messages