Cikolata Script deki Yazı Dialog u - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

ZenqerDenq · 22 Ekim 2013, 03:00

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 ?

kheldor · 22 Ekim 2013, 06:54

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.

Krieq · 22 Ekim 2013, 07:08

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ı.

22 Ekim 2013, 16:48

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

ZenqerDenq · 23 Ekim 2013, 15:57

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.

Feragat · 23 Ekim 2013, 19:49

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.

saywhat · 23 Ekim 2013, 20:23

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 ...

Krieq · 23 Ekim 2013, 20:41

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.

ZenqerDenq · 23 Ekim 2013, 22:47

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...]

Feragat · 24 Ekim 2013, 01:02

- Ö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 
    }
  } 
}

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

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

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.