IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Girdiğin kanalın adını resim olrak kaydedip arka plana yüklemek

- mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)

- - Girdiğin kanalın adını resim olrak kaydedip arka plana yüklemek (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/1474-girdigin-kanalin-adini-resim-olrak-kaydedip-arka-plana-yuklemek.html)

Girdiğin kanalın adını resim olrak kaydedip arka plana yüklemek

Kod:

on *:join:#: { if $nick == $me { xpencere $chan } }

alias xpencere {

  if !$widnow(@deneme) { window -dp +L @deneme 0 0 250 100 | window -h @deneme }

  drawrect -f @deneme $colour(background) 50 $window(@deneme).x  $window(@deneme).y $window(@deneme).w $window(@deneme).h

  drawtext @deneme $colour(own text) TimesNewRoman 22 0 0 $1

  drawtext @deneme $colour(info text) TimesNewRoman 12 10 30 Bilmemne script ver 1.0

  drawsave @deneme $+($chan,_tmp.bmp)

  background -p $1 $+($chan,_tmp.bmp)

  .remove $+($chan,_tmp.bmp)

}

alias XColorCheck { if $color(backgorund) != %XColorCheck { var %i = $chan(0) | while %i { xpencere $chan(%i) | dec %i 1 } } }

on *:connect: { set %XColorCheck $color(background) | .timerXColorCheck -m 0 200 XColorCheck }

yukarıdaki kod girdiğin kanalın ismini ve scripti vs resim olarak kaydedip arka plana yukluyor :).

güzel bir calisma tebrikler..

çok güzel. eline sağlık

helal sana eline saglık ii olmus denedim gusel...

guzel olmusda benim scriptte koydum kanal adini resimledi script adinida bilmemne script olarak yansitti bilmemne yi nerden cikarrti bu :)) benimd escriptimin bir adi var yani ismini dogru yansitmasi icin script ismini nereye kayitlamam lazim nerdne aliyor bilgiyi bu kod?

bide icon da koymak mumkun olabilirmi ayni bu sekilde resim degil icon

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Kardes Gercekten Hos Ve Güzel Bir Addon Ama Tek Kötü Yanı Var Mirc'i Kasıyor.. Ama Gercekten Güzel Calısma Tebrikler.

evet neden kasıyor bir bakalım background yerine backogrund yazmışım yani ifi atlıyor ve her 200ms de bir arka plan yukluyordu aşağıya düzeltilmiş halini yazdım şimdi artık sadece arkaplan rengi değişirse resim yukleyecek :), arada dalgınlıkla kaçıyor.

Kod:

on *:join:#: { if $nick == $me { xpencere $chan } }

alias xpencere {

  if !$widnow(@deneme) { window -dp +L @deneme 0 0 250 100 | window -h @deneme }

  drawrect -f @deneme $colour(background) 50 $window(@deneme).x  $window(@deneme).y $window(@deneme).w $window(@deneme).h

  drawtext @deneme $colour(own text) TimesNewRoman 22 0 0 $1

  drawtext @deneme $colour(info text) TimesNewRoman 12 10 30 Bilmemne script ver:1 .0

  drawsave @deneme $+($chan,_tmp.bmp)

  background -p $1 $+($chan,_tmp.bmp)

  .remove $+($chan,_tmp.bmp)

  set %XColorCheck $color(background)

}

alias XColorCheck { if $color(background) != %XColorCheck { var %i = $chan(0) | while %i { xpencere $chan(%i) | dec %i 1 } } }

on *:connect: { set %XColorCheck $color(background) | .timerXColorCheck -m 0 200 XColorCheck }

Ö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 :)
on *:active:*:{
if ($left($active,1) == $chr(35)) chanbg $active 0 0 $rgb(120,180,160) 14 Comic Sans MS
}

Ellerine sağlık Alience. Çalışmalarının devamını diliyorum..