Font in channel with MIRC

depends on the network your using. If the network has a web interface, such as an OCX, then you need to specifically design your strings to suite that interface. If it was just you and other mIRC users, if you sent a message across with color codes and that, all the mIRCs would still recoginise, and turn the string into the way it should be.

unless you meant something else.

Ummmmmmm you've confused me a bit sorry. I am using Sparkpea.net which as you probably know, uses the old MSN chat controls. I want to basically change my font when using MIRC, which others will then see in the room/channel.

Just download the vincula thats been updated for it. Then go to vincula options and do it that way.

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

Moved to the Sparkpea section.

Just download the vincula thats been updated for it. Then go to vincula options and do it that way.

hi

that is whaat i did to get the font in mirc to change i downloaded vincula 5.1.10

DOH sorry i misread the topic & apologise for posting in wrong place. I'll try that thanks a bunch everyone

You can also use this. Just now tested on Sparkpea, and it works.

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

alias colors {
  set %curtcolor $color(own text)
  set %curbcolor $color(background)
  if ($com(colors)) { .comclose colors }
  .comopen colors WScript.Shell
  .comclose colors $com(colors,Sendkeys,3,bstr,$+($(%,0),K))
  .timer 1 1 comcolor
}

alias owncolors {
  if ($color(own text) == 0) return $chr(1)
  if ($color(own text) == 1) return $chr(2)
  if ($color(own text) == 2) return $chr(5)
  if ($color(own text) == 3) return $chr(4)
  if ($color(own text) == 4) return $chr(11)
  if ($color(own text) == 5) return $chr(3)
  if ($color(own text) == 6) return $chr(7)
  if ($color(own text) == 7) return $chr(6)
  if ($color(own text) == 8) return $chr(14)
  if ($color(own text) == 9) return $chr(12)
  if ($color(own text) == 10) return $chr(8)
  if ($color(own text) == 11) return $chr(16)
  if ($color(own text) == 12) return $chr(92) $+ r
  if ($color(own text) == 13) return $chr(15)
  if ($color(own text) == 14) return $chr(92) $+ n
  if ($color(own text) == 15) return $chr(9)
}

on *:input:*: {
  if (/* !iswm $1-) {
    echo $active 14 $me : $iif($window($active).fontbold == $true,) $+ $color(own) $+ $1-
    .msg $active $chr(1) $+ S $owncolors $+ $chr(1) $+ $chr(59) $+ 0 $1- $+ $chr(1)
    haltdef
  }
  elseif (/*ctio* iswm $1-) {
    echo $active 6 $me : $iif($window($active).fontbold == $true,) $+  $+ 6 $+ $2-
    .msg $active $chr(1) $+ S $chr(7) $+ $chr(1) $+ $chr(59) $+ 0 $2- $+ $chr(1)
    haltdef
  }
}

on ^&*:TEXT:*:*: {
  echo $active 12 $nick : $1-
  haltdef
}

Thanks everyone for your help. I dont know what I am doing wrong but my font in the room/channel will not change. I d/l Vincula 5.1.1 and changed font in the Vincula settings & it showed the change, but still in the room/channel shows me as arial black (I am in room with another passport so I can check if anything changes). I did try to two codes too but to no avail. Fonts work fine in the mirc but will not change in room/channel. Any more suggestions would be appreciated, but please be gentle as I'm new to all this lol

See that if you have on *:INPUT:#: { in some other remote file,if so delete that and try either one of the above two codes .

Thanks very much for all your help. I found this in at Sparkpea & its working YAY

http://www.sparkpea.net/soft/SPCNFont.mrc