Çoğumuz PnP 'yi bilir. Her ne kadar şuan da 10 'larca script olmasına rağmen en azından eskiler PnP 'nin Profesyonelliğinden haberdardır
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. Ben de eski bir PnP hayranıyım. Belki size görsellik o kadar çok şey kazandırmaz. Ama Kodların içine daldığınızda nasıl bir sanatla karşı karşıya kaldınız o zaman anlarsınız...
Neyse uzun lafın kısası
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Kod kullanımı çok basit. Progress Bar 'ı açmak için:
Kod: Kodu kopyalamak için üzerine çift tıklayın!
_progress.1 Script Yüklemesi Başlıyor...
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Bu Progress Barın açılışı... Yalnızca "_progress.1 [Progress Bar Başlığı]" Şeklinde...
Kod: Kodu kopyalamak için üzerine çift tıklayın!
_progress.2 10 YouTube 'a bağlanılıyor...
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Bu kısım da artık "_progress.2 [Yüzdelik Dilim] [Alt Başlık]" Şeklinde kullanımı var. Yüzdelik dilim olarak ne seçerseniz Progress Bar O kısma kadar Durumu Dolduracaktır.
Kod: Kodu kopyalamak için üzerine çift tıklayın!
_progress.2 60 Video Bulundu! Şimdi indiriliyor...
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Kod: Kodu kopyalamak için üzerine çift tıklayın!
_progress.2 100 Script Yüklendi..
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Progress Bar %100 olduğunda otomatik olarak kendini kapatıyor..
Gördüğünüz gibi kullanımı oldukça basit. Peki bu scriptte ne kullanıldı? DLL? Image Gradient? Hayır!
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. Sadece mIRC Draw
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Yüklemek için sadece aşağıdaki kodu remoteye koyun ve kaydedin.
Kod: Kodu kopyalamak için üzerine çift tıklayın!
alias _progress.1 {
close -@ @Progress @.pbmp
window -pfdohkaBz +bLt @Progress $calc($window(-1).w - 330) $calc($window(-1).h - 160) 319 104
drawrect -frn @Progress $rgb(face) 2 0 0 319 104
_gradient @Progress 9 69 300 25
_bevel @Progress 7 67 304 29
drawrect -rn @Progress $rgb(face) 7 0 60 319 44
drawtext -nr @Progress $rgb(text) "ms sans serif" 16 8 25 $1-
; Progress Barın sağ köşesine image koyabilirsiniz 64 X 64
; drawpic -nt @Progress $rgb(255,255,255) 247 1 195 65 64 64 image.ico
drawdot @Progress
window -hpf @.pbmp 0 0 301 30
drawcopy @Progress 9 69 300 28 @.pbmp 0 0
}
alias _progress.2 {
if ($window(@Progress) == $null) return
if ($1 > 100) { _recurse _progress.2 100 $2- | return }
drawcopy -n @.pbmp 0 0 300 28 @Progress 9 69
drawtext -nro @Progress $rgb(text) "arial" 24 $calc(159 - $width($1%,arial,24,1,0) / 2) 67 $1%
drawrect -nrif @Progress 1 0 9 69 $calc($1 * 3 + 1) 26
drawrect -frn @Progress $rgb(face) 2 8 45 236 21
drawtext -cnr @Progress $rgb(text) "ms sans serif" 12 8 48 235 99 $2-
titlebar @Progress - $1%
drawdot @Progress
if ($1 == 100) {
.timer.kill.progress -mio 1 500 close -@ @Progress @.pbmp $chr(124)
}
}
alias -l _bevel {
drawrect -nr $1 $rgb(frame) 1 $calc($2 + 1) $calc($3 + 1) $calc($4 - 1) $calc($5 - 1)
drawrect -frn $1 $rgb(3dlight) 2 $calc($2 + 1) $calc($3 + $5 - 1) $calc($4 - 1) 2
drawrect -frn $1 $rgb(3dlight) 2 $calc($2 + $4 - 1) $calc($3 + 1) 2 $calc($5 - 1)
drawrect -nr $1 $rgb(hilight) 1 $2 $3 $calc($4 + 1) $calc($5 + 1)
drawline -nr $1 $rgb(shadow) 1 $2 $calc($3 + $5 - 1) $2 $3 $calc($2 + $4) $3
}
alias -l _gradient {
var %place = $calc($4 / 2 + $5 / 2 + $2),%r = $calc($rgb(face) % 256),%g = $calc($rgb(face) / 256 % 256),%b = $calc($rgb(face) / 65536)
:loopL
drawline -nr $1 $rgb(%r,%g,%b) 7 $calc(%place - 3) $calc($3 - 3) $calc(%place - $5) $calc($3 + $5)
if (%place > $2) {
if (%r > 2) dec %r 3
if (%g > 2) dec %g 3
if (%b > 2) dec %b 3
dec %place 8
goto loopL
}
%place = $calc($4 / 2 + $5 / 2 + $2)
%r = $calc($rgb(face) % 256)
%g = $calc($rgb(face) / 256 % 256)
%b = $calc($rgb(face) / 65536)
var %goal = $calc($2 + $4 + $5)
:loopR
drawline -nr $1 $rgb(%r,%g,%b) 7 $calc(%place - 3) $calc($3 - 3) $calc(%place - $5) $calc($3 + $5)
if (%place < %goal) {
if (%r < 250) inc %r 3
if (%g < 250) inc %g 3
if (%b < 250) inc %b 3
inc %place 8
goto loopR
}
}
alias _recurse $1- | return $result