dialog afonts {
  title "Font Ayarları"
  size -1 -1 244 78
  option dbu
  list 1, 4 10 97 58, sort size
  scroll "", 2, 102 31 95 8, range 1 35 horizontal
  box "", 3, 103 41 95 19
  button "&Ekle", 4, 204 12 31 12
  button "&Sil ", 5, 204 28 31 12
  button "&Kabul", 6, 204 44 31 12, ok
  text "&Font:", 7, 102 12 15 8
  text "&Boyut:", 8, 102 22 18 8
  text "", 9, 118 12 80 8
  text "", 10, 118 22 80 8
  box "Fontlar", 11, 1 2 240 70
  check "&Set as default", 12, 106 47 44 10
  check "Bold", 13, 155 47 23 10
}
on *:dialog:afonts:init:*: {
  afonts.list
  did -ra $dname 9 $gettok($readini($afonts.spc($mircini),fonts,fstatus),1,44)
  did -c $dname 2 $readini($afonts.spc($script),fonts,size)
  did -ra $dname 10 $readini($afonts.spc($script),fonts,size) 
  $iif($readini($afonts.spc($script),fonts,default) = 1,did -c $dname 12)
  $iif($readini($afonts.spc($script),fonts,bold) = 1,did -c $dname 13)
  $iif($gettok($readini($afonts.spc($mircini),fonts,fstatus),1,44),did -c $dname 1 $didwm($dname,1,$ifmatch)) 
} 
on *:dialog:afonts:scroll:2:{
  afonts.set $did(2).sel 
  did -ra $dname 10 $did(2).sel  
}
on *:dialog:afonts:sclick:*: { 
  if ($did = 4)  {
    write $afonts.spc($scriptdirafonts.dat) $$input(Font adı giriniz ve enter tuşuna basınız!,129)
    afonts.list
  }
  elseif ($did = 5) {
    if ($did(1).sel) { 
      write $+(-dw,$afonts.spc($did(1).seltext)) $afonts.spc($+($scriptdir,afonts.dat)) 
      afonts.list
    }
  }
  elseif ($did = 12) {
    writeini -n $afonts.spc($script) fonts default $iif($did(12).state = 1,1,0)
  }
  elseif ($did = 13) {
    writeini -n $afonts.spc($script) fonts bold $iif($did(13).state = 1,1,0) 
  }
}
on *:dialog:afonts:dclick:*: { if ($did = 1) { afonts.set $did(1).seltext | did -ra $dname 9 $did($dname,1).seltext } }
; Local aliases
alias afonts { $iif(!$dialog(afonts),dialog -m afonts afonts,echo $color(info) -a - Afonts dialog already open!) }
alias -l afonts.bold { if ($readini($afonts.spc($script),fonts,bold) = 1) { return -b } } 
alias -l afonts.chans { var %a = 1 | while ($chan(%a)) { | font $afonts.bold $chan(%a) $1- | inc %a } }
alias -l afonts.querys { var %a = 1 | while ($query(%a)) { | font $afonts.bold $query(%a) $1- | inc %a } }
alias -l afonts.chats { var %a = 1 | while ($chat(%a)) { | font $afonts.bold $chat(%a) $1- | inc %a } }
alias -l afonts.cwins { var %a = 1 | while ($window(%a)) { | font $afonts.bold $window(%a) $1- | inc %a } }
alias -l afonts.spc { return $+($chr(34),$1-,$chr(34)) }
alias -l afonts.list { 
  if ($isfile($afonts.spc($scriptdirafonts.dat))) {
    did -r afonts 1
    loadbuf -o afonts 1 $afonts.spc($scriptdirafonts.dat)
  }
  else {
    var %f = 1,%g = Arial,Arial Black,Times,Times New Roman,Webdings,Tahoma,Verdana,Terminal,System,Symbol,Script,Roman,Modern,Lucida Console,Georgia,Fixedsys,Comic Sans Ms,Marlett,Ms Sans Serif
    while (%f <= $numtok(%g,44)) {
      write $afonts.spc($scriptdirafonts.dat) $gettok(%g,%f,44)
      inc %f
    }
    loadbuf -o afonts 1 $afonts.spc($scriptdirafonts.dat)
  }
}
alias -l afonts.set { 
  if ($1-) {
    if ($readini($afonts.spc($script),fonts,default) = 1) { 
      scid -a font $+(-sd,$afonts.bold) $1-
      var %d = $readini($afonts.spc($mircini),fonts,fstatus) 
      scid -a afonts.chans $1- 
      scid -a afonts.querys $1- 
      scid -a afonts.chats $1- 
      scid -a afonts.cwins $1-  
      writeini -n $afonts.spc($mircini) fonts fmessage %d 
      writeini -n $afonts.spc($mircini) fonts ffinger %d 
      writeini -n $afonts.spc($mircini) fonts fquery %d  
      writeini -n $afonts.spc($mircini) fonts fchannel %d 
      writeini -n $afonts.spc($mircini) fonts flist %d    
      writeini -n $afonts.spc($mircini) fonts flinks %d 
      writeini -n $afonts.spc($mircini) fonts f
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
writeini -n $afonts.spc($mircini) fonts fnotify %d 
      writeini -n $afonts.spc($script) fonts size $did(afonts,2).sel
    }
    else { 
      scid -a font $+(-s,$afonts.bold) $1-
      scid -a afonts.chans $1- 
      scid -a afonts.querys $1- 
      scid -a afonts.chats $1- 
      scid -a afonts.cwins $1- 
      writeini -n $afonts.spc($script) fonts size $did(afonts,2).sel
    }
  }
}
[fonts]
size=12
bold=1
default=1