web ini adalah forum utk blog hendrastar.tk
 
HomePortalGalleryFAQSearchRegisterMemberlistUsergroupsLog in

Share | 
 

 Lag Bar

Go down 
AuthorMessage
hendrastar
Jeneral
Jeneral
avatar

Posts : 289
Join date : 2008-01-08
Age : 29
Location : kuala lumpur

PostSubject: Lag Bar   Mon 04 Feb 2008, 7:36 pm

Quote :
;zLagbar by DrunkDwarf

on *:start:lag.start
on *:unload:lag.unload

alias lag.start {
if ($version < 6.01) { echo -a * Sorry, this addon does not work with your mIRC verson | unload -rs $lag.q($script) | halt }
if ($window(@zLagbar)) { window -ar @zLagbar | clear @zLagbar }
else { window -ahBfp d @zLagbar 0 0 200 21 }
if (!%zlag.style) { %zlag.style = graph }
if (!$len(%zlag.peak)) { %zlag.peak = 5 }
if (!$len(%zlag.colour1)) { %zlag.colour1 = 16776960 }
if (!$len(%zlag.colour2)) { %zlag.colour2 = 0 }
if (!$len(%zlag.colour3)) { %zlag.colour3 = $rgb(text) }
if (!$len(%zlag.font)) { %zlag.font = Verdana }
if (!$len(%zlag.font.size)) { %zlag.font.size = 11 }
if (!$len(%zlag.delay)) { %zlag.delay = 5 }
if (!$len(%zlag.method)) { %zlag.method = pong }
if ($len(%zlag.checking)) { unset %zlag.checking }
if (!$exists(tempcolour.bmp)) {
window -hBpf d @temp.colour -1 -1 64 64
drawrect -fr @temp.colour $rgb(0,0,0) 1 0 0 64 64
drawsave @temp.colour tempcolour.bmp
window -c @temp.colour
}
drawrect -rf @zLagbar $rgb(face) 1 0 0 200 21
dll $lag.q($scriptdirtbwin.dll) Attach @zLagbar
dll $lag.q($scriptdirtbwin.dll) OnSize /lag.size
dll $lag.q($scriptdirtbwin.dll) Select @zLagbar
if ($appactive) { window -ar @zLagbar }
lag.size $dll($lag.q($scriptdirtbwin.dll), GetTBInfo, NOT_USED)
if (%zlag.style == graph) {
drawline -rn @zLagbar $rgb(shadow) 1 78 0 200 0
drawline -rn @zLagbar $rgb(shadow) 1 78 0 78 21
drawline -rn @zLagbar $rgb(hilight) 1 78 20 199 20
drawline -rn @zLagbar $rgb(hilight) 1 199 1 199 21
drawrect -rnf @zLagbar %zlag.colour2 1 79 1 120 19
}
if (%zlag.style == line) {
drawline -rn @zLagbar $rgb(shadow) 1 78 0 200 0
drawline -rn @zLagbar $rgb(shadow) 1 78 0 78 21
drawline -rn @zLagbar $rgb(hilight) 1 78 20 199 20
drawline -rn @zLagbar $rgb(hilight) 1 199 1 199 21
drawrect -rnf @zLagbar %zlag.colour2 1 79 1 120 19
}
if (%zlag.style == bar) {
drawline -rn @zLagbar $rgb(shadow) 1 78 5 200 5
drawline -rn @zLagbar $rgb(shadow) 1 78 5 78 16
drawline -rn @zLagbar $rgb(hilight) 1 78 15 199 15
drawline -rn @zLagbar $rgb(hilight) 1 199 5 199 16
drawrect -rnf @zLagbar %zlag.colour2 1 79 6 120 9
}
var %temp.textpos = $round($calc((21 - $height(Lag:,%zlag.font,%zlag.font.size)) / 2)),0)
drawtext -rnc @zLagbar %zlag.colour3 %zlag.font %zlag.font.size 1 %temp.textpos 75 18 Lag: N/A
drawdot @zLagbar
lag.check
.timerlag -io 0 %zlag.delay lag.check
}
alias lag.refresh {
drawrect -nrf @zLagbar $rgb(face) 1 0 0 200 21
if ($readini($mircini,Background,toolbar)) {
lag.temp.bkg
if (%zlag.style == bar) {
drawpic -nsl @zLagbar 78 0 122 5 $calc($gettok(%zlag.pos,1,32) 78) $gettok(%zlag.pos,2,32) 122 5 $lag.q($scriptdirlagbkg.bmp)
drawpic -nsl @zLagbar 78 16 122 5 $calc($gettok(%zlag.pos,1,32) 78) $calc($gettok(%zlag.pos,2,32) 16) 122 5 $lag.q($scriptdirlagbkg.bmp)
}
drawpic -nsl @zLagbar 0 0 78 21 %zlag.pos 78 21 $lag.q($scriptdirlagbkg.bmp)
drawdot @zLagbar
}
if (%zlag.style == graph) {
drawline -rn @zLagbar $rgb(shadow) 1 78 0 200 0
drawline -rn @zLagbar $rgb(shadow) 1 78 0 78 21
drawline -rn @zLagbar $rgb(hilight) 1 78 20 199 20
drawline -rn @zLagbar $rgb(hilight) 1 199 1 199 21
drawrect -rnf @zLagbar %zlag.colour2 1 79 1 120 19
}
if (%zlag.style == line) {
drawline -rn @zLagbar $rgb(shadow) 1 78 0 200 0
drawline -rn @zLagbar $rgb(shadow) 1 78 0 78 21
drawline -rn @zLagbar $rgb(hilight) 1 78 20 199 20
drawline -rn @zLagbar $rgb(hilight) 1 199 1 199 21
drawrect -rnf @zLagbar %zlag.colour2 1 79 1 120 19
}
if (%zlag.style == bar) {
drawline -rn @zLagbar $rgb(shadow) 1 78 5 200 5
drawline -rn @zLagbar $rgb(shadow) 1 78 5 78 16
drawline -rn @zLagbar $rgb(hilight) 1 78 15 199 15
drawline -rn @zLagbar $rgb(hilight) 1 199 5 199 16
drawrect -rnf @zLagbar %zlag.colour2 1 79 6 120 9
}
var %temp.textpos = $round($calc((21 - $height(Lag:,%zlag.font,%zlag.font.size)) / 2)),0)
drawtext -rnc @zLagbar %zlag.colour3 %zlag.font %zlag.font.size 1 %temp.textpos 75 18 Lag: $iif(%zlag.current,%zlag.current $ s,N/A)
drawdot @zLagbar
}
alias lag.check {
if ($appactive) { window -ar @zLagbar }
if ($server) {
if (%zlag.checking) return
if (%zlag.method == pong) { raw -q ping lag. [ $ [ $ticks ] ] }
if (%zlag.method == ctcp) { .ctcp $me lag. [ $ [ $ticks ] ] }
if (%zlag.method == raw) { lag. [ $ [ $ticks ] ] }
set -u60 %zlag.checking on
}
}
alias lag.size {
%zlag.pos = $calc($1 - 204) $int($calc(($2 - 18) / 2))
if ($readini($mircini,Background,toolbar)) {
lag.temp.bkg
if (%zlag.style == bar) {
drawpic -nsl @zLagbar 78 0 122 5 $calc($gettok(%zlag.pos,1,32) 78) $gettok(%zlag.pos,2,32) 122 5 $lag.q($scriptdirlagbkg.bmp)
drawpic -nsl @zLagbar 78 16 122 5 $calc($gettok(%zlag.pos,1,32) 78) $calc($gettok(%zlag.pos,2,32) 16) 122 5 $lag.q($scriptdirlagbkg.bmp)
}
drawpic -nsl @zLagbar 0 0 78 21 %zlag.pos 78 21 $lag.q($scriptdirlagbkg.bmp)
drawdot @zLagbar
}
window @zLagbar %zlag.pos 200 21
}
on *:close:@zLagbar:{ dll $lag.q($scriptdirtbwin.dll) Detach @zLagbar }
menu @zLagbar {
Style
.$iif(%zlag.style == graph,$style(1)) Graph:{ set %zlag.style graph | lag.refresh }
.$iif(%zlag.style == line,$style(1)) Line Graph:{ set %zlag.style line | lag.refresh }
.$iif(%zlag.style == bar,$style(1)) Percent bar:{ set %zlag.style bar | lag.refresh }
Colour
.Text:{ set %temp.coloursel 3 | set %temp.colour3 $dialog(lagcolour.select,lagcolour.select,-2) | if ($len(%temp.colour3)) { set %zlag.colour3 %temp.colour3 | lag.refresh } | unset %temp.colour* }
.Foreground:{ set %temp.coloursel 1 | set %temp.colour1 $dialog(lagcolour.select,lagcolour.select,-2) | if ($len(%temp.colour1)) { set %zlag.colour1 %temp.colour1 | lag.refresh } | unset %temp.colour* }
.Background:{ set %temp.coloursel 2 | set %temp.colour2 $dialog(lagcolour.select,lagcolour.select,-2) | if ($len(%temp.colour2)) { set %zlag.colour2 %temp.colour2 | lag.refresh } | unset %temp.colour* }
Method
.$iif(%zlag.method == pong,$style(1)) Pong:{ %zlag.method = pong }
.$iif(%zlag.method == ctcp,$style(1)) CTCP:{ %zlag.method = ctcp }
.$iif(%zlag.method == raw,$style(1)) Raw:{ %zlag.method = raw }
Font:{ var %temp.font = $$?="Enter Font" | var %temp.font.size = $$?="Enter Font Size" | if (%temp.font) { %zlag.font = %temp.font } | if (%temp.font.size) { %zlag.font.size = %temp.font.size } }
Peak $chr(40) $ %zlag.peak $ s $ $chr(41):{ var %zlag.temp.peak = $$?="Enter Peak number of seconds" | if (%zlag.temp.peak isnum) { %zlag.peak = %zlag.temp.peak } }
Delay $chr(40) $ %zlag.delay $ s $ $chr(41):{ var %zlag.temp.delay = $$?="Enter Delay" | if (%zlag.temp.delay isnum) { %zlag.delay = %zlag.temp.delay | .timerlag -io 0 %zlag.delay lag.check } }
-
Reset to Defaults:{ lag.var.default }
-
Unload Lagbar:{ unload -rs $lag.q($script) | halt }
}
on ^*:pong:{ if (lag.* iswm $2) && (%zlag.method == pong) { lag.reply $gettok($2,2,46) | haltdef } }
ctcp *:lag.*:?:{ if ($nick == $me) && ($gettok($1,2,46) isnum) && (%zlag.method == ctcp) { lag.reply $gettok($1,2,46) | haltdef } }
raw 421:*:{ if (%zlag.method == raw) && (lag.* iswm $2) { lag.reply $gettok($2,2,46) | haltdef } }
alias lag.reply {
if ($1) {
unset %zlag.checking
if (!%zlag.style) { %zlag.style = graph }
if (!$len(%zlag.peak)) { %zlag.peak = 5 }
if (!$len(%zlag.colour1)) { %zlag.colour1 = 16776960 }
if (!$len(%zlag.colour2)) { %zlag.colour2 = 0 }
if (!$len(%zlag.colour3)) { %zlag.colour3 = $rgb(text) }
if (!$len(%zlag.font)) { %zlag.font = Verdana }
if (!$len(%zlag.font.size)) { %zlag.font.size = 11 }
if (!$len(%zlag.method)) { %zlag.method = pong }
%zlag.old = %zlag.current
%zlag.current = $calc(($ticks - $1) / 1000)
%zlag.perc = $round($calc(%zlag.current * 100 / %zlag.peak),0)
%zlag.perc = $iif(%zlag.perc > 100,100,%zlag.perc)
%zlag.perc2 = $calc((18 / 100) * %zlag.perc)
if (%zlag.current > %zlag.highest) || (!%zlag.highest) { %zlag.highest = %zlag.current }
if (%zlag.current < %zlag.lowest) || (!%zlag.lowest) { %zlag.lowest = %zlag.current }
if ($appactive) { window -a @zLagbar }
drawrect -nrf @zLagbar $rgb(face) 1 0 0 78 21
if ($readini($mircini,Background,toolbar)) {
lag.temp.bkg
drawpic -nsl @zLagbar 0 0 78 21 %zlag.pos 78 21 $lag.q($scriptdirlagbkg.bmp)
}
var %temp.textpos = $round($calc((21 - $height(Lag:,%zlag.font,%zlag.font.size)) / 2)),0)
drawtext -nrc @zLagbar %zlag.colour3 %zlag.font %zlag.font.size 1 %temp.textpos 75 18 Lag: %zlag.current $ s
if (%zlag.style == bar) {
if ($readini($mircini,Background,toolbar)) {
lag.temp.bkg
drawpic -nsl @zLagbar 78 0 122 5 $calc($gettok(%zlag.pos,1,32) 78) $gettok(%zlag.pos,2,32) 122 5 $lag.q($scriptdirlagbkg.bmp)
drawpic -nsl @zLagbar 78 16 122 5 $calc($gettok(%zlag.pos,1,32) 78) $calc($gettok(%zlag.pos,2,32) 16) 122 5 $lag.q($scriptdirlagbkg.bmp)
}
if (!$readini($mircini,Background,toolbar)) {
drawrect -nrf @zLagbar $rgb(face) 1 78 0 122 5
drawrect -nrf @zLagbar $rgb(face) 1 78 16 122 5
}
drawrect -rnf @zLagbar %zlag.colour2 1 79 6 120 9
drawrect -nrf @zLagbar %zlag.colour1 1 79 6 $calc((120 / 100) * %zlag.perc) 9
}
if (%zlag.style == graph) || (!%zlag.style) {
drawline -rn @zLagbar %zlag.colour2 1 198 19 198 0
drawline -rn @zLagbar %zlag.colour1 1 198 19 198 $calc(19 - %zlag.perc2)
drawscroll -n @zLagbar -1 0 79 1 120 19
}
if (%zlag.style == line) {
var %zlag.oldperc = $round($calc(%zlag.old * 100 / %zlag.peak),0)
var %zlag.oldperc = $iif(%zlag.oldperc > 100,100,%zlag.oldperc)
var %zlag.oldperc2 = $calc((18 / 100) * %zlag.oldperc)
drawscroll -n @zLagbar -4 0 79 1 120 19
drawrect -rfn @zLagbar %zlag.colour2 1 194 1 5 19
drawline -rn @zLagbar %zlag.colour1 1 198 $calc(19 - %zlag.perc2) 192 $calc(19 - %zlag.oldperc2)
}
drawdot @zLagbar
unset %zlag.perc %zlag.perc2
}
}
alias lag {
if ($isid) {
if ($1 == highest) { return %zlag.highest }
if ($1 == lowest) { return %zlag.lowest }
return %zlag.current
}
if (!$isid) {
set %zlag.temp.message $chr(91) $ Lag: %zlag.current $ s $chr(40) $ Highest: %zlag.highest $ s Lowest: %zlag.lowest $ s $ $chr(41) $ $chr(93)
if ($active ischan) || ($query($active)) { msg $active %zlag.temp.message }
else { echo $colour(info text).dd -at * %zlag.temp.message }
unset %zlag.temp.message
}
}
alias lag.unload { .timerlag off | dll $lag.q($scriptdirtbwin.dll) Detach @zLagbar | window -c @zLagbar }
dialog lagcolour.select {
title "Select Colour"
size -1 -1 273 102
scroll "", 1, 48 7 150 16, range 255 horizontal bottom
scroll "", 2, 48 31 150 16, range 255 horizontal bottom
scroll "", 3, 48 55 150 16, range 255 horizontal bottom
button "Ok", 4, 127 79 70 21, ok
icon 5, 205 7 64 64, tempcolour.bmp, 0, noborder
edit "", 6, 3 5 40 21
edit "", 7, 3 29 40 21
edit "", 8, 3 53 40 21
edit "", 9, 30 78 70 21, result hide
button "Cancel", 10, 201 79 70 21, cancel
}
on *:dialog:lagcolour.select:init:*:{
if (%temp.coloursel) {
set %temp.colourrgb $rgb(%zlag.colour [ $ [ %temp.coloursel ] ])
did -a $dname 6 $gettok(%temp.colourrgb,1,44) | did -a $dname 7 $gettok(%temp.colourrgb,2,44) | did -a $dname 8 $gettok(%temp.colourrgb,3,44) | did -a $dname 9 %zlag.colour [ $ [ %temp.coloursel ] ]
did -c $dname 1 $gettok(%temp.colourrgb,1,44) | did -c $dname 2 $gettok(%temp.colourrgb,2,44) | did -c $dname 3 $gettok(%temp.colourrgb,3,44)
}
if (!%temp.coloursel) {
did -a $dname 6 0 | did -a $dname 7 0 | did -a $dname 8 0 | did -a $dname 9 0
}
window -hBpf d @temp.colour -1 -1 64 64
drawrect -fr @temp.colour $rgb($did(6),$did(7),$did(8)) 1 0 0 64 64
drawsave @temp.colour tempcolour.bmp
did -g $dname 5 tempcolour.bmp
}
on *:dialog:lagcolour.select:scroll:*:{
if ($did == 1) { did -o $dname 6 1 $did(1).sel }
if ($did == 2) { did -o $dname 7 1 $did(2).sel }
if ($did == 3) { did -o $dname 8 1 $did(3).sel }
if ($istok(1 2 3,$did,32)) {
drawrect -fr @temp.colour $rgb($did(6),$did(7),$did(8)) 1 0 0 64 64
drawsave @temp.colour tempcolour.bmp
did -g $dname 5 tempcolour.bmp
did -o $dname 9 1 $rgb($did(6),$did(7),$did(8))
}
}
on *:dialog:lagcolour.select:edit:*:{
if ($did == 6) { if (!$len($did(6))) || ($did(6) !isnum) { did -o $dname 6 1 0 } | did -c $dname 1 $did(6) }
if ($did == 7) { if (!$len($did(7))) || ($did(7) !isnum) { did -o $dname 7 1 0 } | did -c $dname 2 $did(7) }
if ($did == 8) { if (!$len($did(8))) || ($did(8) !isnum) { did -o $dname 8 1 0 } | did -c $dname 3 $did(8) }
if ($istok(6 7 8,$did,32)) {
drawrect -fr @temp.colour $rgb($did(6),$did(7),$did(8)) 1 0 0 64 64
drawsave @temp.colour tempcolour.bmp
did -g $dname 5 tempcolour.bmp
did -o $dname 9 1 $rgb($did(6),$did(7),$did(8))
}
}
on *:dialog:lagcolour.select:close:*:{ window -c @temp.colour }
alias lag.temp.bkg {
if ($exists($readini($mircini,Background,Toolbar))) {
if (!%zlag.temp.crc) || (%zlag.temp.crc != $crc($readini($mircini,Background,Toolbar))) {
window -hBfp d @zlagtemp -1 -1 $window(-1).dw 100
drawpic -sl @zlagtemp 0 0 $window(-1).dw 100 $lag.q($readini($mircini,Background,Toolbar))
drawsave @zlagtemp $lag.q($scriptdirlagbkg.bmp)
window -c @zlagtemp
%zlag.temp.crc = $crc($readini($mircini,Background,Toolbar))
}
}
}
alias lag.var.default {
%zlag.peak = 5
%zlag.colour1 = 16776960
%zlag.colour2 = 0
%zlag.colour3 = $rgb(text)
%zlag.font = Verdana
%zlag.font.size = 11
%zlag.delay = 5
}
alias lag.q { return " $ $1- $ " }


_________________

Back to top Go down
View user profile http://hendrastar-forum.forumotion.com
 
Lag Bar
Back to top 
Page 1 of 1

Permissions in this forum:You cannot reply to topics in this forum
welkem to hendrastar portal :: ♠ Sudut IT :: MIRC / Chat Messanger-
Jump to: