Font Dialog Needed

[general]

Can anyone tell me how to load font dialoge in my script and from where i can have it.

script which im being used at SCN dosent support fonts and it use default and colorless font...

so anyone can guid about it?

[Guest X-Fusion]

You have to preform dids in order for it to work. I'm not real sure if SCN has something to do that, but, someone might look and offer one.

[Guest Travis]

Yeah Im sure its easier to find dialogs to flood people on scn than it is to find a font dialog. LOL Oh!!!!

[Guest X-Fusion]

And people wonder why they get closed .. lol

[Warrior124]

You can use this. Don't know if this is something you're looking for. If it isn't can you go more into detail?

 

menu menubar,channel,status {
  Edit Colors:/colors
  -
  Edit Font:/font
  -
}

alias colors {
  if ($com(colors)) .comclose colors
  .comopen colors WScript.Shell
  .comclose colors $com(colors,Sendkeys,3,bstr,$+($(%,0),K))
}

 

These are remote commands to open mircs color dialog, or font dialog box. You can also do this just from the "View" menu as well.

[general]

Thanx warrior so much.these are MIRC fonts and color code..while i need a Font dialog so i can change my chat fonts and colors ...

as i already have some code like

 

dialog font {

title "SCN Font Dialog"

size -1 -1 102 63

option dbu

combo 1, 2 14 60 50, sort size drop

text "Font Type", 2, 18 5 26 8

combo 3, 2 39 60 50, sort size drop

text "Font Color", 4, 18 27 26 8

check "Bold", 5, 74 14 27 10

check "Italic", 6, 74 25 27 10

check "Random Color", 7, 2 50 43 10

check "Use Font", 8, 67 1 33 10

}

alias pini {

if ($2 == $null) return $readini(SCNFont.ini,n,settings,$$1)

if ($1 == r) remini SCNFont.ini settings $$2

else writeini SCNFont.ini settings $$1 $2-

}

On *:Dialog:font:init:*: {

if ($pini(do.font)) did -c font 8

if ($pini(font.) did -c font 5

if ($pini(font.i)) did -c font 6

if ($pini(font.r)) did -c font 7

didtok font 3 44 Black,White,DarkBlue,DarkGreen,Red,DarkRed,Purple,DarkYellow,Yellow,Green,Teal,Cyan,Blue,Pink,DarkGray,Gray

didtok font 1 44 Arial,Tahoma,Arial Black,Arial Narrow,Century,Comic Sans MS

}

on *:dialog:font:sclick:*:{

if ($did == 8) { if ($pini(do.font)) { pini r do.font | did -u font 8 }

else { pini do.font $true | did -c font 8 }

}

if ($did == 5) { if ($pini(font.) { pini r font.b | did -u font 5 }

else { pini font.b $true | did -c font 5 }

setfontcode

}

if ($did == 6) { if ($pini(font.i)) { pini r font.i | did -u font 6 }

else { pini font.i $true | did -c font 6 }

setfontcode

}

if ($did == 7) { if ($pini(font.r)) { pini r font.r | did -u font 7 }

else { pini font.r $true | did -c font 7 }

}

if ($did == 1) { pini font.font $did(font,$did).seltext | setfontcode }

if ($did == 3) { pini font.color $did(font,$did).seltext | setfontcode }

}

 

but hell it does not works dont know wats wrong with it :S

 

[Guest X-Fusion]

Your missing some aliases. Post for some help on SCN's board, which I think has moved to Chainscriptz.

[general]

i already have asked them for help .........

but they said they do not help with script............

i have made 2 scripts for SCN....and font dialog work with them...

but now i have made new version and now same dilag does not works...which driving me crazy and i realy dont know how to make it work...i have done aloost everything but all in vain...nothing work with it :S

[Guest X-Fusion]

Have you included the needed aliases? I see two aliases that you didnt include in the code you posted.

[general]

hummmmm........

i cant gett wat im missing ...please if u can tell me wat im missing ...?

and u can post here?