My Colors

By Epic on May 04, 2011

Whether its Spell Color or Colour, this script is for mycolor (custum colors) for a bot that either uses regular colors or the popular $c1 or $c2 By address

To use, just replace any text with color with $c1 or $c2 etc
and type .mycolors color1 color2
Example: .mycolors 3 10

Note, if you just type .mycolors it resets to default 4 14 - also recommended to change to different colors if wanted non red/grey colors :p

if anything is wrong with it please post it

;The Text File
On $*:TEXT:/^.mycolou?rs? \d\d? \d\d?$/Si:#: {
  if (!$2) || (!$3) { goto last }
  writeini colour.ini colour1 $address($nick,3) $iif($left($2,1) > 1,0 $+ $2,$2)
  writeini colour.ini colour2 $address($nick,3) $iif($left($3,1) > 1,0 $+ $3,$3)
  $display($1) $logo(Colours) $c2(Your default colours are now:) $c1(this) and $+($c2(this),.)
  halt
  :last
  remini colour.ini colour1 $address($nick,3)
  remini colour.ini colour2 $address($nick,3)
  $display($1) $logo(Colours) $c2(Your default colours are now:) $c1(this) and $+($c2(this),.)
}
;The alias's that check a color ini settings for your Address's settings
Alias c1 { return $+($chr(3),$iif($readini(colour.ini,colour1,$address($nick,3)),$v1,04),$1,$chr(3)) }
Alias c2 { return $+($chr(3),$iif($readini(colour.ini,colour2,$address($nick,3)),$v1,14),$1,$chr(3))}
;The alias return for if @ msg # if anything else notice
alias display return $iff($left($1-,1) == @,msg #,notice $nick)
;Custum Logo added for the fun of it - Not needed and recommended that you change because of lameness :p
alias logo return $+($chr(3),$chr(52),$chr(164),$chr(91),$chr(3),$1-,$chr(3),$chr(52),$chr(93),$chr(164),$chr(3))

Comments

Sign in to comment.
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.