;Medidor de Lag
;Instinct Script
;Jared

alias barlag { .ctcpreply $me mylag $ticks | halt }

on *:ctcpreply:mylag &: {
set %mylag $calc(($ticks -$2) / 1000),-3)

alias lag { me Lag actual: %mylag segundo(s) }
drawpic -c @tools 762 0 Visual\cover.bmp
drawtext -or @tools $rgb(235,235,235) Tahoma 9 786 11 Lag: %mylag segundos
drawpic -c @bar 824 0 Visual\cover2.bmp
drawtext -or @bar $rgb(235,235,235) Tahoma 8 852 13 $time
if (%mylag > 5) { echo -s 1 0,4 Lag !14,0 %mylag segundos | echo - }
halt
}

Instinct Script es Cigo Abierto. No se restringe su copia, distribuci o modificaci. El autor no se hace responsable por los resultados de tales acciones, y queda a criterio y buena fdel usuario no plagiar el contenido original de este material.