egghelp/eggheads community

convert mirc script to tcl

2004-03-13T07:00:27-04:00

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!

Statistics: Posted by hikaro — Sat Mar 13, 2004 7:00 am

convert mirc script to tcl

2004-03-13T06:26:06-04:00

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

Statistics: Posted by Xpert — Sat Mar 13, 2004 6:26 am

convert mirc script to tcl

2004-03-13T05:59:47-04:00

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

Statistics: Posted by hikaro — Sat Mar 13, 2004 5:59 am

convert mirc script to tcl

2004-03-13T04:42:01-04:00

Try to chagne the:

Code:

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

to:

Code:

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

It will do the timer every 1 minute.

Statistics: Posted by Xpert — Sat Mar 13, 2004 4:42 am

convert mirc script to tcl

2004-03-13T02:55:38-04:00

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

Statistics: Posted by hikaro — Sat Mar 13, 2004 2:55 am

convert mirc script to tcl

2004-03-12T11:58:47-04:00

No problem

Statistics: Posted by Xpert — Fri Mar 12, 2004 11:58 am

convert mirc script to tcl

2004-03-12T09:03:57-04:00

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

Statistics: Posted by hikaro — Fri Mar 12, 2004 9:03 am

convert mirc script to tcl

2004-03-12T08:19:04-04:00

Code:

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 }

Statistics: Posted by Xpert — Fri Mar 12, 2004 8:19 am

convert mirc script to tcl

2004-03-12T02:33:00-04:00

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

Statistics: Posted by hikaro — Fri Mar 12, 2004 2:33 am

convert mirc script to tcl

2004-03-11T15:26:34-04:00

have you tried my solution?

although it's bad (as noted) it should work.

Statistics: Posted by arcane — Thu Mar 11, 2004 3:26 pm

convert mirc script to tcl

2004-03-11T14:33:34-04:00

it repeat line by line... not when they have reach last line go to first line
60
60
10
10
do u know why =(

Statistics: Posted by hikaro — Thu Mar 11, 2004 2:33 pm

convert mirc script to tcl

2004-03-11T13:46:12-04:00

Code:

bind join - * join:story proc join:story {nick host hand chan} {   global botnick   if {$nick == $botnick} {     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 10 [list slowmsg $file [tell $f]]     } else {    utimer 9 [list putserv "Re-reading the story:"]    utimer 10 [list slowmsg $file]  }   close $f }

Statistics: Posted by Xpert — Thu Mar 11, 2004 1:46 pm

convert mirc script to tcl

2004-03-11T13:44:08-04:00

just add this line after "close $f"

Code:

slowmsg "story.txt"

although this is a bad solution. i'd suggest you to read the file into memory instead of opening/closing it every time.

btw: i guess my first action in this chan would be to ignore the bot

Statistics: Posted by arcane — Thu Mar 11, 2004 1:44 pm

convert mirc script to tcl

2004-03-11T13:15:35-04:00

xpert it works!! but i want it repeat (loop) so when it gets to the last line it will go to the first line again.. can u add some code there pls

Statistics: Posted by hikaro — Thu Mar 11, 2004 1:15 pm

convert mirc script to tcl

2004-03-11T13:07:10-04:00

Replace:

Code:

putserv "privmsg #channel $line"

to:

Code:

putserv "privmsg #channel :$line"

Statistics: Posted by Xpert — Thu Mar 11, 2004 1:07 pm