hello again,

i'm kinda in need of some additional help with this.. i figured out my problem in my last post but, i'm now working on options for this script of mine. what i'm trying to add the abilities of bold,underlining and italics into the script. in otherwards i don't have a clue.. i could probaly use aliases to do this, but i don't know how i could incorparate that and make it work correctly..
if someone could help me out with an example so i can see how it could be done that would be great!
here's the code being used here:
Code:
on *:INPUT:*:{ if ( $left($1,1) != / ) { acro $1- } }
alias -l acro { var %i = $getacro($1-) | if (%i) { echo %i | halt } }
alias -l getacro { 
  if !$hget(amacros) { return $1- }
  var %i = 1, %r
  while $gettok($1-,%i,32) {
    var %j = $v1
    if ($hget(amacros,%j)) {
      %j = $v1 
      if ($hget(amacroset, am_Acrocaps)) { %j = $acaps(%j) }
      if ($hget(amacroset, am_Acroccaps)) { %j = $ccap(%j) }
      if ($hget(amacroset, am_Acrorcaps)) { %j = $rccap(%j) }
      else {
        if ($hget(amacroset, am_acro)) return $1-
      }
    } 
    %r = %r %j
    inc %i
  }
  return %r
}
alias -l acaps {
  var %i = 1, %r 
  while $gettok($1,%i,32) != $null { 
    %r = %r $upper($left($v1,1)) $+ $mid($v1,2) 
    inc %i 
  } 
  return %r 
} 
alias -l ccap { 
  var %i = 1, %r 
  while $gettok($1,%i,32) != $null { 
    %r = %r %am_ac1 $+ $upper($left($v1,1)) $+ %am_ac2 $+ $mid($v1,2) $+ 
    inc %i 
  } 
  return %r 
} 
alias -l rccap { 
  var %i = 1, %r 
  while $gettok($1,%i,32) != $null { 
    %r = %r  $+ $rand(3,14) $+ $upper($left($v1,1)) $+  $+ $rand(3,14) $+ $mid($v1,2) $+ 
    inc %i 
  } 
  return %r 
}

dialog options {
  title (A)(M) OPTIONS
  size -1 -1 97 119
  option dbu
  check "Make Acros Bold", 5, 11 60 54 10
  check "Underline Acros", 6, 11 72 50 10
  check "Italisize Acros", 7, 11 85 50 10
  button "Finished", 8, 28 103 37 12, ok
  radio "Disable Acros", 1, 10 8 43 9
  radio "Activate Sel colors", 2, 10 31 53 9
  radio "Activate Rand Colors", 3, 10 42 61 9
  radio "Activate caps", 4, 10 20 43 9
}
on *:dialog:options:*:*: {
  if ($devent == init) {
    if ($hget(amacroset, am_Acroccaps)) { did -c $dname 2 } | if ($hget(amacroset, am_Acrorcaps)) { did -c $dname 3 } 
    if ($hget(amacroset, am_Acrocaps)) { did -c $dname 4 } | if ($hget(amacroset, am_Acro)) { did -c $dname 1 }
    if ($hget(amacroset, ama_bold)) { did -c $dname 5 } | if ($hget(amacroset, ama_underline)) { did -c $dname 6 }
    if ($hget(amacroset, ama_italic)) { did -c $dname 7 } 
  } 
  if ($devent == sclick) {
    if ($did isnum 1-4) { 
      if $did == 1 && $did(1).state { did -u $dname 2,3,4 } 
      elseif $did == 2 && $did(2).state { did -u $dname 1,3,4 } 
      elseif $did == 3 && $did(3).state { did -u $dname 1,2,4 }
      elseif $did == 4 && $did(4).state { did -u $dname 1,2,3 }
    } 
    if $did == 5 && $did(5).state { did -c $dname 5 }
    if $did == 6 && $did(6).state { did -c $dname 6 }
    if $did == 7 && $did(7).state { did -c $dname 7 }
    .hadd amacroset am_Acro $did(1).state | .hadd amacroset am_Acrocaps $did(4).state 
   . hadd amacroset am_acroccaps $did(2).state | .hadd amacroset am_Acrorcaps $did(3).state
   . hadd  amacroset ama_bold $did(5).state | .hadd amacroset ama_underline $did(6).state
    .hadd amacroset ama_italic $did(7).state   
  }
}


if anyone would be willing to lend a hand with this, that would be so kind..(i've searched the database and turn up nothing i though usefull on this)..

thanks in advance!