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