modifying quote script

[EmOuBi]

Hi folks

I want to modify one simple script:

Code: Select all

bind pub n !trigger pub_disc

proc pub_disc {nick mask hand channel args} {
   global disc
   puthelp "PRIVMSG $channel :[lindex $disc [rand [llength $disc]]]"
   }
set disc {
"-Dialog1 -Dialog2 -Dialog3 "
"-Aaaa -Bbbb -Cccc"
}

Can anyone make this Dialog1, 2 and 3 to be shown on separate lines ?
Like:
<Botnick>-Dialog1
<Botnick>-Dialog2
<Botnick>-Dialog3

They must be a part of a one quote.

[spock]

Code: Select all

foreach a [split [lindex $disc [rand [llength $disc]]]] { puthelp "PRIVMSG $channel :$a" }

[EmOuBi]

i'm tottaly newbie, where to put this

When I make:

Code: Select all

bind pub n !trigger pub_disc

proc pub_disc {nick mask hand channel args} {
global disc
   puthelp "PRIVMSG $channel :[lindex $disc [rand [llength $disc]]]"
foreach a [split [lindex $disc [rand [llength $disc]]]] { puthelp "PRIVMSG $channel :$a" }
   }
set disc {
"-Dialog -Dialog2 -Dialog3 "
"-Aaaa -Bbbb -Cccc"
}

The result is:
<me>!trigger
<botnick> -Aaaa -Bbbb -Cccc
<botnick> -Aaaa
<botnick> -Bbbb
<botnick> -Cccc
<me>!trigger
<botnick> -Aaaa -Bbbb -Cccc
<botnick> -Dialog
<botnick> -Dialog2
<botnick> -Dialog3