convert mirc script to tcl

[hikaro]

on Me:*:join:#channel:/play #channel story.txt 10000
on 1:PLAYEND:{ if (%q8 = 1) { /play #channel story2.txt 10000 | set %q8 2 } | else { /play #channel story.txt 10000 | set %q8 1 } }

pls anyone help me convert this, coz i really need the tcl thanks =)

[user]

What does it do?

[hikaro]

it is for telling story to a channel so the script will read from story.txt and sopy to a channel line by line every 10 seconds

[user]

it is for telling story to a channel so the script will read from story.txt and sopy to a channel line by line every 10 seconds

Like this? (replace 'timer' with 'utimer', change the delay and call the proc with your channel name instead of a nick)

[hikaro]

i have try it but i dont think it works/.. can u give me the proper code... like converting the mirc script that i typed.
i dont know much tcl script so pls help me...

[user]

i have try it but i dont think it works/.. can u give me the proper code... like converting the mirc script that i typed.
i dont know much tcl script so pls help me...

In what way does it not work? My suggestion would result in a script that does exactly what you asked for.

[hikaro]

on Me:*:join:#channel:/play #channel story.txt 10000
on 1:PLAYEND:{ if (%q8 = 1) { /play #channel story2.txt 10000 | set %q8 2 } | else { /play #channel story.txt 10000 | set %q8 1 } }

pls anyone help me convert this, coz i really need the tcl thanks =)

can u just convert this script pls?
i really need this tcl, its for telling a story to channel repeatly. it will send line by line from story.txt in 10 seconds.
thx

[Xpert]

Try this:

Code: Select all

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]]
    } {
  }
  close $f
}

Hope it helps

[hikaro]

xpert it got error... i just read one word not all the whole sentence.
<hikpalsu> KISAHKU
<hikpalsu> Kisah
<hikpalsu> demi
<hikpalsu> Aku
do u know where's the error??

[Xpert]

Replace:

Code: Select all

putserv "privmsg #channel $line"

to:

Code: Select all

putserv "privmsg #channel :$line"

[hikaro]

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

[arcane]

just add this line after "close $f"

Code: Select all

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

[Xpert]

Code: Select all

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 
}

[hikaro]

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

[arcane]

have you tried my solution?

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