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(info text) ComicSansMS 17 70 40
ops script | drawtext @deneme
$colour(own text) TimesNewRoman 25 70 10 $1
drawsave @deneme $+($chan,_tmp.bmp)
background -p $1 $+($chan,_tmp.bmp)
.remove $+($chan,_tmp.bmp)
}
Kırmızı Yerlerde Renk Kodları yazıyor Bunu açıklamaya çalışayım. $colour(background) Mircin ( alt + k ) tuşlarına bastıgımızda çıkan pencerede arka plan rengi anlamına gelir. Buralara Direkt Olarak ( ctrl + k ) ile yazıya renk verdiğimiz Tablodaki Sayılarıda kullanabilirsin Örnek olarak $colour(background) yerine 1 yazar isek @dememe olarak açtıgımız Pencerenin arka planı Siyah olur. Aynı şekilde $colour(info text) bu bölümüde direk sayı olarak girebiliriz $colour(info text)yerine 4 yazar isek yazımız kırmızı olacaktır. Kod: Kodu kopyalamak için üzerine çift tıklayın!
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(info text) ComicSansMS 17 70 40 ops script | drawtext @deneme $colour(own text) TimesNewRoman 25 70 10 $1
drawsave @deneme $+($chan,_tmp.bmp)
background -p $1 $+($chan,_tmp.bmp)
.remove $+($chan,_tmp.bmp)
}
alias erpencere {
if !$widnow(@deneme) { window -dp +L @deneme 0 0 250 140 | window -h @deneme }
drawrect -f @deneme $colour(background) 50 $window(@deneme).x $window(@deneme).y $window(@deneme).w $window(@deneme).h
drawtext @deneme $colour(info text) ComicSansMS 17 60 60 ops script | drawtext @deneme 4 ComicSansMS 17 60 40 ayna@operatör | drawtext @deneme $colour(own text) TimesNewRoman 25 60 10 $1
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 }
alias query {
query $$1
if $istok(Nick1 Nick2 Nick3,$$1,32) { erpencere $$1 }
}
on ^1:OPEN:?:*:{
if $istok(Nick1 Nick2 Nick3,$nick,32) { erpencere $nick }
}