egghelp/eggheads community

ranks

2003-02-14T06:01:39-04:00

hi,

not on a !rank command to read/write in the file, just in 1 hour or more to do the writing.

Statistics: Posted by caesar — Fri Feb 14, 2003 6:01 am

ranks

2003-02-14T05:21:38-04:00

emm...
are you sure you want it to read and write every time someone does that command? I have the feeling the bot will be lagged if it is used heavily

anyway... open the file for reading, do a while loop on it and put all the lines NOT matching $arg into a list just as they are, the one matching $arg you split to get the "rank" and then do a incr on that and put it into the list aswell, finally close the file, reopen it using [open $file w] and put the whole list into it.. of course you can use lsort or something like that on it to make the file nice and clean-looking

Statistics: Posted by Papillon — Fri Feb 14, 2003 5:21 am

ranks

2003-02-13T12:12:22-04:00

Code:

# script rank.tcl# version 0.1# settingsset rank(top) 5set rank(time) 10# bindsbind pub - !rank pub:rank# rank procproc pub:rank {nick uhost hand chan arg} {global rank# setset topic [lindex $arg 0]set points [lindex $arg 1]# helpif {![llength $arg] == 1} {putserv "PRIVMSG $chan :Usage: !rank  <1 to 5>"return }# topics listif {$points > $rank(top) || $points == 0} {putserv "PRIVMSG $chan :Ranks available betwen \0020\002 and \002$rank(top)\002."return }# countif {![info exists rank($uhost:$chan)]} {set rank($uhost:$chan) 0 }# retopice arrayutimer $rank(time) "array unset rank $uhost:$chan"# already topicdif {$rank($uhost:$chan) > 0} {putserv "PRIVMSG $chan :Only one \002!rank\002 per hour. Please try again later."return }# for & fixfor {set no 1} {$no<$rank(top)} {incr no} {#fixif {![info exists rank($topic:$points)]} {set rank([lindex $arg 0]:$points) 0 }}incr rank($topic:$points)incr rank($uhost:$chan)# tellif {$points > 1} {putserv "PRIVMSG $chan :You have ranked topic number \002$topic\002 with \002$points\002 points. Thank you!"} else {putserv "PRIVMSG $chan :You have ranked topic number \002$topic\002 with \002$points\002 point. Thank you!" }return }putlog "rank.tcl loaded.."

eg. '!rank 1 1' results in a array like this: 1:1 1 (topic-number:rank number of times he was ranked with 1). How can I write this result in a file like this: 'topic 1:1 1' and on another '!rank 1 1' should read and write in the file '1:1 2', I mean read and increase it's value. Also on a '!rank 1 2' to write another line in the file: 'topic 1:2 1' and so on.. Any sugestions to do so?

Statistics: Posted by caesar — Thu Feb 13, 2003 12:12 pm