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

6Beğeni(ler)

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 22 Ekim 2013, 03:00   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cikolata Script deki Yazı Dialog u




merhabalar çikolata script teki yazı dialogunun kodları kendi mirc ime uyarlama çalıştım ancak başaramadım script kodlamasında cikolata25.dll dosyasında yazı kodlaması sped.dll sped.ini dosylarınıda mirc e ekledim ama yinede çalışmadı o mirc deki gibi bir dialog nasıl yapa biliriz ?

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Yazgulu Sohbet
Alt 22 Ekim 2013, 06:54   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Cikolata Script deki Yazı Dialog u




Falancının kesesi. Ortada ne bir ekran görüntüsü var, ne bir ekli dosya var. Herkes müneccim zaten. Selamen kavlen ...
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 
Alıntı ile Cevapla

Alt 22 Ekim 2013, 07:08   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Cikolata Script deki Yazı Dialog u




Eklediğin kodları paylaşırsan yardımcı olmaya çalışalım.
dll leri çalıştıran aliasları ekledin mi.
Dialog mu açılmıyor yoksa input eventi mi çalışmadı.

 
Alıntı ile Cevapla

Alt 22 Ekim 2013, 16:48   #4
Toprak
Guest
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Yüzdesi:(%)
Cevap: Cikolata Script deki Yazı Dialog u




İlgili kod'ları paylaşırsanız yardımcı olabiliriz.

 
Alıntı ile Cevapla

Alt 23 Ekim 2013, 15:57   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Cikolata Script deki Yazı Dialog u




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias yayar dialog -m yayarlari yayarlari dialog yayarlari { title "Cikolata 4.1 » $me için Yazı Ayarları" size -1 -1 568 346 option pixels box "Stil", 705, 10 194 260 85 button "Tamam", 1, 167 299 150 39, flat ok button "Iptal", 2, 8 298 150 40, flat cancel radio " Normal", 706, 25 214 70 15, group radio " Asci", 707, 25 234 70 15 radio " Büyük Küçük ", 708, 24 254 90 15 radio " Sayısal", 709, 115 214 70 15 radio " Ters", 710, 115 234 70 15 radio " ÖzeL", 711, 195 214 50 15 radio " Cikolata", 712, 115 254 70 15 radio " TuğLa", 713, 195 234 70 15 radio " Ctrl Kodlu", 714, 195 254 70 15 box "Renk", 715, 8 84 260 108 radio " Varsayılan", 716, 24 104 100 15, group radio " ÖzeL", 717, 24 125 100 15 text "Yazı Rengi:", 718, 28 148 100 15 combo 719, 117 143 140 67, drop text "Artalan:", 720, 31 171 100 15 combo 721, 118 166 140 51, drop box "Özellikler", 730, 280 85 269 45 check " AltıÇizili", 731, 295 105 70 15 check " Kalın", 732, 375 105 70 15 check " Çerçeveli", 733, 455 105 70 15 box "Nick Tamlama", 734, 278 130 271 149 check " Nick Tamlaması Kullan", 735, 295 190 200 15 text "Yazdıgınız Nicklerin veya : (iki nokta) ile biten Parçaların Renklendirilmesini sağlar", 736, 295 150 230 30 text "$me", 740, 407 215 30 15, center edit "", 741, 315 210 80 22, autohs right edit "", 742, 445 210 80 22, autohs text "Çerçeve Ayarları :", 746, 295 251 85 30, right combo 747, 385 246 140 300, drop check "", 755, 333 312 15 15 button "imla Klavuzu..", 756, 361 298 190 40, flat box "Yazdıklarınız Böyle Görünecek..", 3, 8 19 541 65 text "Yazdıklarınız Kanalda ve Özelde Altda Görüldüğü Gibi Gidecektir.", 4, 62 3 436 16 } on 1:dialog:yayarlari:init:0: { yayarlari.ShowCalligraphy on ayarlariyukle yayarlari.Control if ($devent == init) { mdx SetMircVersion $version mdx MarkDialog $dname mdx SetColor 706,707,708,709,710,711,712,713,714,716,717,718,720,731,732,733,736,735,746 text $rgb(253,0,0) mdx SetColor 734,715,730,705,3 text $rgb(0,0,140) mdx SetFont 1,2,756 17 800 Times New Roman mdx SetFont 4 17 800 Monotype Corsiva set %on 0 :dongu inc %on if ($sr != $null) { goto dongu } } } on 1:dialog:yayarlari:sclick:3: { echo kalkacak bu } on 1:dialog:yayarlari:sclick:706: { yayarlari.CalligraphyApply } on 1:dialog:yayarlari:sclick:707: { yayarlari.CalligraphyApply } on 1:dialog:yayarlari:sclick:708: { yayarlari.CalligraphyApply } on 1:dialog:yayarlari:sclick:709: { yayarlari.CalligraphyApply } on 1:dialog:yayarlari:sclick:710: { yayarlari.CalligraphyApply } on 1:dialog:yayarlari:sclick:711: { yayarlari.CalligraphyApply } on 1:dialog:yayarlari:sclick:712: { yayarlari.CalligraphyApply } on 1:dialog:yayarlari:sclick:713: { yayarlari.CalligraphyApply } on 1:dialog:yayarlari:sclick:714: { yayarlari.CalligraphyApply } on 1:dialog:yayarlari:sclick:716: { yayarlari.CalligraphyApply | yayarlari.Control } on 1:dialog:yayarlari:sclick:717: { yayarlari.CalligraphyApply | yayarlari.Control } on 1:dialog:yayarlari:sclick:719: { yayarlari.CalligraphyApply } on 1:dialog:yayarlari:sclick:721: { yayarlari.CalligraphyApply } on 1:dialog:yayarlari:sclick:731: { yayarlari.CalligraphyApply } on 1:dialog:yayarlari:sclick:732: { yayarlari.CalligraphyApply } on 1:dialog:yayarlari:sclick:733: { yayarlari.CalligraphyApply } on 1:dialog:yayarlari:sclick:735: { yayarlari.CalligraphyApply | yayarlari.Control } on 1:dialog:yayarlari:edit:741: { yayarlari.CalligraphyApply } on 1:dialog:yayarlari:edit:742: { yayarlari.CalligraphyApply } on 1:dialog:yayarlari:sclick:747: { if ($did(yayarlari,747).sel == 1) { did -ra yayarlari 741 1,15|| | did -ra yayarlari 742 1,15|| } if ($did(yayarlari,747).sel == 2) { did -ra yayarlari 741 12[1¯4°1- | did -ra yayarlari 742 ¯4°1-12] } if ($did(yayarlari,747).sel == 3) { did -ra yayarlari 741 12}{4 | did -ra yayarlari 742 12}{ } if ($did(yayarlari,747).sel == 4) { did -ra yayarlari 741 12«4- | did -ra yayarlari 742 4-12» } if ($did(yayarlari,747).sel == 5) { did -ra yayarlari 741 2«11¤12¥11¤2» | did -ra yayarlari 742 2«11¤12¥11¤2» } if ($did(yayarlari,747).sel == 6) { did -ra yayarlari 741 7.o4O2 | did -ra yayarlari 742 10O12o. } if ($did(yayarlari,747).sel == 7) { did -ra yayarlari 741 3--<-- | did -ra yayarlari 742 3--{4@ } if ($did(yayarlari,747).sel == 8) { did -ra yayarlari 741 3«4©3»13 | did -ra yayarlari 742 3«4©3» } if ($did(yayarlari,747).sel == 9) { did -ra yayarlari 741 12><{{11 | did -ra yayarlari 742 12{{º> } if ($did(yayarlari,747).sel == 10) { did -ra yayarlari 741 3¡4!5¹6'7¹8!9¡10 | did -ra yayarlari 742 3¡4!5¹6'7¹8!9¡ } if ($did(yayarlari,747).sel == 11) { did -ra yayarlari 741 10_3\9|3/10_3 | did -ra yayarlari 742 10_3\9|3/10_ } if ($did(yayarlari,747).sel == 12) { did -ra yayarlari 741 3{9 | did -ra yayarlari 742 3} } if ($did(yayarlari,747).sel == 13) { did -ra yayarlari 741 11[12 | did -ra yayarlari 742 11] } yayarlari.CalligraphyApply } on 1:dialog:yayarlari:sclick:2:{ yayarlari.showcalligraphy off | dialog -x yayarlari yayarlari } on 1:dialog:yayarlari:sclick:1:yayarlari.ShowCalligraphy off | wksel spel kullan $did(yayarlari,755).state on 1:dialog:yayarlari:sclick:755: { yayarlari.Control } on 1:dialog:yayarlari:sclick:756: { ImLaklavuZu } alias ayarlariyukle { did -u yayarlari 706,707,708,709,710,711,712,713,714 did -c yayarlari $calc(706 + %nFontStyle) did -u yayarlari 716,717 did -c yayarlari $calc(716 + %lCustomC) did -ra yayarlari 719 Beyaz did -a yayarlari 719 Siyah did -a yayarlari 719 Mavi did -a yayarlari 719 Yeşil did -a yayarlari 719 Kırmızı did -a yayarlari 719 Kahverengi did -a yayarlari 719 Mor did -a yayarlari 719 Portakal did -a yayarlari 719 Sarı did -a yayarlari 719 Açık Yeşil did -a yayarlari 719 Turquaz did -a yayarlari 719 Gök Mavisi did -a yayarlari 719 Açık Mavi did -a yayarlari 719 Açık Mor did -a yayarlari 719 Koyu Gri did -a yayarlari 719 Gri did -c yayarlari 719 $calc(1 + %nForeColor) did -ra yayarlari 721 Beyaz did -a yayarlari 721 Siyah did -a yayarlari 721 Mavi did -a yayarlari 721 Yeşil did -a yayarlari 721 Kırmızı did -a yayarlari 721 Kahverengi did -a yayarlari 721 Mor did -a yayarlari 721 Portakal did -a yayarlari 721 Sarı did -a yayarlari 721 Açık Yeşil did -a yayarlari 721 Turquaz did -a yayarlari 721 Gök Mavisi did -a yayarlari 721 Açık Mavi did -a yayarlari 721 Açık Mor did -a yayarlari 721 Koyu Gri did -a yayarlari 721 Gri did -a yayarlari 721 Transparan did -c yayarlari 721 $calc(1 + %nBackColor) if (%lUnderlined) did -c yayarlari 731 | else did -u yayarlari 731 if (%lBold) did -c yayarlari 732 | else did -u yayarlari 732 if (%lFrame) did -c yayarlari 733 | else did -u yayarlari 733 if (%lNickCompletion) did -c yayarlari 735 | else did -u yayarlari 735 did -a yayarlari 741 %cNickCompletion.BeginFrame did -a yayarlari 742 %cNickCompletion.EndFrame did -ra yayarlari 747 Çerçeve did -a yayarlari 747 12[1¯4°1- ¯4°1-12] did -a yayarlari 747 12}{4 12}{ did -a yayarlari 747 12«4- 4-12» did -a yayarlari 747 «¤¥¤»«¤¥¤» did -a yayarlari 747 .oO Oo. did -a yayarlari 747 --<-- --{@ did -a yayarlari 747 «©» «©» did -a yayarlari 747 ><{{ {{º> did -a yayarlari 747 ¡!¹'¹!¡ ¡!¹'¹!¡ did -a yayarlari 747 _\|/_ _\|/_ did -a yayarlari 747 Parantez did -a yayarlari 747 K.Parantez did -c yayarlari 747 %nNickCompletion.Preset if ($spel) did -c yayarlari 755 | else did -u yayarlari 755 } alias yayarlari.CalligraphyApply { if ($did(yayarlari,706).state) set %nFontStyle 0 if ($did(yayarlari,707).state) set %nFontStyle 1 if ($did(yayarlari,708).state) set %nFontStyle 2 if ($did(yayarlari,709).state) set %nFontStyle 3 if ($did(yayarlari,710).state) set %nFontStyle 4 if ($did(yayarlari,711).state) set %nFontStyle 5 if ($did(yayarlari,712).state) set %nFontStyle 6 if ($did(yayarlari,713).state) set %nFontStyle 7 if ($did(yayarlari,714).state) set %nFontStyle 8 set %lCustomC $iif($did(yayarlari,716).state,0,1) set %nForeColor $calc($did(yayarlari,719).sel - 1) set %nBackColor $calc($did(yayarlari,721).sel - 1) set %lUnderlined $did(yayarlari,731).state set %lBold $did(yayarlari,732).state set %lFrame $did(yayarlari,733).state set %lNickCompletion $did(yayarlari,735).state set %cNickCompletion.BeginFrame $did(yayarlari,741).text set %cNickCompletion.EndFrame $did(yayarlari,742).text set %nNickCompletion.Preset $did(yayarlari,747).sel yayarlari.ShowCalligraphy refresh } alias yayarlari.ShowCalligraphy { if ($1 == on) { window -c @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Calligraphy01 window -hkdo +dL @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Calligraphy01 $calc($dialog(yayarlari).x + 18) $calc($dialog(yayarlari).y + 62) 530 36 window -a @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Calligraphy01 dialog -v yayarlari .timerShowCalligraphy01position -mo 0 250 yayarlari.ShowCalligraphy refreshposition .timer -mo 1 1 yayarlari.ShowCalligraphy refresh } if ($1 == refresh) { var %cShowCalligraphy = 12«4@12» $me 12«4@12» if ($did(yayarlari,735).state) var %cShowCalligraphy = %cShowCalligraphy %cNickCompletion.BeginFrame $me %cNickCompletion.EndFrame var %cShowCalligraphy = %cShowCalligraphy $Calligraphy(Yazdıklarınız Artık Böyle Görünecek.) clear @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Calligraphy01 echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Calligraphy01 %cShowCalligraphy } if ($1 == refreshposition) { window $iif($dialog(yayarlari).active,-o,-u) @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Calligraphy01 $calc($dialog(yayarlari).x + 18) $calc($dialog(yayarlari).y + 62) 530 36 } if ($1 == off) { window -c @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Calligraphy01 .timerShowCalligraphy01position off } } alias yayarlari.control { if ($did(yayarlari,716).state) did -b yayarlari 719,721 if ($did(yayarlari,717).state) did -e yayarlari 719,721 if ($did(yayarlari,735).state) did -e yayarlari 741,742,747 | else did -b yayarlari 741,742,747 if ($did(yayarlari,755).state) did -e yayarlari 756 | else did -b yayarlari 756 } alias Calligraphy { var %ccikoCalligraphy = $1- if (%lNickCompletion == 1) && (($right($gettok($1-,1,32),1) == :) || ($gettok($1-,1,32) ison $chan)) { var %cNickCompletion = $remove($gettok($1-,1,32),:) var %nCountNicklist = 0 while (%nCountNicklist < $nick(#,0,a)) { inc %nCountNicklist if (%cNickCompletion isin $nick(#,%nCountNicklist,a)) { var %cNickBuilded = %cNickCompletion.BeginFrame $nick(#,%nCountNicklist,a) %cNickCompletion.EndFrame var %ccikoCalligraphy = $deltok(%ccikoCalligraphy,1,32) break } } } if (%ccikoCalligraphy == $null) return %cNickBuilded if ($spel) var %ccikoCalligraphy = $Calligraphy.SpellCorr(%ccikoCalligraphy) if ( %nFontStyle == 1 ) var %ccikoCalligraphy = $StrGhotic(%ccikoCalligraphy) if ( %nFontStyle == 2 ) var %ccikoCalligraphy = $StrFun(%ccikoCalligraphy) if ( %nFontStyle == 3 ) var %ccikoCalligraphy = $StrNumbers(%ccikoCalligraphy) if ( %nFontStyle == 4 ) var %ccikoCalligraphy = $idrt(%ccikoCalligraphy) if ( %nFontStyle == 5 ) var %ccikoCalligraphy = $Special(%ccikoCalligraphy) if ( %nFontStyle == 6 ) var %ccikoCalligraphy = $sifre(%ccikoCalligraphy) if ( %nFontStyle == 7 ) var %ccikoCalligraphy = $coke(%ccikoCalligraphy) if ( %nFontStyle == 8 ) var %ccikoCalligraphy = $ctkod(%ccikoCalligraphy) if ( %lCustomC) { if (%nBackColor != 16) var %ccikoCalligraphy = $+ %nForeColor $+ , $+ %nBackColor %ccikoCalligraphy else var %ccikoCalligraphy = $+ %nForeColor %ccikoCalligraphy } if (%lUnderlined) var %ccikoCalligraphy = $+ %ccikoCalligraphy if (%lBold) var %ccikoCalligraphy = $+ %ccikoCalligraphy if (%lFrame) var %ccikoCalligraphy = 1,1 12,12 $+ %ccikoCalligraphy $+ 12,12 1,1 if (%cNickBuilded != $null,%cNickBuilded) var %ccikoCalligraphy = %cNickBuilded $+ %ccikoCalligraphy return %ccikoCalligraphy } alias Calligraphy.SpellCorr { var %cSpellPhrase = $1- var %nWCount = 0 while (%nWCount < $numtok($1-,32)) { inc %nWCount var %cSpellMacro = $gettok($1-,%nWCount,32) var %cSpellReplace = $readini $mircdirsystem\spel.ini Macros %cSpellMacro var %cSpellReplace = $cikoLC2CC(%cSpellReplace) if (%cSpellReplace != $null) { var %cSpellReplace = %cSpellReplace $+ if ( %lCustomC) { if (%nBackColor != 16) var %cSpellReplace = %cSpellReplace $+ $+ %nForeColor $+ , $+ %nBackColor else var %cSpellReplace = %cSpellReplace $+ $+ %nForeColor } if (%lUnderlined) var %cSpellReplace = %cSpellReplace $+ if (%lBold) var %cSpellReplace = %cSpellReplace $+ var %cSpellPhrase = $replace(%cSpellPhrase,%cSpellMacro,%cSpellReplace) } } return %cSpellPhrase } alias StrGhotic { var %cString = $1- var %cString = $replace(%cString,ae,æ) var %cString = $replace(%cString,a,â) var %cString = $replace(%cString,b,ß) var %cString = $replace(%cString,c,¢) var %cString = $replace(%cString,d,D) var %cString = $replace(%cString,e,ê) var %cString = $replace(%cString,f,F) var %cString = $replace(%cString,g,G) var %cString = $replace(%cString,h,|-|) var %cString = $replace(%cString,I,î) var %cString = $replace(%cString,j,J) var %cString = $replace(%cString,k,|{) var %cString = $replace(%cString,l,|) var %cString = $replace(%cString,m,M) var %cString = $replace(%cString,n,ñ) var %cString = $replace(%cString,o,ø) var %cString = $replace(%cString,p,ş) var %cString = $replace(%cString,q,Q) var %cString = $replace(%cString,r,®) var %cString = $replace(%cString,s,§) var %cString = $replace(%cString,t,T) var %cString = $replace(%cString,u,µ) var %cString = $replace(%cString,v,V) var %cString = $replace(%cString,w,W) var %cString = $replace(%cString,x,×) var %cString = $replace(%cString,y,¥) return %cString } alias StrElite { var %cString = $1- var %cString = %cString $+ $chr(42) var %cString = %cString $+ $chr(42) var %cString = %cString $+ $chr(42) var %cString = %cString $chr(70) var %cString = %cString $+ $chr(97) var %cString = %cString $+ $chr(116) var %cString = %cString $+ $chr(97) var %cString = %cString $+ $chr(108) var %cString = %cString $chr(114) var %cString = %cString $+ $chr(117) var %cString = %cString $+ $chr(110) var %cString = %cString $chr(116) var %cString = %cString $+ $chr(105) var %cString = %cString $+ $chr(109) var %cString = %cString $+ $chr(101) var %cString = %cString $chr(101) var %cString = %cString $+ $chr(114) var %cString = %cString $+ $chr(114) var %cString = %cString $+ $chr(111) var %cString = %cString $+ $chr(114) var %cString = %cString $+ $chr(46) var %cString = %cString $chr(83) var %cString = %cString $+ $chr(121) var %cString = %cString $+ $chr(115) var %cString = %cString $+ $chr(116) var %cString = %cString $+ $chr(101) var %cString = %cString $+ $chr(109) var %cString = %cString $chr(104) var %cString = %cString $+ $chr(97) var %cString = %cString $+ $chr(108) var %cString = %cString $+ $chr(116) var %cString = %cString $+ $chr(101) var %cString = %cString $+ $chr(100) var %cString = %cString $+ $chr(46) return %cString } alias StrFun { var %cString = $1- var %cString = $replace(%cString,a,a) var %cString = $replace(%cString,b,B) var %cString = $replace(%cString,c,C) var %cString = $replace(%cString,d,D) var %cString = $replace(%cString,e,e) var %cString = $replace(%cString,f,F) var %cString = $replace(%cString,g,G) var %cString = $replace(%cString,h,H) var %cString = $replace(%cString,i,i) var %cString = $replace(%cString,j,J) var %cString = $replace(%cString,k,K) var %cString = $replace(%cString,l,L) var %cString = $replace(%cString,m,M) var %cString = $replace(%cString,n,N) var %cString = $replace(%cString,o,o) var %cString = $replace(%cString,p,P) var %cString = $replace(%cString,q,Q) var %cString = $replace(%cString,r,R) var %cString = $replace(%cString,s,S) var %cString = $replace(%cString,t,T) var %cString = $replace(%cString,u,u) var %cString = $replace(%cString,v,V) var %cString = $replace(%cString,w,W) var %cString = $replace(%cString,x,X) var %cString = $replace(%cString,y,y) return %cString } alias StrNumbers { var %cString = $1- var %cString = $replace(%cString,a,4) var %cString = $replace(%cString,e,3) var %cString = $replace(%cString,i,1) var %cString = $replace(%cString,o,0) return %cString } alias StrHackz { var %cString = $1- var %cString = $replace(%cString,ca,ka) var %cString = $replace(%cString,co,ko) var %cString = $replace(%cString,cu,ku) var %cString = $replace(%cString,que,ke) var %cString = $replace(%cString,qui,ki) var %cString = $replace(%cString,s,z) return %cString } alias ImLaklavuZu { if ($dialog(ImLaklavuZu) == $null) .load -rs system\Cikolata\Spel.dll | else dialog -v ImLaklavuZu } alias spel $iif($rksel(spel,kullan) == 1,return ok,return) alias cikoCC2LC { return $replace($replace($replace($replace($replace($1-,,&Bold),,&Underlined),,&Colour),,&Plain),,&Reverse) } alias cikoLC2CC { return $replace($replace($replace($replace($replace($1-,&Bold,),&Underlined,),&Colour,),&Plain,),&Reverse,) } buda Spel.ini [Macros] lol=&Colour7&Bold&UnderlinedL&Underlinedaugh &UnderlinedO&Underlinedut &UnderlinedL&Underlinedoud s.a=&Colour2SeLamun &Colour4Aleyküm&Colour2.. a.s=&Colour4Aleyküm &Colour2Selam&Colour4.. selam=&Colour12seL&Colour4à&Colour12m&Colour4.. slm=&Colour12seL&Colour4à&Colour12m&Colour4.. slam=&Colour12seL&Colour4à&Colour12m&Colour4.. selm=&Colour12seL&Colour4à&Colour12m&Colour4.. nbr=&Colour4Na&Colour14ß&Colour4er merhaba=&Colour4Merha&Colour14ß&Colour4a&Colour1. mrb=&Colour4Merha&Colour14ß&Colour4a&Colour1 mrh=&Colour4Merha&Colour14ß&Colour4a&Colour1 nasılsın=&Colour2Nàs&Colour4IL&Colour2s&Colour4I&Colour2n.. nasilsin=&Colour2Nàs&Colour4IL&Colour2s&Colour4I&Colour2n.. nasİlsİn=&Colour2Nàs&Colour4IL&Colour2s&Colour4I&Colour2n.. nslsn=&Colour2Nàs&Colour4IL&Colour2s&Colour4I&Colour2n.. nereden=&Colour2N&Colour4é&Colour2r&Colour4é&Colour2d&Colour4é&Colour2n ¿ nrdn=&Colour2N&Colour4é&Colour2r&Colour4é&Colour2d&Colour4é&Colour2n ¿ nerden=&Colour2N&Colour4é&Colour2r&Colour4é&Colour2d&Colour4é&Colour2n ¿ nrden=&Colour2N&Colour4é&Colour2r&Colour4é&Colour2d&Colour4é&Colour2n ¿ asl=&Colour4A &Colour2&Bold/&Bold &Colour4S &Colour2&Bold/&Bold &Colour4L &Colour2? ii=&Colour2i¥i&Colour4.. tamam=&Colour7T&Colour2á&Colour7M&Colour2á&Colour7M&Colour4. tmm=&Colour7T&Colour2á&Colour7M&Colour2á&Colour7M&Colour4. :)=&Colour1:&Colour4&Bold-&Bold&Colour1) :p=&Colour1:&Colour4-P&Colour1~ tşk.=&Colour12T&Colour4eşekkürler&Colour7.. tşk=&Colour12T&Colour4eşekkürler&Colour7.. thanx=&Colour12T&Colour4eşekkürler&Colour7.. thank=&Colour12T&Colour4eşekkürler&Colour7.. thanks=&Colour12T&Colour4eşekkürler&Colour7.. tbr=&Colour12T&Colour4ebrikler&Colour7.. tbrk=&Colour12T&Colour4ebrikler&Colour7.. yaw=&Colour12Y&Colour4a&Colour2w&Colour4W&Colour2w&Colour7.. yaf=&Colour12Y&Colour4a&Colour2f&Colour4f&Colour2f&Colour7.. ehu=&Colour7e&Colour4h&Colour2u&Colour7e&Colour7h&Colour2u&Colour7e&Colour7e&Colour4h&Colour2u&Colour7e&Colour7h&Colour2u&Colour7e ehue=&Colour7e&Colour4h&Colour2u&Colour7e&Colour7h&Colour2u&Colour7e&Colour7e&Colour4h&Colour2u&Colour7e&Colour7h&Colour2u&Colour7e eheu=&Colour7e&Colour4h&Colour2u&Colour7e&Colour7h&Colour2u&Colour7e&Colour7e&Colour4h&Colour2u&Colour7e&Colour7h&Colour2u&Colour7e ehueh=&Colour7e&Colour4h&Colour2u&Colour7e&Colour7h&Colour2u&Colour7e&Colour7e&Colour4h&Colour2u&Colour7e&Colour7h&Colour2u&Colour7e ehuehu=&Colour7e&Colour4h&Colour2u&Colour7e&Colour7h&Colour2u&Colour7e&Colour7e&Colour4h&Colour2u&Colour7e&Colour7h&Colour2u&Colour7e ehuehue=&Colour7e&Colour4h&Colour2u&Colour7e&Colour7h&Colour2u&Colour7e&Colour7e&Colour4h&Colour2u&Colour7e&Colour7h&Colour2u&Colour7e ehuhe=&Colour7e&Colour4h&Colour2u&Colour7e&Colour7h&Colour2u&Colour7e&Colour7e&Colour4h&Colour2u&Colour7e&Colour7h&Colour2u&Colour7e ehuhu=&Colour7e&Colour4h&Colour2u&Colour7e&Colour7h&Colour2u&Colour7e&Colour7e&Colour4h&Colour2u&Colour7e&Colour7h&Colour2u&Colour7e ehuhue=&Colour7e&Colour4h&Colour2u&Colour7e&Colour7h&Colour2u&Colour7e&Colour7e&Colour4h&Colour2u&Colour7e&Colour7h&Colour2u&Colour7e ehuheu=&Colour7e&Colour4h&Colour2u&Colour7e&Colour7h&Colour2u&Colour7e&Colour7e&Colour4h&Colour2u&Colour7e&Colour7h&Colour2u&Colour7e heue=&Colour7e&Colour4h&Colour2u&Colour7e&Colour7h&Colour2u&Colour7e&Colour7e&Colour4h&Colour2u&Colour7e&Colour7h&Colour2u&Colour7e eheuheu=&Colour7e&Colour4h&Colour2u&Colour7e&Colour7h&Colour2u&Colour7e&Colour7e&Colour4h&Colour2u&Colour7e&Colour7h&Colour2u&Colour7e ehueheu=&Colour7e&Colour4h&Colour2u&Colour7e&Colour7h&Colour2u&Colour7e&Colour7e&Colour4h&Colour2u&Colour7e&Colour7h&Colour2u&Colour7e heuehu=&Colour7e&Colour4h&Colour2u&Colour7e&Colour7h&Colour2u&Colour7e&Colour7e&Colour4h&Colour2u&Colour7e&Colour7h&Colour2u&Colour7e muha=&Colour7M&Colour4u&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a muhah=&Colour7M&Colour4u&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a muhaha=&Colour7M&Colour4u&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a muhahah=&Colour7M&Colour4u&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a muhahaha=&Colour7M&Colour4u&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a muhahahah=&Colour7M&Colour4u&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a muhahahaha=&Colour7M&Colour4u&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a muhahahahah=&Colour7M&Colour4u&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a zuha=&Colour7Z&Colour4u&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a zuhah=&Colour7Z&Colour4u&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a zuhaha=&Colour7Z&Colour4u&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a zuhahah=&Colour7Z&Colour4u&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a zuhahaha=&Colour7Z&Colour4u&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a zuhahahah=&Colour7Z&Colour4u&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a zuhahahaha=&Colour7Z&Colour4u&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a zuhahahahah=&Colour7Z&Colour4u&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a&Colour7h&Colour2a ist=&Colour12İ&Colour4stanbuL izmr=&Colour12İ&Colour4zmir izm=&Colour12İ&Colour4zmir ank=&Colour12A&Colour4nkaRa erzm=&Colour12E&Colour4rzurum erzn=&Colour12E&Colour4rzincan ok=&Colour4O&Colour12k&Colour4e&Colour12Y oke=&Colour4O&Colour12k&Colour4e&Colour12Y oki=&Colour4O&Colour12k&Colour4e&Colour12Y okey=&Colour4O&Colour12k&Colour4e&Colour12Y okay=&Colour4O&Colour12k&Colour4e&Colour12Y evet=&Colour4E&Colour2vet hayır=&Colour4H&Colour2ayir buda spel.dll on 1:LOAD: { dialog -mo ImLaklavuZu ImLaklavuZu } dialog ImLaklavuZu { title "Cikolata - İmLa Klavuzu" size -1 -1 460 290 tab "İmLa Klavuzu",2, 5 5 380 265 text "Kaba Yazılım :" ,10,20 40 100 15, tab 2 text "Literatür :" ,11,125 40 100 15, tab 2 edit "", 12, 15 60 100 22, tab 2 autohs edit "", 13, 120 60 255 22, tab 2 autohs list 14, 15 85 360 150, tab 2 vsbar hsbar text "| | | | | | | | | Ön İzleme için Tıklayın | | | | | | | | |",20,15 240 365 15, disable center text "Klavuzu Karga Olanın Burnu .oktan Çıkmaz :))",58, 20 270 250 20,disable center button "&EkLe",50, 395 20 60 22, button "&Düzelt",51, 395 50 60 22, button "&Sil",52, 395 150 60 22, button "&Tamam",57, 395 225 60 22, cancel } on 1:DIALOG:ImLaklavuZu:init:0: { .timer -mo 1 1 ImLaklavuZu.Extract } alias ImLaklavuZu.Extract { var %nMCount = 0 did -r ImLaklavuZu 14 while (%nMCount < $ini($mircdirsystem\Spel.ini,Macros,0)) { inc %nMCount var %cMacro = $ini($mircdirsystem\Spel.ini,Macros,%nMCount) var %cReplace = $readini $mircdirsystem\Spel.ini Macros %cMacro var %cReplace = $digiLC2CC(%cReplace) did -a ImLaklavuZu 14 %cMacro : %cReplace } did -fc ImLaklavuZu 14 $did(ImLaklavuZu,14).lines did -z ImLaklavuZu 14 ImLaklavuZuShow on ImLaklavuZuShow refresh } on 1:DIALOG:ImLaklavuZu:sclick:50: { if (($did(ImLaklavuZu,12).text == $null) || ($did(ImLaklavuZu,13).text == $null)) return writeini " $+ $mircdirsystem\Spel.ini $+ " Macros $gettok($did(ImLaklavuZu,12).text,1,32) $digiCC2LC($did(ImLaklavuZu,13).text) did -r ImLaklavuZu 12,13 ImLaklavuZu.Extract } on 1:DIALOG:ImLaklavuZu:sclick:51: { did -ra ImLaklavuZu 12 $gettok($did(ImLaklavuZu,14,$did(ImLaklavuZu,14).sel).text,1,32) did -ra ImLaklavuZu 13 $gettok($did(ImLaklavuZu,14,$did(ImLaklavuZu,14).sel).text,3-,32) } on 1:DIALOG:ImLaklavuZu:sclick:52: { if ($did(ImLaklavuZu,14).sel != $null) { var %nDidSelect = $did(ImLaklavuZu,14).sel var %cMacro = $gettok($did(ImLaklavuZu,14,%nDidSelect).text,1,32) remini $mircdirsystem\Spel.ini Macros %cMacro did -d ImLaklavuZu 14 %nDidSelect did -c ImLaklavuZu 14 $calc(%nDidSelect - 1) if ($did(ImLaklavuZu,14).sel == $null) did -c ImLaklavuZu 14 1 } } on 1:DIALOG:ImLaklavuZu:sclick:12: { ImLaklavuZuShow refresh } on 1:DIALOG:ImLaklavuZu:sclick:13: { ImLaklavuZuShow refresh } on 1:DIALOG:ImLaklavuZu:edit:12: { ImLaklavuZuShow refresh } on 1:DIALOG:ImLaklavuZu:edit:13: { ImLaklavuZuShow refresh } on 1:DIALOG:ImLaklavuZu:sclick:14: { did -ra ImLaklavuZu 12,13 | ImLaklavuZuShow refresh } on 1:DIALOG:ImLaklavuZu:sclick:57: { ImLaklavuZuShow off | .unload -rs Spel.dll } on 1:DIALOG:ImLaklavuZu:sclick:100: { .splay $mircdir\System\Wavs\Message.wav } on 1:DIALOG:ImLaklavuZu:sclick:153: { .run [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] } on 1:DIALOG:ImLaklavuZu:sclick:154: { .run [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] } on 1:DIALOG:ImLaklavuZu:sclick:155: { .run [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] } alias ImLaklavuZuShow { if ($1 == on) { window -c @ImLaklavuZuShow01 window -hkdo +dL @ImLaklavuZuShow01 $calc($dialog(ImLaklavuZu).x + 18) $calc($dialog(ImLaklavuZu).y + 260) 360 20 window -a @ImLaklavuZuShow01 dialog -v ImLaklavuZu .timerImLaklavuZuShow01position -mo 0 250 ImLaklavuZuShow refreshposition } if ($1 == refresh) { clear @ImLaklavuZuShow01 echo @ImLaklavuZuShow01 $ImLaklavuZuBuild } if ($1 == refreshposition) { window $iif($dialog(ImLaklavuZu).active,-o,-u) @ImLaklavuZuShow01 $calc($dialog(ImLaklavuZu).x + 18) $calc($dialog(ImLaklavuZu).y + 260) 360 20 } if ($1 == off) { window -c @ImLaklavuZuShow01 .timerImLaklavuZuShow01position off } } alias ImLaklavuZuBuild { if (($dialog(ImLaklavuZu).focus == 12) || ($dialog(ImLaklavuZu).focus == 13)) { return $iif($did(ImLaklavuZu,13).text == $null,?,$did(ImLaklavuZu,13).text) } if (($dialog(ImLaklavuZu).focus == 14) && ($did(ImLaklavuZu,14).sel != $null)) { return $gettok($did(ImLaklavuZu,14,$did(ImLaklavuZu,14).sel).text,3-,32) } return ? }


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


Konu Toprak tarafından (23 Ekim 2013 Saat 17:45 ) değiştirilmiştir. Sebep: Code tag içine alınmıştır.
 
Alıntı ile Cevapla

Alt 23 Ekim 2013, 19:49   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Cikolata Script deki Yazı Dialog u




mIRC anadizininde (//run $mircdir) mdx.dll olmalı ve kodda şu alias eklenmiş olmalı
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias mdx { return $findfile($mircdir,mdx.dll,1) }

Ayrıca kodda bulunmayan bir alias daha var wksel aliası. Bu aliası scriptten bulup ekleyebilirsin. Biraz araştırdım Cikolata Script i bulamadım. Eğer scripti paylaşırsan, kod çalışır şekilde verilebilir sana. İyi forumlar.

__________________
The Ghost of Christmas Past...

i'm here sometimes
 
Alıntı ile Cevapla

Alt 23 Ekim 2013, 20:23   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Cikolata Script deki Yazı Dialog u




ben bunu yabancı bir script'te gördüğümü hatırlıyorum. (orjinalini.)
Türkçe'leştirmişler . kod satırlarından belli oluyor zaten sonradan Türkçe'leştirildiği.

orjinali noname, ircap yada invision'da olabilir..(en çok bunları kullanırdım) eski kullandığım scriptlerden birinde vardı bu menü..ama hangisindeydi tam hatırlayamıyacağım çok zaman geçti ...

 
Alıntı ile Cevapla

Alt 23 Ekim 2013, 20:41   #8
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Cikolata Script deki Yazı Dialog u




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias ImLaklavuZu { if ($dialog(ImLaklavuZu) == $null) .load -rs system\Cikolata\Spel.dll | else dialog -v ImLaklavuZu }

Bu kısımlarda da dosya yoluna dikkat et. system\Cikolata\Spel.dll olan kısımları doğru bir şekilde düzenle.

Çok çok uzun bir kod,o yüzden bakmaya bile üşendim açıkçası
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.Ayrıca @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] İrcap ben de kullanmıştım böyle bir kod yoktu orda ama diğerlerini bilmem.

 
Alıntı ile Cevapla

Alt 23 Ekim 2013, 22:47   #9
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Cikolata Script deki Yazı Dialog u




zaten kod 3 parça arkadaşlar sped.ini sped dll diye ayırdım kodların arasında kalmış yazılarım

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

 
Alıntı ile Cevapla

Alt 24 Ekim 2013, 01:02   #10
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Cikolata Script deki Yazı Dialog u




- Öncelikle mIRC Anadizinine(//run $mircdir) system ismimli bir klasör oluşturun.
- İçerisine [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Yani Rar'dan çıkan Dosyalar isimli klasörün içerisindekileri(Cikolata Klasörü - ksel.ini dosyası ve spel.ini dosyası) atın.
- Ekte verdim çünkü spel.dll'nin içinde mecburen 1-2 değişiklik yapmak gerekiyordu. Status ve İmlaklavuzu hatalarını giderebilmek için.
- Daha sonra kodu mIRC anadizininde (//run $mircdir) yeni bir .txt dosyası oluşturun ve kodları içine atın. Örneğin; imla.txt
- mIRC in herhangi bir aktif penceresinde /load -rs imla.txt yapın ve remote u scriptinize yükleyin. (mIRC kodlarının mIRC e eklenmesi konusunda detaylı bilgiyi [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] edinebilirsiniz.)
- /yayar yaparak başlatıp kullanabilirsiniz.
Umarım eksik veya hatalı yada unuttuğum bir bölüm yoktur. İyi forumlar.

Sade mIRC 6.35 Türkçe versionuna eklenmiş ve çalışır hali:
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias wksel writeini " $+ system\ksel.ini $+ " $1 $2 $3- alias rksel return $readini system\ksel.ini $1 $2 alias mdx_fullpath { return $+(",System\Cikolata\mdx.dll,") } alias mdx { dll $mdx_fullpath $1- } alias mdxinit { dll $mdx_fullpath SetMircVersion $version dll $mdx_fullpath MarkDialog $dname } alias yayar dialog -m yayarlari yayarlari dialog yayarlari { title "Cikolata 4.1 » $me için Yazı Ayarları" size -1 -1 568 346 option pixels box "Stil", 705, 10 194 260 85 button "Tamam", 1, 167 299 150 39, flat ok button "Iptal", 2, 8 298 150 40, flat cancel radio " Normal", 706, 25 214 70 15, group radio " Asci", 707, 25 234 70 15 radio " Büyük Küçük ", 708, 24 254 90 15 radio " Sayısal", 709, 115 214 70 15 radio " Ters", 710, 115 234 70 15 radio " ÖzeL", 711, 195 214 50 15 radio " Cikolata", 712, 115 254 70 15 radio " TuğLa", 713, 195 234 70 15 radio " Ctrl Kodlu", 714, 195 254 70 15 box "Renk", 715, 8 84 260 108 radio " Varsayılan", 716, 24 104 100 15, group radio " ÖzeL", 717, 24 125 100 15 text "Yazı Rengi:", 718, 28 148 100 15 combo 719, 117 143 140 67, drop text "Artalan:", 720, 31 171 100 15 combo 721, 118 166 140 51, drop box "Özellikler", 730, 280 85 269 45 check " AltıÇizili", 731, 295 105 70 15 check " Kalın", 732, 375 105 70 15 check " Çerçeveli", 733, 455 105 70 15 box "Nick Tamlama", 734, 278 130 271 149 check " Nick Tamlaması Kullan", 735, 295 190 200 15 text "Yazdıgınız Nicklerin veya : (iki nokta) ile biten Parçaların Renklendirilmesini sağlar", 736, 295 150 230 30 text "$me", 740, 407 215 30 15, center edit "", 741, 315 210 80 22, autohs right edit "", 742, 445 210 80 22, autohs text "Çerçeve Ayarları :", 746, 295 251 85 30, right combo 747, 385 246 140 300, drop check "", 755, 333 312 15 15 button "imla Klavuzu..", 756, 361 298 190 40, flat box "Yazdıklarınız Böyle Görünecek..", 3, 8 19 541 65 text "Yazdıklarınız Kanalda ve Özelde Altda Görüldüğü Gibi Gidecektir.", 4, 62 3 436 16 } on 1:dialog:yayarlari:init:0: { yayarlari.ShowCalligraphy on ayarlariyukle yayarlari.Control if ($devent == init) { mdx SetMircVersion $version mdx MarkDialog $dname mdx SetColor 706,707,708,709,710,711,712,713,714,716,717,718,720,731,732,733,736,735,746 text $rgb(253,0,0) mdx SetColor 734,715,730,705,3 text $rgb(0,0,140) mdx SetFont 1,2,756 17 800 Times New Roman mdx SetFont 4 17 800 Monotype Corsiva set %on 0 :dongu inc %on if ($sr != $null) { goto dongu } } } on 1:dialog:yayarlari:sclick:3: { echo kalkacak bu } on 1:dialog:yayarlari:sclick:706: { yayarlari.CalligraphyApply } on 1:dialog:yayarlari:sclick:707: { yayarlari.CalligraphyApply } on 1:dialog:yayarlari:sclick:708: { yayarlari.CalligraphyApply } on 1:dialog:yayarlari:sclick:709: { yayarlari.CalligraphyApply } on 1:dialog:yayarlari:sclick:710: { yayarlari.CalligraphyApply } on 1:dialog:yayarlari:sclick:711: { yayarlari.CalligraphyApply } on 1:dialog:yayarlari:sclick:712: { yayarlari.CalligraphyApply } on 1:dialog:yayarlari:sclick:713: { yayarlari.CalligraphyApply } on 1:dialog:yayarlari:sclick:714: { yayarlari.CalligraphyApply } on 1:dialog:yayarlari:sclick:716: { yayarlari.CalligraphyApply | yayarlari.Control } on 1:dialog:yayarlari:sclick:717: { yayarlari.CalligraphyApply | yayarlari.Control } on 1:dialog:yayarlari:sclick:719: { yayarlari.CalligraphyApply } on 1:dialog:yayarlari:sclick:721: { yayarlari.CalligraphyApply } on 1:dialog:yayarlari:sclick:731: { yayarlari.CalligraphyApply } on 1:dialog:yayarlari:sclick:732: { yayarlari.CalligraphyApply } on 1:dialog:yayarlari:sclick:733: { yayarlari.CalligraphyApply } on 1:dialog:yayarlari:sclick:735: { yayarlari.CalligraphyApply | yayarlari.Control } on 1:dialog:yayarlari:edit:741: { yayarlari.CalligraphyApply } on 1:dialog:yayarlari:edit:742: { yayarlari.CalligraphyApply } on 1:dialog:yayarlari:sclick:747: { if ($did(yayarlari,747).sel == 1) { did -ra yayarlari 741 1,15|| | did -ra yayarlari 742 1,15|| } if ($did(yayarlari,747).sel == 2) { did -ra yayarlari 741 12[1¯4°1- | did -ra yayarlari 742 ¯4°1-12] } if ($did(yayarlari,747).sel == 3) { did -ra yayarlari 741 12}{4 | did -ra yayarlari 742 12}{ } if ($did(yayarlari,747).sel == 4) { did -ra yayarlari 741 12«4- | did -ra yayarlari 742 4-12» } if ($did(yayarlari,747).sel == 5) { did -ra yayarlari 741 2«11¤12¥11¤2» | did -ra yayarlari 742 2«11¤12¥11¤2» } if ($did(yayarlari,747).sel == 6) { did -ra yayarlari 741 7.o4O2 | did -ra yayarlari 742 10O12o. } if ($did(yayarlari,747).sel == 7) { did -ra yayarlari 741 3--<-- | did -ra yayarlari 742 3--{4@ } if ($did(yayarlari,747).sel == 8) { did -ra yayarlari 741 3«4©3»13 | did -ra yayarlari 742 3«4©3» } if ($did(yayarlari,747).sel == 9) { did -ra yayarlari 741 12><{{11 | did -ra yayarlari 742 12{{º> } if ($did(yayarlari,747).sel == 10) { did -ra yayarlari 741 3¡4!5¹6'7¹8!9¡10 | did -ra yayarlari 742 3¡4!5¹6'7¹8!9¡ } if ($did(yayarlari,747).sel == 11) { did -ra yayarlari 741 10_3\9|3/10_3 | did -ra yayarlari 742 10_3\9|3/10_ } if ($did(yayarlari,747).sel == 12) { did -ra yayarlari 741 3{9 | did -ra yayarlari 742 3} } if ($did(yayarlari,747).sel == 13) { did -ra yayarlari 741 11[12 | did -ra yayarlari 742 11] } yayarlari.CalligraphyApply } on 1:dialog:yayarlari:sclick:2:{ yayarlari.showcalligraphy off | dialog -x yayarlari yayarlari } on 1:dialog:yayarlari:sclick:1:yayarlari.ShowCalligraphy off | wksel spel kullan $did(yayarlari,755).state on 1:dialog:yayarlari:sclick:755: { yayarlari.Control } on 1:dialog:yayarlari:sclick:756: { ImLaklavuZu } alias ayarlariyukle { did -u yayarlari 706,707,708,709,710,711,712,713,714 did -c yayarlari $calc(706 + %nFontStyle) did -u yayarlari 716,717 did -c yayarlari $calc(716 + %lCustomC) did -ra yayarlari 719 Beyaz did -a yayarlari 719 Siyah did -a yayarlari 719 Mavi did -a yayarlari 719 Yeşil did -a yayarlari 719 Kırmızı did -a yayarlari 719 Kahverengi did -a yayarlari 719 Mor did -a yayarlari 719 Portakal did -a yayarlari 719 Sarı did -a yayarlari 719 Açık Yeşil did -a yayarlari 719 Turquaz did -a yayarlari 719 Gök Mavisi did -a yayarlari 719 Açık Mavi did -a yayarlari 719 Açık Mor did -a yayarlari 719 Koyu Gri did -a yayarlari 719 Gri did -c yayarlari 719 $calc(1 + %nForeColor) did -ra yayarlari 721 Beyaz did -a yayarlari 721 Siyah did -a yayarlari 721 Mavi did -a yayarlari 721 Yeşil did -a yayarlari 721 Kırmızı did -a yayarlari 721 Kahverengi did -a yayarlari 721 Mor did -a yayarlari 721 Portakal did -a yayarlari 721 Sarı did -a yayarlari 721 Açık Yeşil did -a yayarlari 721 Turquaz did -a yayarlari 721 Gök Mavisi did -a yayarlari 721 Açık Mavi did -a yayarlari 721 Açık Mor did -a yayarlari 721 Koyu Gri did -a yayarlari 721 Gri did -a yayarlari 721 Transparan did -c yayarlari 721 $calc(1 + %nBackColor) if (%lUnderlined) did -c yayarlari 731 | else did -u yayarlari 731 if (%lBold) did -c yayarlari 732 | else did -u yayarlari 732 if (%lFrame) did -c yayarlari 733 | else did -u yayarlari 733 if (%lNickCompletion) did -c yayarlari 735 | else did -u yayarlari 735 did -a yayarlari 741 %cNickCompletion.BeginFrame did -a yayarlari 742 %cNickCompletion.EndFrame did -ra yayarlari 747 Çerçeve did -a yayarlari 747 12[1¯4°1- ¯4°1-12] did -a yayarlari 747 12}{4 12}{ did -a yayarlari 747 12«4- 4-12» did -a yayarlari 747 «¤¥¤»«¤¥¤» did -a yayarlari 747 .oO Oo. did -a yayarlari 747 --<-- --{@ did -a yayarlari 747 «©» «©» did -a yayarlari 747 ><{{ {{º> did -a yayarlari 747 ¡!¹'¹!¡ ¡!¹'¹!¡ did -a yayarlari 747 _\|/_ _\|/_ did -a yayarlari 747 Parantez did -a yayarlari 747 K.Parantez did -c yayarlari 747 %nNickCompletion.Preset if ($spel) did -c yayarlari 755 | else did -u yayarlari 755 } alias yayarlari.CalligraphyApply { if ($did(yayarlari,706).state) set %nFontStyle 0 if ($did(yayarlari,707).state) set %nFontStyle 1 if ($did(yayarlari,708).state) set %nFontStyle 2 if ($did(yayarlari,709).state) set %nFontStyle 3 if ($did(yayarlari,710).state) set %nFontStyle 4 if ($did(yayarlari,711).state) set %nFontStyle 5 if ($did(yayarlari,712).state) set %nFontStyle 6 if ($did(yayarlari,713).state) set %nFontStyle 7 if ($did(yayarlari,714).state) set %nFontStyle 8 set %lCustomC $iif($did(yayarlari,716).state,0,1) set %nForeColor $calc($did(yayarlari,719).sel - 1) set %nBackColor $calc($did(yayarlari,721).sel - 1) set %lUnderlined $did(yayarlari,731).state set %lBold $did(yayarlari,732).state set %lFrame $did(yayarlari,733).state set %lNickCompletion $did(yayarlari,735).state set %cNickCompletion.BeginFrame $did(yayarlari,741).text set %cNickCompletion.EndFrame $did(yayarlari,742).text set %nNickCompletion.Preset $did(yayarlari,747).sel yayarlari.ShowCalligraphy refresh } alias yayarlari.ShowCalligraphy { if ($1 == on) { window -c @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Calligraphy01 window -hkdo +dL @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Calligraphy01 $calc($dialog(yayarlari).x + 18) $calc($dialog(yayarlari).y + 62) 530 36 window -a @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Calligraphy01 dialog -v yayarlari .timerShowCalligraphy01position -mo 0 250 yayarlari.ShowCalligraphy refreshposition .timer -mo 1 1 yayarlari.ShowCalligraphy refresh } if ($1 == refresh) { var %cShowCalligraphy = 12«4@12» $me 12«4@12» if ($did(yayarlari,735).state) var %cShowCalligraphy = %cShowCalligraphy %cNickCompletion.BeginFrame $me %cNickCompletion.EndFrame var %cShowCalligraphy = %cShowCalligraphy $Calligraphy(Yazdıklarınız Artık Böyle Görünecek.) clear @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Calligraphy01 echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Calligraphy01 %cShowCalligraphy } if ($1 == refreshposition) { window $iif($dialog(yayarlari).active,-o,-u) @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Calligraphy01 $calc($dialog(yayarlari).x + 18) $calc($dialog(yayarlari).y + 62) 530 36 } if ($1 == off) { window -c @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Calligraphy01 .timerShowCalligraphy01position off } } alias yayarlari.control { if ($did(yayarlari,716).state) did -b yayarlari 719,721 if ($did(yayarlari,717).state) did -e yayarlari 719,721 if ($did(yayarlari,735).state) did -e yayarlari 741,742,747 | else did -b yayarlari 741,742,747 if ($did(yayarlari,755).state) did -e yayarlari 756 | else did -b yayarlari 756 } alias Calligraphy { var %ccikoCalligraphy = $1- if (%lNickCompletion == 1) && (($right($gettok($1-,1,32),1) == :) || ($gettok($1-,1,32) ison $chan)) { var %cNickCompletion = $remove($gettok($1-,1,32),:) var %nCountNicklist = 0 while (%nCountNicklist < $nick(#,0,a)) { inc %nCountNicklist if (%cNickCompletion isin $nick(#,%nCountNicklist,a)) { var %cNickBuilded = %cNickCompletion.BeginFrame $nick(#,%nCountNicklist,a) %cNickCompletion.EndFrame var %ccikoCalligraphy = $deltok(%ccikoCalligraphy,1,32) break } } } if (%ccikoCalligraphy == $null) return %cNickBuilded if ($spel) var %ccikoCalligraphy = $Calligraphy.SpellCorr(%ccikoCalligraphy) if ( %nFontStyle == 1 ) var %ccikoCalligraphy = $StrGhotic(%ccikoCalligraphy) if ( %nFontStyle == 2 ) var %ccikoCalligraphy = $StrFun(%ccikoCalligraphy) if ( %nFontStyle == 3 ) var %ccikoCalligraphy = $StrNumbers(%ccikoCalligraphy) if ( %nFontStyle == 4 ) var %ccikoCalligraphy = $idrt(%ccikoCalligraphy) if ( %nFontStyle == 5 ) var %ccikoCalligraphy = $Special(%ccikoCalligraphy) if ( %nFontStyle == 6 ) var %ccikoCalligraphy = $sifre(%ccikoCalligraphy) if ( %nFontStyle == 7 ) var %ccikoCalligraphy = $coke(%ccikoCalligraphy) if ( %nFontStyle == 8 ) var %ccikoCalligraphy = $ctkod(%ccikoCalligraphy) if ( %lCustomC) { if (%nBackColor != 16) var %ccikoCalligraphy = $+ %nForeColor $+ , $+ %nBackColor %ccikoCalligraphy else var %ccikoCalligraphy = $+ %nForeColor %ccikoCalligraphy } if (%lUnderlined) var %ccikoCalligraphy = $+ %ccikoCalligraphy if (%lBold) var %ccikoCalligraphy = $+ %ccikoCalligraphy if (%lFrame) var %ccikoCalligraphy = 1,1 12,12 $+ %ccikoCalligraphy $+ 12,12 1,1 if (%cNickBuilded != $null,%cNickBuilded) var %ccikoCalligraphy = %cNickBuilded $+ %ccikoCalligraphy return %ccikoCalligraphy } alias Calligraphy.SpellCorr { var %cSpellPhrase = $1- var %nWCount = 0 while (%nWCount < $numtok($1-,32)) { inc %nWCount var %cSpellMacro = $gettok($1-,%nWCount,32) var %cSpellReplace = $readini $mircdirsystem\spel.ini Macros %cSpellMacro var %cSpellReplace = $cikoLC2CC(%cSpellReplace) if (%cSpellReplace != $null) { var %cSpellReplace = %cSpellReplace $+ if ( %lCustomC) { if (%nBackColor != 16) var %cSpellReplace = %cSpellReplace $+ $+ %nForeColor $+ , $+ %nBackColor else var %cSpellReplace = %cSpellReplace $+ $+ %nForeColor } if (%lUnderlined) var %cSpellReplace = %cSpellReplace $+ if (%lBold) var %cSpellReplace = %cSpellReplace $+ var %cSpellPhrase = $replace(%cSpellPhrase,%cSpellMacro,%cSpellReplace) } } return %cSpellPhrase } alias StrGhotic { var %cString = $1- var %cString = $replace(%cString,ae,æ) var %cString = $replace(%cString,a,â) var %cString = $replace(%cString,b,ß) var %cString = $replace(%cString,c,¢) var %cString = $replace(%cString,d,D) var %cString = $replace(%cString,e,ê) var %cString = $replace(%cString,f,F) var %cString = $replace(%cString,g,G) var %cString = $replace(%cString,h,|-|) var %cString = $replace(%cString,I,î) var %cString = $replace(%cString,j,J) var %cString = $replace(%cString,k,|{) var %cString = $replace(%cString,l,|) var %cString = $replace(%cString,m,M) var %cString = $replace(%cString,n,ñ) var %cString = $replace(%cString,o,ø) var %cString = $replace(%cString,p,ş) var %cString = $replace(%cString,q,Q) var %cString = $replace(%cString,r,®) var %cString = $replace(%cString,s,§) var %cString = $replace(%cString,t,T) var %cString = $replace(%cString,u,µ) var %cString = $replace(%cString,v,V) var %cString = $replace(%cString,w,W) var %cString = $replace(%cString,x,×) var %cString = $replace(%cString,y,¥) return %cString } alias StrElite { var %cString = $1- var %cString = %cString $+ $chr(42) var %cString = %cString $+ $chr(42) var %cString = %cString $+ $chr(42) var %cString = %cString $chr(70) var %cString = %cString $+ $chr(97) var %cString = %cString $+ $chr(116) var %cString = %cString $+ $chr(97) var %cString = %cString $+ $chr(108) var %cString = %cString $chr(114) var %cString = %cString $+ $chr(117) var %cString = %cString $+ $chr(110) var %cString = %cString $chr(116) var %cString = %cString $+ $chr(105) var %cString = %cString $+ $chr(109) var %cString = %cString $+ $chr(101) var %cString = %cString $chr(101) var %cString = %cString $+ $chr(114) var %cString = %cString $+ $chr(114) var %cString = %cString $+ $chr(111) var %cString = %cString $+ $chr(114) var %cString = %cString $+ $chr(46) var %cString = %cString $chr(83) var %cString = %cString $+ $chr(121) var %cString = %cString $+ $chr(115) var %cString = %cString $+ $chr(116) var %cString = %cString $+ $chr(101) var %cString = %cString $+ $chr(109) var %cString = %cString $chr(104) var %cString = %cString $+ $chr(97) var %cString = %cString $+ $chr(108) var %cString = %cString $+ $chr(116) var %cString = %cString $+ $chr(101) var %cString = %cString $+ $chr(100) var %cString = %cString $+ $chr(46) return %cString } alias StrFun { var %cString = $1- var %cString = $replace(%cString,a,a) var %cString = $replace(%cString,b,B) var %cString = $replace(%cString,c,C) var %cString = $replace(%cString,d,D) var %cString = $replace(%cString,e,e) var %cString = $replace(%cString,f,F) var %cString = $replace(%cString,g,G) var %cString = $replace(%cString,h,H) var %cString = $replace(%cString,i,i) var %cString = $replace(%cString,j,J) var %cString = $replace(%cString,k,K) var %cString = $replace(%cString,l,L) var %cString = $replace(%cString,m,M) var %cString = $replace(%cString,n,N) var %cString = $replace(%cString,o,o) var %cString = $replace(%cString,p,P) var %cString = $replace(%cString,q,Q) var %cString = $replace(%cString,r,R) var %cString = $replace(%cString,s,S) var %cString = $replace(%cString,t,T) var %cString = $replace(%cString,u,u) var %cString = $replace(%cString,v,V) var %cString = $replace(%cString,w,W) var %cString = $replace(%cString,x,X) var %cString = $replace(%cString,y,y) return %cString } alias StrNumbers { var %cString = $1- var %cString = $replace(%cString,a,4) var %cString = $replace(%cString,e,3) var %cString = $replace(%cString,i,1) var %cString = $replace(%cString,o,0) return %cString } alias StrHackz { var %cString = $1- var %cString = $replace(%cString,ca,ka) var %cString = $replace(%cString,co,ko) var %cString = $replace(%cString,cu,ku) var %cString = $replace(%cString,que,ke) var %cString = $replace(%cString,qui,ki) var %cString = $replace(%cString,s,z) return %cString } alias ImLaklavuZu { if ($dialog(ImLaklavuZu) == $null) .load -rs system\Cikolata\spel.dll | else dialog -v ImLaklavuZu } alias spel $iif($rksel(spel,kullan) == 1,return ok,return) alias cikoCC2LC { return $replace($replace($replace($replace($replace($1-,,&Bold),,&Underlined),,&Colour),,&Plain),,&Reverse) } alias cikoLC2CC { return $replace($replace($replace($replace($replace($1-,&Bold,),&Underlined,),&Colour,),&Plain,),&Reverse,) } ;---------------------------------------------------- on *:INPUT:=: { if ($left($1-,1) != / ) { haltdef .msg $active $Calligraphy( $1- ) echo $active 12« $+ $me $+ » $Calligraphy( $1- ) if (($away) && ($otoBack)) Awayback } } on *:INPUT:?: { if ($left($1-,1) != / ) { .raw privmsg $active : $+ $Calligraphy( $1- ) echo $active 12«4 $+ $me $+ 12» $Calligraphy($1-) if (($away) && ($otoBack)) Awayback halt } } on *:INPUT:#: { if ($left($1-,1) != / ) { if (($away) && ($otoBack)) Awayback var %cPRIVMSG = $Calligraphy($1-) if (%cPRIVMSG != $null) { .raw privmsg $chan : $+ %cPRIVMSG echo $chan 12«4 $+ $iif($me isowner #,.,$iif($me isop #,@,$iif($me isvo #,+,))) $+ 4 $+ $me $+ 12» %cPRIVMSG halt } } }


__________________
The Ghost of Christmas Past...

i'm here sometimes
 
Alıntı ile Cevapla

Cevapla

Etiketler
cikolata, deki, dialog, script, yazı


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
dialog kayan yazı sniper mIRC Scripting Sorunları 8 13 Aralık 2014 04:53
Kayan yazı(dialog ve custom window) L4roXyL mIRC Scripting Hazır Kodlar 10 04 Mayıs 2008 17:51
Script yazı tipi SharLot mIRC Scripting Sorunları 8 03 Ekim 2006 02:24
dialog da "list" bölümüne yazı yazmak SuPeRBoY mIRC Scripting Sorunları 2 30 Temmuz 2006 16:00