Moderatör Olmak İçin Tıklayın Editör Olmak İçin Tıklayın Forum Kuralları IF Görüntülü Röportajlar IF Helper Grubu
⚠️ Güvenlik nedeniyle tüm kullanıcı şifreleri sıfırlanmıştır. Lütfen buraya tıklayarak yeni şifre talep ediniz.
IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  sohbet odaları

>
+
 Kayıt ol
Etiketlenen Kullanıcılar

 
 
LinkBack Seçenekler Stil
Prev önceki Mesaj   sonraki Mesaj Next
Alt 21 Ekim 2006, 23:46   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Yazı Bicimi Addonu Daha.



Gene Resimde Gorundugu Gibi Kullanami Cok Kolay Bir Yazi Addonu. Yapmaniz Gereken Tek Sek Sey kodu RemoteNize ALT+R Yapip Koymak ve /Yazim Yazmak.


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


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 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 %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 "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 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* }
  }
}
alias Yazim { dialog -m Yazim Yazim }
alias acolor { dialog -m acolor acolor }
dialog acolor {
  title "Renkli yazı"
  size -1 -1 169 109
  box "Renk", 1, 6 5 80 69
  text "Renkno:", 2, 16 27 22 13
  edit "", 3, 51 20 25 22, center multi return
  text "Arka:", 4, 16 50 29 13
  edit "", 5, 51 43 25 22, center multi return
  box "Diğer", 6, 84 5 79 69
  check "Kalın", 7, 94 27 43 13
  check "Çizgili", 8, 94 49 61 13
  button "Önizleme", 9, 21 82 55 20
  button "Tamam", 10, 93 82 55 20, ok
  box "", 11, -1 -6 171 116
}
on *:dialog:acolor:*:*: {
  if $devent = init { 
    did -a $dname 3 %ac.text
    did -a $dname 5 %ac.back
    if (%ac.bold == on) { did -c $dname 7 }
    if (%ac.underline == on) { did -c $dname 8 }
  }
  if $devent = edit {
    if $did = 3 { set %ac.text $did(3).text }
    if $did = 5 { set %ac.back $did(5).text }
  }
  if $devent = sclick {
    if $did = 7 {
      if ($did(7).state = 1) { set %ac.bold on | set %ac.bold2  } 
      if ($did(7).state = 0) { set %ac.bold off | set %ac.bold2 } 
    }
    if $did = 8 {
      if ($did(8).state = 1) { set %ac.underline on | set %ac.underline2  } 
      if ($did(8).state = 0) { set %ac.underline off | set %ac.underline2 } 
    }
    if $did = 9 { echo -a  $+ %ac.text $+ , $+ %ac.back $+ %ac.bold2 $+ %ac.underline2 $+ Yazdığınız böyle görünecek.! }
  }
}
#acolor off
on *:input:*:if (/* !iswm $1) && (*: !iswm $1) { say  $+ %ac.text $+ , $+ %ac.back $+ %ac.bold2 $+ %ac.underline2 $+ $1- | halt }
#acolor end

Umarim Isinize Yarar.

 
Alıntı ile Cevapla

 

Etiketler
addonu, bicimi, daha, mirc, mirc download, mirc indir, yazi, yazı

« önceki Konu | sonraki Konu »

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

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

Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
İnce yazı addonu HK. dre mIRC Scripting Sorunları 5 01 Aralık 2021 18:51
Yazı addonu dre mIRC Scripting Sorunları 6 07 Kasım 2021 14:28
Yazı addonu HK. dre mIRC Scripting Hazır Kodlar 1 27 Haziran 2021 02:42
Yazı Addonu UnLoveLy mIRC Scripting Sorunları 4 14 Ekim 2009 03:34
yazı addonu Serhatt mIRC Scripting Sorunları 3 17 Ağustos 2006 20:22




Sitemiz bir " paylaşım " sitesidir. Bu yüzden sitemize kayıt olan herkes kontrol edilmeksizin mesaj/konu/resim paylaşabilmektedir.
Bu sebepten ötürü, sitemiz üzerinden paylaşılan mesajlar, konular ve resimlerden doğabilecek olan yasal sorumluluklar paylaşan kullanıcıya aittir. IRCForumlari.Net hiçbir yasal sorumluluk kabul etmemektedir. İllegal herhangi bir faaliyet görülmesi durumunda İletişim sayfası üzerinden ulaşıldığı taktirde mesaj, konu ya da resim en fazla 24 saat içerisinde silinecektir.
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.
İletişim Arşiv Gizlilik Sözleşmesi Yukarı git
trsikayet.com ferizli haber kaynarca haber yavru köpek sohbet instagram takipçi sohbet teması Sesli Sohbet
Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk