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.

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder
Stil
Normal Hybrid-Şeklinde gösterime geç Ağaç şeklinde gösterime geç

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.