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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)

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

- - Yazı Tipi (https://www.ircforumlari.net/mirc-scripting-sorunlari/116510-yazi-tipi.html)

Impulsiv

05 Haziran 2008 22:35

Yazı Tipi

Alıntı:

on *:INPUT:*:{
if ($left($1-,0) != /) {
var %i 1,%q
while ($gettok($1-,%i,32)) {
%q = $addtok(%q,$+(,$upper($left($v1,1)),,$right($v1,-1)),32)
inc %i
}
say %q
halt
}
}

Merhaba arkadaşlar,

Bu kodda her kelimenin ilk harfi büyük ve kalın olarak çıkıyor. Fakat yazılan komutlarda ilk harfi kalın çıktığı için direk kanala gidiyor bunu nasıl düzeltebiliriz ?

ATLAS

06 Haziran 2008 03:34

Cevap: Yazı Tipi

Kod:

 

on 1:INPUT:*: {

  if ( $left($1,1) == / ) { goto son }

  if ($ctrlenter) { goto son }

  if ($active == Status Window) { Echo -a %logo    | goto halt }

  if ($active == @Bot) { 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

}

#yaziilkbuyuk end

Bu codeyi kullanmayı denermisin.

Impulsiv

06 Haziran 2008 13:20

Cevap: Yazı Tipi

Ben yine her kelimenin ilk harfinin büyük ve kalın olarak çıkmasını istiyorum. Fakat sadece komutları kullanırken / işaretini kalın yazmasını istemiyorum. Çünkü komut direk kanala gidiyor. Sizin verdiğiniz kodda sadece her kelimenin ilk harfi büyük olarak çıkıyor kalın değil yani.

Gurkan

06 Haziran 2008 14:49

Yanıt: Yazı Tipi

Kod:

 

on *:input:*: { if $left($1,1) != / && !$ctrlenter && !$inpaste { var %/ = 1,%= = $numtok($1-,32),%: | while %/ <= %= { var %: = $addtok(%:,$+($chr(2),$chr(3),$upper($left($gettok($1-,%/,32),1)),$chr(2),$chr(3),$right($gettok($1-,%/,32),-1)),32) | inc %/ | haltdef } | say %: } }

Impulsiv

09 Haziran 2008 13:08

Cevap: Yanıt: Yazı Tipi

Alıntı:

LanetLy Nickli Üyeden Alıntı (Mesaj 481971)

Kod:

 

on *:input:*: { if $left($1,1) != / && !$ctrlenter && !$inpaste { var %/ = 1,%= = $numtok($1-,32),%: | while %/ <= %= { var %: = $addtok(%:,$+($chr(2),$chr(3),$upper($left($gettok($1-,%/,32),1)),$chr(2),$chr(3),$right($gettok($1-,%/,32),-1)),32) | inc %/ | haltdef } | say %: } }

Peki yazilarimin kanaldaki renk yasagina yakalanmasini nasil engelleriz?

#Chat Color is not permitted in this channel (#Chat)

KiLL	09 Haziran 2008 13:10

Cevap: Yazı Tipi

Engelleyemezsin

aLieN

09 Haziran 2008 14:38

Cevap: Yazı Tipi

Kod:

on *:input:*: { 

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

var %/ = 1,%= = $numtok($1-,32),%:

while %/ <= %= { 

var %: = $strip($addtok(%:,$+($chr(2),$chr(3),$upper($left($gettok($1-,%/,32),1)),$chr(2),$chr(3),$right($gettok($1-,%/,32),-1)),32)) 

inc %/

haltdef 

}

say %: 

} 

}

şeklinde yapabilirsin, tek satırda toplamak istersen ;

Kod:

on *:input:*: { if $left($1,1) != / && !$ctrlenter && !$inpaste { var %/ = 1,%= = $numtok($1-,32),%: | while %/ <= %= { var %: = $strip($addtok(%:,$+($chr(2),$chr(3),$upper($left($gettok($1-,%/,32),1)),$chr(2),$chr(3),$right($gettok($1-,%/,32),-1)),32)) | inc %/ | haltdef } | say %: } }

нαℓιℓ

09 Haziran 2008 22:04

Cevap: Yazı Tipi

Alıntı:

KiLL Nickli Üyeden Alıntı (Mesaj 484408)

Engelleyemezsin

ne biliyorsun? birde öyle konuşmuşsunki hiçbir çare yok tükendi yaptık uğraştık ama hiçbir sonuç alamadık, ne yaparsak yapalım renkli yazı yazarken kanalda +c modu varsa bi türlü renksiz yazamadık gibi. (komedi..)

Kod:

on *:input:*: { 

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

    var %/ = 1,%= = $numtok($1-,32),%:

    while %/ <= %= { 

      if ($regex($remove($chan($active).mode,+),/(c))) { %: = $strip($addtok(%:,$+($chr(2),$chr(3),$upper($left($gettok($1-,%/,32),1)),$chr(2),$chr(3),$right($gettok($1-,%/,32),-1)),32)) }

      else { var %: = $addtok(%:,$+($chr(2),$chr(3),$upper($left($gettok($1-,%/,32),1)),$chr(2),$chr(3),$right($gettok($1-,%/,32),-1)),32) }

      inc %/

      haltdef 

    }

    say %: 

  } 

}

Impulsiv yukarıdaki kodu kullanabilirsin..

XcLusive ~

KiLL	09 Haziran 2008 23:07

Cevap: Yazı Tipi

Verdiğin kod kanal +c modunda iken renkli yazmıyor Xclusive yapamadın gordugun gibi. Kanal +c ike renkli yazmak ıstıyorum dıyr adam ? Yazamaz kısa ve oz. Artı olarak bunun ıcın ugrasmaya gerek yok. Cunkı bu mIRC ile ilgili birşey değil sunucu ve kanal ile ilgili birşey ve sunucudan buna yasak varsa yapamazsın.Sende yazarmıs gıbı bır suru sey karalamıssın..

Senin yaptıgın eger kanal +c değilse buyut ve ınce yaz. Değile yani +c ise sadece buyut ama renklı yapma.

Adamın ıstedıgı ıse her kosulda buyuk ve renklı yaz. Bunu yapabılırmısın ? Yapılamaz tek kelime

KiLL	09 Haziran 2008 23:22

Cevap: Yazı Tipi

Artı kodda hata var numara (rakam) yazdıgın zaman tek bir hane gıdıyor dıger rakamlar gıtmıyor :)

Birde ikileme yapınca tek olarak yolluyor ornegın Alla alla yazıyosun Alla olarak gıdıyor

нαℓιℓ

09 Haziran 2008 23:45

Cevap: Yazı Tipi

1. o kod bana ait değil
2. ben sadece +c modu olan kanallarda işlev yapması için ayarladım, ki arkadaşta sanırım o tür bir kodlama istiyordu
3. benim kodum burada..

Kod:

on 1:input:*:{ 

  if ($chr(47) == $mid($1-,1,1)) || ($inpaste) || ($ctrlenter) || ($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- } 

  elseif ($regex($remove($chan($active).mode,+),/(c))) { say $strip(%b) }

  else { say %b }

  halt 

  :end

}

Impulsiv

21 Haziran 2008 21:19

Cevap: Yazı Tipi

Peki arkadaşlar, Rakamlar çıkmıyor kanalda bu sorunu nasıl halledebiliriz?

Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 17:41.