alias -l ktools { dll system\ktools.dll $1- }
alias -l moo return system\moo.dll
alias -l hdd {
  var %i = 97, %e
  while (%i < 123) { if ($disk($chr(%i)).type == fixed) var %e = $calc(%e + $disk($chr(%i)).free) | inc %i }
  return $bytes(%e).suf
}
on *:START:{
  ktools CreateSb

  ktools SbSetParts 200 390 590 790 -1

  ktools SbSetPadding 0

  ktools SbAddIcon system\icon\ram.ico
  ktools SbAddIcon system\icon\server.ico
  ktools SbAddIcon system\icon\space.ico
  ktools SbAddIcon system\icon\nick.ico
  ktools SbAddIcon system\icon\time.ico

  ktools SbSetIcon 0 > 0


  ktools SbSetText 0 > asdf > Ram : $gettok($dll($moo,meminfo,.),2-,32) 
  ktools SbSetIcon 1 > 1
  ktools SbSetText 1 > asdf > Server : $iif($server,$server,Baglantı Yok)
  ktools SbSetIcon 2 > 2
  ktools SbSetText 2 > asdf > Boş Hdd : $hdd
  ktools SbSetIcon 3 > 3
  ktools SbSetText 3 > asdf > Nickiniz : $iif($me,$me,None set)
  ktools SbSetIcon 4 > 4
  ktools SbSetText 4 > asdf > Pc Açık Kalma Suresi : $uptime(system,2)

  .timeruptime 0 1 ktools SbSetText 4 > asdf > Pc Açık Kalma Suresi : $!uptime(system,2)
}
on *:EXIT:{
  ktools DestroySb .
}

[script]
n0=alias -l ktools { dll statusbar\ktools.dll $1- }
n1=alias -l moo return statusbar\moo.dll
n2=alias -l hdd {
n3=  var %i = 97, %e
n4=  while (%i < 123) { if ($disk($chr(%i)).type == fixed) var %e = $calc(%e + $disk($chr(%i)).free) | inc %i }
n5=  return $bytes(%e).suf
n6=}
n7=on *:START:{
n8=  ktools CreateSb
n9=
n10=  ktools SbSetParts 200 390 590 790 -1
n11=
n12=  ktools SbSetPadding 0
n13=
n14=  ktools SbAddIcon statusbar\icon\ram.ico
n15=  ktools SbAddIcon statusbar\icon\server.ico
n16=  ktools SbAddIcon statusbar\icon\space.ico
n17=  ktools SbAddIcon statusbar\icon\nick.ico
n18=  ktools SbAddIcon statusbar\icon\time.ico
n19=
n20=  ktools SbSetIcon 0 > 0
n21=
n22=
n23=  ktools SbSetText 0 > asdf > Ram : $gettok($dll($moo,meminfo,.),2-,32) 
n24=  ktools SbSetIcon 1 > 1
n25=  ktools SbSetText 1 > asdf > Server : $iif($server,$server,Disconnected)
n26=  ktools SbSetIcon 2 > 2
n27=  ktools SbSetText 2 > asdf > Unused HĞĞ : $hdd
n28=  ktools SbSetIcon 3 > 3
n29=  ktools SbSetText 3 > asdf > Nickiniz : $iif($me,$me,None set)
n30=  ktools SbSetIcon 4 > 4
n31=  ktools SbSetText 4 > asdf > Pc Açık Kalma Suresi : $uptime(system,2)
n32=
n33=  .timeruptime 0 1 ktools SbSetText 4 > asdf > Pc Açık Kalma Suresi : $!uptime(system,2)
n34=
n35=}
n36=on *:EXIT:{
n37=  ktools DestroySb .
n38=}