IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
Sayfa 1 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)
-   -   Yazı Bicimi Addonu Daha. (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/26449-yazi-bicimi-addonu-daha.html)

Amado 21 Ekim 2006 23:46
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.

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Kod:
#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.

IceR 26 Mart 2007 11:09
Cevap: Yazı Bicimi Addonu Daha.
 
Eline saglık kardeş

Hatay_Nitro_TeaM 16 Nisan 2007 18:34
Cevap: Yazı Bicimi Addonu Daha.
 
eline sağllık

esrarlitolga 05 Mayıs 2007 10:03
Cevap: Yazı Bicimi Addonu Daha.
 
Teşekkürler Güzel Paylaşım...

CocaiNe_ 09 Temmuz 2007 09:13
Cevap: Yazı Bicimi Addonu Daha.
 
arkadaşlar çok güzel elinize saglık ama bide şöyle bişe olsa(mircimde bi kaç input var(renkli yazı) o yüzden bi kaç satır tekrarlama yapıo yazılarım hem bunu ekleiip hemde o inputları silmeden bu tekrarlamaların önlenmesi mümkün olan bi sey yapılamaz mı)ne güsel olurdu ya:P

CesuryureK 11 Temmuz 2007 00:57
Cevap: Yazı Bicimi Addonu Daha.
 
Arkadaşlar Forumda Önceden Olan Şeyleri Veriyorsunuz Lütfen ßiraz Daha Araştırmacı ve Dikkatli Olalım.Yok Hayır Forumda Öyle ßişi Yok Diyenlere
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
-
İyi Çalışmalar.

el33t 11 Temmuz 2007 20:14
Cevap: Yazı Bicimi Addonu Daha.
 
Senin gösterdiğin adresteki konunun tarihi 8 Mart 2007, bu konunun tarihi ise 21 Ekim 2006. Bu demek oluyor ki bu konu daha eski ve sen arama yapmadan konu açmışsın, yani hata tamamen sende, heh.

CesuryureK 12 Temmuz 2007 05:16
Cevap: Yazı Bicimi Addonu Daha.
 
Evet Doğrudur Ama 2006'da Açılmış ßir Konu Hazır Kodlar ßölümünün İlk Sıralarında Yer Alıyor Tamamen Sorun ßundan Kaynaklanıyor.
-
Neyse Adı Geçen Kişilerden Özür Diliyorum
-
İyi Çalışmalar..

SeRKaNTeaM 29 Kasım 2008 15:40
Cevap: Yazı Bicimi Addonu Daha.
 
Evet ßaya qüzeLmi$ ;)

xfactor 30 Kasım 2008 19:26
Cevap: Yazı Bicimi Addonu Daha.
 
Tesekkürler.


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 06:39.
Sayfa 1 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

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