Untitled

while { $score($nick) < 3 } {
        if {[string length $theusername($nick)] > 2} {set score($nick) [expr $score($nick) -5]}
        if {$theconnectiontime($nick)==$theidle($nick)} {set score($nick) [expr $score($nick) + 1]}
        if {$thechannels($nick)=="$channel "} {set score($nick) [expr $score($nick) + 1]} else {set score($nick) [expr $score($nick) -3]}
        if {[string match "[string tolower $theident($nick)]*" [string tolower $nick]]} {set score($nick) [expr $score($nick) + 1]}
        if {[string match $therealname($nick) $nick]} {set score($nick) [expr $score($nick) + 1]} else {set score($nick) [expr $score($nick) -
1]}
        if {[string length $nick] >[string length $theident($nick)]} {set score($nick) [expr $score($nick) +1]}
}