Çevrimdışı

Öylesine gezinirken bi sniplet buldum bu arkaplana script adını yazmakla ilgili. Gerçi burdakinde açıklamaları ile koymuşlar diye fazladan yazayım. Güzele benziyor.

; kullanımı: /chanbg <#channel> <Xpadding> <Ypadding> <$rgb(N,N,N)> <FontSize> <FontName>
; örnek: /chanbg #zurna 300 50 $rgb(120,180,160) 10 Tahoma
; #zurna, kanal:P; 300 ve 50, nerede duracagi; $rgb(sayi,sayi,sayi), renk; 10, yazı boyutu; Tahoma, font.

alias chanbg {
; bikaç hata kontrolu
if ($6 == $null) return
if (!$window($1)) return
if (($2 !isnum) || ($3 !isnum) || ($5 !isnum)) return
; pencere zaten açılmışsa, temizlemesi
if ($window(@chanbg)) clear @chanbg
; açılmamışsa, gizili bi resim penceresi açmak
else window -hpf @chanbg -1 -1 $window($1).dw $window($1).dh
; hesaplama için bi değişken hazırlanması, kanal adının nerede çizileceğini belirleyecek
set -l %x $calc($window($1).dw - $width($1,$6-,$5) - $2)
; uygun parametrelerle pencereye çizim
drawtext -nr @chanbg $4 $6- $5 %x $3 $1
; ve onu script dosyasıyla yanyana bi şekilde kaydet
drawsave @chanbg " $+ $scriptdirchanbg.bmp $+ "
; gizli resim penceresini kaldır
window -c @chanbg
; arkaplana kanal adının çizildiği resimli ekle
background $1 " $+ $scriptdirchanbg.bmp $+ "
}

; sonra aktif pencere değiştiğinde kanal açılırse resmi çiz ve yükle
; sarı renkte
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

on *:active:*:{
if ($left($active,1) == $chr(35)) chanbg $active 0 0 $rgb(120,180,160) 14 Comic Sans MS
}