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

el3ct · 17 Nisan 2008, 01:33

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 }

UsLanMaZzZ · 17 Nisan 2008, 02:33

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

el3ct · 17 Nisan 2008, 03:59

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

UsLanMaZzZ · 17 Nisan 2008, 04:46

el3ct Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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

Dependent · 17 Nisan 2008, 08:44

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: Kodu kopyalamak için üzerine çift tıklayın!

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.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
IF Felsefe Okulu: Bilgi Felsefesinde Felsefi Bilgi Nedir? Felsefi Bilgi Ne Değildir?	Kalemzede	Felsefe	0	11 Haziran 2022 21:12
İlk Çağ Felsefesi: Bilgi Felsefesinde Felsefi Bilgi Nedir? Felsefi Bilgi Ne Değildir?	Kalemzede	Felsefe	0	24 Aralık 2021 21:16
özelde beb sesi	Beklenti	mIRC Scripting Sorunları	3	15 Aralık 2011 20:03
özelde clone	quatro	mIRC Scripting Sorunları	5	25 Ekim 2007 16:45
özelde img gösterimi	__MaXiMuS__	mIRC Scripting Sorunları	3	04 Ekim 2007 21:01

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.