Okay this thing has 1 problem i can't figure out

when using it if someone pastes a color coded sentence it messes it up
or when you use to many colors in the ident

//say $skin(lol i 4l5ove 4m5y scripts).2

but other than that it work's like it should

wasn't gonna release it but people that i gave it to started sharing it...

Function Added skin's will now be added to popup list if you click "refresh popup list"

alias clrrep {
  if ( $len($1) == 2 ) {
    %a = 0 $+ $right($1,-1)
    return %a
    halt
  }
  else { return $1 }
  %a = %b
  return $replace(%b,<c>,,<u>,,_,$chr(32),<b>,)
}
alias skinrefresh {
  var %x 0 
  .remove skinpopup.txt
  write skinpopup.txt menu channel $chr(123)
  write skinpopup.txt Batskin List
  while %x <= $calc( $ini(skin.ini,0) - 1) { 
    inc %x 
    write skinpopup.txt . $+ $ini(skin.ini,%x) $+ :set % $+ skin $ini(skin.ini,%x) $chr(124) describe $ $+ active Skin set to $ $+ skin $+ ( % $+ skin ).1 
  }
  write skinpopup.txt $chr(125)
  .load -rs skinpopup.txt

}

alias skin {
  var %b
  var %x 1
  if ($prop == 1) {
    while %x <= $calc($numtok($1-,32) + 1) {
      if (  isin $gettok($1-,%x,32)) { set %b %b $+ $chr(32) $+ $gettok($1-,%x,32) | inc %x }
      set %b %b $+ $chr(32) $+  $+ $gettok($readini(skin.ini,%skin,clr1),2,62) $+ $left($gettok($1,%x,32),1) $+  $+ $gettok($readini(skin.ini,%skin,clr2),2,62) $+ $right($gettok($1,%x,32),-1)
      inc %x
    }
    %a = $readini(skin.ini,%skin,left) $+ %b $+  $+ $readini(skin.ini,%skin,right)
    return $replace(%a,<c>,,<u>,,_,$chr(32),<b>,)
  }
  if ($prop == 2) {
    var %b
    var %x 1
    while %x <= $numtok($1-,32) {
      if (  isin $gettok($1-,%x,32)) { set %b %b $+ $chr(32) $+ $gettok($1-,%x,32) | inc %x }
      set %b %b $+ $chr(32) $+  $+ $gettok($readini(skin.ini,%skin,clr1),2,62) $+ $left($gettok($1,%x,32),1) $+  $+ $gettok($readini(skin.ini,%skin,clr2),2,62) $+ $right($gettok($1,%x,32),-1)
      inc %x
    }
    return $replace(%b,<c>,,<u>,,_,$chr(32),<b>,)
  }
}
on *:LOAD: {
  describe $active Skin Editor By Battousai Loaded
}

dialog BatSkin {
  title "Battousai Skin Script"
  size -1 -1 507 243
  option pixels
  box "Theme", 8, 4 4 211 205
  box "Clr1", 18, 229 117 49 37
  edit "", 1, 224 19 160 20, autohs center
  edit "$1-", 2, 274 54 100 20, read center
  edit "", 3, 224 89 160 20, autohs center
  box "Left", 4, 219 5 210 38
  combo 7, 8 19 202 180, edit vsbar
  button "Save", 9, 389 17 35 20
  button "Save", 11, 389 87 35 20
  button "Add Skin", 12, 435 15 65 25
  edit "", 14, 224 180 200 20, disable autohs center
  button "Refresh", 15, 435 109 65 25
  button "Set Skin", 16, 435 78 65 25
  button "Del Skin", 10, 435 47 65 25
  box "Right", 17, 219 75 210 38
  box "Output", 5, 219 166 210 38
  button "Skin List", 6, 435 142 65 25
  edit "", 13, 234 131 40 20, autohs
  box "Clr2", 19, 374 116 49 38
  edit "", 20, 379 131 40 20, autohs
  button "Set Colors", 21, 294 127 58 25
  button "Preview", 22, 435 174 65 25
  button "Refresh popup list", 23, 399 205 102 25
}

menu channel {
  Skin Editor:dialog -m batskin batskin
}
on *:dialog:batskin:init:*:{
  if (!$isfile(skin.ini)) {
    writeini -n skin.ini Kenshin left <c>4== $+ $chr(124) $+ ====><c>   
    writeini -n skin.ini Kenshin right <c>4<==== $+ $chr(124) $+ == 
  }
  var %x 1
  while %x <= $ini(skin.ini,0) {
    did -a $dname 7 $ini(skin.ini,%x)
    inc %x
  }
}
on *:dialog:batskin:sclick:*:{
  if $did == 15 {
    did -r $dname 1,3,7
    var %x 1
    while %x <= $ini(skin.ini,0) {
      did -a $dname 7 $ini(skin.ini,%x)
      inc %x
    }
  }
  if $did == 12 { 
    writeini -n skin.ini $did(7) left $iif(!did(1),<c>4== $+ $chr(124) $+ ====><c>,$did(1))    
    writeini -n skin.ini $did(7) right $iif(!did(3),<c>4<==== $+ $chr(124) $+ == ,$did(3))
    did -r $dname 7
    var %x 1
    while %x <= $ini(skin.ini,0) {
      did -a $dname 7 $ini(skin.ini,%x)
      inc %x
    }  
  }
  if $did == 9 { 
    writeini -n skin.ini $did(7) left $replace($did(1),,<c>,,<u>,$chr(32),_,,<b>) 
    did -ra $dname 14 $replace($readini(skin.ini,$did(7),left) $+ $chr(36) $+ 1- $+ $readini(skin.ini,$did(7),right),<c>,,<u>,,<b>,)

  }
  if $did == 11 { 
    writeini -n skin.ini $did(7) right $replace($did(3),,<c>,,<u>,$chr(32),_,,<b>)
    did -ra $dname 14 $replace($readini(skin.ini,$did(7),left) $+ $chr(36) $+ 1- $+ $readini(skin.ini,$did(7),right),<c>,,<u>,,<b>,)

  }
  if $did == 7 { 
    did -ra $dname 1 $replace($readini(skin.ini,$did(7),left),<c>,,<u>,,_,$chr(32),<b>,)
    did -ra $dname 3 $replace($readini(skin.ini,$did(7),right),<c>,,<u>,,_,$chr(32),<b>,)
    did -ra $dname 14 $replace($readini(skin.ini,$did(7),left) $+ $chr(36) $+ 1- $+ $readini(skin.ini,$did(7),right),<c>,,<u>,,_,$chr(32),<b>,)
    did -ra $dname 13 $replace($readini(skin.ini,$did(7),clr1),<c>,,<b>,))
    did -ra $dname 20 $replace($readini(skin.ini,$did(7),clr2),<c>,,<b>,))

  }
  if $did == 16 { set %skin $did(7) 
    describe $active Skin Set to $skin($did(7)).1 
    set %L $replace($readini(skin.ini,$did(7),left),<c>,,<u>,,_,$chr(32),<b>,)
    set %R $replace($readini(skin.ini,$did(7),right),<c>,,<u>,,_,$chr(32),<b>,)
    set %NameX %skin
    set %color1 $replace($readini(skin.ini,$did(7),clr1),<c>,,<b>,)
    set %color2 $replace($readini(skin.ini,$did(7),clr2),<c>,,<b>,)
  }
  if $did == 10 { 
    remini skin.ini $did(7)
    did -r $dname 7 
    var %x 1
    while %x <= $ini(skin.ini,0) {
      did -a $dname 7 $ini(skin.ini,%x)
      inc %x
    }
  }
  if $did == 6 { 
    var %x 1
    var %skins
    while %x <= $ini(skin.ini,0) {
      set %skins %skins $+ $chr(32) $+ $readini(skin.ini,$ini(skin.ini,%x),left) $+ $ini(skin.ini,%x)
      inc %x
    }
    describe $active current skin's are $replace(%skins,$chr(130),$chr(130) $+ $chr(32),<c>,,<u>,,_,$chr(32),<b>,)
  }
  if $did == 21 {
    $iif($did(7),writeini -n skin.ini $did(7) clr1 $replace($clrrep($did(13)),,<c>,,<b>))
    $iif($did(7),writeini -n skin.ini $did(7) clr2 $replace($clrrep($did(20)),,<c>,,<b>))
  }
  if $did == 22 {
    echo $active $skin($did(7))
  }
  if $did == 23 { skinrefresh
  }
}