IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Ç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 :) 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ı :) :rolleyes:

Kod kullanımı çok basit. Progress Bar 'ı açmak için:

Kod:

_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:

_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:

_progress.2 60 Video Bulundu! Şimdi indiriliyor...

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Kod:

_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! :rolleyes: Sadece mIRC Draw ;)

Yüklemek için sadece aşağıdaki kodu remoteye koyun ve kaydedin.

Kod:

 

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