Jump to content

Font in channel with MIRC


mumsboys

Recommended Posts

:help: Ok this is probably a really stupid question, but I have searched & searched for the answer. I know I can change the font showing in mirc using ctrl K etc. How an earth do I get my font to change in the actual channel, ie so everyone can see a different font in the channel & not boring ole plain black lol.
Link to comment
Share on other sites

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.

Link to comment
Share on other sites

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

Edited by Cryton
Link to comment
Share on other sites

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
}

Edited by Warrior124
Link to comment
Share on other sites

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

Link to comment
Share on other sites

Guest
This topic is now closed to further replies.
×
×
  • Create New...