alias skin {
  if ($exists(Skins.txt)) { 
    if ($hget(settings,skin) == none) { return $1- | halt }
    if ($read(Skins.txt,s,$hget(Settings,Skin))) { 
      var %a $gettok($read(Skins.txt,s,$hget(Settings,skin)),1,44)
      var %b $gettok($read(Skins.txt,s,$hget(Settings,skin)),2,44)
      if ($numtok($read(skins.txt,s,$hget(Settings,skin)),44) == 3) {
        var %c $gettok($read(Skins.txt,s,$hget(Settings,skin)),3,44)
        var %y = 1,%x
        while ($gettok($1-,%y,32)) {
          if ($len($gettok($1-,%y,32)) == 1) { var %x = %x  $+(,%a,$chr(44),01) $+ $left($gettok($1-,%y,32),1) $+  $+(,%b) $+ $right($gettok($1-,%y,32),-1) | inc %y }
          else { var %x = %x  $+(,%a,$chr(44),01) $+ $left($gettok($1-,%y,32),1) $+  $+(,%b) $+ $mid($gettok($1-,%y,32),2,-1) $+  $+(,%c) $+ $right($gettok($1-,%y,32),1) | inc %y }
        }
        if ($isid) return %x
      }
      elseif ($numtok($read(skins.txt,s,$hget(Settings,skin)),44) == 2) {
        var %y = 1,%x
        while ($gettok($1-,%y,32)) { 
          if ($len($gettok($1-,%y,32)) == 1) { var %x = %x  $+(,%a,$chr(44),01) $+ $left($gettok($1-,%y,32),1) $+  $+(,%b) $+ $right($gettok($1-,%y,32),-1) | inc %y }
          else { var %x = %x  $+(,%a,$chr(44),01) $+ $left($gettok($1-,%y,32),1) $+ $+(,%b) $+ $right($gettok($1-,%y,32),-1) | inc %y }
        }
        if ($isid) return %x
      }
    }
  }
  else { return $1- }
}