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

Linqu · 21 Eylül 2009, 16:14

iyi bayramlar: bu yazıyı baya bi kullandım: fevkalkede gusel emeği geçenlere teşekkurler
ben bide bunun İlk Harf Buyuk seklinde olanınıda denemek istiyorum duzenleyecek bir arkadaşım varsa sevinirim :

CesuryureK · 21 Eylül 2009, 17:06

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

iyi bayramlar: bu yazıyı baya bi kullandım: fevkalkede gusel emeği geçenlere teşekkurler
ben bide bunun İlk Harf Buyuk seklinde olanınıda denemek istiyorum duzenleyecek bir arkadaşım varsa sevinirim :

ilk Harf büyükte her kelimenin ilk harfine entegre mi edecek yoksa
sadece cümlede ilk harfe mi

daha açıklayıcı olursan..

PunKGirL · 21 Eylül 2009, 18:20

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

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

Bunu nasıl bir harf kırmızı bir harf siyah yazdırabilirim... Mümkünmü böle bişey

Linqu · 21 Eylül 2009, 19:43

Cesuryurek : ustadım her kelimenin ilk harfi buyuk olacak BKN: Selam Nasılsın Kardeşim gibi:

CesuryureK · 21 Eylül 2009, 20:21

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

Cesuryurek : ustadım her kelimenin ilk harfi buyuk olacak BKN: Selam Nasılsın Kardeşim gibi:

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


on 1:INPUT:*: { 
if ( $left($1,1) == / ) { goto son } 
if ($ctrlenter) { goto son } 
if ($active == Status Window) { Echo -a Statusa Birşey Yazamazsınız. | goto halt } 
set %Var3 $1- 
unset %Var1 %Var2 
set %Var1 1 | set %Var2 $upper($mid(%Var3,1,1)) 
if ($mid(%Var3,1,1) == $chr(47)) { goto ServerCommand } 
if ($len(%Var3) == 1) { set %Var2 $upper(%Var2) | say %Var2 | halt } 
:Start1 
inc %Var1 1 
if ($mid(%Var3,%Var1,1) != $chr(32)) { set %Var2 %Var2 $+ $mid(%Var3,%Var1,1) | if ($len(%Var3) < %Var1) { goto Start1 } } 
if ($mid(%Var3,%Var1,1) == $chr(32)) { set %Var2 %Var2 $+ $upper($mid(%Var3,%Var1,2)) | inc %Var1 1 | if ($len(%Var3) < %Var1) { goto Start1 } } 
if ($len(%Var3) != %Var1) { goto Start1 } 
say %Var2 
halt 
:ServerCommand 
:halt 
halt 
:son 
}

Linqu · 21 Eylül 2009, 20:35

#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,†,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,†,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,†,u,µ,v,v,w,w ,x,×,y,¥,z,z,ı,I,İ,Î,ş,$,Ş,$,ç,¢,Ç,¢,ğ,g,Ğ,Ğ,ü,û,Ü ,Û,ö,ô,Ö,Ô,!,¡,?,¿,<,«,>,»,-,¬,:,¦,',`,`,',.,•)
say %elit
unset %elit
halt
}
#yazielit end

Cesuryurek ustadım emeğine sağlık: ama ben bu koda İlk Harf Buyk Olsun istemiştim: rica ediyorum .

CesuryureK · 23 Eylül 2009, 12:25

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

Bunu nasıl bir harf kırmızı bir harf siyah yazdırabilirim... Mümkünmü böle bişey

PunKGirL mümkün şöyleki,

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

 
on *:input:*: {
  say $regsubex($1-,/(.)/g,$iif(2 \\ \n,$+($chr(3),4,\1,$chr(3),1),\1))
  halt
}

Linqu senin istediğine gelirsek

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


on 1:INPUT:*: { 
  if ( $left($1,1) == /) { goto son } 
  if ($ctrlenter) { goto son } 
  if ($active == Status Window) { Echo -a Statusa Birşey Yazamazsınız. | goto halt } 
  set %Var3 $1- 
  unset %Var1 %Var2 
  set %Var1 1 | set %Var2 $upper($mid(%Var3,1,1)) 
  if ($mid(%Var3,1,1) == $chr(47)) { goto ServerCommand } 
  if ($len(%Var3) == 1) { set %Var2 $upper(%Var2) | say %Var2 | halt } 
  :Start1 
  inc %Var1 1 
  if ($mid(%Var3,%Var1,1) != $chr(32)) { set %Var2 %Var2 $+ $mid(%Var3,%Var1,1) | if ($len(%Var3) < %Var1) { goto Start1 } } 
  if ($mid(%Var3,%Var1,1) == $chr(32)) { set %Var2 %Var2 $+ $upper($mid(%Var3,%Var1,2)) | inc %Var1 1 | if ($len(%Var3) < %Var1) { goto Start1 } } 
  if ($len(%Var3) != %Var1) { goto Start1 } 
  say $replacecs(%var2,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,Ğ,Ğ,ü,û,Ü ,Û,ö,ô,Ö,Ô,!,¡,?,¿,<,«,>,»,-,¬,:,¦,',`,`,',.,•) 
  halt 
  :ServerCommand 
  :halt 
  halt 
  :son 
}

PunKGirL · 23 Eylül 2009, 14:23

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

PunKGirL mümkün şöyleki,

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

 
on *:input:*: {
  say $regsubex($1-,/(.)/g,$iif(2 \\ \n,$+($chr(3),4,\1,$chr(3),1),\1))
  halt
}

CesuryureK istediğim tam olarak buydu ama bi sorun çıktı..

||
||
\ /

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

komut giremiyorum "/" ...
Birde burdaki yazdığın şeyi açıklayabilirmisin kodu yani.
teşekkür ederim ayrıca

XcLusive · 23 Eylül 2009, 14:31

on *:input:*: {
if ($chr(47) == $mid($1-,1,1)) || ($inpaste) || ($ctrlenter) || ($1- == isnum) { goto end }
say $regsubex($1-,/(.)/g,$iif(2 \\ \n,$+($chr(3),4,\1,$chr(3),1),\1))
halt
:end
}

bu şekilde dene koduda hasanım açıklasın
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

CesuryureK · 23 Eylül 2009, 14:33

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

komut giremiyorum "/" ...

Birde burdaki yazdığın şeyi açıklayabilirmisin kodu yani.

teşekkür ederim ayrıca

doğrudur şimdiki halinde sorun olmayacaktır..
Buyrun

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

on *:input:*: {
  if ( $left($1,1) != /) && ($active != Status Window) { 
    say $regsubex($1-,/(.)/g,$iif(2 \\ \n,$+($chr(3),4,\1,$chr(3),1),\1))
    halt
  }
}

Halilim yeterki sen iste
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

kodun açıklaması ise,

yazılan her (g) karakteri (.) algılayıp harf diziliminde 2'nin katını siyah yapar
2'nin katı olmayanları da kırmızı

Selam kelimesini düşünün

S : birici harf doğal olarak 1 ' 2'nin katı olmadığı için kırmızı olacak
e : ikinci harf doğal olarak 2' 2'nin birinci katı olduğundan siyah olacak
l : üçüncü harf ve kırmızı olacak

kısacası harfin çift tek sırada olmasına göre işlem.

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.