IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Tekil Mesaj gösterimi

RapStar · 27 Mart 2009, 02:58

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

#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,ı,I)
  set %kelime $replace(%kelime,ğ,g)
  set %kelime $replace(%kelime,l,L)
  set %kelime $replace(%kelime,b,ß)
  set %kelime $replace(%kelime,ı,I)
  set %kelime $replace(%kelime,ş,$)
  set %kelime $replace(%kelime,Ş,$)
  set %kelime $replace(%kelime,j,J)
  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,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
}
#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 %kelime $replace(%kelime,>,»)
  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 182
  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 "Qa®i§ma",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 160 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 12Yazı Stili "4Tûrk¢e12" Açıldı! }
    if ( $did == 2 ) { .disable #yazi* | .enable #yazielite | echo 12Yazı Stili "4eLite12" Açıldı! }
    if ( $did == 3 ) { .disable #yazi* | .enable #yaziilkbuyuk | echo 12Yazı Stili "4İlk Harf Büyük12" Açıldı! }
    if ( $did == 7 ) { .disable #yazi* | .enable #yazikalinince | echo  12Yazı Stili "4KaLın-İnCe12" Açıldı! }
    if ( $did == 5 ) { .disable #yazi* | .enable #yaziqarisma | echo 12Yazı Stili "4Qa®i§ma12" Açıldı! }
    if ( $did == 6 ) { .disable #yazi* | .enable #yazirenkli | echo 12Yazı Stili "4R8e7n14G0a12r9e6N3k12" Açıldı! }
    if ( $did == 19) { .disable #yazi* }
  }
}
alias Yazim { dialog -m Yazim Yazim }
 
menu ,status,channel { 
  - 
  Yazı Tipi:/Yazim
  .-
}

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..