oasiz font dialog

dialog IRC.Colors {
  title "IRC.Font.System"
  size -1 -1 105 230
  option dbu
  combo 1, 3 10 95 50, size drop
  combo 2, 3 22 95 50, size drop
  combo 3, 3 34 95 50, size drop
  combo 4, 3 46 95 50, size drop
  combo 5, 3 58 95 50, size drop
  combo 6, 3 70 95 50, size drop
  combo 7, 3 82 95 50, size drop
  combo 8, 3 94 95 50, size drop
  combo 9, 3 106 95 50, size drop
  combo 10, 3 118 95 50, size drop
  combo 11, 3 130 95 50, size drop
  combo 12, 3 142 95 50, size drop
  text "Font.Info", 13, 30 155 25 8,
  edit "", 14, 15 162 60 11, autohs
  edit "", 15, 15 177 60 11, autohs
  edit "", 16, 15 192 60 11, autohs
  button "Switch Font", 17, 15 210 60 12, center
}

on *:dialog:IRC.Colors:init:0:{
  didtok IRC.Colors 1 44 A-L,Aharoni,Andalus,Angsana\bNew,AngsanaUPC,Arabic\bTransparent,Arabic\bTypesetting,Arial,Arial\bBaltic,Arial\bBlack,Arial\bCE,Arial\bCYR,Arial\bGreek,Arial\bTUR,Batang,BatangChe,Browallia\bNew,BrowalliaUPC,Calibri,Cambria,Cambria\bMath,Candara,Comic\bSans\bMS,Consolas,Constantia,Corbel,Cordia\bNew,CordiaUPC,Courier\bNew,Courier\bNew\bBaltic,Courier\bNew\bCE,Courier\bNew\bCYR,Courier\bNew\bGreek,Courier\bNew\bTUR,DaunPenh,David,DFKai-SB,DilleniaUPC,DokChampa,Dotum,DotumChe, Estrangelo\bEdessa,EucrosiaUPC,Euphemia,FangSong,Franklin\bGothic\BMedium,FrankRuehl,FreesiaUPC,Gautami,Georgia,Gisha,Gulim,GulimChe,Gungsuh,GungsuhChe,Impact,IrisUPC,Iskoola\bPota,JasmineUPC,KaiTi,Kalinga,Kartika,KodchiangUPC,Latha,Leelawadee,Lavenim\bMT,LilyUPC,Lucida\bConsole,Lucida\bSans\bUnicode
  didtok IRC.Colors 2 44 M-W,Malgum\bGothic,Mangal,Marlett,Meiryo,Meiryo\bUI,Microsoft\bHimalaya,Mircosoft\bJhengHei,Mircosoft\bSans\bSerif,Microsoft\bUlghur,Microsoft\bYaHei,Microsoft\bYi\bBaiti,MingLiU,MingLiU-ExtB,MingLiU_HKSCS,MingLiU_HKSCS-ExtB,Miriam,Miriam\bFixed,Mongolian\bBaiti,MoolBoran,MS\bGothic,MS\Mincho,MS\bPGothic,MS\bPMincho,MS\bUI\bGothic,MV\bBoli,Narkism,NSimSun,Nyala,Palatino\bLinotype,Plantagenet\bCherokee,PMingLiU,PMingLiU-ExtB,Raavi,Rod,Segoe\bPrint,Segoe\bScript,Segoe\UI,Shruti,SimHei,Simplified\bArabic,Simplified\bArabic\bFixed,SimSun,SimSun-ExtB,SWGamekeys\bMT,SWMacro,Sylfaen,Symbol,Tahoma,Times\bNew\bRoman,Times\bNew\bRoman\bBaltic,Times\bNew\bRoman\bCE,Times\bNew\bRoman\bCYR,Times\bNew\bRoman\bGreek,Times\bNew\bRoman\bTUR,Traditional\bArabic,Trebuchet\bMS,Tunga,Verdana,Vrinda,Webdings,Wingdings
  didtok IRC.Colors 3 44 Greens,#00FF00,#003300,#003333,#006600,#006633,#009900,#009933,#009966,#00CC00,#00CC33,#00CC66,#00FF00,#00FF33,#00FF66,#336600,#336633,#339900,#339933,#339966,#33CC00,#33CC33,#33CC66,#33FF00,#33FF33,#33FF66,#669900,#669933,#669966,#66CC00,#66CC33,#66CC66,#66FF00,#66FF33,#66FF66
  didtok IRC.Colors 4 44 Blues,#0000FF,#000033,#000066,#000099,#0000CC,#003366,#003399,#0033CC,#0033FF,#0066FF,#0066CC,#006699,#0099FF,#0099CC,#009999,#00CCFF,#00CCCC,#00FFFF,#00FFCC,#3366FF,#3366CC,#336699,#3399FF,#3399CC,#33CCFF,#33CCCC,#33FFFF,#33FFCC,#66CCFF,#66CCCC,#66FFFF,#66FFCC
  didtok IRC.Colors 5 44 Purples,#990066,#990099,#9900CC,#9900FF,#993399,#9933CC,#9933FF,#9966CC,#9966FF,#996699,#9999FF,#9999CC,#CC00CC,#CC00FF,#CC3399,#CC33CC,#CC66CC,#CC66FF,#CC99CC,#CC99FF
  didtok IRC.Colors 6 44 G/W/B's,#333333,#666666,#999999,#CCCCCC,#FFFFFF,#000000
  didtok IRC.Colors 7 44 Yellows,#FFFF00,#FFFF33,#FFFF66,#FFFF99,#FFFFCC
  didtok IRC.Colors 8 44 Reds,#990000,#990033,#CC0000,#CC0033,#FF0000,#FF0033,#FF0033
  didtok IRC.Colors 9 44 Pinks,#FF00FF,#FF99CC,#FF66FF,#FF99FF
  didtok IRC.Colors 10 44 Oranges,#FF6600,#FF6633,#FF9900,#FF9933
  didtok IRC.Colors 11 44 Browns,#663300,#663333,#993300,#993333,#996600,#996633,#CC6600,#CC6633,#CC9900,#CC9933
  didtok IRC.Colors 12 44 Styles,Bold,Italic,Underline
  did -c IRC.Colors 1-12 1
  did -ra IRC.Colors 14 $remove(%fontfamily,S~:,;)
  did -ra IRC.Colors 15 $remove(%fontcolor,;)
  did -ra IRC.Colors 16 $remove(%fontstyle,;)
}

on *:dialog:IRC.Colors:sclick:*:{
  if ($did == 1) { set %fontfamily S~: $+ $did($dname,1) $+ ; | did -ra IRC.Colors 14 $remove(%fontfamily,S~:,;) } | if ($did == 2) { set %fontfamily S~: $+ $did($dname,2) $+ ; | did -ra IRC.Colors 14 $remove(%fontfamily,S~:,;) }
  if ($did == 3) { set %fontcolor $did($dname,3) $+ ; | did -ra IRC.Colors 15 $remove(%fontcolor,;) } | if ($did == 4) { set %fontcolor $did($dname,4) $+ ; | did -ra IRC.Colors 15 $remove(%fontcolor,;) }
  if ($did == 5) { set %fontcolor $did($dname,5) $+ ; | did -ra IRC.Colors 15 $remove(%fontcolor,;) } | if ($did == 6) { set %fontcolor $did($dname,6) $+ ; | did -ra IRC.Colors 15 $remove(%fontcolor,;) }
  if ($did == 7) { set %fontcolor $did($dname,7) $+ ; | did -ra IRC.Colors 15 $remove(%fontcolor,;) } | if ($did == 8) { set %fontcolor $did($dname,8) $+ ; | did -ra IRC.Colors 15 $remove(%fontcolor,;) }
  if ($did == 9) { set %fontcolor $did($dname,9) $+ ; | did -ra IRC.Colors 15 $remove(%fontcolor,;) } | if ($did == 10) { set %fontcolor $did($dname,10) $+ ; | did -ra IRC.Colors 15 $remove(%fontcolor,;) }
  if ($did == 11) { set %fontcolor $did($dname,11) $+ ; | did -ra IRC.Colors 15 $remove(%fontcolor,;) } | if ($did == 12) { set %fontstyle $did($dname,12) $+ ; | did -ra IRC.Colors 16 $remove(%fontstyle,;) | $font.style }
  if ($did == 17) { did -r IRC.Colors 14 | did -r IRC.Colors 15 | did -r IRC.Colors 16 | did -a IRC.Colors 14 Please Select | did -a IRC.Colors 15 New Font | did -a IRC.Colors 16 Type/Color/Style | $reset }
}

menu menubar {
  IRC.Fonts:{ /dialog -dm IRC.Colors IRC.Colors }
}

alias font.style {
  if (%fontstyle == Bold;) { set %fontstyle 02; }
  if (%fontstyle == Italic;) { set %fontstyle 03; }
  if (%fontstyle == Underline;) { set %fontstyle 05; }
}

alias oa_fnt { return $regsubex($1-,/S~:.*$/gi,$null) }

alias reset { did -c IRC.Colors 1-12 1 }

on *:INPUT:#: {
  if (/* !iswm $1) {
    echo $chan 12 $+(,$replace($me,>,Guest_) :,) $oa_fnt($1-))
    raw -q privmsg $chan : $+ $1- %fontfamily $+ %fontcolor $+ %fontstyle
    haltdef
  }
}