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

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/)
-   -   Çeşitli yazı şekilleri addonu (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/8424-cesitli-yazi-sekilleri-addonu.html)

Utku 28 Kasım 2005 18:19
Çeşitli yazı şekilleri addonu
 
Kod:
alias yati {
  if $dialog(yazitip) = $null { dialog -m yazitip yazitip }
  else { halt }
}
 
dialog yazitip {
  title "Yazıtipi"
  size 250 150 110 170
  radio "Elit",1,10 10 90 20
  radio "Full Ascii",2,10 30 90 20
  radio "Ters",3,10 50 90 20
  radio "Büyük-Küçük",4,10 70 90 20
  radio "Renkli",5,10 90 90 20
  radio "Normal",19,10 110 90 20
  box "",20,5 0 100 135
  button "Tamam",21,5 145 100 20,ok
}
on 1:dialog:yazitip:sclick:1:{  .disable #ters | .disable #elit | .enable #turkce | .disable #buykuc | .disable #renkli }
on 1:dialog:yazitip:sclick:2:{ .disable #ters | .enable #elit | .disable #turkce | .disable #buykuc | .disable #renkli }
on 1:dialog:yazitip:sclick:3:{ .enable #ters | .disable #elit | .disable #turkce | .disable #buykuc | .disable #renkli }
on 1:dialog:yazitip:sclick:4:{ .disable #ters | .disable #elit | .disable #turkce | .enable #buykuc | .disable #renkli }
on 1:dialog:yazitip:sclick:5:{ .enable #renkli | .disable #ters | .disable #elit | .disable #turkce | .disable #buykuc }
on 1:dialog:yazitip:sclick:19:{ .disable #renkli | .disable #ters | .disable #elit | .disable #turkce | .disable #buykuc }
on 1:dialog:yazitip:init:0:{
  if ($group(#turkce).status == on ) { did -c yazitip 1 }
  if ($group(#elit).status == on ) { did -c yazitip 2 }
  if ($group(#ters).status == on ) { did -c yazitip 3 }
  if ($group(#buykuc).status == on ) { did -c yazitip 4 }
  if ($group(#renkli).status == on ) { did -c yazitip 5 }
  if ($group(#turkce).status == off ) && ($group(#elit).status == off ) && ($group(#ters).status == off ) && ($group(#buykuc).status == off ) && ($group(#renkli).status == off ) { did -c yazitip 19 }
}
#renkli off
on 1:INPUT:*:{
  unset %ahenk* 
  set %ahenkk $1-
  if ( $chr(47) == $mid(%ahenkk,1,1) ) { %ahenkk | halt }
  set %ahenku $len(%ahenkk)
  set %ahenks 1
  :ilk
  if ( %ahenks > %ahenku ) goto son
  set %ahenkh $mid(%ahenkk,%ahenks,1)
  if ( %ahenkh == $chr(32) ) {
    %ahenkh = $replace(%ahenkh,$chr(32),$chr(0160))
  }
  %ahenkt = %ahenkt $+  $+ $rand(3,13) $+ %ahenkh
  inc %ahenks
  goto ilk
  :son
  say %ahenkt
  unset %ahenk*
  halt
}
#renkli end
#turkce off
on 1:INPUT:*:{ 
  unset %turkce
  set %turkce $1-
  if ( $chr(47) == $mid(%turkce,1,1) ) { %turkce | halt }
  %turkce = $replace(%turkce,ı,I)
  %turkce = $replace(%turkce,İ,I) 
  %turkce = $replace(%turkce,ş,$)
  %turkce = $replace(%turkce,Ş,$)
  %turkce = $replace(%turkce,ç,c)
  %turkce = $replace(%turkce,Ç,c)
  %turkce = $replace(%turkce,ğ,G)
  %turkce = $replace(%turkce,Ğ,G)
  %turkce = $replace(%turkce,ü,u)
  %turkce = $replace(%turkce,Ü,U) 
  %turkce = $replace(%turkce,b,ß)
  %turkce = $replace(%turkce,B,ß)
  %turkce = $replace(%turkce,<,&#171;)
  %turkce = $replace(%turkce,>,&#187;)
  say %turkce
  unset %turkce 
  halt
}
#turkce end
#elit off
on 1:INPUT:*:{
  unset %elit 
  set %elit $1-
  if ( $chr(47) == $mid(%elit,1,1) ) { %elit | halt }
  %elit = $replace(%elit,a,&#229;)
  %elit = $replace(%elit,b,&#223;)
  %elit = $replace(%elit,c,&#169;)
  %elit = $replace(%elit,d,D)
  %elit = $replace(%elit,e,&#235;)
  %elit = $replace(%elit,f,F)
  %elit = $replace(%elit,h,]-[)
  %elit = $replace(%elit,i,&#238;)
  %elit = $replace(%elit,k,|{)
  %elit = $replace(%elit,l,&#163;)
  %elit = $replace(%elit,m,M)
  %elit = $replace(%elit,n,&#241;)
  %elit = $replace(%elit,o,&#248;) 
  %elit = $replace(%elit,p,P)
  %elit = $replace(%elit,q,&#182;)
  %elit = $replace(%elit,r,&#174;)
  %elit = $replace(%elit,s,&#167;)
  %elit = $replace(%elit,t,&#177;)
  %elit = $replace(%elit,u,&#181;)
  %elit = $replace(%elit,v,V)
  %elit = $replace(%elit,w,\\')
  %elit = $replace(%elit,x,&#215;)
  %elit = $replace(%elit,y,&#165;)
  %elit = $replace(%elit,z,Z)
  %elit = $replace(%elit,ı,I)
  %elit = $replace(%elit,İ,&#206;) 
  %elit = $replace(%elit,ş,$)
  %elit = $replace(%elit,Ş,$)
  %elit = $replace(%elit,&#231;,&#162;)
  %elit = $replace(%elit,&#199;,&#162;)
  %elit = $replace(%elit,ğ,g)
  %elit = $replace(%elit,Ğ,Ğ)
  %elit = $replace(%elit,&#252;,&#251;)
  %elit = $replace(%elit,&#220;,&#219;) 
  %elit = $replace(%elit,&#246;,&#244;)
  %elit = $replace(%elit,&#214;,&#212;)
  %elit = $replace(%elit,!,&#161;)
  %elit = $replace(%elit,?,&#191;)
  %elit = $replace(%elit,<,[)
  %elit = $replace(%elit,>,&#187;)
  %elit = $replace(%elit,-,&#172;)
  %elit = $replace(%elit,:,&#166;)
  %elit = $replace(%elit,',`)
  %elit = $replace(%elit,`,')
  say %elit
  unset %elit 
  halt
}
#elit end
#ters off
on 1:INPUT:*:{
  unset %ters*
  set %tersd $1-
  if ( $chr(47) == $mid(%tersd,1,1) ) { %tersd | halt }
  set %tersu $len(%tersd)
  set %terss 1
  :ilk
  if ( %tersu == 0 ) goto son
  if ( $mid(%tersd,%tersu,1) == $chr(32) ) {
    %tersd = $replace(%tersd,$mid(%tersd,%tersu,1),$chr(0160))
  }
  %terst = $instok(%terst,$mid(%tersd,%tersu,1),%terss,0)
  dec %tersu
  inc %terss
  goto ilk
  :son
  say %terst
  unset %ters*
  halt
}
#ters end
#buykuc off
on 1:INPUT:*:{
  unset %buy* 
  set %buyk $1-
  if ( $chr(47) == $mid(%buyk,1,1) ) { %buyk | halt }
  set %buys 1
  set %buyu $len(%buyk)
  :ilk
  if ( %buys > %buyu ) goto son
  set %buyh $mid(%buyk,%buys,1) 
  if ( %buyh == $chr(32) ) {
    %buyh = $replace(%buyh,$chr(32),$chr(0160))
  }
  %buyh = $replacecs(%buyh,q,Q,w,W,e,E,r,R,t,T,y,Y,u,U,ı,I,o,O,p,P,ğ,Ğ,&#252;,&#220;,a,A,s,S,d,D,f,F,g,G,h,H,j,J,k,K,l,L,ş,Ş,i,İ,z,Z,x,X,c,C,v,V,b,B,n,N,m,M,&#246;,&#214;,&#231;,&#199;)
  set %buyb %buyb $+ %buyh 
  inc %buys
  if ( %buys > %buyu ) goto son
  set %buyh $mid(%buyk,%buys,1)   
  if ( %buyh == $chr(32) ) {
    %buyh = $replace(%buyh,$chr(32),$chr(0160))
  }
  %buyh = $replacecs(%buyh,Q,q,W,w,E,e,R,r,T,t,Y,y,U,u,I,ı,O,o,P,p,Ğ,ğ,&#220;,&#252;,A,a,S,s,D,d,F,f,G,g,H,h,J,j,K,k,L,l,Ş,ş,İ,i,Z,z,X,x,C,c,V,v,B,b,N,n,M,m,&#214;,&#246;,&#199;,&#231;) 
  inc %buys 
  set %buyb %buyb $+ %buyh 
  goto ilk
  :son
  say %buyb
  unset %buy*
  halt
}
#buykuc end
/yati yazıp &#231;alıştırabilirsiniz.

Addonun yazarını bilmiyorum, ama b&#252;y&#252;k ihtimal Abc olması lazım.

NaTSuKa 28 Kasım 2005 22:06
g&#252;zel addon fakat bunda yazı tiplerini se&#231;t&#252;g&#252;m&#252;zde bir mesaj g&#246;nderdigimizde 3 satır şeklide g&#246;r&#252;n&#252;yor &#246;rnegin;
[22:32:42]<natsuka> sLm NaSıLsNıZ
[22:32:42]<natsuka> sLm NaSıLsNıZ
[22:32:42]<natsuka> sLm NaSıLsNıZ
gibi oluyor normal yapınca tek satır halinde g&#246;r&#252;n&#252;yor neden acap?

Utku 28 Kasım 2005 22:16
Addonun en sonunda "#buykuc end" kısmı yoktu, onu ekledim şimdi normal &#231;alışır. Eğer scriptinde başka on input kullanılmış kodlar varsa o y&#252;zden tekrar edebilir.

CeNGaWeR 20 Ekim 2006 17:07
Yanıt: Çeşitli yazı şekilleri addonu
 
ya bişey sorcam bunu kullandım cok gzelde. ben biraz acemiyim elit yazı tipine : bunun yerine &#166; bunu nasıL eKlicem. Birde SAğ tıklayınca men&#252;ye nasıL koycam :)

CeNGaWeR 21 Ekim 2006 23:10
Yanıt: Çeşitli yazı şekilleri addonu
 
yok mu yardım :(

h4pp3n 21 Ekim 2006 23:28
Yanıt: Çeşitli yazı şekilleri addonu
 
%elit = $replace(%elit,:,&#166;)
Bu şekilde ekleyebilirsin.

CeNGaWeR 21 Ekim 2006 23:50
Yanıt: Çeşitli yazı şekilleri addonu
 
en sonuna eklesem filşan sorun olur mu yoksa calışır mı :)

Ajan 22 Ekim 2006 00:58
Yanıt: Çeşitli yazı şekilleri addonu
 
Alıntı:
CeNGaWeR__ Nickli Üyeden Alıntı
en sonuna eklesem filşan sorun olur mu yoksa calışır mı :)
Deneyip görmek,olmaması durumunda kendince başka alternatiflere yönelmek,yine olmaması durumunda da tekrar sormak sencede mantıklı olanı değilmidir ?


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 06:43.

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net