Titlebar dinamis pada mIRC

Sekarang kita coba bikin titlebar dinamis pada mirc, yang mana isinya adalah sebagai berikut:

- “Scrambel style “, kita akan meletakkan nick kita pada titlebar dengan huruf random tiap detiknya.

- “Uptime”, yaitu waktu aktif sejak pertama kali computer kamu dihidupkan.

- “Time”, yaitu waktu saat ini, disesuaikan dgn time pada computer kamu.

- “Check lag”, jika kamu terkoneksi ke server, maka lag info akan ditampilkan di titlebar kamu.

buka script editor kamu, dan tuliskan/copy snippet berikut:

on 1:start: { .timer(update.tbar) -i 0 1 update.tbar }
on ^*:PONG:{ haltdef | set %codet.lag $round($calc(($ticks - $2) / 1000),2) sec }

alias update.tbar {
if ($right($time,1) = 5) && ($server != $null) { update.lag }
titlebar :: $acaks( $+ $me $+ ) :: [Uptime : $_uptime $+ ] :: [Lag : $_lag $+ ]
}

alias update.lag { $iif($scid($activecid).server != $null, scid $activecid .raw -q ping $ticks, set %codet.lag 0 ms) }

alias _lag {
if ($status != connected) {
set %codet.lag N/A.
}
return %codet.lag
}

alias _uptime {
var %s = $uptime(system,1)
var %s = $replace(%s,secs,s)
var %s = $replace(%s,sec,s)
var %s = $replace(%s,mins,m)
var %s = $replace(%s,min,m)
var %s = $replace(%s,days,d)
var %s = $replace(%s,day,d)
var %s = $replace(%s,hrs,h)
return %s
}

alias acaks {
if ( $isid ) && ( $$1 ) {
var %x = 1, %m
while ($gettok($$1,%x,32)) { %m = %m $acak_($ifmatch) | inc %x }
return %m
}
}

alias acaks_ {
var %t
while ($numtok(%t,32) <= $len($1)) { %t = $instok(%t,$iif($numtok(%t,32) = 1,$chr(160),$mid($1,$numtok(%t,32),1)),$r(0,$numtok(%t,32)),32) } return $remove(%t,$chr(32),$chr(160)) }

Selamat mencoba.