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

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 31 Ocak 2009, 00:06   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
mirc hakkında bi kaç soru




izin verirseniz bi kaç sorum olacak arkadaşlar... 1-mircde ileti yazıyor mesajı nasıl konulabilir (benim özemime yazaılan iletiler)? 2-özelden konuştuğum biri mirc'i terkettiğinde normalde genelde IRC'den çıktı veya ayrıldı deniyor...bu uyarıyı özele nasıl taşıyabiliriim? 3-iki farklı kalıp yazı rengi kullanıyorum..haliyle çakışıyor ve karşıya 2 defa gidiyor..bunları çakışmadan,kendim seçebileceğim şekilde düzenlemek istiyorum...normalde mircin içinde sağ tıkladığımda 'yazı tipi' çıkıyor ve oraya başka bi yazı tipini çakışmadan ilave etmek istiyorum...kullandığım yazı tipi ;################################################# # :## Bu kodlar SiNYoL tarafından hazırlanmıştır.... ;################################################# # 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 } EKLEMEK İSTEDİĞİM YAZI TİPİ İSE ŞU on 1:input:*:{ if ($chr(47) == $mid($1-,1,1)) || ($inpaste) || ($ctrlenter) { goto end } if ($1- == isnum) { goto end } var %a 0, %b, %c, %d, %e, %f while (%a < $numtok($1-,32)) { inc %a %c = $gettok($1-,%a,32) if ($remove(%c,!,?,:,;,.,$chr(44),?) ison #) { %b = $iif(%b,%b) $+(·,%c,·) } else { if (%a == $numtok($1-,32)) { %d = $+($right(%c,1),..) %f = $right(%d,2) } %e = $regsubex(%c,/(?=^| )(.)/g,$+(12,$upper(\1),4)) %b = %b $+(%e,%f) } } if (!%b) { %b = $1- } else { say %b } halt :end }

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 31 Ocak 2009, 00:39   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: mirc hakkında bi kaç soru




2. sorunun cevabı

PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:QUIT:if $query($nick) { echo $query($nick) *** 2 $nick 4IRC'den Çıktı ! : $1- } 


 
Alıntı ile Cevapla

Alt 31 Ocak 2009, 01:01   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: mirc hakkında bi kaç soru




Lütfen eklemiş olduğunuz Kodu Gelişmiş sekmesinden # Buttonuna basarak ekleyiniz.

 
Alıntı ile Cevapla

Alt 31 Ocak 2009, 03:02   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: mirc hakkında bi kaç soru




ne alaka ?

 
Alıntı ile Cevapla

Alt 31 Ocak 2009, 03:08   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: mirc hakkında bi kaç soru




q0kh4n01 nasıl ne alaka ?

 
Alıntı ile Cevapla

Alt 31 Ocak 2009, 03:38   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: mirc hakkında bi kaç soru




bana dedin sandım.

 
Alıntı ile Cevapla

Alt 31 Ocak 2009, 03:42   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: mirc hakkında bi kaç soru




Kelime tamamlamadan kaynaklanan bir sorundur %90. O kısmı silersen düzelir.

 
Alıntı ile Cevapla

Alt 31 Ocak 2009, 12:27   #8
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: mirc hakkında bi kaç soru




1-mircde ileti yazıyor mesajı nasıl konulabilir (benim özemime yazaılan iletiler)?


2-)iki farklı kalıp yazı rengi kullanıyorum..haliyle çakışıyor ve karşıya 2 defa gidiyor..bunları çakışmadan,kendim seçebileceğim şekilde düzenlemek istiyorum...normalde mircin içinde sağ tıkladığımda 'yazı tipi' çıkıyor ve oraya başka bi yazı tipini çakışmadan ilave etmek istiyorum...kullandığım yazı tipi

[CODE [/code]
;################################################# #
:## Bu kodlar SiNYoL tarafından hazırlanmıştır....
;################################################# #
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 on
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
}

EKLELEMEK İSTEDİĞİM YAZI TİPİ İSE




on 1:input:*:{
if ($chr(47) == $mid($1-,1,1)) || ($inpaste) || ($ctrlenter) { goto end }
if ($1- == isnum) { goto end }
var %a 0, %b, %c, %d, %e, %f
while (%a < $numtok($1-,32)) {
inc %a
%c = $gettok($1-,%a,32)
if ($remove(%c,!,?,:,;,.,$chr(44),?) ison #) { %b = $iif(%b,%b) $+(·,%c,·) }
else {
if (%a == $numtok($1-,32)) {
%d = $+($right(%c,1),..)
%f = $right(%d,2)
}
%e = $regsubex(%c,/(?=^| )(.)/g,$+(12,$upper(\1),4))
%b = %b $+(%e,%f)
}
}
if (!%b) { %b = $1- }
else { say %b }
halt
:end
}

 
Alıntı ile Cevapla

Alt 31 Ocak 2009, 15:38   #9
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: mirc hakkında bi kaç soru




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
;################################################# # :## Bu kodlar SiNYoL tarafından hazırlanmıştır.... ;################################################# # 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 #yaziyeni1 off on 1:input:*:{ if ($chr(47) == $mid($1-,1,1)) || ($inpaste) || ($ctrlenter) { goto end } if ($1- == isnum) { goto end } var %a 0, %b, %c, %d, %e, %f while (%a < $numtok($1-,32)) { inc %a %c = $gettok($1-,%a,32) if ($remove(%c,!,?,:,;,.,$chr(44),?) ison #) { %b = $iif(%b,%b) $+(·,%c,·) } else { if (%a == $numtok($1-,32)) { %d = $+($right(%c,1),..) %f = $right(%d,2) } %e = $regsubex(%c,/(?=^| )(.)/g,$+(12,$upper(\1),4)) %b = %b $+(%e,%f) } } if (!%b) { %b = $1- } else { say %b } halt :end } #yaziyeni1 end dialog yazitip { title "Yaz?tipi" size -1 -1 110 210 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 radio "Özel",7,10 150 90 20 box "",20,5 0 100 175 button "TAMAM",21,5 185 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 } elseif ($group(#yaziyeni1).status == on ) { did -c yazitip 7 } 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 == 7 ) { .disable #yazi* | .enable #yaziyeni1 } if ( $did == 19) { .disable #yazi* } } } alias yazitip { dialog -m yazitip yazitip } menu query,channel { Yazıtipi...:/yazitip }

Eklemek istediğin yazı şekli dialoga dahil oldu...

 
Alıntı ile Cevapla

Cevapla

Etiketler
hakkinda, kac, mirc, mirc download, mirc indir, soru


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

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
mirc 6.35 hakkında soru Beklenti mIRC Scripting Sorunları 1 18 Aralık 2011 09:25
mirc bot hakkında bi soru cashmare mIRC Scripting Sorunları 2 23 Şubat 2010 11:17
mirc hakkında bi kaç soru ekselansx mIRC Scripting Sorunları 3 25 Mart 2009 01:42
1-2 Soru. mIRC Ayarları fatal mIRC Scripting Sorunları 2 31 Ocak 2007 14:42
mIRC destek siteleri ve mIRC forumları hakkında Ka[R]aN mIRC Scripting Sorunları 16 15 Kasım 2005 15:00