James

Alias c1 {
  if ($sockname && $read(Colors.txt, s, $address(%nick. [ $+ [ $sockname ] ],2))) {
    return $+($chr(3),$gettok($read(Colors.txt, s, $address(%nick. [ $+ [ $sockname ] ],2)),1,32),$1-,$chr(3))
  }
  if ($read(Colors.txt, s, $address($nick,2))) {
    return $+($chr(3),$gettok($read(Colors.txt, s, $address($nick,2)),1,32),$1-,$chr(3))
  }
  else {
    return $+($chr(3),10,$1-,$chr(3))
  }
}
Alias c2 {
  if ($sockname && $read(Colors.txt, s, $address(%nick. [ $+ [ $sockname ] ],2))) {
    return $+($chr(3),$gettok($read(Colors.txt, s, $address(%nick. [ $+ [ $sockname ] ],2)),2,32),$1-,$chr(3))
  }
  if ($read(Colors.txt, s, $address($nick,2))) {
    return $+($chr(3),$gettok($read(Colors.txt, s, $address($nick,2)),2,32),$1-,$chr(3))
  }
  else {
    return $+($chr(3),04,$1-,$chr(3))
  }
}
ON $*:TEXT:/^[!@.]MyColor /Si:#:{
  if ($3) {
    if ($2 isnum 1-15 && $3 isnum 1-15) {
      write -ds $+ $address($nick,2) Colors.txt
      write Colors.txt $address($nick,2) $iif($len($2) == 1,0 $+ $2,$2) $iif($len($3) == 1,0 $+ $3,$3)
      notice $nick $logo $c1(Your colors have been) $c2(changed)
    }
  }
}
ON $*:TEXT:/^[!@.]Reset/Si:#:{
  write -ds $+ $address($nick,2) Colors.txt
  notice $nick $logo $c1(Your colors have been) $c2(reset)
}
Alias logo {
  return 10[04Terror10]04:
}