convert mirc script to tcl

hikaro · Post by **hikaro** » Fri Mar 12, 2004 2:33 am

yes i did and its flooding me on bot dcc.... i think the loop too fast

Xpert · Post by **Xpert** » Fri Mar 12, 2004 8:19 am

bind join - * join:story 
proc join:story {nick host hand chan} { 
  global botnick 
  if {$nick == $botnick} {
    slowmsg "story.txt" "$chan" 
  } 
} 

proc slowmsg {file chan {pos 0}} { 
  set f [open $file] 
  seek $f $pos 
  if {[gets $f line]>-1} { 
    putserv "privmsg $chan $line" 
    utimer 10 [list slowmsg $file [tell $f]] 
    } {
    slowmsg $file
  } 
  close $f 
}

hikaro · Post by **hikaro** » Fri Mar 12, 2004 9:03 am

Yess it works!! thanks a lot all for helping me

Xpert · Post by **Xpert** » Fri Mar 12, 2004 11:58 am

No problem

hikaro · Post by **hikaro** » Sat Mar 13, 2004 2:55 am

now i got another problem.. the script run well and i have the bot run more that 20 hours.. but now it seems like flooding the channel...
it type line by line not in 10 secs but perhaps 1 secs... so the bot got excess flood many times.
anyone knows why?? or the shell lag?? is there any lag checker then when the bots lag it will stop for 1 minute the msg then it will go on when its going normal

Xpert · Post by **Xpert** » Sat Mar 13, 2004 4:42 am

Try to chagne the:

Code: Select all

utimer 10 [list slowmsg $file [tell $f]]

to:

Code: Select all

timer 1 [list slowmsg $file [tell $f]]

It will do the timer every 1 minute.

hikaro · Post by **hikaro** » Sat Mar 13, 2004 5:59 am

i did try this xper but i think its too long... the user may get bored because of waiting the bots
...

Xpert · Post by **Xpert** » Sat Mar 13, 2004 6:26 am

Hmmmm....
So, do it every 20 or 30 seconds

hikaro · Post by **hikaro** » Sat Mar 13, 2004 7:00 am

hahahha lol
i did it too -o and after a long time its also like flooding channel it msg every 3 secs i think... lol./..
i can get crazy of this script lol!