| Forbidden | 08 Haziran 2022 23:44 |
LAG BAR
Toplam 1 Eklenti bulunuyor. Mircinizin en sağ köşesine uyarlanmış güzel bir lag bar.
Code yurt dışı sitesinden alıntıdır.
Paylaşım amacı birisinin işine yarar düşüncesi.
Code Sahibi : C. Syem Kod:
alias -l rlagb {
return $gettok($readini(lagbar.ini,Bardisplay,bardisp),$1,42)
}
alias -l rlagt {
return $readini(lagbar.ini,lagtextdisplay,lagtext)
}
alias -l hl {
return $hget(lag,$1)
}
alias lag.opt dialog $iif($dialog(lag^),-v,-m) lag^ lag^
alias lag.start {
if (!$istok(disconnected connecting,$status,32)) {
.timerlag.check. $+ $cid 0 10 /lagcheck
lagcheck
}
}
alias lag.off {
if (!$istok(connecting disconnected,$status,32)) && ($hl($+(lag.,$cid))) {
.timerlag.check. $+ $cid off
hdel lag $+(lag.,$cid)
toolbar -d lag
}
}
alias lag {
if ($hl($+(lag.,$cid))) say My lag on $network is currently $v1 $+ !
else echo -atceg info * /lag: check is not currently in effect. Type /lag.start to begin
}
alias -l lagcheck {
if (!$isfile($qt(lagbar.ini))) || ($numtok($rlagb(1-),42) != 3) || ($rlagt !isnum 10-11) {
writeini lagbar.ini Bardisplay bardisp 65280*0*1
writeini lagbar.ini lagtextdisplay lagtext 10
}
hadd -m lag $cid $+ ticks $ticks
.raw ping $ticks
}
alias -l upd.win.lag {
if ($window(@lag)) window -c @lag
window -fhip +d @lag -1 -1 100 20
drawfill -r @lag $rgb(face) $rgb(face) 0 0
}
on ^*:PONG:{
haltdef
var %l $calc($ticks - $hl($+($cid,ticks)))
hdel lag $+($cid,ticks)
if ($activecid == $cid) {
upd.win.lag
drawrect -fr @lag $rlagb(1) 1 0 0 $round($calc(%l /10),0) 20
hadd -m lag $+(lag.,$cid) $iif($rlagt == 10,$calc(%l / 1000) s, %l ms)
drawtext -or @lag $rlagb(2) Tahoma 10 $replace($rlagb(3),2,15) 1 Lag: $hl($+(lag.,$cid))
if (!$toolbar(lag)) toolbar -a lag $qt(Lag) @lag 0 0 100 16 "/lag.opt" @lag
else toolbar -p lag @lag 0 0 100 16
}
}
menu @lag {
Options:lag.opt
Update lag:lagcheck
-
Stop:lag.off
}
on *:active:*:{
if ($hl(lastcid) != $cid) {
if (!$istok(connecting disconnected,$status,32)) && ($hl($+(lag.,$cid))) { lagcheck }
else {
if ($istok(connecting disconnected,$status,32)) {
upd.win.lag
if (!$toolbar(lag)) toolbar -a lag $qt(Lag) @lag 0 0 100 16 "/lag.opt" @lag
drawtext -or @lag $rlagb(2) Tahoma 10 1$replace($rlagb(3),2,15) : Bağlı değil.
toolbar -p lag @lag 0 0 100 16
}
else if ($toolbar(lag)) toolbar -d lag
}
}
hadd -m lag lastcid $cid
}
on *:connect:lag.start
on *:disconnect:{
lag.off
window -c @lag
}
on *:exit:{
window -c @lag
.timerlag.check.* off
}
on *:unload:{
window -c @lag
.timerlag.check.* off
}
dialog lag^ {
title "Lagbar options [/lag.opt]"
size -1 -1 113 60
option dbu
box "Colors", 1, 3 1 109 26
text "Lag bar:", 2, 6 8 76 8
text "Text:", 3, 6 16 76 8
button "!", 4, 89 8 14 8
button "!", 5, 89 17 14 8
box "Text display", 6, 2 26 109 33
text "Align:", 7, 7 35 25 8
combo 8, 33 34 29 50, size drop
text "Display as:", 9, 6 46 30 8
check "Seconds", 10, 40 45 31 10
check "Milliseconds", 11, 72 45 38 10
}
on *:dialog:lag^:init:0:{
didtok $dname 8 32 Left Center
if ($isfile($qt(lagbar.ini))) {
did -a $dname 2 Lag bar: $rlagb(1)
did -a $dname 3 Text: $rlagb(2)
did -c $dname 8 $rlagb(3)
did -c $dname $rlagt
}
}
on *:dialog:lag^:sclick:*:{
;// Lagbar color & Text alignment
if ($did isin 238) writeini lagbar.ini Bardisplay bardisp $+($remove($did($dname,2).text,Lag bar:),*,$remove($did($dname,3).text,Text:),*,$did($dname,8).sel)
;// Time display
if ($did isnum 10-11) {
did -c $dname $did
did -u $dname $replacex($did,10,11,11,10)
writeini lagbar.ini lagtextdisplay lagtext $did
}
if ($did isnum 4-5) {
set %lagcoledit $calc($did -3)
if ($dialog(lag~)) dialog -x lagcol
dialog -m lagcol lagcol
}
}
on *:dialog:lag^:close:0:lagcheck
alias -l updRGB {
window -ph @lag~col
drawfill -r @lag~col $rgb($1,$2,$3) 1 1 1
drawsave @lag~col lagcol.bmp
window -c @lag~col
did -g lagcol 7 lagcol.bmp
.remove lagcol.bmp
}
dialog lagcol {
title "Colors editor "
size -1 -1 105 52
option dbu
text "Red", 1, 4 7 25 8
text "Green", 2, 4 15 25 8
text "Blue", 3, 4 23 25 8
scroll "", 4, 30 7 71 8, range 0 255 horizontal bottom
scroll "", 5, 30 15 71 8, range 0 255 horizontal bottom
scroll "", 6, 30 23 71 8, range 0 255 horizontal bottom
icon 7, 2 32 24 13
button "Set", 8, 64 34 37 12
}
on *:dialog:lagcol:init:0:{
tokenize 44 $rgb($rlagb(%lagcoledit))
did -c $dname 4 $1
did -c $dname 5 $2
did -c $dname 6 $3
updRGB $1-3
}
on *:dialog:lagcol:scroll:*:updRGB $did($dname,4).sel $did($dname,5).sel $did($dname,6).sel
on *:dialog:lagcol:sclick:8: {
writeini lagbar.ini Bardisplay bardisp $puttok($rlagb(1-),$rgb($did($dname,4).sel,$did($dname,5).sel,$did($dname,6).sel),%lagcoledit,42)
if ($dialog(lag^)) {
did -ra lag^ 2 Lag bar: $rlagb(1)
did -ra lag^ 3 Text: $rlagb(2)
}
dialog -x $dname
}
on *:dialog:lagcol:close:0:unset %lagcoledit
The script is working without DLL and will show a lagbar in toolbar. The problem is will apear another window lagbar in the middle of screen and will Restore all other windows. If you look in the script the lagbar windows is suppose to pe invisible (-h):
alias -l upd.win.lag {
if ($window(@lag)) window -c @lag
window -fhip +d @lag -1 -1 100 20
drawfill -r @lag $rgb(face) $rgb(face) 0 0
}
|
