Jump to content

Cryton

Members
 View Profile  See their activity

  • Posts

    190

  • Joined

  • Last visited

 Content Type 

Posts posted by Cryton

  10. Aop Help

    in General IRCX

    Posted

    I remember hearing from someone (can't remember who), but i would think that it would be better to have a window to do this. I hear windows use less ram/cpu, but it is just as quick to access as a hash table.

     

    I hope we discussed about that gate :) .

  13. Font in channel with MIRC

    in Sparkpea Chat Network

    Posted · Edited by Cryton

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

×
×
  • Create New...