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 Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   İnce Yazı Addon (https://www.ircforumlari.net/mirc-scripting-sorunlari/768879-ince-yazi-addon.html)

codx 18 Şubat 2017 11:36
İnce Yazı Addon
 
Merhaba, IF.net kullanıcıları.
Sizden ufak bir ricam olacak!

Bir addon istiyorum lâkin, şu şekilde olması gerekiyor.

"Tek renk ve ince" yazı addonu.
Renk seçimini kendim yapabilmeliyim.

Bu konuda yardımlarınızı bekliyorum.

Teşekkürler! ;s2

Editor 18 Şubat 2017 13:02
Cevap: İnce Yazı Addon
 
Kod:
on 1:load: {
if ( $version < 5.6 ) { unload -rs yazitipi.mrc
echo 4 -a mIRC versiyonunuz yazıtipi addonını desteklemiyor, yazıtipi addonı kaldırılıyor. | halt }
else { echo 4 -a YAZITipleri add-onu yüklendi. }
}
#yazirenkli off
on 1:INPUT:*:{
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
}
#yazirenkli end
#yaziters off
on 1:INPUT:*:{
unset %ters*
if ( $chr(47) == $mid($1-,1,1) ) { $1- | unset %ters* | halt }
:ilk
inc %terss
if ( %terss > $len($1-) ) { say %terst | unset %terst* | halt }
set %tersh $mid($1-,%terss,1)
%terst = %tersh $+ %terst
goto ilk
}
#yaziters end
#yaziturkce off
on 1:INPUT:*:{
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
}
#yaziturkce end
#yazielit off
on 1:INPUT:*:{
unset %elit
set %elit $1-
if ( $chr(47) == $mid(%elit,1,1) ) { %elit | unset %elit* | halt }
%elit = $replacecs(%elit,a,å,b,ß,c,©,d,D,e,ë,f,F,h,]-[,i,î,k,|{,l,£,m,M,n,ñ,o,ø,p,P,q,¶,r,®,s,§,t,±,u,µ, v,V,w,\',x,×,y,¥,z,Z,ı,I,İ,Î,ş,$,Ş,$,ç,¢,Ç,¢,ğ,g, Ğ,Ğ,ü,û,Ü,Û,ö,ô,Ö,Ô,!,¡,?,¿,<,«,>,»,-,¬,:,¦,',`,`,')
say %elit
unset %elit
halt
}
#yazielit end
#yaziseskuc off
on 1:INPUT:*:{
unset %seskuc
set %seskuc $1-
if ( $chr(47) == $mid(%seskuc,1,1) ) { %seskuc | unset %seskuc | halt }
%seskuc = $replacecs(%seskuc,q,Q,w,W,E,e,r,R,t,T,y,Y,U,u,I,ı ,O,o,p,P,ğ,Ğ,Ü,ü,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,Ö,ö,ç,Ç)
say %seskuc
unset %seskuc
halt
}
#yaziseskuc end
#yazibuykuc off
on 1:INPUT:*:{
unset %buy*
set %buyk $1-
if ( $chr(47) == $mid(%buyk,1,1) ) { %buyk | unset %buy* | 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,ğ,Ğ,ü,Ü,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,ö,Ö,ç,Ç,!,¡,? ,¿)
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,Ğ,ğ,Ü,ü,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,Ö,ö,Ç,ç,¡,!,¿ ,?)
inc %buys
set %buyb %buyb $+ %buyh
goto ilk
:son
say %buyb
unset %buy*
halt
}
#yazibuykuc end
dialog yazitip {
title "Yazıtipi"
size -1 -1 110 190
radio "Tûrk¢e",1,10 10 90 20
radio "ë£î±",2,10 30 90 20
radio "sreT",3,10 50 90 20
radio "BüYüK-kÜçÜk",4,10 70 90 20
radio "SeSSiZ BüYüK",5,10 90 90 20
radio "Renkli",6,10 110 90 20
radio "Normal",19,10 130 90 20
box "",20,5 0 100 155
button "TAMAM",21,5 165 100 20,ok
}
on 1:dialog:yazitip:*:*: {
if ( $devent == init ) {
if ($group(#yaziturkce).status == on ) { did -c yazitip 1 }
elseif ($group(#yazielit).status == on ) { did -c yazitip 2 }
elseif ($group(#yaziters).status == on ) { did -c yazitip 3 }
elseif ($group(#yazibuykuc).status == on ) { did -c yazitip 4 }
elseif ($group(#yaziseskuc).status == on ) { did -c yazitip 5 }
elseif ($group(#yazirenkli).status == on ) { did -c yazitip 6 }
else { did -c yazitip 19 }
}
if ( $devent == sclick ) {
if ( $did == 1 ) { .disable #yazi* | .enable #yaziturkce }
if ( $did == 2 ) { .disable #yazi* | .enable #yazielit }
if ( $did == 3 ) { .disable #yazi* | .enable #yaziters }
if ( $did == 4 ) { .disable #yazi* | .enable #yazibuykuc }
if ( $did == 5 ) { .disable #yazi* | .enable #yaziseskuc }
if ( $did == 6 ) { .disable #yazi* | .enable #yazirenkli }
if ( $did == 19) { .disable #yazi* }
}
}
alias yazitip { dialog -m yazitip yazitip }
menu query,channel {
Yazıtipi...:/yazitip
}


Addon olarak istediğin yazı tipini Aktif edip kanala yansıtabilirsn.

codx 19 Şubat 2017 18:08
Cevap: İnce Yazı Addon
 
Bahsettiğim bu değil, elimde bir ince yazı addonu var.

Onu kullanırken, noktalama işaretlerini nasıl renkli yapabilirim? Aslında esas soru buydu.

Kod;

PHP- Kodu:
off 1:INPUT:*:{
  if ( $left($1,1) == /) && ($ctrlenter) { goto son }
  if ($active == Status Window) { Echo -a  Statusa Birşey Yazamazsınız. | goto halt }
  unset %csr
  set %csr  $+ $1-
  if ( $chr(47) == $mid(%csr,1,1) ) { %csr | unset %csr* | halt }
  %csr = $replacecs(%csr,b,b,ş,ş)
  say %csr
  unset %csr
  halt
  :halt
  halt
  :son

} 

Mecnun 20 Şubat 2017 08:44
Cevap: İnce Yazı Addon
 
Kod:
on *:input:*:if (!$inpaste && !$ctrlenter && !$regex($1,/^\//)) { msg $active $nc($1-) | haltdef }

alias nc return $replace($+(,$regsubex($regsubex($1-,/([.,;,!,+,?,=,:,',^,%,&,/,(,),_,~,`,<,>,"])/g,$+(4,\t,)),/([A-Z])/g,$+(,\t,)),),$chan,$+(,$chan,))
merhaba, ince yazı kırmızı noktalama işaretleri. Noktalama işaretlerinin rengini değiştirmek için, kırmızı ile belirttigim kısma dilediginiz renk kodunu girin.

codx 21 Şubat 2017 22:30
Cevap: İnce Yazı Addon
 
Teşekkür ederim.
"$replace" hatası veriyor, neden acaba?

Mecnun 22 Şubat 2017 05:15
Cevap: İnce Yazı Addon
 
Kod hatasız çalışıyor

codx 23 Şubat 2017 12:22
Cevap: İnce Yazı Addon
 
Evet, şimdi fark ettim.

Sorun bendeymiş, teşekkürler tekrardan @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Mecnun 24 Şubat 2017 18:21
Cevap: İnce Yazı Addon
 
rica ederim hayırlı ifler

codx 13 Mart 2017 09:59
Cevap: İnce Yazı Addon
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] bu kodda ufak bir kaç problem yaşıyorum;

1-)Cümle arasına koyduğum virgülden sonra yazı kalınlaşıyor.
2-)Türkçe karakterleri gördükten sonra yazı kalınlaşıyor.
3-)Cümleye büyük harf ile başladığımda, ilk harf ince geri kalanı kalın oluyor.

Buna bi çare bulabilir miyiz?

Teşekkür ederim.

By_ATMACA 13 Mart 2017 10:17
Cevap: İnce Yazı Addon
 
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Buna Bak Bide Istersen.

codx 13 Mart 2017 10:22
Cevap: İnce Yazı Addon
 
Harika!

Çok teşekkür ederim @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Mecnun 13 Mart 2017 17:27
Cevap: İnce Yazı Addon
 
Kod:
on *:input:*:if (!$inpaste && !$ctrlenter && !$regex($1,/^\//)) { msg $active $nc($1-) | haltdef }

alias nc return $replace($+(,$regsubex($regsubex($1-,/([.,;,!,+,?,=,:,',^,%,&,/,(,),_,~,`,<,>,"])/g,$+(4,\t,)),/([A-Z])/g,$+(,\t,)),),$chan,$+(,$chan,))
böyle dener misin

codx 13 Mart 2017 21:34
Cevap: İnce Yazı Addon
 
Çalıştı, teşekkürler @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Mecnun 14 Mart 2017 01:05
Cevap: İnce Yazı Addon
 
rica ederim hayırlı ifler, sayende baya mesaj kastım :D


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

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