[script]
n0=menu channel { 
n1=  -
n2=  Uptime: { 
n3=    set %uptime $duration($calc($ticks / 1000))
n4=    set %online $duration($online)
n5=    if ($disk(d).type == fixed) {
n6=      set %diskcd $calc($disk(c).size + $disk(d).size)
n7=      set %diskld $calc($disk(c:).free + $disk(d).free)
n8=      set %disk.left $round($calc(%diskld / 1000000000),2)
n9=      set %disk.total $round($calc(%diskcd / 1000000000),2)
n10=      set %disk.leftperc $int($calc($round($calc(%disk.left / %disk.total),2) * 100))
n11=      set %disk.usedperc $calc(100 - %disk.leftperc)
n12=      goto var 
n13=    }
n14=    if ($disk(d).type != fixed) {
n15=      set %disk.left $round($calc($disk(c:).free / 1000000000),2)
n16=      set %disk.total $round($calc($disk(c:).size / 1000000000),2)
n17=      set %disk.leftperc $int($calc($round($calc(%disk.left / %disk.total),2) * 100))
n18=      set %disk.usedperc $calc(100 - %disk.leftperc)
n19=      goto var
n20=    }
n21=    :var {
n22=      if ($os == ME) { set %os Millenium Edition } 
n23=      if ($os != ME) { set %os $os }
n24=      if ($chan(0) = 1 ) { set %channels On 1 Channel }
n25=      if ($chan(0) > 1) { set %channels On $chan(0) Channels }
n26=      if (wks isin %uptime) { set %uptime $replace(%uptime,wks,Weeks) | goto days }
n27=      if (wk isin %uptime) { set %uptime $replace(%uptime,wk,Week) | goto days }
n28=      :days
n29=      if (days isin %uptime) { set %uptime $replace(%uptime,days,Days) | goto hours }
n30=      if (day isin %uptime) { set %uptime $replace(%uptime,day,Day) | goto hours }
n31=      :hours
n32=      if (hrs isin %uptime) { set %uptime $replace(%uptime,hrs,Hours) | goto minute }
n33=      if (hr isin %uptime) { set %uptime $replace(%uptime,hr,Hour) | goto minute }
n34=      :minute
n35=      if (mins isin %uptime) { set %uptime $replace(%uptime,mins,Minutes) | goto seconds }
n36=      if (min isin %uptime) { set %uptime $replace(%uptime,min,Minute) | goto seconds }
n37=      :seconds
n38=      if (secs isin %uptime) { set %uptime $replace(%uptime,secs,Seconds) | goto online }
n39=      if (sec isin %uptime) { set %uptime $replace(%uptime,sec,Second) | goto online }
n40=      :online
n41=      :weeks1
n42=      if (wks isin %online) { set %online $replace(%online,wks,Weeks) | goto days1 }
n43=      if (wk isin %online) { set %online $replace(%online,wk,Week) | goto days1 }
n44=      :days1
n45=      if (days isin %online) { set %online $replace(%online,days,Days) | goto hours1 }
n46=      if (day isin %online) { set %online $replace(%online,day,Day) | goto hours1 }
n47=      :hours1
n48=      if (hrs isin %online) { set %online $replace(%online,hrs,Hours) | goto minute1 }
n49=      if (hr isin %online) { set %online $replace(%online,hr,Hour) | goto minute1 }
n50=      :minute1
n51=      if (mins isin %online) { set %online $replace(%online,mins,Minutes) | goto sec }
n52=      if (min isin %online) { set %online $replace(%online,min,Minute)  | goto sec }
n53=      :sec
n54=      if (secs isin %online) { set %online $replace(%online,secs,Seconds) | goto ok }
n55=      if (sec isin %online) { set %online $replace(%online,sec,Second) | goto ok }
n56=      :ok
n57=      var %protest = $ticks,%i = 1 | :start | if ($calc($ticks - %protest) <= 100) { inc %i | goto start } | :end 
n58=      say  [Windows %os Uptime: %uptime $+ ] [Processor Speed: $round($calc(%i * 0.7543242),2) $+ MHz] [Online For %online $+ ] [Disk Space: %disk.left $+ Gb Of %disk.total $+ Gb Total Memory Free] [ $+ %disk.leftperc $+ % Free] [ $+ %disk.usedperc $+ % Used] [ $+ %channels $+ ] [Bandwidth in use: $bandwidth $+ cps]
n59=      unset %uptime
n60=      unset %online
n61=      unset %disk. [ $+ [ * ] ]
n62=      unset %os
n63=      unset %channels
n64=      unset %diskld
n65=      unset %diskcd
n66=    }
n67=  }
n68=}