Duzenlermisiniz???
 

Selam Arkadaslar Aradıgım Seyi Buldum Diyebilirim...
Yalnız Son Bir Sey war..


#yaziturkce off
on 1:INPUT:*:{
if ( $left($1,1) == / ) { goto son }
if ($ctrlenter) { goto son }
if ($active == Status Window) { Echo -a %logo2 11,1Status'a Birşey Yazamazsınız. | goto halt }
if ($active == @Bot) { goto halt }
unset %turkce
set %turkce $1-
if ( $chr(47) == $mid(%turkce,1,1) ) { %turkce | unset %turkce* | halt }
%turkce = $replacecs(%turkce,ı,I,İ,Î,ş,$,Ş,$,ç,¢,Ç,¢,ğ,g,Ğ,Ğ ,ü,û,Ü,Û,ö,ô,Ö,Ô)
say %turkce
unset %turkce
halt
:halt
halt
:son
}
#yaziturkce end
#yazikalinince off
on 1:input:*:{
if ( $left($1,1) == / ) { goto son }
if ($ctrlenter) { goto son }
if ($active == Status Window) { Echo -a %logo2 11,1Status'a Birşey Yazamazsınız. | goto halt }
if ($active == @Bot) { goto halt }
set %kelime $1-
if ( $left($1,1) == . ) { goto bit }
set %kelime $replace(%kelime,ı,I)
set %kelime $replace(%kelime,ğ,g)
set %kelime $replace(%kelime,l,L)
set %kelime $replace(%kelime,b,ß)
set %kelime $replace(%kelime,Ş,$)
set %kelime $replace(%kelime,j,J)
set %kelime $replace(%kelime,o,ø)
set %kelime $replace(%kelime,t,†)
set %kelime $replace(%kelime,ç,¢)
set %kelime $replace(%kelime,:,¦)
set %kelime $replace(%kelime,Ç,¢)
set %kelime $replace(%kelime,ç,¢)
set %kelime $replace(%kelime,ü,û)
set %kelime $replace(%kelime,Ü,Û)
set %kelime $replace(%kelime,ö,ô)
set %kelime $replace(%kelime,Ö,Ô)
set %kelime $replace(%kelime,?,¿)
set %kelime $replace(%kelime,x,×)
set %kelime $replace(%kelime,slm,SeLam)
set %kelime $replace(%kelime,nbr,naßer¿)
set %kelime $replace(%kelime,s.a,seLamun aLeyKüm.)
set %kelime $replace(%kelime,a.s,aLeyKüm SeLam.)
set %kelime $replace(%kelime,allah,Allah)
set %kelime $replace(%kelime,Yazgulu,YazguLu)
:bit
say %kelime
unset %kelime
:halt
halt
:son
}
#yazikalinince end
#yazielite off
on 1:input:*:{
if ( $left($1,1) == / ) { goto son }
if ($ctrlenter) { goto son }
if ($active == Status Window) { Echo -a %logo2 11,1Status'a Birşey Yazamazsınız. | goto halt }
if ($active == @Bot) { goto halt }
set %kelime $1-
if ( $left($1,1) == . ) { goto bit }
set %kelime $replace(%kelime,a,a)
set %kelime $replace(%kelime,b,ß)
set %kelime $replace(%kelime,ehu,• heuehuehuehe •)
set %kelime $replace(%kelime,hehe,• heheheheheh •)
set %kelime $replace(%kelime,c,C)
set %kelime $replace(%kelime,ç,¢)
set %kelime $replace(%kelime,e,ë)
set %kelime $replace(%kelime,ğ,g)
set %kelime $replace(%kelime,ı,ı)
set %kelime $replace(%kelime,i,î)
set %kelime $replace(%kelime,f,ƒ)
set %kelime $replace(%kelime,a.e.o,aLLah'a Emanet OL..)
set %kelime $replace(%kelime,eyw,EyvaLLah..)
set %kelime $replace(%kelime,kib,Kendine iyi Bak..)
set %kelime $replace(%kelime,h.g,Hoş Geldin)
set %kelime $replace(%kelime,hq,Hoş Geldin)
set %kelime $replace(%kelime,h.b,HoŞ ßuLduk)
set %kelime $replace(%kelime,:P,:PpPpP)
set %kelime $replace(%kelime,:PP,:PpPpPpP)
set %kelime $replace(%kelime,j,J)
set %kelime $replace(%kelime,a.q,**)
set %kelime $replace(%kelime,k,K)
set %kelime $replace(%kelime,l,L)
set %kelime $replace(%kelime,u,u)
set %kelime $replace(%kelime,s,s)
set %kelime $replace(%kelime,n,n)
set %kelime $replace(%kelime,ş,$)
set %kelime $replace(%kelime,Ş,$)
set %kelime $replace(%kelime,ü,û)
set %kelime $replace(%kelime,Ü,Û)
set %kelime $replace(%kelime,ö,ô)
set %kelime $replace(%kelime,Ö,Ô)
set %kelime $replace(%kelime,:,¦)
set %kelime $replace(%kelime,?,¿)
set %kelime $replace(%kelime,slm,SeLamun ALeykum)
set %kelime $replace(%kelime,nbr,Naber Nasilsin¿)
set %kelime $replace(%kelime,s.a,seLamun aLeyKüm.)
set %kelime $replace(%kelime,a.s,aLeyKüm SeLam.)
set %kelime $replace(%kelime,allah,Allah)
set %kelime $replace(%kelime,Yazgulu,YazguLu)
:bit
say %kelime
unset %kelime
:halt
halt
:son
}
#yazielite end
#yaziqarisma off
on 1:input:*:{
if ( $left($1,1) == / ) { goto son }
if ($ctrlenter) { goto son }
if ($active == Status Window) { Echo -a %logo2 11,1Status'a Birşey Yazamazsınız. | goto halt }
if ($active == @Bot) { goto halt }
set %kelime $1-
if ( $left($1,1) == . ) { goto bit }
set %kelime $replace(%kelime,o-,º)
set %kelime $replace(%kelime,k,]{)
set %kelime $replace(%kelime,1/4,¼)
set %kelime $replace(%kelime,1/2,½)
set %kelime $replace(%kelime,/,÷)
set %kelime $replace(%kelime,0,ø)
set %kelime $replace(%kelime,1,¹)
set %kelime $replace(%kelime,2,²)
set %kelime $replace(%kelime,3,³)
set %kelime $replace(%kelime,ae,Æ)
set %kelime $replace(%kelime,a,å)
set %kelime $replace(%kelime,b,ß)
set %kelime $replace(%kelime,c,©)
set %kelime $replace(%kelime,e,ë)
set %kelime $replace(%kelime,i,î)
set %kelime $replace(%kelime,l,£)
set %kelime $replace(%kelime,n,ñ)
set %kelime $replace(%kelime,o,ø)
set %kelime $replace(%kelime,r,®)
set %kelime $replace(%kelime,s,§)
set %kelime $replace(%kelime,u,µ)
set %kelime $replace(%kelime,x,×)
set %kelime $replace(%kelime,y,¥)
set %kelime $replace(%kelime,!,¡)
set %kelime $replace(%kelime,?,¿)
set %kelime $replace(%kelime,<set>,»)
set %kelime $replace(%kelime,-,¬)
set %kelime $replace(%kelime,:,¦)
set %kelime $replace(%kelime,slm,SeLam)
set %kelime $replace(%kelime,nbr,naßer¿)
set %kelime $replace(%kelime,s.a,seLamun aLeyKüm.)
set %kelime $replace(%kelime,a.s,aLeyKüm SeLam.)
set %kelime $replace(%kelime,allah,Allah)
set %kelime $replace(%kelime,Yazgulu,YazguLu)
:bit
say %kelime
unset %kelime
:halt
halt
:son
}
#yaziqarisma end
#yaziilkbuyuk on
on 1:INPUT:*: {
if ( $left($1,1) == / ) { goto son }
if ($ctrlenter) { goto son }
if ($active == Status Window) { Echo -a %logo2 11,1Status'a 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 %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
#yazirenkli off
on 1:INPUT:*:{
if ( $left($1,1) == / ) { goto son }
if ($ctrlenter) { goto son }
if ($active == Status Window) { Echo -a %logo2 11,1Status'a Birşey Yazamazsınız. | goto halt }
if ($active == @Bot) { goto halt }
unset %ahenk*
if ( $chr(47) == $mid($1-,1,1) ) { $1- | unset %ahenk* | halt }
:ilk
inc %ahenks
if ( %ahenks > $len($1-) ) { say %ahenkt | unset %ahenk* | halt }
%ahenkh = $mid($1-,%ahenks,1)
%ahenkh = $replace(%ahenkh,$chr(32),$chr(0160))
%ahenkt = %ahenkt $+  $+ $rand(3,13) $+ %ahenkh
goto ilk
:halt
halt
:son
}
#yazirenkli end
dialog Yazim {
title "Yazıtipi"
size -1 -1 110 220
radio "Tûrk¢e",1,10 10 90 20
radio "eLite",2,10 30 90 20
radio "Ilk Harf Büyük",3,10 50 90 20
radio "KaLın-İnce",7,10 70 90 20
radio "karizma",5,10 90 90 20
radio "Rengarenk",6,10 110 90 20
radio "Normal",19,10 130 90 20
box "",20,5 0 100 155
button "TAMAM",21,5 195 100 20,ok
}
on 1:dialog:Yazim:*:*: {
if ( $devent == init ) {
if ($group(#yaziturkce).status == on ) { did -c Yazim 1 }
elseif ($group(#yazielite).status == on ) { did -c Yazim 2 }
elseif ($group(#yaziilkbuyuk).status == on ) { did -c Yazim 3 }
elseif ($group(#yazikalinince).status == on ) { did -c Yazim 7 }
elseif ($group(#yazirenkli).status == on ) { did -c Yazim 6 }
elseif ($group(#yaziqarisma).status == on ) { did -c Yazim 5 }
else { did -c Yazim 19 }
}
if ( $devent == sclick ) {
if ( $did == 1 ) { .disable #yazi* | .enable #yaziturkce | echo %logo2 11Yazı Stili "4Tûrk¢e11" Açıldı! }
if ( $did == 2 ) { .disable #yazi* | .enable #yazielite | echo %logo2 11Yazı Stili "4eLite11" Açıldı! }
if ( $did == 3 ) { .disable #yazi* | .enable #yaziilkbuyuk | echo %logo2 11Yazı Stili "4İlk Harf Büyük11" Açıldı! }
if ( $did == 7 ) { .disable #yazi* | .enable #yazikalinince | echo %logo2 11Yazı Stili "4KaLın-İnCe11" Açıldı! }
if ( $did == 5 ) { .disable #yazi* | .enable #yaziqarisma | echo %logo2 11Yazı Stili "4Qa®i§ma11" Açıldı! }
if ( $did == 6 ) { .disable #yazi* | .enable #yazirenkli | echo %logo2 11Yazı Stili "4R8e7n14G0a12r9e6N3k11" Açıldı! }
if ( $did == 19) { .disable #yazi* }
}
}



Bu Kodda yazı stilini /yazim yazarak seciyorum ßen buton halinde secmek istiyorum , ve yazdıgım yazı 2 kere gidiyor kanala ;
[19:27:33] <Dj-SewimLy`Boy> :)
[19:27:33] <Dj-SewimLy`Boy> :)
Gibi....
duzenleyebilirmisiniz ?

Cevap: Duzenlermisiniz???
 

Yokmu Cevap :S

Cevap: Duzenlermisiniz???
 

menu * {
Yazı:/yazim
}
bu görür işini sanıırm

Cevap: Duzenlermisiniz???
 

Tam Haliyle Verir misin Murat Komutu Kardes ?
2 kere gitmemesini icin neresini duzeltmek gerekior

Cevap: Duzenlermisiniz???
 

ustteki kodu değiştirdim mebu yazmısım yanlıslıkla :D menu kelimesini remoteye ekle ikikere gitmemesi icin yazmısım bıraz acıklarmısın ikikeremi gidiyor yazdıgın yazı kanala

Cevap: Duzenlermisiniz???
 

Yani ;
Selam yazıyorum ornegin
2 kere gonderiyor kanala
Kalpsizdj : selam
Kalpsizdj : selam

Bu sekilde..

Cevap: Duzenlermisiniz???
 

Yazı Düzeninin NormaL de oldugunu kontrol Et. Daha onceden Eger ßir Yazı kodu Varsa Onu Kaldır.

Cevap: Duzenlermisiniz???
 

bu input sorunu pek cokyerde karşılaştığımız birşey
input eventlerinin catışması sonucu oluyor bu

mircinde remote bolumunde input diye arat baska yazı sitili varsa ondanda yapar mircinde inputların sonunda | halt olması lazım eger yoksa catışma olur onları gözden gecir

Cevap: Duzenlermisiniz???
 

Yaptım Arkadaslar saolun baska bir stil eklenmis .S

Cevap: Duzenlermisiniz???
 

ßirde DeLiGeNnc ve Muratt arkadaslar ßunu /yazim yazarak deilde buton'dan secerek yapmak istersem nasıl duzenlerim ?

Cevap: Duzenlermisiniz???
 

Arkadaşım kod da kusur yok başka bir input eventinle çakışıyor.

/yazim değilde calışması
dialog -m Yazim Yazim ŞEKLİNDE calıstı

Bukodu remotene koy kanalda özelde nerde sag tıkladıgında göreceksin
menu * {
Yazı:/dialog -m yazim Yazim
}

Cevap: Duzenlermisiniz???
 

Kendi Verdiğin Kodu Sil Bunu Yerine Yapıştır. Aynı İşi Görecektir. Yine İki Sefer Çıkarsa İnputlar Çakışıyordur. O Zaman Farklı Bir Yol Deneyeceğiz. Benimde Daha Önce Başıma Gelmişti İnput Çakışması Çıktı.

Bunu Eklediğin Zaman Kanal da Yada Statüs te sağ tıklayınca yazı tipi diye bir yerin ekleneceğini göreceksin. oradan yazı tipini seçebilirsin..

Cevap: Duzenlermisiniz???
 

menu status,menubar,channel {
-
Yazı Stil Penceresi
.Aç: /yazim
-
}


Bu kısmı İnput dosyanı açarak en son kısmına yapıştır.. bütün menülerden kontrol edebilirsin..