;DarkEngine Professional 3.xx
;http://www.darkengine.net/
on *:load:{ echo -ae DarkEngine installed sucessfully... | dek 3 | fde }
alias morse { msg $active $dll(darkenginex.dll,morse,$1-) }
alias mobo_manu { dem Mainboard Manufacturer: $de(mainboard_manufacturer) }
alias mobo_name { dem Mainboard: $de(mainboard_productname) }
alias mobo_ver { dem Mainboard Version: $de(mainboard_version) }
alias bios_ver { dem Bios Version: $de(bios_version) }
alias mem_slots { dem Total Memory Slots: $de(mem_totalslots) }
alias cpu_socket { dem CPU Socket: $de(cpu_socket) }
;Customizable Aliases
alias sysinfo { dem OS: $de(os) $+ $dek $+ CPU: $de(cpuinfo) $+ , $de(cpuspeed) $+ $dek $+ Video: $de(monitor) on $de(videocard) ( $+ $de(res) $+ ) $+ $dek $+ Sound: $de(soundcard) $+ $dek $+ Memory: Used: $de(usedphysicalmem) $+ / $+ $de(totalphysicalmem) $+ MB $+ $dek $+ Uptime: $de(uptime) $+ $dek $+ HD: Free: $de(hdspace) $+ $dek $+ Connection: $de(conn) }
alias pamp { set %wamp.format is listening to " $+ &a $+ " .: $+ &b / &c / &d - &e $+ / $+ &f $+ :. | me $dll(darkenginex.dll,parsewinamp,%wamp.format) | unset %wamp.format }
alias isys { $dll(darkenginex.dll,submitspecs,$me) }
alias cver { $de(checkver) }
alias bw { dem Downstream: $de(banddown) KBytes/s Upstream: $de(bandup) KBytes/s }
alias tottrans { msg $active $+ $dek $+ Downloaded: $de(total_down) MB $+ $dek $+ Uploaded: $de(total_up) MB }
alias memsum { dem RAM: Used: $de(usedphysicalmem) $+ / $+ $de(totalphysicalmem) $+ MB ( $+ $de(memoryload) Load $+ ) }
alias cpuinfo { dem CPU: $de(cpuinfo) $+ , $de(cpuspeed) $+ , $de(cpuL2cache) ( $+ $de(cpuload) Load $+ ) }
alias l1cache { dem L1 Cache: $de(cpuL1cache) }
alias l2cache { dem L2 Cache: $de(cpuL2cache) }
alias l3cache { dem L3 Cache: $de(cpuL3cache) }
alias biosname { dem Bios: $de(bios_vendor) }
alias biosdate { dem Bios Date: $de(bios_releasedate) }
alias winstall { dem Installed On: $de(installdate) }
alias cputemp { dem Temp: $de(mbm5cputemp) }
alias voltage { dem Voltage: $de(mbm5volt) }
alias fan { dem Fan: $de(mbm5fan) }
alias cpuload { dem CPU Load: $de(cpuload) }
alias cpuarch { dem CPU Architecture: $de(cpuarchitech) }
alias cpucount { dem CPU Count: $de(cpucount) }
alias videomem { dem Video Memory: $dll(darkenginex.dll,videomem,_) MB }
alias oldhd { msg $active $dll(darkenginex.dll,hdspaceold,_) }
alias psver { dem Pixel Shader Version: $de(ps) }
;Encrytion Aliases
alias encr { det encryption $1- }
alias decr { det decryption $1- }
;Info Aliases
alias about { $de(about) }
alias descript { $dll(darkenginex.dll,about,script) }
alias newabout { about | descript }
alias hd { dem HD: $de(hdspace) }
alias hdspace { det spechdspace $1 }
alias osver { dem Operating System: $de(os) }
alias winuser { dem Windows User: $de(username) }
alias osinfo { dem OS info: $de(username) on $de(os) }
alias wamp { $de(winamp) }
alias cpu { dem CPU: $de(cpuinfo) }
alias cpuspeed { dem CPU Speed: $de(cpuspeed) }
alias cpudetail { dem CPU Details: $de(cpudetails) }
alias cpuinfo { dem CPU: $de(cpuinfo) $+ , $de(cpuspeed) }
alias uptime2 { dem Uptime: $de(uptime) }
alias luptime { dem Uptime: $de(uptimelong) }
alias memload { dem Memory Load: $de(memoryload) }
alias vmem { dem Avaliable Virtual Memory: $de(availvirtualmem) MB }
alias vusedmem { dem Virtual Memory Used: $de(usedvirtualmem) MB }
alias vtotalmem { dem Total Virtual Memory: $de(totalvirtualmem) MB }
alias mem { dem Avaliable Physical Memory: $de(availphysicalmem) MB }
alias usedmem { dem Used Physical Memory: $de(usedphysicalmem) MB }
alias totalmem { dem Total Physical Memory: $de(totalphysicalmem) MB }
alias memratio { dem RAM: Used: $de(usedphysicalmem) $+ / $+ $de(totalphysicalmem) $+ MB }
alias vmemratio { dem Virtual Memory: Used: $de(usedvirtualmem) $+ / $+ $de(totalvirtualmem) $+ MB }
alias pmemratio { dem Page File: Used: $de(usedPageFilemem) $+ / $+ $de(totalPageFilemem) $+ MB }
alias drunk { det drunk $1- }
alias leet { det leet $1- }
alias rev { det reverse $1- }
alias wave { $de(wave) }
alias ascii2bin { det ascii2bin $1- }
alias monitor { dem Monitor: $de(monitor) }
alias videocard { dem Video Card: $de(videocard) }
alias secvidcard { dem Secondary Video Card: $de(sec_videocard) }
alias totvideocard { dem Video Cards Installed: $de(total_videocards) }
alias res { dem Resolution: $de(res) }
alias video { dem Video: $remove($de(monitor),Color,-Monitor) on $de(videocard) $chr(40) $+ $de(res) $+ $chr(41) }
alias batlife { dem Battery Life: $de(BatteryLifeLeft) }
alias batcharge { dem Battery Charged: $de(BatteryChargeStatus) }
alias batpower { dem AC Power: $de(ACPowerStatus) }
alias soundcard { dem Sound Card: $de(soundcard) }
alias conn { dem Connection: $de(conn) }
alias band { dem Current Downstream: $de(banddown) KBytes/s }
alias upband { dem Current Upstream: $de(bandup) KBytes/s }
alias sys { dem $+ $replace($de(sysinfo),3, $+ $dek $+ ,-Monitor,,Color,) }
alias record { dem Record Uptime: $de(recorduptime) }
alias keyenc { det keyencryption $1- }
alias keydec { det keydecryption $1- }
alias chadapter { $de(change_adapter) }
alias totaldown { dem Total Downloaded: $de(total_down) $+ MB }
alias totalup { dem Total Uploaded: $de(total_up) $+ MB }
alias hdtotal { dem Total Free: $de(totalhdspacefree) $+ / $+ $de(totalhdspace) }
alias playwinamp { $de(winampplay) }
alias next { $de(winampnext) }
alias prev { $de(winampprev) }
alias stopwinamp { $de(winampstop) }
alias pausewinamp { $de(winamppause) }
alias wformat { $de(winampformat) }
alias config_fkeyscript { $dll(darkenginex.dll,show_funckey_config,_) }
alias change_monitor { $dll(darkenginex.dll,change_monitor,_) }
;DE Aliases (NO EDITING!)
alias fde { flushini de.ini }
alias de { return $dll(darkenginex.dll,$1,_) }
alias det { if (key isin $1) { msg $active $remove($dll(darkenginex.dll,$1,$2-),$left($2,2)) } | else { dem $+ $dll(darkenginex.dll,$1,$2-) } }
alias dem { msg $active $1- }
; alias dem { msg $active $+ $dek $+ $+ $1- }
alias deq { return $$?="Enter message/text" }
alias dek { if ($isid == $true) { return $readini(de.ini,options,color) } | if ($isid == $false) { writeini de.ini options color $remove($1,) | flushini de.ini } }
alias div { return $chr(124) }
; DarkEngine script menus
menu channel,query {
DarkEngine
.System Information.:/sys
.-
.Operating System
..Version:/osver
..Username:/winuser
..Install Date:/winstall
.Processor Details
..Name:/cpu
..Load:/cpuload
..Clock Speed:/cpuspeed
..-
..CPU Count:/cpucount
..Model Details:/cpudetail
..Architecture:/cpuarch
..Socket:/cpu_socket
..-
..L1 Cache:/l1cache
..L2 Cache:/l2cache
..L3 Cache:/l3cache
..-
..Show All:/cpuinfo
.Memory
..Overall Summary:/memsum
..-
..Memory Load:/memload
..Physical Memory:/memratio
..-
..Paged Memory:/pmemratio
..-
..Total Memory Slots:/mem_slots
.Hard Drive
..Total Space:/hdtotal
..-
..Folder Size:/folder $sdir(c:\,Please choose a folder)
..File Info:/file $sfile(c:\,Please choose a folder,OK)
..Show All Disks: /hd
.Uptime
..System Uptime:/luptime
..-
..Record Uptime:/record
.Video
..Overall Summary:/Video
..-
..Primary Video Card:/videocard
..Secondary Video Card:/secvidcard
..-
..Video Cards Installed:/totvideocard
..-
..Screen Resolution:/res
..Monitor Manufacturer:/monitor
..-
..Change Monitor:/change_monitor
.Sound Card:/soundcard
.Internet
..Connection Info:/conn
..-
..Upstream Usage:/upband
..Downstream Usage :/band
..Total Bandwidth Usage:/bw
..-
..Total Transferred:/tottrans
..-
..Change Adapter:/chadapter
.Mainboard
..Product Name:/mobo_name
..Manufacturer:/mobo_manu
..Version:/mobo_ver
.System Bios
..Bios Name:/biosname
..Bios Date:/biosdate
..Bios Version:/bios_ver
.Motherboard Monitor
..Temperature:/cputemp
..Voltage:/voltage
..Fan Speed:/fan
.Battery (Laptops Only)
..Life Remaining:/batlife
..Charge Status:/batcharge
..Power Status:/batpower
.-
.Winamp
..Current Playing:/wamp
..-
..Customize Output:/wformat
..-
..Play:/playwinamp
..Pause:/pausewinamp
..Stop:/stopwinamp
..Prev:/prev
..Next:/next
..-
.Misc Functions
..Encryption
...Encrypt Text:/encr $$deq
...Decrypt Text:/decr $$deq
...Key Encrypt Text:/keyenc $$?="Enter a 2 digit number (the key)" $$deq
...Key Decrypt Text:/keydec $$?="Enter the key" $+ $$deq
..Text Manipulation
...Leet:/leet $$deq
...Drunk:/drunk $$deq
...Wave:/wave
...Reverse:/rev $$deq
...Morse:/morse $$deq
...Ascii to Binary:/ascii2bin $$deq
.Script Configuration
..Function Keys:/config_fkeyscript
.-
.Help
..About:/about
..-
..Check For Updates:/cver
}
alias biggestfile {
set -u10 %LargestFile
set -u10 %LargestFileSize 0
!.echo -q $findfile($1-,*.*,0,checkfile $1-)
return $nopath($iif($prop == size,$bytes(%LargestFileSize,k3).suf,%LargestFile))
}
alias checkfile {
if ($file($1-) > %LargestFileSize) {
%LargestFile = $1-
%LargestFileSize = $v1
}
}
alias foldersize {
if !$isid { echo -ac info * $!foldersize: This function can only be used as an identifier. | return }
if !$isdir($$1) { echo -ac info * $!foldersize: No such folder $1 | return }
if $0 == 2 && !$istok(b k m g t 3,$2,32) { echo -ac info * $!foldersize: Incorrect parameter. | return }
var %size
if $regex(fsize,$1,/^[a-z]:[\57\134]*$/i) { %size = $disk($1).size }
else { var %objFso = a $+ $ticks, %objFolder = b $+ $ticks | .comopen %objFso Scripting.FileSystemObject
if !$comerr {
.comclose %objFso $com(%objFso,GetFolder,1,bstr*,$1,dispatch* %objFolder)
if $com(%objFolder) { !.echo -q $com(%objFolder,Size,2) | %size = $com(%objFolder).result | .comclose %objFolder }
}
}
return $iif($2,$bytes(%size,$2). [ $+ [ $prop ] ],%size)
}
alias folder {
if !$isdir($$1-) || !$disk($$1-) { echo -a * $+(,/folder,) function only works with proper drives and folders | halt }
if ($foldersize($$1-) > 1099511627776) { var %end = t }
elseif ($foldersize($$1-) > 2147483648) { var %end = g }
elseif ($foldersize($$1-) > 1048576) { var %end = m }
elseif ($foldersize($$1-) > 1024) { var %end = k }
else { var %end = b }
var %size = $foldersize($$1-,%end).suf
var %subfolders = $iif($finddir($$1-,*.*,0,1),$finddir($$1-,*.*,0,1) subfolders $div,$null)
var %files = $findfile($$1-,*.*,0)
var %percent = $round($calc($calc($foldersize($$1-,g)/%total)*100),2)
; Code to show percent: $+(%percent,$chr(37)) of total space $+($chr(40),$de(totalhdspace),$chr(41))
msg # $+([,Folder Info,,]) $$1- $div %size $div %subfolders %files files $div largest file: $biggestfile($$1-) $+($chr(40),$biggestfile($$1-).size,$chr(41))
unset %LargestFile*
}
alias file {
if (!$exists($$1-)) { echo -a * $+(,/file,) function only works with existing files | halt }
else {
if ($file($$1-) > 1099511627776) { var %end = t }
elseif ($file($$1-) > 2147483648) { var %end = g }
elseif ($file($$1-) > 1048576) { var %end = m }
elseif ($file($$1-) > 1024) { var %end = k }
else { var %end = b }
var %name = $gettok($$1-,$numtok($$1-,92),92)
var %size = $bytes($file($$1-),%end).suf
var %created = $file($$1-).ctime
msg # $+([,File Info,,]) %name $div %size $div created $asctime(%created)
}
}