View Single Post
Old 01-06-2005, 06:12 AM  
BigBird
Junior Member
 
Join Date: Jan 2005
Posts: 13
Default

oh, ok. now it's working
but i want to add something from the "chilla's IMDB script".
the rating_bar of the stars :P

can somebody help me?

Quote:
# the user rating
set j [expr $i + 3]
set line2 [lindex $lines $j]
set j [expr $i + 4]
set line3 [lindex $lines $j]
regsub -all \<\[^\>\]*\> $line3 "" rating
regsub -all \&nbsp\; $rating " " rating
regsub -all \[\ \t\]+ $rating " " rating
set rating [string trim $rating " "]
set goldstars [regexp -all goldstar $line2]
set greystars [expr 10 - $goldstars]

# generating the rating bar
set marker "*"
set rating_bar "11\[7"
for {set i2 0} {$i2 < $goldstars} {incr i2 1} {
set rating_bar "$rating_bar$marker"
}
set marker "-"
set rating_bar "$rating_bar14"
for {set i3 0} {$i3 < $greystars} {incr i3 1} {
set rating_bar "$rating_bar$marker"
}
set rating_bar "$rating_bar11\]"
putserv "PRIVMSG $nick :$rating $rating_bar"
question is how to make it works in this script
BigBird is offline   Reply With Quote