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
Asci yazı sorunu	AttackZone	mIRC Scripting Sorunları	5	08 Aralık 2013 17:34
Yazı Sorunu	DaDaS	mIRC Scripting Sorunları	1	25 Eylül 2011 23:25
Yazı Remotesi sorunu	heySs	mIRC Scripting Sorunları	3	19 Ocak 2011 01:24
ince yazı sorunu	BraveStorm	mIRC Scripting Sorunları	4	21 Temmuz 2008 22:15
Yazı StiLi Sorunu ?	AnarchYBrotherS	mIRC Scripting Sorunları	7	04 Şubat 2008 17:01

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

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.