/ScriptServ

alias cl.strt if (%cl.time = $null) set %cl.time 5 | .timerCL.CHK 1 %cl.time .notice $!me sping $!ctime
on ^*:notice:sping*:*: if ($nick = $me) { haltdef | set %cl.ctime $calc($ctime - $2 + 1) | cl.win.opn | if (%cl.ctime > 0) drawpic @Self-Lag 35 5 0 0 $calc(%cl.ctime * 2) 10 $qts(%cl.bmp) | else drawpic @Self-Lag 35 5 0 0 1 10 $qts(%cl.bmp) | set %cl.ctime $replace($remove($duration(%cl.ctime),secs,mins,hrs,sec,min),$chr(32),$chr(58)) | if ($gettok(%cl.ctime,2,58)) && ($gettok(%cl.ctime,2,58) < 10) set %cl.ctime $gettok(%cl.ctime,1,58) $+ :0 $+ $gettok(%cl.ctime,2,58) | drawtext -r @Self-Lag $rgb(text) arial 13 5 3 %cl.ctime | cl.strt }
alias mIRC.actv.chk if (%cl.stt = $null) { .timerCL.ACTV.CHK off | halt } | if ($appactive != $true) && (%cl.minimized = $null) { set %cl.minimized - | window -h @self-lag } | elseif ($appactive) && (%cl.minimized) { set %cl.actv.tmp $active | window -a @self-lag | window -a $qts(%cl.actv.tmp)  | unset %cl.minimized %cl.actv.tmp }
alias cl.win.opn if (%cl.stt = $null) halt | if (%cl.xy = $null) set %cl.xy 473 44 | if ($isfile($remove(%cl.bmp,")) != $true) { set %cl.bmp $findfile($mircdir,cl.bmp,1) | if (%cl.bmp = $null) { echo $colour(info) -a ERROR: cl.bmp not found. | .timerCL.CHK off | unset %cl.stt | halt } if ($chr(32) isin %cl.bmp) set %cl.bmp $qts(%cl.bmp) } | if ($window(@self-lag) = $null) { window -pkdoh +dL @Self-Lag %cl.xy 160 20 | window -a @Self-Lag } | drawfill -r @Self-Lag $rgb(face) 15 0 0 | drawline -r @Self-Lag $rgb(frame) 1 33 15 33 3 156 3 | drawline -r @Self-Lag $rgb(shadow) 1 34 14 34 4 155 4 | drawline -r @Self-Lag $rgb(face) 1 155 4 155 15 33 15 | drawline -r @Self-Lag $rgb(hilight) 1 156 3 156 17 | drawline -r @Self-Lag $rgb(hilight) 1 156 16 32 16 | if ($timer(CL.ACTV.CHK) = $null) .timerCL.ACTV.CHK 0 1 mIRC.actv.chk | cl.brdr
alias cl.brdr if (%cl.brdr = $null) { drawrect -r @self-lag $rgb(face) 1 0 0 159 19 | drawrect -r @self-lag $rgb(face) 1 1 1 157 17 | return } | drawline -r @self-lag $rgb(frame) 1 159 0 159 19 | drawline -r @self-lag $rgb(frame) 1 160 19 -1 19 | drawline -r @self-lag $rgb(shadow) 1 158 1 158 19 | drawline -r @self-lag $rgb(shadow) 1 158 18 1 18 | drawline -r @self-lag $rgb(face) 1 0 19 0 0 | drawline -r @self-lag $rgb(face) 1 0 0 159 0 | drawline -r @self-lag $rgb(hilight) 1 1 18 1 1 | drawline -r @self-lag $rgb(hilight) 1 1 1 158 1
menu @Self-Lag {
  sclick .timerCL.MOV -m 0 1 window @Self-Lag $!calc( $!mouse.mx - $mouse.x + 2) $!calc( $!mouse.my - $mouse.y + 69 ) 160 20
  uclick if ($mouse.key != 1) { .timerCL.MOV off | set %cl.xy $window(@Self-Lag).x $window(@Self-Lag).y }
  Set check time: set %cl.time $$?="Check time (in seconds)"
  $iif(%cl.brdr = $null,Add Border): set %cl.brdr - | cl.brdr
  $iif(%cl.brdr,Remove Border): unset %cl.brdr | cl.brdr
  -
  Close:unset %cl.stt | .timerCL.CHK off | window -c @Self-Lag
}