rendered paste bodyon 1:LOAD:{
if ( $readini(defnfo.ini, nfo, version) != 1.0.6 ) { writeini defnfo.ini nfo version 1.0.6 }
if ( $readini(defnfo.ini, nfo, c1) == $null ) { writeini defnfo.ini nfo c1 15 }
if ( $readini(defnfo.ini, nfo, c2) == $null ) { writeini defnfo.ini nfo c2 10 }
if ( $readini(defnfo.ini, nfo, ftplettre) == $null ) { writeini defnfo.ini nfo ftplettre c }
if ( $readini(defnfo.ini, nfo, sound) == $null ) { writeini defnfo.ini nfo sound Not Configured }
if ( $readini(defnfo.ini, nfo, gf) == $null ) { writeini defnfo.ini nfo gf Not Configured }
if ( $readini(defnfo.ini, nfo, mon) == $null ) { writeini defnfo.ini nfo mon Not Configured }
./TimerUptime -oi 0 60 uptimer
}
on 1:UNLOAD:{
}
on *:START: ./TimerUptime -oi 0 60 uptimer
menu Channel,status,menubar,query {
NfO System
.V $readini(defnfo.ini, nfo, version):run http://www.defcode.org
.-
.InVisible
..BiG-ONE: set %defnfosh echo | nstats
..Stats: set %defnfosh echo | nfo
..Operating System: set %defnfosh echo | sys
..UpTime: set %defnfosh echo | uptime
..MeM: set %defnfosh echo | mem
..CpU: set %defnfosh echo | cpu
..Free FTP Space: set %defnfosh echo | ftp
..Free Space: set %defnfosh echo | hdd
..Dialup: set %defnfosh echo | dialup
..Display: set %defnfosh echo | display
..Network: set %defnfosh echo | net
..Sound Card: set %defnfosh echo | sound
..MBM5(Must Be Installed): set %defnfosh echo | mbm
..Bandwidth: set %defnfosh echo | du
..Get-Send: set %defnfosh echo | gs
..Power: set %defnfosh echo | powa
..Servers: set %defnfosh echo | srv
..FlashFXP: set %defnfosh echo | fxp
.Visible
..BiG-ONE: nstats
..Stats: nfo
..Operating System: sys
..UpTime: uptime
..MeM: mem
..CpU: cpu
..Free FTP Space: ftp
..Free Space: hdd
..Dialup: dialup
..Display: display
..Network: net
..Sound Card: sound
..MBM5(Must Be Installed): mbm
..Bandwidth: du
..Get-Send: gs
..Power: powa
..Servers: srv
..FlashFXP: fxp
.-
.Configuration:dialog -m defconf defconf
.-
.Advertise:say %col2 [-> NfO System $readini(defnfo.ini, nfo, version) www.defcode.org <-]
.Unload Script: echo Uninstall In Progress.... | /unload -rs defnfo.mrc
}
dialog defconf {
size -1 -1 260 330
title "NfO Configurator"
box "FTP Drive Letter", 1, 0 5 130 50
text "Drive Letter:", 2, 0 27 90 60, right
edit "", 4, 95 25 20 20, center, limit 1
text "CTRL+K", 16, 150 15 90 60, center
text "For The Colors", 17, 150 30 90 60, center
box "1st Script Color", 6, 0 55 130 50
text "Color Number:", 7, 0 77 90 60, right
edit "", 8, 95 75 20 20, center, limit 2
box "2nd Script Color", 10, 130 55 130 50
text "Color Number:", 11, 130 77 90 60, right
edit "", 12, 225 75 20 20, center, limit 2
box "FlashFXP Stats.dat file Path", 18, 0 105 260 50
text "Path:", 19, 20 127 90 60, left
edit "", 22, 50 125 150 20, center, autohs
button "Browse", 21, 205 125 40 20,
box "Sound Card", 23, 0 155 260 50
combo 24, 5 175 250 20, center, drop
box "Graphic Card", 25, 0 205 260 50
combo 26, 5 225 250 20, center, drop
box "Monitor", 27, 0 255 260 50
combo 28, 5 275 250 20, center, drop
button "Save", 14, 0 310 130 20,
button "Quit", 15, 130 310 130 20, ok
}
on *:dialog:defconf:*:*:{
if ($devent == init) {
did -a $dname 4 $readini(defnfo.ini, nfo, ftplettre)
did -a $dname 8 $readini(defnfo.ini, nfo, c1)
did -a $dname 12 $readini(defnfo.ini, nfo, c2)
did -a $dname 22 $readini(defnfo.ini, nfo, fxppath)
set %defnfocounter 0
did -a $dname 24 $readini(defnfo.ini, nfo, sound)
while ($dll($mircdir $+ registry.dll,GetKeyValue, [ 1 ] HKEY_LOCAL_MACHINE\SYSTEM\ControlSet002\Control\Class\{4D36E96C-E325-11CE-BFC1-08002BE10318}\000 $+ %defnfocounter $+ \\DriverDesc) != $null ) {
if ( $dll($mircdir $+ registry.dll,GetKeyValue, [ 1 ] HKEY_LOCAL_MACHINE\SYSTEM\ControlSet002\Control\Class\{4D36E96C-E325-11CE-BFC1-08002BE10318}\000 $+ %defnfocounter $+ \\DriverDesc) != $readini(defnfo.ini, nfo, sound) ) did -a $dname 24 $dll($mircdir $+ registry.dll,GetKeyValue, [ 1 ] HKEY_LOCAL_MACHINE\SYSTEM\ControlSet002\Control\Class\{4D36E96C-E325-11CE-BFC1-08002BE10318}\000 $+ %defnfocounter $+ \\DriverDesc)
%defnfocounter = $calc(%defnfocounter + 1)
}
set %defnfocounter 0
while ($dll($mircdir $+ registry.dll,GetKeyValue, [ 1 ] HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Class\MEDIA\000 $+ %defnfocounter $+ \\DriverDesc) != $null ) {
if ( $dll($mircdir $+ registry.dll,GetKeyValue, [ 1 ] HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Class\MEDIA\000 $+ %defnfocounter $+ \\DriverDesc) != $readini(defnfo.ini, nfo, sound) ) did -a $dname 24 $dll($mircdir $+ registry.dll,GetKeyValue, [ 1 ] HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Class\MEDIA\000 $+ %defnfocounter $+ \\DriverDesc)
%defnfocounter = $calc(%defnfocounter + 1)
}
did -c $dname 24 1
set %defnfocounter 0
did -a $dname 26 $readini(defnfo.ini, nfo, gf)
while ($dll($mircdir $+ registry.dll,GetKeyValue, [ 1 ] HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Class\{4D36E968-E325-11CE-BFC1-08002BE10318}\000 $+ %defnfocounter $+ \\DriverDesc) != $null ) {
if ( $dll($mircdir $+ registry.dll,GetKeyValue, [ 1 ] HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Class\{4D36E968-E325-11CE-BFC1-08002BE10318}\000 $+ %defnfocounter $+ \\DriverDesc) != $readini(defnfo.ini, nfo, gf) ) did -a $dname 26 $dll($mircdir $+ registry.dll,GetKeyValue, [ 1 ] HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Class\{4D36E968-E325-11CE-BFC1-08002BE10318}\000 $+ %defnfocounter $+ \\DriverDesc)
%defnfocounter = $calc(%defnfocounter + 1)
}
if ($dll($mircdir $+ moo.dll,gfxinfo,_) != -1 && $dll($mircdir $+ moo.dll,gfxinfo,_) != $readini(defnfo.ini, nfo, gf)) did -a $dname 26 $dll($mircdir $+ moo.dll,gfxinfo,_)
did -c $dname 26 1
set %defnfocounter 0
did -a $dname 28 $readini(defnfo.ini, nfo, mon)
while ($dll($mircdir $+ registry.dll,GetKeyValue, [ 1 ] HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Class\{4D36E96E-E325-11CE-BFC1-08002BE10318}\000 $+ %defnfocounter $+ \\DriverDesc) != $null ) {
if ( $dll($mircdir $+ registry.dll,GetKeyValue, [ 1 ] HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Class\{4D36E96E-E325-11CE-BFC1-08002BE10318}\000 $+ %defnfocounter $+ \\DriverDesc) != $readini(defnfo.ini, nfo, mon) ) did -a $dname 28 $dll($mircdir $+ registry.dll,GetKeyValue, [ 1 ] HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Class\{4D36E96E-E325-11CE-BFC1-08002BE10318}\000 $+ %defnfocounter $+ \\DriverDesc)
%defnfocounter = $calc(%defnfocounter + 1)
}
did -c $dname 28 1
unset %defnfocounter
}
if ($devent == sclick) {
if ($did == 14) {
writeini defnfo.ini nfo ftplettre $did($dname,4)
writeini defnfo.ini nfo c1 $did($dname,8)
writeini defnfo.ini nfo c2 $did($dname,12)
writeini defnfo.ini nfo fxppath $did($dname,22)
writeini defnfo.ini nfo sound $did($dname,24)
writeini defnfo.ini nfo gf $did($dname,26)
writeini defnfo.ini nfo mon $did($dname,28)
}
if ($did == 21) { did -r $dname 22 | did -a $dname 22 $sfile($mircdir,Select Stats.Dat File,Oki) }
}
}
alias defcf {
dialog -m defconf defconf
}
alias defnfocolsh {
if (%defnfosh == $null) { set %defnfosh say }
set %defnfocol1 $+ $readini(defnfo.ini, nfo, c1)
set %defnfocol2 $+ $readini(defnfo.ini, nfo, c2)
}
alias nstats {
defnfocolsh
set %defnfoftplettre $readini(defnfo.ini, nfo, ftplettre)
if ($round($calc(($disk(%defnfoftplettre).free)/1048576),2) > 1) { set %defnfodisk1 $round($calc(($disk(%defnfoftplettre).free)/1073741824),2) $+ GB $+ / $+ $round($calc(($disk(%defnfoftplettre).size)/1073741824),2) $+ GB }
set %defnfoCG $readini(defnfo.ini, nfo, gf)
set %defnfoCS $readini(defnfo.ini, nfo, sound)
%defnfosh %defnfocol1 [Os] %defnfocol2 $dll($mircdir $+ moo.dll,osinfo,_) %defnfocol1 [Current Uptime] %defnfocol2 $duration($calc($ticks /1000)) %defnfocol1 [Mem] %defnfocol2 $dll($mircdir $+ moo.dll,meminfo,_) %defnfocol1 [Cpu] %defnfocol2 $dll($mircdir $+ moo.dll,cpuinfo,_) %defnfocol1 [Free FTP Space] %defnfocol2 %defnfodisk1 %defnfocol1 [Resolution] %defnfocol2 $dll($mircdir $+ moo.dll,screeninfo,_) %defnfocol1 [Graphic Card] %defnfocol2 %defnfoCG %defnfocol1 [Sound Card] %defnfocol2 %defnfoCS %defnfocol1 [Version] %defnfocol2 NfO System $readini(defnfo.ini, nfo, version)
unset %defnfo*
}
alias nfo {
defnfocolsh
set %defnfoftplettre $readini(defnfo.ini, nfo, ftplettre)
if ($round($calc(($disk(%defnfoftplettre).free)/1048576),2) > 1) { set %defnfodisk1 $round($calc(($disk(%defnfoftplettre).free)/1073741824),2) $+ GB $+ / $+ $round($calc(($disk(%defnfoftplettre).size)/1073741824),2) $+ GB }
%defnfosh %defnfocol1 [Os] %defnfocol2 $dll($mircdir $+ moo.dll,osinfo,_) %defnfocol1 [Current Uptime] %defnfocol2 $duration($calc($ticks /1000)) %defnfocol1 [Mem] %defnfocol2 $dll($mircdir $+ moo.dll,meminfo,_) %defnfocol1 [Cpu] %defnfocol2 $dll($mircdir $+ moo.dll,cpuinfo,_) %defnfocol1 [Free FTP Space] %defnfocol2 %defnfodisk1 %defnfocol1 [Version] %defnfocol2 NfO System $readini(defnfo.ini, nfo, version)
unset %defnfo*
}
alias sys {
defnfocolsh
%defnfosh %defnfocol1 [Os] %defnfocol2 $dll($mircdir $+ moo.dll,osinfo,_) %defnfocol1 [Installed For] %defnfocol2 $duration($calc($ctime - $file($defnfospecialdir(win) $+ \Setuplog.txt).mtime) )
unset %defnfo*
}
alias uptime {
defnfocolsh
uptimer
if ( $readini(defnfo.ini, nfo, record) == $null ) { writeini defnfo.ini nfo record 0 }
%defnfosh %defnfocol1 [Current Uptime] %defnfocol2 $duration($calc($ticks /1000)) %defnfocol1 [Record Uptime] %defnfocol2 $duration($calc($readini(defnfo.ini, nfo, record) /1000))
unset %defnfo*
}
alias uptimer {
if ($readini(defnfo.ini, nfo, record) == $null) {
writeini defnfo.ini nfo record $ticks
}
if ( $ticks > $readini(defnfo.ini, nfo, record) ) {
writeini defnfo.ini nfo record $ticks
}
}
alias mem {
defnfocolsh
%defnfosh %defnfocol1 [Mem] %defnfocol2 $dll($mircdir $+ moo.dll,meminfo,_)
unset %defnfo*
}
alias cpu {
defnfocolsh
%defnfosh %defnfocol1 [Cpu] %defnfocol2 $dll($mircdir $+ moo.dll,cpuinfo,_)
unset %defnfo*
}
alias ftp {
defnfocolsh
set %defnfoftplettre $readini(defnfo.ini, nfo, ftplettre)
if ($round($calc(($disk(%defnfoftplettre).free)/1048576),2) > 1) { set %defnfodisk1 $round($calc(($disk(%defnfoftplettre).free)/1073741824),2) $+ GB $+ / $+ $round($calc(($disk(%defnfoftplettre).size)/1073741824),2) $+ GB }
%defnfosh %defnfocol1 [Free FTP Space] %defnfocol2 %defnfodisk1
unset %defnfo*
}
alias hdd {
defnfocolsh
set %defnfohdd 1
set %defnfohddletters cdefghijklmnopqrstuvwxyz
while ( %defnfohdd != 25 ) {
set %defnfocurrletter $mid(cdefghijklmnopqrstuvwxyz,%defnfohdd,1)
if ($round($calc(($disk(%defnfocurrletter).free)/1048576),2) > 1) { set %defnfodisk $+ %defnfohdd ( $+ $upper(%defnfocurrletter) $+ : $round($calc(($disk(%defnfocurrletter).free)/1073741824),2) $+ GB $+ / $+ $round($calc(($disk(%defnfocurrletter).size)/1073741824),2) $+ GB) }
set %defnfohdd $calc(%defnfohdd + 1)
set %defnfodisk251 $calc(%defnfodisk251 + $disk(%defnfocurrletter).free)
set %defnfodisk261 $calc(%defnfodisk261 + $disk(%defnfocurrletter).size)
}
set %defnfodisk25 $calc(%defnfodisk251 / 1073741824)
set %defnfodisk26 $calc(%defnfodisk261 / 1073741824)
%defnfosh %defnfocol1 [Free Space] %defnfocol2 %defnfodisk1 %defnfodisk2 %defnfodisk3 %defnfodisk4 %defnfodisk5 %defnfodisk6 %defnfodisk7 %defnfodisk8 %defnfodisk9 %defnfodisk10 %defnfodisk11 %defnfodisk12 %defnfodisk13 %defnfodisk14 %defnfodisk15 %defnfodisk16 %defnfodisk17 %defnfodisk18 %defnfodisk19 %defnfodisk20 %defnfodisk21 %defnfodisk22 %defnfodisk23 %defnfodisk24 %defnfocol1 [Total Free Space] %defnfocol2 $round( %defnfodisk25 ,2 ) $+ GB %defnfocol1 [Total Storage Space] %defnfocol2 $round( %defnfodisk26 ,2 ) $+ GB
unset %defnfo*
}
alias dialup {
defnfocolsh
if ($dll($mircdir $+ moo.dll,connection,_) != -1) %defnfosh %defnfocol1 [Dialup] %defnfocol2 $dll($mircdir $+ moo.dll,connection,_)
else %defnfosh %defnfocol1 [Dialup] %defnfocol2 none detected
unset %defnfo*
}
alias display {
defnfocolsh
set %defnfoMon $readini(defnfo.ini, nfo, mon)
set %defnfoCG $readini(defnfo.ini, nfo, gf)
%defnfosh %defnfocol1 [Monitor] %defnfocol2 %defnfoMon %defnfocol1 [Graphic Card] %defnfocol2 %defnfoCG %defnfocol1 [Resolution] %defnfocol2 $dll($mircdir $+ moo.dll,screeninfo,_)
unset %defnfo*
}
alias net {
defnfocolsh
if ($dll($mircdir $+ moo.dll,interfaceinfo,_) != -1) %defnfosh %defnfocol1 [NetWork] %defnfocol2 $dll($mircdir $+ moo.dll,interfaceinfo,_)
else %defnfosh %defnfocol1 [NetWork] %defnfocol2 none detected
unset %defnfo*
}
alias sound {
defnfocolsh
set %defnfoCS $readini(defnfo.ini, nfo, sound)
%defnfosh %defnfocol1 [Sound Card] %defnfocol2 %defnfoCS
unset %defnfo*
}
alias mbm {
defnfocolsh
set %defnfocounter 1
set %defnfostatus 1
while (%defnfocounter <= 31) {
if ($dll($mircdir $+ mbm.dll,gettemp,%defnfocounter) < 255) && ($dll($mircdir $+ mbm.dll,gettemp,%defnfocounter) > 0) { set %defnfocpus %defnfocpus [CpU ( $+ %defnfocounter $+ )] %defnfocol2 $dll($mircdir $+ mbm.dll,gettemp,%defnfocounter) $+ °C %defnfocol1 }
else { set %defnfostatus $calc(%defnfostatus + 1) }
set %defnfocounter $calc(%defnfocounter + 1)
}
set %defnfocounter 48
set %defnfocounter2 1
while (%defnfocounter <= 63) {
if ($dll($mircdir $+ mbm.dll,gettemp,%defnfocounter) > 0) && ($dll($mircdir $+ mbm.dll,gettemp,%defnfocounter) != 255) { set %defnfofans %defnfofans [Fan ( $+ %defnfocounter2 $+ )] %defnfocol2 $dll($mircdir $+ mbm.dll,gettemp,%defnfocounter) $+ RPM %defnfocol1 }
else { set %defnfostatus $calc(%defnfostatus + 1) }
set %defnfocounter $calc(%defnfocounter + 1)
set %defnfocounter2 $calc(%defnfocounter2 + 1)
}
if ($dll($mircdir $+ mbm.dll,gettemp,0) < 255) && ($dll($mircdir $+ mbm.dll,gettemp,0) > 0) { set %defnfomboard [MotherBoard] %defnfocol2 $dll($mircdir $+ mbm.dll,gettemp,0) $+ °C %defnfocol1 }
else { set %defnfostatus $calc(%defnfostatus + 1) }
if ( %defnfostatus == 49 ) { set %defnfomboard MotherBoard Monitor Not Loaded Or Wrongly Configured | set %defnfosh echo }
%defnfosh %defnfocol1 %defnfomboard %defnfocpus %defnfofans
unset %defnfo*
}
alias du {
defnfocolsh
set %defnfoup 1
set %defnfocounter 1
while (%defnfocounter <= $send(0)) {
set %defnfoup $calc(%defnfoup + $send(%defnfocounter).cps)
set %defnfocounter $calc(%defnfocounter + 1)
}
set %defnfodown 1
set %defnfocounter 1
while (%defnfocounter <= $get(0)) {
set %defnfodown $calc(%defnfodown + $get(%defnfocounter).cps)
set %defnfocounter $calc(%defnfocounter + 1)
}
%defnfosh %defnfocol1 %defnfocol1 [Dcc Download] %defnfocol2 $bytes(%defnfodown,k2) $+ k/s %defnfocol1 [Dcc Upload] %defnfocol2 $bytes(%defnfoup,k2) $+ k/s
unset %defnfo*
}
alias powa {
defnfocolsh
set %defnfoochan 0
set %defnfopchan 0
set %defnfocounter 1
set %defnfotchan 0
while (%defnfocounter <= $scon(0)) {
set %defnfocchan 0
scon %defnfocounter
set %defnfotchan $calc(%defnfotchan + $chan(0))
while (%defnfocchan <= $chan(0)) {
if ($me isop $chan(%defnfocchan)) {
set %defnfoochan $calc(%defnfoochan + 1)
set %defnfopchan $calc(%defnfopchan + $nick($chan(%defnfocchan),0,a,o))
}
set %defnfocchan $calc(%defnfocchan + 1)
}
set %defnfocounter $calc(%defnfocounter + 1)
}
scon -r
%defnfosh %defnfocol1 [I'm Op in] %defnfocol2 %defnfoochan of %defnfotchan channel(s) %defnfocol1 [Over] %defnfocol2 $scon(0) network(s) %defnfocol1 [and I'm GOD for] %defnfocol2 %defnfopchan user(s)
unset %defnfo*
}
alias gs {
if (( $send(0) != 0 ) || ( $get(0) != 0 )) {
defnfocolsh
set %defnfoup 1
set %defnfocounter 1
set %defnfoupsize 0
set %defnfoupspeed 0
while (%defnfocounter <= $send(0)) {
set %defnfoup $send(%defnfocounter).cps
set %defnfoupt $calc(((($round($calc($send(%defnfocounter).size),2)) - ($round($calc($send(%defnfocounter).sent),2)))/1024))
set %defnfoupsize $calc(%defnfoupsize + $round($calc(($send(%defnfocounter).size /1024)/1024),2))
set %defnfoupspeed $calc(%defnfoupspeed + $bytes(%defnfoup,k2))
%defnfosh %defnfocol1 [Upload N°] %defnfocol2 %defnfocounter %defnfocol1 [Sending] %defnfocol2 $send(%defnfocounter).file ( $+ $round($calc(($send(%defnfocounter).size /1024)/1024),2) $+ MB $+ ) %defnfocol1 [To] %defnfocol2 $send(%defnfocounter) %defnfocol1 [At] %defnfocol2 $bytes(%defnfoup,k2) $+ k/s %defnfocol1 [Average] %defnfocol2 $round($calc((($send(%defnfocounter).sent)/1024) / $send(%defnfocounter).secs),2) $+ k/s %defnfocol1 [Left] %defnfocol2 $calc(($round($calc((($send(%defnfocounter).size)/1024)/1024),2)) - ($round($calc((($send(%defnfocounter).sent)/1024)/1024),2))) $+ MB ( $+ $calc(100 - $send(%defnfocounter).pc) $+ % $+ ) $duration($calc(%defnfoupt /(%defnfoup / 1024)))
set %defnfocounter $calc(%defnfocounter + 1)
}
set %defnfodown 1
set %defnfocounter 1
set %defnfodownsize 0
set %defnfodownspeed 0
set %defnfodownspeeda 0
while (%defnfocounter <= $get(0)) {
set %defnfodown $get(%defnfocounter).cps
set %defnfodownt $calc(((($round($calc($get(%defnfocounter).size),2)) - ($round($calc($get(%defnfocounter).rcvd),2)))/1024))
set %defnfodownsize $calc(%defnfodownsize + $round($calc(($get(%defnfocounter).size /1024)/1024),2))
set %defnfodownspeed $calc(%defnfodownspeed + $bytes(%defnfodown,k2))
%defnfosh %defnfocol1 [Download N°] %defnfocol2 %defnfocounter %defnfocol1 [Receiving] %defnfocol2 $get(%defnfocounter).file ( $+ $round($calc(($get(%defnfocounter).size /1024)/1024),2) $+ MB $+ ) %defnfocol1 [From] %defnfocol2 $get(%defnfocounter) %defnfocol1 [At] %defnfocol2 $bytes(%defnfodown,k2) $+ k/s %defnfocol1 [Average] %defnfocol2 $round($calc((($get(%defnfocounter).rcvd)/1024) / $get(%defnfocounter).secs),2) $+ k/s %defnfocol1 [Left] %defnfocol2 $calc(($round($calc((($get(%defnfocounter).size)/1024)/1024),2)) - ($round($calc((($get(%defnfocounter).rcvd)/1024)/1024),2))) $+ MB ( $+ $calc(100 - $get(%defnfocounter).pc) $+ % $+ ) $duration($calc(%defnfodownt /(%defnfodown / 1024)))
set %defnfocounter $calc(%defnfocounter + 1)
}
%defnfosh %defnfocol1 [Total Downloading] %defnfocol2 %defnfodownsize $+ MB %defnfocol1 [At] %defnfocol2 %defnfodownspeed $+ k/s %defnfocol1 [Total Uploading] %defnfocol2 %defnfoupsize $+ MB %defnfocol1 [At] %defnfocol2 %defnfoupspeed $+ k/s %defnfocol1 [Total Bandwith] %defnfocol2 $calc(%defnfoupspeed + %defnfodownspeed) k/s
unset %defnfo*
}
}
alias srv {
defnfocolsh
set %defnfocounter 1
set %defnfocmdcnet set % $+ defnfocnet $!network
set %defnfocmdcserv set % $+ defnfocserv $!server
set %defnfocmdcservport set % $+ defnfocservport $!port
while (%defnfocounter <= $scon(0)) {
scon %defnfocounter %defnfocmdcnet
scon %defnfocounter %defnfocmdcserv
scon %defnfocounter %defnfocmdcservport
%defnfosh %defnfocol1 [Network N°] %defnfocol2 %defnfocounter %defnfocol1 [Name] %defnfocol2 %defnfocnet %defnfocol1 [Server] %defnfocol2 %defnfocserv %defnfocol1 [Port] %defnfocol2 %defnfocservport
set %defnfocounter $calc(%defnfocounter + 1)
}
unset %defnfo*
}
alias fxp {
set %defnfofxppath $readini(defnfo.ini, nfo, fxppath)
if ( $right(%defnfofxppath,9) == Stats.dat ) {
defnfocolsh
set %defnfofxpt $asctime($int($calc(($readini(%defnfofxppath, #Total#, LR) - 25569)*86400)),dd-mm-yyyy)
set %defnfofxpx $calc($round($calc($readini(%defnfofxppath, #Total#, X)/1048576),2))
set %defnfofxpu $calc($round($calc($readini(%defnfofxppath, #Total#, FU)/1048576),2))
set %defnfofxpd $calc($round($calc($readini(%defnfofxppath, #Total#, FD)/1048576),2))
%defnfosh %defnfocol1 [FlashFXP Stats] %defnfocol2 %defnfofxpt %defnfocol1 [Total Fxped] %defnfocol2 %defnfofxpx $+ MB %defnfocol1 [Total Uploaded] %defnfocol2 %defnfofxpu $+ MB %defnfocol1 [Total Downloaded] %defnfocol2 %defnfofxpd $+ MB
}
else { %defnfosh %defnfocol1 [FlashFXP Stats] %defnfocol2 FlashFXP not set or wrong file selected try to reconfigure }
unset %defnfo*
}
;Folowing function gathered from forum @ mIRC.com
alias defnfospecialdir {
if $findtok(win sys temp,$1,32) { var %a = sd $+ $ticks, %b = %a $+ d, %c = $ifmatch - 1 }
else return
.comopen %a Scripting.FileSystemObject
if $comerr { return <error> }
.comclose %a $com(%a,GetSpecialFolder,1,uint,%c,dispatch* %b) $com(%b,Path,2)
%a = $com(%b).result
.comclose %b
return %a
}