Çevrimdışı

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>
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

[19:27:33] <Dj-SewimLy`Boy>
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Gibi....
duzenleyebilirmisiniz ?

 

Çevrimdışı

Yokmu Cevap :S

 

Çevrimdışı

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

 

Çevrimdışı

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

 

Çevrimdışı

ustteki kodu değiştirdim mebu yazmısım yanlıslıkla
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
menu kelimesini remoteye ekle ikikere gitmemesi icin yazmısım bıraz acıklarmısın ikikeremi gidiyor yazdıgın yazı kanala

 

Çevrimdışı

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

Bu sekilde..

 

Çevrimdışı

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

__________________
...yoruldum patron! "

 

Çevrimdışı

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

 

Çevrimdışı

Yaptım Arkadaslar saolun baska bir stil eklenmis .S

 

Çevrimdışı

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