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..

aLience Senden Bir Isteğim Olacak Bu Olay Gayet Güzel Çalışıyor Fakat Mirci Minimize Ettiğimizde Yani Aşşağıya Indirdiğimizde @deneme Penceresi Kaliyor Onu Işlemden Sonra Nasıl Kapattirabiliriz Bu Dediğim Olayi Xp Işletim Sisteminde Gerçekleşiyor.. Yoksa Cok Güzel Ellierine Sağlık ;p

ArkadaŞlar Ben Bunu Alias A Mi Popup A Mi Nereye Ekleyecem Yahuu? Anlatin Hele ? Nereye Ekleyecem

ALT+R Yaparak remote'ne ekleyeceksin ..

Alıntı:

Flyman Nickli Üyeden Alıntı

drawtext @deneme $colour(info text) TimesNewRoman 12 10 30 Bilmemne ScripT

yazan Yeri Editleyeßilirsin.

TimesNewRoman Yerine Yazı Stili Yaza bilirsin

Kolay Gelsin

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

Peki kendi koyduumuz resimin üzerinde çıkar mı ? örnek bi pencere koyuyum sağ üste o resim üstünde girdiği kanalın isimi çıkabilir mi ?

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

Selamun aleyküm. Öncelikle bu güzel çalışma için, teşekkür eder bu gibi güzel bilgilerini bizlerle paylaşmanın devamını dilerim. Bir sorum olacaktı bu kod üzerinde; Aşağıda belirttiğim yeri kızmızı olarak nasıl yazmasını sağlaya bilirim?

drawtext @deneme $colour(own text) TimesNewRoman 22 0 0 $1
drawtext @deneme $colour(info text) TimesNewRoman 12 10 30 (Bilmem ne script)

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

drawtext @deneme 4 TimesNewRoman 12 10 30 (Bilmem ne script) ;yazarakama bunun daha yenisini yazmıştım (bu arada bu kodu da yazan benim sadece nickim farklı) , bu forumda paylaşmadım googlede bulursunuz.