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

By_MeKaNsIz · 26 Ocak 2009, 12:40

#yazielit on
on 1:INPUT:*:{
unset %elit
set %elit $1-
if ( $chr(47) == $mid(%elit,1,1) ) { %elit | unset %elit* | halt }
%elit = $replacecs(%elit,a,a,b,ß,c,©,d,d,e,e,f,f,h,h,i,î,k ,k,l,L,m,M,n,ñ,o,o,p,p,q,¶,r,®,s,§,t,†,u,µ,v,v,w,w ,x,×,y,¥,z,z,ı,I,İ,Î,ş,$,Ş,$,ç,¢,Ç,¢,ğ,g,Ğ,Ğ,ü,û,Ü ,Û,ö,ô,Ö,Ô,!,¡,?,¿,<,«,>,»,-,¬,:,¦,',`,`,',.,•)
say %elit
unset %elit
halt
}
#yazielit end

Bu benim kullanmış oldugum yazı tipi ve ben bu yazı tipinin başına
● işaretini koymak istiyorum her zaman yazdıgımda bu işaret benim yazılarımın başında olsun istiyorum. Ayrıca bu yazının sürekli aynı renkte kalmasıda mümkün mü yani code yi kullandığımda yazı şu şekilde olsun istiyorum ;

•§eLaM ña§IL§Iñ
•ñe®eLe®de§îñ

Bunun gibi şimdiden teşekkür ediyorum . . .

TiPiTiP · 26 Ocak 2009, 13:10

say %elit satırını say $+(•,6,%elit) olarak değiştir.

By_MeKaNsIz · 26 Ocak 2009, 13:24

çok teşekkürler Fatih` birde o başındaki işareti sonunada koymak mümkün mü ?

CesuryureK · 26 Ocak 2009, 13:35

Kod: Kodu kopyalamak için üzerine çift tıklayın!

#yazielit on
on 1:INPUT:*:{
  unset %elit 
  set %elit $1-
  if ( $chr(47) == $mid(%elit,1,1) ) { %elit | unset %elit* | halt }
  %elit = $replacecs(%elit,a,a,b,ß,c,©,d,d,e,e,f,f,h,h,i,î,k ,k,l,L,m,M,n,ñ,o,o,p,p,q,¶,r,®,s,§,t,†,u,µ,v,v,w,w ,x,×,y,¥,z,z,ı,I,İ,Î,ş,$,Ş,$,ç,¢,Ç,¢,ğ,g,Ğ,Ğ,ü,û,Ü ,Û,ö,ô,Ö,Ô,!,¡,?,¿,<,«,>,»,-,¬,:,¦,',`,`,',.,•)
  say • 6 $+ %elit $+ 1•
  unset %elit 
  halt
}
#yazielit end

AzuLa · 26 Ocak 2009, 13:39

Alıntı:

say $+(•,6,%elit,1,•)

şeklinde değiştirebilirsiniz. ilk 6 sayısı yazı renginizi mor yapar. 1 sayısı ise • işaretinin rengini değiştirir. iki tarafı da değiştirebilirsinz kendi isteğinize göre.

yazı rengini değiştirmek için 6 sayısını , sondaki işaretin rengini değiştirmek için 1 sayısını değiştirmeniz yeterli olacaktır =]

BraveStorm · 26 Ocak 2009, 14:39

Arkadaşlar bunu kaydettimde /ame /me atamıyorum neden :S

Difuzyon · 26 Ocak 2009, 14:58

Kod içerisinde diyor ki,
1. harf "/" ise komutu devre dışı bırak.
/ping nick
/ns help
/identify şifre
vs vs komutlarında uygulanmaz...Çünkü 1. harf / işareti ile başlıyor.

AzuLa · 26 Ocak 2009, 15:48

PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!


#yazielit on

on 1:INPUT:*:{

  unset %elit 

  set %elit $1-

  if ( $chr(47) == $mid(%elit,1,1) ) { 

    if $1 == /ame {

      %elit = $replacecs(%elit,a,a,b,ß,c,©,d,d,e,e,f,f,h,h,i,î,k ,k,l,L,m,M,n,ñ,o,o,p,p,q,¶,r,®,s,§,t,&#8224;,u,µ,v,v,w,w ,x,×,y,¥,z,z,ı,I,İ,Î,ş,$,Ş,$,ç,¢,Ç,¢,ğ,g,Ğ,Ğ,ü,û,Ü ,Û,ö,ô,Ö,Ô,!,¡,?,¿,<,«,>,»,-,¬,:,¦,',`,`,',.,•)

      %elit

      unset %elit*

      halt

    }

    if $1 == /me {

      %elit = $replacecs(%elit,a,a,b,ß,c,©,d,d,e,e,f,f,h,h,i,î,k ,k,l,L,m,M,n,ñ,o,o,p,p,q,¶,r,®,s,§,t,&#8224;,u,µ,v,v,w,w ,x,×,y,¥,z,z,ı,I,İ,Î,ş,$,Ş,$,ç,¢,Ç,¢,ğ,g,Ğ,Ğ,ü,û,Ü ,Û,ö,ô,Ö,Ô,!,¡,?,¿,<,«,>,»,-,¬,:,¦,',`,`,',.,•)

      %elit

      unset %elit*

      halt

    }

    else {

      %elit | unset %elit* | halt 

    }

  }

  %elit = $replacecs(%elit,a,a,b,ß,c,©,d,d,e,e,f,f,h,h,i,î,k ,k,l,L,m,M,n,ñ,o,o,p,p,q,¶,r,®,s,§,t,&#8224;,u,µ,v,v,w,w ,x,×,y,¥,z,z,ı,I,İ,Î,ş,$,Ş,$,ç,¢,Ç,¢,ğ,g,Ğ,Ğ,ü,û,Ü ,Û,ö,ô,Ö,Ô,!,¡,?,¿,<,«,>,»,-,¬,:,¦,',`,`,',.,•)

  say %elit

  unset %elit 

  halt

}

#yazielit end

kodu bu haliyle deneyiniz. bir sorun cıkarsa baslık altında belirtiniz. tam olarak denemedim kodu.

Peki ne yaptık ?
amacımız /ame ve /me ile baslayan komutları serbest bırakmak, yazının değiştirilmesini sağlamaktı. $1 (1. kelime) değişkenini /ame ve /me ayarlayarak yazının değiştirilmesine olanak verdik. else ile de diğer / ile başalayan komutların yazı stili ile değiştirilmesini önledik.

Log:

Alıntı:

[15:28] * @aLias deneme
* Grup Aktif
[15:28] * @aLias deñeMe
[15:29] * @aLias deñeMe

deLiyimmm · 09 Şubat 2009, 14:38

ßu koda $öyeL ßise ekLeye ßilirmiyiz ?
ßiri kaLin ßiri ince yazacak $ekiLde düzenLeme yapa ßilirmisiniz ?

Difuzyon · 09 Şubat 2009, 15:41

Kod: Kodu kopyalamak için üzerine çift tıklayın!

on *:input:*: { 
  if $left($1,1) != / { 
    var %1 = $1-  
    var %2 = $regsub(%1, /()/g, $chr(2)\1, %1)  
    say $replacecs(%1,a,a,b,ß,c,©,d,d,e,e,f,f,h,h,i,î,k ,k,l,L,m,M,n,ñ,o,o,p,p,q,¶,r,®,s,§,t,†,u,µ,v,v,w,w ,x,×,y,¥,z,z,ı,I,İ,Î,ş,$,Ş,$,ç,¢,Ç,¢,ğ,g,Ğ,Ğ,ü,û,Ü ,Û,ö,ô,Ö,Ô,!,¡,?,¿,<,«,>,»,-,¬,:,¦,',`,`,',.,•)   
    haltdef 
  } 
}

Bu şekilde bir ince bir kalın yazar ve harfleri karşılıklarıyla değişir.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Mirc Alt-Yazı Haberler v.1	SiLuet	mIRC Scripting Hazır Kodlar	10	18 Ağustos 2017 23:46
Mirc yazı adonu	Dahimurat	mIRC Scripting Sorunları	7	03 Eylül 2016 16:56
mIRC Yazı şekli	ekrem46	mIRC Scripting Sorunları	3	16 Ekim 2009 19:44
mIRC yazı karakteri	tam1deLi	mIRC Scripting Sorunları	4	24 Haziran 2009 21:03
Mirc Yazı ayarları	Voltage	mIRC Scripting Sorunları	2	19 Mart 2006 08:19

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.