my online portfolio - jenne van der meer

[code=mirc]# /scriptstatus - returns status about the scripts you have loaded in mIRC
alias scriptstatus {
var %i = 1, %lines = 0, %size = 0, %aliases = 0, %events = 0, %raws = 0, %menu = 0, %ctcp = 0, %dialogs = 0, %ticks = $ticks
while (%i <= $script(0)) {
inc %lines $lines($shortfn($script(%i)))
inc %size $file($shortfn($script(%i))).size
var %j = 1
while (%j <= $lines($shortfn($script(%i)))) {
tokenize 32 $read($shortfn($script(%i)),nt,%j)
if ($1 == alias) { inc %aliases }
if ($1 == on) { inc %events }
if ($1 == raw) { inc %raws }
if ($1 == menu) { inc %menu }
if ($1 == ctcp) { inc %ctcp }
if ($1 == dialog) { inc %dialogs }
inc %j
}
inc %i
}
var %tmp = $calc(%aliases + %events + %raws + %menu + %ctcp + %dialogs)
say [Script Status: $script(0) scripts ( $+ $bytes(%size).suf $+ ) - Total of %lines lines ( $+ Average of $int($calc(%lines / $script(0))) lines a script $+ ) $chr(124) %aliases aliases ( $+ $percent(%aliases,%tmp) $+ $chr(37) $+ ), %events events ( $+ $percent(%events,%tmp) $+ $chr(37) $+ ), %raws raws ( $+ $percent(%raws,%tmp) $+ $chr(37) $+ ), %menu menus ( $+ $percent(%menu,%tmp), $+ $chr(37) $+ ), %ctcp ctcps ( $+ $percent(%ctcp,%tmp), $+ $chr(37) $+ ), %dialogs dialogs ( $+ $percent(%dialogs,%tmp), $+ $chr(37) $+ ) $+ ]
}[/code]

[code=mirc]# /lag - say's current lag to server
alias lag {
.ctcp $me pingz0r $ticks
}
ctcp ^*ingz0r *:?: {
if ($nick == $me) {
say Current ping/lag to $server is $calc($ticks - $2) $+ ms $+ .
halt
}
}[/code]

[code=mirc]# /eject - this will eject all your CD-Rom drives.
alias eject {
var %a cmd.vbs, %i = 1
.write -c %a Set oWMP = CreateObject("WMPlayer.OCX.7" )
.write %a Set colCDROMs = oWMP.cdromCollection
.write %a if colCDROMs.Count >= 1 then
.write %a For i = 0 to colCDROMs.Count - 1
.write %a colCDROMs.Item(i).Eject
.write %a Next ' cdrom
.write %a End If
.comopen %a WScript.Shell
.comclose %a $com(%a,Run,3,bstr,%a,uint,0,bool,true)
.remove %a
}[/code]

[code=mirc];This alias adds zeros to a string, eg //echo -a $addzeros(4,4) will return 0004
alias addzeros {
if ($1,$2) {
return $+($str($iif($3,$3,0),$calc($2 - $len($1))),$1)
}
}[/code]

[code=mirc];Usage eg //echo -a $passmaker(10) will return a random string with length 10 eg 'bvQ14QFD16'
alias passmaker {
if ($1 isnum 1-100) {
var %i $1, %j, %pass
while (%i) {
var %j $r(1,3), %pass = %pass $+ $iif(%j == 1,$r(a,z),$iif(%j == 2,$r(A,Z),$r(0,9)))
dec %i
}
return %pass
}
}[/code]