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

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 26 Mart 2009, 19:33   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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>
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 ?


Konu Juventus tarafından (26 Mart 2009 Saat 19:44 ) değiştirilmiştir.
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 26 Mart 2009, 20:13   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Duzenlermisiniz???




Yokmu Cevap :S

 
Alıntı ile Cevapla

Alt 26 Mart 2009, 20:18   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Duzenlermisiniz???




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

 
Alıntı ile Cevapla

Alt 26 Mart 2009, 20:21   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Duzenlermisiniz???




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

 
Alıntı ile Cevapla

Alt 26 Mart 2009, 20:24   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Duzenlermisiniz???




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

 
Alıntı ile Cevapla

Alt 26 Mart 2009, 20:34   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Duzenlermisiniz???




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

Bu sekilde..

 
Alıntı ile Cevapla

Alt 26 Mart 2009, 20:38   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Duzenlermisiniz???




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

__________________
...yoruldum patron! "
 
Alıntı ile Cevapla

Alt 26 Mart 2009, 20:40   #8
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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

 
Alıntı ile Cevapla

Alt 26 Mart 2009, 20:48   #9
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Duzenlermisiniz???




Yaptım Arkadaslar saolun baska bir stil eklenmis .S

 
Alıntı ile Cevapla

Alt 26 Mart 2009, 20:50   #10
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Duzenlermisiniz???




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

 
Alıntı ile Cevapla

Cevapla

Etiketler
duzenlermisiniz, mirc, mirc download, mirc indir


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık