ascii file player help...

[sdays]

i made this my self but when i type: !ascii test it wont msg the channel any thing.. dose any one know what it could be?

Code: Select all

set ascii_dir "scripts/db/ascii"

bind pub - "!ascii*" proc:ascii

proc proc:ascii {nick uhost handle chan arg} {
  global botnick ascii ascii_msg asciifile
  set ascii_msg [ascii]
  set asciifile [lindex $arg 0] 
  putserv "PRIVMSG $chan :[ascii]"
}

proc ascii {} {
  global ascii_dir ascii_file
  set asciifile $ascii_file 
  set file [open "$ascii_dir/$ascii_file" r]
  set data [split [read $file] \n]
  close $file
}

[Alchera]

Post the results of ".set errorInfo".

[sdays]

Post the results of ".set errorInfo".

This is all i get:

Code: Select all

<sdays> .set errorInfo
<Evi1Bot> [10:35] #sdays# set errorInfo
<Evi1Bot> Currently:

[r0t3n]

The ascii proc returns nothing, it just opens a file and catchs data, but nothing is returned.

Try this:

Code: Select all

set ascii_dir "scripts/db/ascii"

bind pub - "!ascii*" proc:ascii

proc proc:ascii {nick uhost handle chan arg} {
  global botnick ascii ascii_msg asciifile
  set ascii_msg "[ascii]"
  set asciifile [lindex $arg 0]
  putserv "PRIVMSG $chan :[ascii]"
}

proc ascii {} {
  global ascii_dir ascii_file
  set asciifile $ascii_file
  set file [open "$ascii_dir/$ascii_file" r]
  set data [read -nonewline $file]
  close $file
  return "[split $data \n]"
} 

[sdays]

ok that works but i want it to play it like mirc dose /play #channel test.txt

i want to changs this:
<sdays> !ascii test.txt
<Evi1Bot> test test1 test2

to:
<Evi1Bot> test
<Evi1Bot> test1
<Evi1Bot> test2

[Sir_Fz]

I guess you mean 'test' as a complete line?

Code: Select all

set ascii_dir "scripts/db/ascii"

bind pub - !ascii proc:ascii

proc proc:ascii {nick uhost handle chan arg} {
 set asciifile [lindex [split $arg] 0]
 foreach l [ascii $asciifile] {
  puthelp "PRIVMSG $chan :$l"
 }
}

proc ascii f {
 global ascii_dir
 if {![file exists $ascii_dir/$f]} {return ""}
 set file [open "$ascii_dir/$f" r]
 set data [split [read $file] \n]
 close $file
 set data
}

[KaL-eL]

is it possible to make a delay between those lines? if possible, how can I do it?

[Sir_Fz]

is it possible to make a delay between those lines? if possible, how can I do it?

Create your own queue but IMO puthelp should be slow enough.

[KaL-eL]

actually i want my bot to read those lines in a 6-7 sec. delay. should I use sth else instead of puthelp? what is your suggestion

[awyeah]

You can try this script and create your own delayed queue with this.

Queues

This is a utility for script developers. It allows you to create more queues so that you aren't limited by just three queues.

Download the script from:
http://barkerjr.net/pub/irc/eggdrop/Scr ... cl.tar.bz2

[KaL-eL]

thank you very much and pardon me if I haven't searched enough