Try this code,it may help you .And btw from next time post questions in correct thread as this belongs to sparkpea support .
I dint make the font code/dialog i just made the display theme .
menu menubar {
My Font { font }
}
alias font { dialog -md webfonts webfonts }
dialog webfonts {
title "SPCN - MIRC Webfont selector"
size -1 -1 191 78
option dbu
box "", 1, 2 2 187 70
list 2, 5 16 90 49, size
list 3, 96 16 50 49, size
text "Font Name", 4, 7 7 84 8
text "Colour", 5, 98 7 48 8
check "Bold", 6, 152 17 35 10
check "Italic", 7, 152 36 33 10
check "Random", 9, 152 54 33 10
}
alias ColourSettings {
if ($2 == $null) { return $readini(Fontsettings.ini,n,settings,$$1) }
if ($1 == r) { remini Fontsettings.ini settings $$2 }
else { writeini Fontsettings.ini settings $$1 $2- }
}
On *:Dialog:webfonts:init:*: {
if ($ColourSettings(bold)) did -c $dname 6
if ($ColourSettings(italic)) did -c $dname 7
if ($ColourSettings(random)) did -c $dname 9
;# add your fonts here - simply add a comma , then a font name :)
didtok $dname 2 44 Arial,Tahoma,Arial Black,Arial Narrow,Century,Comic Sans MS,Lucida Console,Lucida Sans,Times New Roman
didtok $dname 3 44 Black,DarkBlue,DarkGreen,Red,DarkRed,Purple,DarkYellow,Yellow,Green,Teal,Cyan,Blue,Pink,DarkGray,Gray
did -c $dname 3 $didwm($dname,3,$ColourSettings(colour) $+ *,1)
did -c $dname 2 $didwm($dname,2,$ColourSettings(font) $+ *,1)
}
alias dofontcode {
var %x = $ColourSettings(colour)
var %c $replace(%x,white,1,black,2,darkred,3,darkgreen,4,darkblue,5,darkyellow,6,purple,7,teal,8,lightgray,9,darkgray,\n,red,11,green,12,blue,\r,yellow,14,pink,15,cyan,16)
%x = 1
if ($ColourSettings(bold)) inc %x
if ($ColourSettings(italic)) %x = $calc(%x + 2)
if ($ColourSettings(font.u)) %x = $calc(%x + 4)
ColourSettings code %c %x $replace($ColourSettings(font),$chr(32),\b) $+;0
}
alias webfont {
if ($gettok($ColourSettings(code),1,32) isnum) var %fc = $chr($gettok($ColourSettings(code),1,32))
else var %fc = $gettok($ColourSettings(code),1,32)
if ($ColourSettings(random)) {
%fc = $rand(1,16)
while ((%fc == 10) || (%fc == 13)) %fc = $rand(1,16)
}
return $chr(1) $+ S $iif($ColourSettings(random),$chr(%fc),%fc) $+ $chr($gettok($ColourSettings(code),2,32)) $+ $gettok($ColourSettings(code),3,32) $1- $chr(1)
else return $1-
}
alias mircfont {
var %a = $gettok($ColourSettings(code),1,32)
var %b = $gettok($ColourSettings(code),2,32)
if (%a == 1) %a = 00
elseif (%a == 2) %a = 01
elseif (%a == 3) %a = 05
elseif (%a == 4) %a = 03
elseif (%a == 5) %a = 02
elseif (%a == 6) %a = 07
elseif (%a == 7) %a = 06
elseif (%a == 8) %a = 10
elseif (%a == 9) %a = 15
elseif (%a == 11) %a = 04
elseif (%a == 12) %a = 09
elseif (%a == 14) %a = 08
elseif (%a == 15) %a = 13
elseif (%a == 16) %a = 11
elseif (%a == \r) %a = 12
elseif (%a == \n) %a = 14
else %a = 01
return $iif(%b == 2,$chr(2)) $+ $chr(3) $+ %a $+ $1-
}
on *:dialog:webfonts:sclick:*:{
ColourSettings do.font $true
ColourSettings do.font.other $true
if ($did == 6) {
if ($ColourSettings(bold)) {
ColourSettings r bold
did -u $dname 6
}
else { ColourSettings bold $true | did -c $dname 6 }
dofontcode
}
if ($did == 7) {
if ($ColourSettings(italic)) {
ColourSettings r italic
did -u $dname 7
}
else {
ColourSettings italic $true
did -c $dname 7
}
dofontcode
}
if ($did == 9) {
if ($ColourSettings(random)) {
ColourSettings r random
did -u $dname 9
}
else {
ColourSettings random $true
did -c $dname 9
}
}
if ($did == 2) {
ColourSettings font $did($dname,$did).seltext
dofontcode
}
if ($did == 3) {
ColourSettings colour $did($dname,$did).seltext
dofontcode
}
}
on *:INPUT:#: {
if (/* !iswm $1) {
echo $color(own) -ti2 $me $+ : $mircfont($1-)
.msg $chan $webfont($1-)
halt
}
}
on *:INPUT:?: {
if (/* !iswm $1) {
echo $color(own) -ti2 $me $+ : $+ $mircfont($1-)
.msg $target $webfont($1-)
haltdef
}
}