mIRC PnP Progress Bar
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 |
alias _progress.1 ( yak?n - @ @ Progress @. pbmp pencere pfdohkaBz + blt @ Progress $ calc ($ window (-1). w - 330) $ calc ($ window (-1). h - 160) 319 104 drawrect-FRN @ Progress $ rgb (yüz) 2 0 0 319 104 _gradient @ Progress 9 69 300 25 _bevel @ ?lerleme 7 67 304 29 drawrect-rn @ Progress $ rgb (yüz) 7 0 60 319 44 drawtext-nr @ Progress $ rgb (metin) "ms sans serif \ \ \ \ 16 8 25 $ 1 - ; Progress Bar? N sa? Kö? esine görüntü koyabilirsiniz 64 X 64 ; Drawpic-@ Progress $ nt rgb (255.255.255) 247 1 195 65 64 64 image.ico drawdot @ ?lerleme pencere hpf @. pbmp 0 0 301 30 drawcopy @ Progress 9 69 300 28 @. pbmp 0 0 ) alias _progress.2 ( ($ Window (@ Progress) == $ null) if ($ 1> 100) (_recurse e?er _progress.2 100 $ 2 - | geri) drawcopy-n @. pbmp 0 0 300 28 @ Progress 9 69 drawtext-nro @ Progress $ rgb (metin) \ \ "Arial \ \" 24 $ calc (159 - $ geni?li?i ($ 1%, Arial, 24,1,0) / 2) 67 $ 1% drawrect-nrif @ Progress 1 0 9 69 $ calc ($ 1 * 3 + 1) 26 drawrect-FRN @ Progress $ rgb (yüz) 2 8 45 236 21 drawtext-cnr @ Progress $ rgb (metin) "ms sans serif \ \ \ \ 12 8 48 235 99 $ 2 - ba?l?k @ ?lerleme - $ 1% drawdot @ ?lerleme ($ 1 == 100) (if timer.kill.progress-mio 1 500 kapat?n. - @ @ Progress @. chr (124) $ pbmp ) ) alias-l _bevel ( drawrect-$ 1 $ rgb (kare) 1 $ nr calc ($ 2 + 1) $ calc ($ 3 + 1) $ calc ($ 4 - 1) $ calc ($ 5 - 1) drawrect-$ 1 $ rgb (3dlight) 2 $ FRN calc ($ 2 + 1) $ calc ($ 3 + $ 5 - 1) $ calc ($ 4 - 1) 2 drawrect-$ 1 $ rgb (3dlight) 2 $ FRN calc ($ 2 + $ 4 - 1) $ calc ($ 3 + 1) 2 $ calc ($ 5 - 1) drawrect-$ 1 $ rgb (hilight) 1 $ 2 $ 3 $ calc ($ 4 + 1) $ nr calc ($ 5 + 1) drawline-nr $ 1 $ rgb (gölge) 1 $ 2 $ calc ($ 3 + $ 5 - 1) $ 2 $ 3 $ calc ($ 2 + $ 4) $ 3 ) alias-l _gradient ( var% yer = $ calc ($ 4 / 2 + $ 5 / 2 + $ 2),% r = $ calc ($ rgb (yüz)% 256),% g = $ calc ($ rgb (yüz) / 256% 256), % b = $ calc ($ rgb (yüz) / 65536) : LoopL drawline-nr $ 1 $ rgb (% r,% g,% b) 7 $ calc (% yerde - 3) $ calc ($ 3 - 3) $ calc (% yerde - $ 5) $ calc ($ 3 + $ 5) (% Yerde $ 2>) (if (% R> 2) Aral?k% r 3 e?er %) Aral?k% g 3> 2 g (e?er (% B> e?er 2) Aral?k% b 3 Aral?k% yerde 8 goto loopL ) % Yer = $ calc ($ 4 / 2 + $ 5 / 2 + $ 2) % R = $ calc ($ rgb (yüz)% 256) % G = $ calc ($ rgb (yüz) / 256% 256) % B = $ calc ($ rgb (yüz) / 65536) var% hedefi = $ calc ($ 2 + $ 4 + $ 5) : LoopR drawline-nr $ 1 $ rgb (% r,% g,% b) 7 $ calc (% yerde - 3) $ calc ($ 3 - 3) $ calc (% yerde - $ 5) $ calc ($ 3 + $ 5) (% Yer <% gol) (if (% R <250) inc% r 3 e?er %) Inc% g 3 <250 g (e?er (% B <250) inc% b 3 e?er inc% yerde 8 goto loopR ) ) alias $ 1 - | return $ result _recurse |