story teller

hikaro · Post by **hikaro** » Mon Mar 15, 2004 6:46 am

is there something wrong with this code?

bind pub * !start join:story
proc join:story {nick uhost hand chan rest} {
slowmsg "story.txt"
}
proc slowmsg {file {pos 0}} {
set f [open $file]
seek $f $pos
if {[gets $f line]>-1} {
putserv "privmsg #channel :$line"
utimer 30 [list slowmsg $file [tell $f]]
} else {
utimer 29 [list putserv "Re-reading the story:"]
utimer 30 [list slowmsg $file]
}
close $f
}

because the bots in first 5 hours works very well... after that it just like flooding the channel... comes text like 2 secs perline...
before i think its from the shell and i changed it 3 times (different provider) its also the same...
anyone here can help me plz...
btw thx..

hikaro · Post by **hikaro** » Mon Mar 15, 2004 2:06 pm

no one can help me?

stdragon · Post by **stdragon** » Mon Mar 15, 2004 2:51 pm

Does it happen when the bot rejoins the channel?

hikaro · Post by **hikaro** » Mon Mar 15, 2004 5:40 pm

uhmm when the bot got excess flood it will like flooding the channel and got excess flood more and more...
i have tried 3 different good shell but its all the same...

stdragon · Post by **stdragon** » Mon Mar 15, 2004 8:07 pm

Hard to tell if it will work with the horrible formatting, and I didn't test it...

Code: Select all

bind pub * !start join:story
proc join:story {nick uhost hand chan rest} {
global story_timers
set story "story.txt"
if {![info exists story_timers($story)]} {
  slowmsg $story
} else {
  puthelp "privmsg $nick :already reading..."
}
}
proc slowmsg {file {pos 0}} {
global story_timers
set f [open $file]
seek $f $pos
if {[gets $f line]>-1} {
putserv "privmsg #channel :$line"
set story_timers($file) [utimer 30 [list slowmsg $file [tell $f]]]
} else {
utimer 29 [list putserv "Re-reading the story:"]
set story_timers($file) [utimer 30 [list slowmsg $file]]
}
close $f
}

hikaro · Post by **hikaro** » Tue Mar 16, 2004 12:03 pm

yeaaa it works really good!!!
thanks stdragon u r the best