| ZenqerDenq | 23 Ekim 2013 15:57 |
Cevap: Cikolata Script deki Yazı Dialog u
Kod:
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 ?
}
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] |
