IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - özelde bilgi (https://www.ircforumlari.net/mirc-scripting-sorunlari/54318-ozelde-bilgi.html)

Merhaba,

Bu code hangi kanala girersem girdiğim kanalın #kanaladı olarak sağ üst köşede yazmasını sağlıyor ve #kanaladı nın altınada vs script in adını yazıyor arkadaslar belirlediğim bir kaç nick olsun mesela Nick1,Nick2,Nick3,Nick4 bu nicklere özel açıldığı zaman gene sağ üst köşede $nick ve altında vs script yazmasını istiyorum kanal oplararının scripti için ben kanal founderiyim mesela bana özel açtıkları an sağ üst köşede Nickim ve vs script yazabilirmi? yardımcı olacak arkadaşlara şimdiden teşekkürler..

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

Cevap: özelde bilgi

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(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 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) { xpencere $$1 }
 }
 on 1:OPEN:?:*:{ 

  if $istok(Nick1 Nick2 Nick3,$nick,32) { .xpencere $nick }

}

Boşluk Bırakarak Başka nicklerde ekleyebilirsin.
Umarım işini görür.

Cevap: özelde bilgi

oldu teşekkürler ellerine sağlık, şuda olabilirmi?

Nick
ayna@operatör ü de yazbilirmiyiz ortasına? renklerini nasıl değiştirebiliriz?
ops script

Cevap: özelde bilgi

Alıntı:

el3ct Nickli Üyeden Alıntı (Mesaj 375790)

oldu teşekkürler ellerine sağlık, şuda olabilirmi?

Nick
ayna@operatör ü de yazbilirmiyiz ortasına? renklerini nasıl değiştirebiliriz?
ops script

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:

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 }

}

Cevap: özelde bilgi

bu kod bana ağit bir koddur ve bunun bir kaç hatasının giderilmiş hali ve query için olanını da çok öncesinden yazmıştım, buyur:

Kod:

alias query { drname $1- | query $1- } 

on *:start: { set %drcolor $color(background) | .timerdr -m 0 150 /drtimer }

on *:exit: { .remini $qt($mircini)) background }

on *:nick: { if $query($newnick) { drname $newnick } }

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

on ^*:open:?: { drname $nick }

alias drtimer {

  if $color(background) != %drcolor { 

    set %drcolor $color(background)

    var %i = $chan(0) | while %i { drname $chan(%i) | dec %i 1 }

    var %i = $query(0) | while %i { drname $query(%i) | dec %i 1 }

  }

}

alias drname {

  var %win = $remove($+(@drname,-,$1),$chr(35)), %tmpfl = $qt($+($remove($1,$chr(35)),-tmp.bmp))

  if !$widnow(%win) { window -hpf %win 0 0 250 100  }

  drawrect -f %win $colour(background) 50 $window(%win).x  $window(%win).y $window(%win).w $window(%win).h

  drawtext %win $colour(own text) "Comic Sans MS" 22 0 0 $1

  drawtext %win $colour(info text) "Times New Roman" 12 10 30 Bilmemne script ver: 1 .0

  drawsave %win %tmpfl

  background -p $1 %tmpfl

  .timer -m 1 400 .remove %tmpfl

  window -c %win

}

bunu neden verdiğime gelince backgroun coloru değiştirince sizin kodlarda resimlerin arkaplanı değişmeyecek, bu arada yazariken gördüm 2 while yerine tek while kulanıp daha hızlı olmasını sağalayabilirim, neyse belki 1.3'ünü çıkarırsam yaparım.