The script's author made it clear to contact him/her about suggesting changes to the script.
Contact the author before asking people here to modify the script, it's called being polite.
set trigbind -|-
set script(chan) "#channel"
set script(trigger1) "!test"
set script(trigger2) "help"
set script(trigger3) "^help"
set script(trigger4) "@help"
set script(trigger5) "-help"
set script(text1) "Your text line comes here1."
set script(text2) "Your text line comes here2."
set script(text3) "Your text line comes here3."
set script(text4) "Your text line comes here4."
set script(text5) "Your text line comes here5."
bind ctcp $trigbind ACTION script:one
proc script:one {nick uhost hand chan kw arg} {
global script
set chan [string tolower $chan]
set script(chan) [string tolower $script(chan)]
if {$chan != $script(chan)} {return 0}
if {[string match -nocase "$script(trigger1)" $arg]} {
putquick "privmsg $chan :$script(text1)"
}
if {[string match -nocase "$script(trigger2)" $arg]} {
putquick "privmsg $chan :$script(text2)"
}
if {[string match -nocase "$script(trigger3)" $arg]} {
putquick "privmsg $chan :$script(text3)"
}
if {[string match -nocase "$script(trigger4)" $arg]} {
putquick "privmsg $chan :$script(text4)"
}
if {[string match -nocase "$script(trigger5)" $arg]} {
putquick "privmsg $chan :$script(text5)"
}
return 0
}
putlog "Script loaded."
Ok it is tested and working fine, it will work on 1 channel only.