;; Custom Color Identifiers ;;
;; This script written by Joshua on SwiftIRC ;;
;; Joshua is a Site Admin for Runeboards.com ;;
;; See the script below the three alias lines to see how a user 'sets' / 'saves' a color as their custom color ;;
;; All rights Reserved, Copyright ©2008 ;;

alias c1 {
  if (!$readini(botinfo.ini,color1,$address($nick,2))) {
    return $+($chr(3),14,$1-)
  }
  elseif ($readini(botinfo.ini,color1,$address($nick,2))) {
    return $+($chr(3),$readini(botinfo.ini,color1,$address($nick,2)),$1-) 
  }
}
alias c2 {
  if (!$readini(botinfo.ini,color2,$address($nick,2))) {
    return $+($chr(3),07,$1-)
  }
  elseif ($readini(botinfo.ini,color2,$address($nick,2))) {
    return $+($chr(3),$readini(botinfo.ini,color2,$address($nick,2)),$1-)
  }
}
alias c3 {
  if (!$readini(botinfo.ini,color3,$address($nick,2))) {
    return $+($chr(3),02,$1-)
  }
  elseif ($readini(botinfo.ini,color3,$address($nick,2))) {
    return $+($chr(3),$readini(botinfo.ini,color3,$address($nick,2)),$1-)
  }
}

;; Here is the portion of the script that lets a user define/set their custom color ;;

on *:text:-setcolor*:#: {
  if ($2 !isnum 0-15) || ($3 !isnum 0-15) || ($4 !isnum 0-15) {
    notice $nick Error: You may only use numbers between 0 and 15
  }
  elseif ($2 isnum 0-15) && ($3 isnum 0-15) && ($4 isnum 0-15) {
    writeini botinfo.ini color1 $address($nick,2) $2
    writeini botinfo.ini color2 $address($nick,2) $3
    writeini botinfo.ini color3 $address($nick,2) $4
    notice $nick Your colors have been set to: $c1($2) $c2($3) $c3($4) 
  }
}