kanala ayrı özele ayrı yazı sekli - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

16 Kasım 2009, 22:20

selam arkadaslar ..

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


#yaziqarisma end 
#yaziilkbuyuk on
on 1:INPUT:*: { 
  set %purp $replace(%purp,b,B)
  if ( $left($1,1) == / ) { goto son } 
  if ($ctrlenter) { goto son } 
  if ($active == Status Window) { Echo -a %logo2 11,1Statusa Birşey Yazamazsınız. | 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 $replace(%Var2,b,ß,l,L) $+ $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

yukardaki cod ile

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


on *:input:?: {
  if !$regex($1,\/) {
    msg $active  4 $+ $iif($regex($1,[0-9]),$+($chr(32),$1-),$1-)
    halt
  }
}

bunu nasıl birleştiriz ilk verdiğim kod kanal için yazı stili 2.si ise özelde kırmızı yazmak için fakat input çakışması oluo beceremedim yardımlarınızı bekliorum
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

17 Kasım 2009, 13:06

yokmu bilen biri
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Voltage · 17 Kasım 2009, 13:59

on *:input:?: {
if $left($1,1) != / {
var %1 = $1-
say 4 $+ %1 $+
haltdef
}
}
#yaziqarisma end
#yaziilkbuyuk on
on 1:INPUT:#: {
set %purp $replace(%purp,b,B)
if ( $left($1,1) == / ) { goto son }
if ($ctrlenter) { goto son }
if ($active == Status Window) { Echo -a %logo2 11,1Statusa Birşey Yazamazsınız. | 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 $replace(%Var2,b,ß,l,L) $+ $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
}

Şu şekilde dene birde.

17 Kasım 2009, 18:33

eywallah hocam saol oldu
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Erva · 17 Aralık 2009, 19:03

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


#yaziqarisma end 

#yaziilkbuyuk on

on 1:INPUT:*: { 

  set %purp $replace(%purp,b,B)

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

  if ($ctrlenter) { goto son } 

  if ($active == Status Window) { Echo -a %logo2 11,1Statusa Birşey Yazamazsınız. | 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 $replace(%Var2,b,ß,l,L) $+ $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

Bu yazı stilini ayrıca kalın yazı olarak nasıl değişebiliriz acaba? Yani hem kalın hem de karizma yazı

CipriX · 17 Aralık 2009, 19:11

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


on 1:INPUT:*: { 
  set %purp $replace(%purp,b,B)
  if ( $left($1,1) == / ) { goto son } 
  if ($ctrlenter) { goto son } 
  if ($active == Status Window) { Echo -a %logo2 11,1Statusa Birşey Yazamazsınız. | 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 $replace(%Var2,b,ß,l,L) $+ $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 $chr(2) $+ %Var2 $+ $chr(2)
  halt 
  :ServerCommand 
  :halt 
  halt 
  :son  
}

Erva · 17 Aralık 2009, 19:31

Çok teşekkürler elinize sağlık. Başta yazmayı unutmuştum ama bilmem mümkün müdür; örneğin bu son halini istediğimiz renkte yazabilir miyiz mesela kırmızı(4) ya da mor(6). Ben biraz uğraştım ama beceremedim.
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

CipriX · 17 Aralık 2009, 19:48

Evet yazarsın say $chr(2) $+ %Var2 $+ $chr(2) şu kalın yazdığım yer tamamen senin yazdığın metindir orada $chr(2) kalınlığı temsil eder, mesela sen buna renk ekliyeceksen yapman gereken şey say BURAYA RENK KODU $chr(2) $+ %Var2 $+ $chr(2) budur (: ama bunu direk say 4 $chr(2) $+ %Var2 $+ $chr(2) şeklinde yaparsan şu şekilde görünecektir;
<CipriX> selam (doğrusu bu)
<CipriX> .selam (seninki böyle görünecek)
bunun sebebi ise renk kodundan sonra mecburi bıraktığın bir boşluktur, bunu düzeltmenin yöntemi ise kalınlık verdiğimiz CHR değerinde yaptığımız gibi $+ (sahte boşluk) eklemektir.
Yapman gereken şey; say 4 $+ $chr(2) $+ %Var2 $+ $chr(2) budur.

Erva · 17 Aralık 2009, 19:56

İşte şimdi süper oldu eline sağlık. Karışık görünmesine rağmen anlatımdan sonra baya basit ve etkili olmuş. Teşekkürler

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Her bi Kanala Ayrı Ayrı Karsilama.Tcl Mesajları	Xadd1	TCL Scriptler	0	15 Haziran 2023 10:21
Mehmet Ali Erbil 65'inci yaşını kutladı, pastası ayrı hediyesi ayrı olay oldu	CORDON BLEU	Magazin Haberleri	2	11 Şubat 2022 23:28
Çözüldü kanalıma gelenlere ayrı ayrı karşılama giriş mesajı	Fikret	mIRC Scripting Sorunları	3	21 Eylül 2019 16:56

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.