###################################################################### # # #====================================================================# # gt-nickcol.tcl by slackin # #====================================================================# # Slackin's cross network pm system! # # Custom written for #pugbot & GT # ###################################################################### proc colornick {nick} { set nickcolor "\0032" if {[lsearch $nick a*] != "-1"} { set nickcolor "\0033" } if {[lsearch $nick b*] != "-1"} { set nickcolor "\0034" } if {[lsearch $nick c*] != "-1"} { set nickcolor "\0035" } if {[lsearch $nick d*] != "-1"} { set nickcolor "\0036" } if {[lsearch $nick e*] != "-1"} { set nickcolor "\0037" } if {[lsearch $nick f*] != "-1"} { set nickcolor "\0039" } if {[lsearch $nick g*] != "-1"} { set nickcolor "\00310" } if {[lsearch $nick h*] != "-1"} { set nickcolor "\00311" } if {[lsearch $nick i*] != "-1"} { set nickcolor "\00312" } if {[lsearch $nick j*] != "-1"} { set nickcolor "\00313" } if {[lsearch $nick k*] != "-1"} { set nickcolor "\0032" } if {[lsearch $nick l*] != "-1"} { set nickcolor "\0033" } if {[lsearch $nick m*] != "-1"} { set nickcolor "\0034" } if {[lsearch $nick n*] != "-1"} { set nickcolor "\0035" } if {[lsearch $nick o*] != "-1"} { set nickcolor "\0036" } if {[lsearch $nick p*] != "-1"} { set nickcolor "\0037" } if {[lsearch $nick q*] != "-1"} { set nickcolor "\0039" } if {[lsearch $nick r*] != "-1"} { set nickcolor "\00310" } if {[lsearch $nick s*] != "-1"} { set nickcolor "\0039" } if {[lsearch $nick t*] != "-1"} { set nickcolor "\00312" } if {[lsearch $nick u*] != "-1"} { set nickcolor "\00313" } if {[lsearch $nick v*] != "-1"} { set nickcolor "\0032" } if {[lsearch $nick w*] != "-1"} { set nickcolor "\0033" } if {[lsearch $nick x*] != "-1"} { set nickcolor "\0034" } if {[lsearch $nick y*] != "-1"} { set nickcolor "\0035" } if {[lsearch $nick z*] != "-1"} { set nickcolor "\0036" } if {[lsearch $nick A*] != "-1"} { set nickcolor "\0037" } if {[lsearch $nick B*] != "-1"} { set nickcolor "\0039" } if {[lsearch $nick C*] != "-1"} { set nickcolor "\00310" } if {[lsearch $nick D*] != "-1"} { set nickcolor "\00311" } if {[lsearch $nick E*] != "-1"} { set nickcolor "\00312" } if {[lsearch $nick F*] != "-1"} { set nickcolor "\00313" } if {[lsearch $nick G*] != "-1"} { set nickcolor "\0032" } if {[lsearch $nick H*] != "-1"} { set nickcolor "\0033" } if {[lsearch $nick I*] != "-1"} { set nickcolor "\0034" } if {[lsearch $nick J*] != "-1"} { set nickcolor "\0035" } if {[lsearch $nick K*] != "-1"} { set nickcolor "\0036" } if {[lsearch $nick L*] != "-1"} { set nickcolor "\0037" } if {[lsearch $nick M*] != "-1"} { set nickcolor "\0039" } if {[lsearch $nick N*] != "-1"} { set nickcolor "\00310" } if {[lsearch $nick O*] != "-1"} { set nickcolor "\00311" } if {[lsearch $nick P*] != "-1"} { set nickcolor "\00312" } if {[lsearch $nick Q*] != "-1"} { set nickcolor "\00313" } if {[lsearch $nick R*] != "-1"} { set nickcolor "\0032" } if {[lsearch $nick S*] != "-1"} { set nickcolor "\0033" } if {[lsearch $nick T*] != "-1"} { set nickcolor "\0034" } if {[lsearch $nick U*] != "-1"} { set nickcolor "\0035" } if {[lsearch $nick V*] != "-1"} { set nickcolor "\0036" } if {[lsearch $nick W*] != "-1"} { set nickcolor "\0037" } if {[lsearch $nick X*] != "-1"} { set nickcolor "\0039" } if {[lsearch $nick Y*] != "-1"} { set nickcolor "\00310" } if {[lsearch $nick Z*] != "-1"} { set nickcolor "\00311" } if {[lsearch $nick |*] != "-1"} { set nickcolor "\00312" } if {[lsearch $nick `*] != "-1"} { set nickcolor "\00313" } if {[lsearch $nick _*] != "-1"} { set nickcolor "\0032" } return $nickcolor }