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

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - Büyük Harf İle Başlama (https://www.ircforumlari.net/mirc-scripting-sorunlari/394799-buyuk-harf-ile-baslama.html)

Cevap: Büyük Harf İle Başlama

Kod'u ekledikten sonra olan tek şey; nick'e seslendiğim zaman nick'i renkli ve ince gösteriyor ve ilk cümlenin baş harfi büyük çıkıyor , veya . 'tan sonra değişme yok.

<nick>

Cevap: Büyük Harf İle Başlama

Türkçe imla kurallarına göre virgül işaretinden sonra gelen harf özel isim değilse büyük olmaz,nokta işaretinden sonra da boşluk bırakılarak devam edilmez.Bu bilgiler ışığında kodlamada bir hata tespit edemedim,umarım imla hatası yapmıyorsunuzdur?

Cevap: Büyük Harf İle Başlama

Kod:

#IRC on

On 1:input:*:{

if ($1- == nbr) { say Naber Nasılsın..? | halt }

if ($1- == h.ge) { say Hayrlı Geceler.. | halt }

if ($1- == slm) { say Aleykum Selam.. | halt }

if ($1- == a.s) { say Ve Aleykum Selam Ve Rahmatullahi Ve Berekatuhu.. | halt }

if ($1- == s.a) { say Es Selamun Aleykum Ve Rahmatullahi Ve Berekatuhu.. | halt }

if ($1- == h.c) { say Hayrlı Cuma'lar.. | halt }

if ($1- == b.) { say Bismillahirrahmanirrahim.. | halt }

if ($1- == e.b) { say Euzübillahimineşşeytanirracim Bismillahirrahmanirrahim.. | halt }

if ($1- == h.k) { say Hoşçakal.. | halt }

if ($1- == ö.d) { say Özür Dilerim.. | halt }

if ($1- == h.s) { say Hayrlı Sabahlar.. | halt }

if ($1- == h.a) { say Hayrlı Akşamlar.. | halt }

if ($1- == h.g) { say Hoşgeldin.. | halt }

if ($1- == i.o) { say İyi Oyunlar.. | halt }

if ($1- == h.b) { say Hoşbuldum Teşekkürler.. | halt }

if ($1- == a.e.o) { say Allah'a Emanet Ol Selametle.. | halt }

if ($1- == h.g) { say Hoşgeldin.. | halt }

if ($1- == tşk) { say Teşekkür Ederim.. | halt }

if ($1- == s.ç.s) { say Seni Çok Seviyorum.. | halt }

}

#IRC end

Cevap: Büyük Harf İle Başlama

Alıntı:

EteRNaL Nickli Üyeden Alıntı (Mesaj 1041267000)

Selamun Aleykum Arkadaşlar.. Script remotemde mevcut input kodunda kısaltmaları yazdıgımda sorunsuz çalışıyor.. Koddan anlamadığım için sizden şöyle bir ricam olacak.. Cümlelerimde geçen her kelimenin ilk harfi büyük olsun ve cümle sonuna iki nokta atsın.. Ve Bütün büyük Türkçe harfler I,İ,Ç,Ğ,Ö,Ü, gibi doğru çalışsın.. Başka kodlar buldum remoteye yükledim ama bu kez de kısaltma olarak nbr yazınca, peşpeşe hem kısaltması (nbr) çıkıyor hem de açılımı (Naber Nasılsın..?) çıkıyor.. Sizden ricam elimdeki koda İlk harfleri ve Türkçe olan bütün Büyük Harfleri (I,İ,Ç,Ğ,Ö,Ü) gibi doğru yazsın ve cümle sonuna iki nokta (..) koyan kod eklemenizdir.. Şimdiden Teşekkür Ederim iyi çalışmalar..

Elimdeki kod şöyle;

#IRC on
On 1:input:*:{
if ($1- == nbr) { say Naber Nasılsın..? | halt }
if ($1- == h.ge) { say Hayrlı Geceler.. | halt }
if ($1- == slm) { say Aleykum Selam.. | halt }
if ($1- == a.s) { say Ve Aleykum Selam Ve Rahmatullahi Ve Berekatuhu.. | halt }
if ($1- == s.a) { say Es Selamun Aleykum Ve Rahmatullahi Ve Berekatuhu.. | halt }
if ($1- == h.c) { say Hayrlı Cuma'lar.. | halt }
if ($1- == b.) { say Bismillahirrahmanirrahim.. | halt }
if ($1- == e.b) { say Euzübillahimineşşeytanirracim Bismillahirrahmanirrahim.. | halt }
if ($1- == h.k) { say Hoşçakal.. | halt }
if ($1- == ö.d) { say Özür Dilerim.. | halt }
if ($1- == h.s) { say Hayrlı Sabahlar.. | halt }
if ($1- == h.a) { say Hayrlı Akşamlar.. | halt }
if ($1- == h.g) { say Hoşgeldin.. | halt }
if ($1- == i.o) { say İyi Oyunlar.. | halt }
if ($1- == h.b) { say Hoşbuldum Teşekkürler.. | halt }
if ($1- == a.e.o) { say Allah'a Emanet Ol Selametle.. | halt }
if ($1- == h.g) { say Hoşgeldin.. | halt }
if ($1- == tşk) { say Teşekkür Ederim.. | halt }
if ($1- == s.ç.s) { say Seni Çok Seviyorum.. | halt }
}
#IRC end

Kod:

On 1:input:*:{

  if ($1- == nbr) { say Naber Nasılsın..? | halt }

  if ($1- == h.ge) { say Hayrlı Geceler.. | halt }

  if ($1- == slm) { say Aleykum Selam.. | halt }

  if ($1- == a.s) { say Ve Aleykum Selam Ve Rahmatullahi Ve Berekatuhu.. | halt }

  if ($1- == s.a) { say Es Selamun Aleykum Ve Rahmatullahi Ve Berekatuhu.. | halt }

  if ($1- == h.c) { say Hayrlı Cuma'lar.. | halt }

  if ($1- == b.) { say Bismillahirrahmanirrahim.. | halt }

  if ($1- == e.b) { say Euzübillahimineşşeytanirracim Bismillahirrahmanirrahim.. | halt }

  if ($1- == h.k) { say Hoşçakal.. | halt }

  if ($1- == ö.d) { say Özür Dilerim.. | halt }

  if ($1- == h.s) { say Hayrlı Sabahlar.. | halt }

  if ($1- == h.a) { say Hayrlı Akşamlar.. | halt }

  if ($1- == h.g) { say Hoşgeldin.. | halt }

  if ($1- == i.o) { say İyi Oyunlar.. | halt }

  if ($1- == h.b) { say Hoşbuldum Teşekkürler.. | halt }

  if ($1- == a.e.o) { say Allah'a Emanet Ol Selametle.. | halt }

  if ($1- == h.g) { say Hoşgeldin.. | halt }

  if ($1- == tşk) { say Teşekkür Ederim.. | halt }

  if ($1- == s.ç.s) { say Seni Çok Seviyorum.. | halt }

  if ($chr(47) == $mid($1-,1,1)) || ($inpaste) || ($ctrlenter) { goto end }

  if ($1- == isnum) { goto end }

  var %a 0, %b, %c, %d, %e, %f

  while (%a < $numtok($1-,32)) {

    inc %a

    %c = $gettok($1-,%a,32)

    if ($remove(%c,!,?,:,;,.,$chr(44),?) ison #) { %b = $iif(%b,%b) $+(·,%c,·) }

    else {

      if (%a == $numtok($1-,32)) {

        %d = $+($right(%c,1),..)

        %f = $right(%d,2)

      }

      %e = $regsubex(%c,/(?=^| )(.)/g,$+(,$upper(\1),))

      %b = %b $+(%e,%f)

    }

  }

  if (!%b) { %b = $1- }

  else { say %b }

  halt

  :end

}

Su Sekilde Bi Dene

Cevap: Büyük Harf İle Başlama

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] kardeşim Allah Razı Olsun.. Düzenlediğin kod artık ikişerli satır halinde çıkmıyor lakin kelimelerde ilk harf olarak büyük ı harfi küçük ı olarak, i harfi ise büyük I olarak çıkıyor..Yardımın için tekrar Allah razı olsun Hakkını helâl et.. Başarılarının devamını dilerim..

Cevap: Büyük Harf İle Başlama

Merhabalar,sadece cümle başındaki harf büyük sonrası şekilli yazı addonu lazım elinde mevcut olan arkadaşlar varsa yardımcı olabilirmi?

Cevap: Büyük Harf İle Başlama

Alıntı:

Difuzyon Nickli Üyeden Alıntı (Mesaj 1041168408)

Kod:

on *:input:*:{ 

  if $left($1,1) != / { 

    if $window($active).type == channel { msg $active $regsubex($regsubex($1-,/((^[^A-Z])|((\.|\?)(.)))/g,$upper($replace(\1,i,İ,ı,I))),/(\S+)/gi,$iif(\1 ison #,$+(<04,\1,,>),\1)))) } 

    elseif $window($active).type == query { msg $active $regsubex($regsubex($1-,/((^[^A-Z])|((\.|\?)(.)))/g,$upper($replace(\1,i,İ,ı,I))),/(\S+)/gi,$iif(\1 == $active,$+(<04,\1,,>),\1)))) }

    halt

  }

}

Konuyu hortlatacağım ama yardım eden olursa sevinirim :) Kodda bir sorun yok gayet güzel çalışıyor ancak düzeltilmesi gereken bir yer var nasıl düzelteceğimi bilemedim.

Örn: Bir şey istiyor musun?Sabit şu an yolda.Birazdan gelir.

Örn1: Bir şey istiyor musun? sabit şu an yolda. birazdan gelir.

Cümle hatalı olmuş oluyor ama kod çalışıyor. Nokta ve soru işaretinden sonra boşluk bırakınca küçük harf olarak devam ediyor, bunu düzeltebilir misiniz?

Cevap: Büyük Harf İle Başlama

Alıntı:

Sabit1 Nickli Üyeden Alıntı (Mesaj 1041614431)

Eğer yazılan metin !$inpaste ((paste)Yapıştırılan bir veri değilse), !$ctrlenter (Control+ENTER kombinasyonları kullanılmamışsa) ve cümlenin ilk karakteri / Slash değilse (komut kullanabilmen için şart.) kod çalışacak, Aktif ekranın, cümle içinde geçtiğinde ise renkli yazacak (Nick ve #Kanal gibi.)

Editbox a yazdığın metni orjinal halde (kod ile işlenmeden) yollamak istersen metni yazınca Ctrl + Enter yaparak yollayabilirsin.

Kod:

on *:input:*:{ 

  if $left($1,1) != / && !$inpaste && !$ctrlenter { 

    msg $active $regsubex($regsubex($1-,/((^[^A-Z])|((\.\s?|\?\s?)(.)))/g,$upper($replace(\1,i,İ,ı,I))),/(\S+)/gi,$iif(\1 ison # || \1 = $active,$+(<04,\1,,>),\1))))

    halt

  }

}

Cevap: Büyük Harf İle Başlama

Alıntı:

Feragat Nickli Üyeden Alıntı (Mesaj 1041614439)

Kod:

on *:input:*:{ 

  if $left($1,1) != / && !$inpaste && !$ctrlenter { 

    msg $active $regsubex($regsubex($1-,/((^[^A-Z])|((\.\s?|\?\s?)(.)))/g,$upper($replace(\1,i,İ,ı,I))),/(\S+)/gi,$iif(\1 ison # || \1 = $active,$+(<04,\1,,>),\1))))

    halt

  }

}

Nick ve kanal renkli yazmasa, o kısımları nasıl kaldırabiliriz?

Cevap: Büyük Harf İle Başlama

Alıntı:

Sabit1 Nickli Üyeden Alıntı (Mesaj 1041614448)

Nick ve kanal renkli yazmasa, o kısımları nasıl kaldırabiliriz?

O kısmı silerek yapabilirsin.

Kod:

on *:input:*:{ 

  if $left($1,1) != / && !$inpaste && !$ctrlenter { 

    msg $active $regsubex($1-,/((^[^A-Z])|((\.\s?|\?\s?)(.)))/g,$upper($replace(\1,i,İ,ı,I))) 

    halt

  }

}