egghelp.org community :: View topic - faq.tcl more multilines then just 2

[ egghelp.org home | forum home ]

egghelp.org community
Discussion of eggdrop bots, shell accounts and tcl scripts.

FAQ

Memberlist

Usergroups

Profile

faq.tcl more multilines then just 2

egghelp.org community Forum Index -> Script Support & Releases

View previous topic :: View next topic

Author

Message

Fraud
Op

Joined: 19 May 2008
Posts: 101

Posted: Mon Jul 29, 2013 2:23 pm Post subject: faq.tcl more multilines then just 2

I am using this faq TCL Script http://www.egghelp.org/cgi-bin/tcl_archive.tcl?mode=download&id=820 and would like to know if its possible to split multilines to more then just two. Sometimes you will have more lines so i would like to know if its possible to split lines to 5 or even more?

That seems to be the part for the split, a friend added a color code command, maybe anyone here might help me with the multi split.
Thanks

Code:

set database [open $faq(database) r]
set dbline ""
while {![eof $database]} {
gets $database dbline
set dbfact [ string tolower [ lindex [split $dbline [string trim $faq(splitchar)]] 0 ] ]
set dbdefinition [string range $dbline [expr [string length $fact]+1] end]
if {$dbfact==$fact} {
if {[string match -nocase "*$faq(newline)*" $dbdefinition]} {
set out1 [lindex [split $dbdefinition "$faq(newline)"] 0]
set out2 [string range $dbdefinition [expr [string length $out1]+2] end]
putmsg $channel "\002$tellnick\002: ($dbfact) $out1"
putmsg $channel "\002$tellnick\002: ($dbfact) $out2"
} else {
putmsg $channel "\002$tellnick\002: ($dbfact) $dbdefinition"
}
putlog "FAQ: Send keyword \"\002$fact\002\" to $tellnick by $nick ($idx)"
close $database
return 0
}
}

SpiKe^^
Owner

Joined: 12 May 2006
Posts: 792
Location: Tennessee, USA

Posted: Tue Jul 30, 2013 12:51 am Post subject:

Try this untested code...

Code:

set database [open $faq(database) r]
set dbline ""
while {![eof $database]} {
gets $database dbline
set dbfact [ string tolower [ lindex [split $dbline [string trim $faq(splitchar)]] 0 ] ]
set dbdefinition [string range $dbline [expr {[string length $fact]+1}] end]
if {$dbfact==$fact} {

set newline [string trim $faq(newline)]

if {[set fnd [string first $newline $dbdefinition]] > "-1"} {
set num [expr {[string length $newline]+1}]
while {$fnd > "-1"} {
set line [string range $dbdefinition 0 [incr $fnd -1]]
if {$line ne ""} {
putmsg $channel "\002$tellnick\002: ($dbfact) $line"
}
set dbdefinition [string range $dbdefinition [incr $fnd $num] end]
set fnd [string first $newline $dbdefinition]
}
if {$dbdefinition ne ""} {
putmsg $channel "\002$tellnick\002: ($dbfact) $dbdefinition"
}

} else {
putmsg $channel "\002$tellnick\002: ($dbfact) $dbdefinition"
}
putlog "FAQ: Send keyword \"\002$fact\002\" to $tellnick by $nick ($idx)"
close $database
return 0
}
}

Important notes on settings affecting this code:

This setting Must be only 1 character.

Code:

set faq(splitchar) "|"

This setting can be 1, 2 or more characters.
Can also be the same as faq(splitchar).

Code:

set faq(newline) ";;"

_________________
SpiKe^^

Get BogusTrivia 2.06.4.7 at www.mytclscripts.com
or visit the New Tcl Acrhive at www.tclarchive.org
.

Fraud
Op

Joined: 19 May 2008
Posts: 101

Posted: Wed Jul 31, 2013 7:21 am Post subject:

Hello SpiKe^^, thanks for your Help.

I´m getting this error

Quote:

Tcl error [faq:explain_fact]: can't read "tellnick": no such variable

SpiKe^^
Owner

Joined: 12 May 2006
Posts: 792
Location: Tennessee, USA

Posted: Wed Jul 31, 2013 8:28 am Post subject:

Oh, I fixed the faq:tell_fact process. Use the new code i wrote to fix that process & I'll fix the faq:explain_fact code tonight:)

We didn't change the part of the faq:tell_fact process that sets the "tellnick" variable.
That new code needs to just replace the chunk of matching code, like this...

Code:

proc faq:tell_fact {nick idx handle channel args} {
global faq
if { [lsearch -exact [split [string tolower $faq(channels)]] [string tolower $channel]] < 0 } {
return 0
}
if {$faq(status)==1} {
putnotc $nick "The faq-database is \002closed\002."
return 0
}
if {![file exist $faq(database)]} {
set database [open $faq(database) w]
puts -nonewline $database ""
close $database
}

## This line of code sets the "tellnick" variable ##
set tellnick [ lindex [split [join $args]] 0 ]

set fact [ string trim [ string tolower [ join [ lrange [split [join $args]] 1 end ] ] ] ]
if {$tellnick == ""} {
putnotc $nick "Syntax: [string trim $faq(cmdchar)]faq \002nick\002 keyword"
return 0
}
if {$fact == ""} {
putnotc $nick "Syntax: [string trim $faq(cmdchar)]faq nick \002keyword\002"
return 0
}

### Begin Our New Code ###

set database [open $faq(database) r]
set dbline ""
while {![eof $database]} {
gets $database dbline
set dbfact [ string tolower [ lindex [split $dbline [string trim $faq(splitchar)]] 0 ] ]
set dbdefinition [string range $dbline [expr {[string length $fact]+1}] end]
if {$dbfact==$fact} {

set newline [string trim $faq(newline)]

if {[set fnd [string first $newline $dbdefinition]] > "-1"} {
set num [expr {[string length $newline]+1}]
while {$fnd > "-1"} {
set line [string range $dbdefinition 0 [incr $fnd -1]]
if {$line ne ""} {
putmsg $channel "\002$tellnick\002: ($dbfact) $line"
}
set dbdefinition [string range $dbdefinition [incr $fnd $num] end]
set fnd [string first $newline $dbdefinition]
}
if {$dbdefinition ne ""} {
putmsg $channel "\002$tellnick\002: ($dbfact) $dbdefinition"
}

} else {
putmsg $channel "\002$tellnick\002: ($dbfact) $dbdefinition"
}
putlog "FAQ: Send keyword \"\002$fact\002\" to $tellnick by $nick ($idx)"
close $database
return 0
}
}

### End Our New Code ###

close $database
putnotc $nick "I don't know about \002$fact\002."
if {[matchattr $handle [string trim $faq(glob_flag)]|[string trim $faq(chan_flag)] $channel]} {
putnotc $nick "You could add \002$fact\002 by using [string trim $faq(cmdchar)]addword \002$fact\002[string trim $faq(splitchar)]Definition goes here."
} else {
# putnotc $nick "If you're looking for a TCL-Script try http://www.egghelp.org/cgi-bin/tcl_archive.tcl?strings=$fact"
}
return 0
}

The command that triggers that process requires you to give it a nick...

Quote:

# ?faq nick keyword - used to explain something(keyword) to someone(nick)

_________________
SpiKe^^

Get BogusTrivia 2.06.4.7 at www.mytclscripts.com
or visit the New Tcl Acrhive at www.tclarchive.org
.

Fraud
Op

Joined: 19 May 2008
Posts: 101

Posted: Wed Jul 31, 2013 9:20 am Post subject:

Hi.
There still seems to an Error.

This is what i am doing

Quote:

?addword test|testone;;testtwo;;testthree

?faq nick test
nick: (test) testthree
Outputted just the last one

and if i do
? test

i get
test: testone
test: testtwo;;testthree

Second and third line is in just one but should be a third line

Here´s the complete Code i use

Code:

# Original Script (Diccionario.TCL) by BaRDaHL
#
# by ICU <icu@eggdrop-support.org> (#eggdrop.support @ irc.QuakeNet.org)
#
# Thanks to #eggdrop.support for all the tips and support :)
#
# ChangeLog
#
# 20030106 - Changed Name to faq.tcl (changed purpose)
# - Changed some commands
#    - Updated the language
#    - Added some commands
#    - Fixes:)
#
# 20030115 - Changed the ?faq helptext
#    - Fixed all to key word
#
# 20030122 - Removed some private parts from the script (?send-faq) till
#    i found a solution to make it in tcl (not in perl ;-))
#    - Changed the way ?faq works. it now uses public replys
#    (requested by #eggdrop.support)
#
# 20030123 - Some cosmetic changes
#
# 20030219 - Changed matchattr to don't use quotation marks
#
# 20030411 - Fixed handling of some special chars in facts/description.
#    Mainly changed listtostring proc.
#    Thx to |sPhiNX| for reporting ;)
#
# 20030728 - Removed the listtostring proc.
# Format updates
# Spelling
# Changed matchattr to check for chan M too
# Switched the Settings handling
# Added configurable cmdchar, splitchar, glob_flag and chan_flag:
# cmdchar: char to prefix commands
# splitchar: seperator between keyword and definition
# glob_flag: globalflag to be a FAQ Master
# chan_flag: channelflag to be a FAQ Master
# Now using keyword instead of key word
# Switched from using "" to \002
#
# 20030730 - Fixed the "?faq nick key word" bug (wouldn't notice the second
# part of the word)
#
# 20030731 - Added the ability to limit the chans where the script is active
# - Bugfixes - thanks to AliTriX on #eggdrop.support
#
# 20030805 - Last bugfixes and public relase v2.07
#
# 20031011 - Honored the latest changes on egghelp.org by slennox
#
# 20040122 - Changed the default faq(splitchar) since it causes some trouble
# on TCL 8.4+
# - Removed egghelp.org stuff for public release.
#
# 20040314 - Using string trim to remove trailing spaces from fact lookups
# Thanks to bUrN for reporting
#
# 20040629 - Added possibility to use multi-line responses.
# Thanks to arena7|Blacky for the idea
#
#
# creates a file in your eggdrop-dir to store facts
# if you want to modify the faq-database status you need to have the +M flag
# to set this flag you just need to copy ".chattr <handle> +M" to the partyline
#
# The most current Version is available here: http://no-scrub.de/other/faq.tcl.zip
#
# Depending on your faq(cmdchar) setting prefix something other then a questionmark
# Depending on your faq(splitchar) settings use something other then a paragraph sign
#
# Public commands:
# ?faq-help - usage
# ? keyword - used to look up something from the db
# ?faq nick keyword - used to explain something(keyword) to someone(nick)
#
# Master commands:
# ?addword keyword§definition - used to add something to the db
# ?delword keyword - used to delete something from the db
# ?modify keyword§definition - used to modify a keyword in the db
# ?open-faq - opens the database if closed
# ?close-faq - closes the database if opened

########
# SETS #
########

# File will be created in your eggdrop dir unless you specify a path
# Ex. set faq(database) "/path/to/faqdatabase"
set faq(database) "/home/eggdrop/Telnet-143-help-2222/scripts/db/help.db"

# This char will be prefixed to all commands
set faq(cmdchar) "?"

# This char is used to split the keyword from the definition on irc commands and in the database.
# Note: § will not longer work on TCL 8.4+ for some strange reason.
set faq(splitchar) "|"

# This char is used to split multiple lines in your reply/definition.
# Note: § will not longer work on TCL 8.4+ for some strange reason.
set faq(newline) ";;"

# Global flag needed to use the FAQ Master commands
set faq(glob_flag) "A S"

# Channel flag needed to use FAQ Master commands (empty means noone)
set faq(chan_flag) ""

# Channels the FAQ is active on
set faq(channels) "#brainlag #store #brainlag.int #etrust"

#################
# END OF CONFIG #
#################

##############
# STOP HERE! #
##############

# Initial Status of the Database (0 = open 1 = closed)
set faq(status) 0
# Current Version of the Database
set faq(version) "20040926 v2.10"

#########
# BINDS #
#########

bind pub - "[string trim $faq(cmdchar)]" faq:explain_fact
bind pub - "[string trim $faq(cmdchar)]faq" faq:tell_fact
bind pub - "[string trim $faq(cmdchar)]addword" faq:add_fact
bind pub - "[string trim $faq(cmdchar)]delword" faq:delete_fact
bind pub - "[string trim $faq(cmdchar)]modify" faq:modify_fact
bind pub - "[string trim $faq(cmdchar)]close-faq" faq:close-faqdb
bind pub - "[string trim $faq(cmdchar)]open-faq" faq:open-faqdb
bind pub - "[string trim $faq(cmdchar)]faq-help" faq:faq_howto

#########
# PROCS #
#########

proc faq:close-faqdb {nick idx handle channel args} {
global faq
if { [lsearch -exact [split [string tolower $faq(channels)]] [string tolower $channel]] < 0 } {
return 0
}
if {![matchattr $handle [string trim $faq(glob_flag)]|[string trim $faq(chan_flag)] $channel]} {
putnotc $nick "You can't change the faq-database status."
return 0
}
if {$faq(status)==0} {
set faq(status) 1
putnotc $nick "The faq-database was \002closed correctly\002."
putnotc $nick "Now anybody cant use the command '[string trim $faq(cmdchar)] keyword'."
putnotc $nick "To open the faq-database again use the command '[string trim $faq(cmdchar)]open-faq'."
return 0
}
if {$faq(status)==1} {
putnotc $nick "The faq-database is \002already closed\002."
return 0
}
}

proc faq:open-faqdb {nick idx handle channel args} {
global faq
if { [lsearch -exact [split [string tolower $faq(channels)]] [string tolower $channel]] < 0 } {
return 0
}
if {![matchattr $handle [string trim $faq(glob_flag)]|[string trim $faq(chan_flag)] $channel]} {
putnotc $nick "You can't change the faq-database status."
return 0
}
if {$faq(status)==1} {
set faq(status) 0
putnotc $nick "The faq-database was \002opened correctly\002."
putnotc $nick "Now anybody can use the command '[string trim $faq(cmdchar)] \002keyword\002'."
putnotc $nick "To close the faq-database again just use the command '[string trim $faq(cmdchar)]close-faq'."
return 0
}
if {$faq(status)==0} {
putnotc $nick "The faq-database is \002already open\002."
return 0
}
}

proc faq:explain_fact {nick idx handle channel args} {
global faq
if { [lsearch -exact [split [string tolower $faq(channels)]] [string tolower $channel]] < 0 } {
return 0
}
if {$faq(status) == 1} {
putnotc $nick "The faq-database is \002closed\002."
return 0
}
if {![file exist $faq(database)]} {
set database [open $faq(database) w]
puts -nonewline $database ""
close $database
}
set fact [ string trim [ string tolower [ join $args ] ] ]
if {$fact == ""} {
# putmsg $nick "Syntax: [string trim $faq(cmdchar)] \002keyword\002"
return 0
}
set database [open $faq(database) r]
set dbline ""
while {![eof $database]} {
gets $database dbline
set dbfact [ string tolower [ lindex [split $dbline [string trim $faq(splitchar)]] 0 ]]
set dbdefinition [string range $dbline [expr [string length $fact]+1] end]
if {$dbfact==$fact} {
if {[string match -nocase "*$faq(newline)*" $dbdefinition]} {
set out1 [lindex [split $dbdefinition $faq(newline)] 0]
set out2 [string range $dbdefinition [expr [string length $out1]+2] end]
putmsg $channel "\002$fact\002: $out1"
putmsg $channel "\002$fact\002: $out2"
} else {
putmsg $channel "\002$fact\002: $dbdefinition"
}
close $database
return 0
}
}
close $database
putnotc $nick "I don't know about \002$fact\002."
if {[matchattr $handle [string trim $faq(glob_flag)]|[string trim $faq(chan_flag)] $channel]} {
putnotc $nick "You could add \002$fact\002 by using [string trim $faq(cmdchar)]addword \002$fact\002[string trim $faq(splitchar)]Definition goes here."
} else {
# putnotc $nick "If you're looking for a TCL-Script try http://www.egghelp.org/cgi-bin/tcl_archive.tcl?strings=$fact"
}
return 0
}

proc faq:tell_fact {nick idx handle channel args} {
global faq
if { [lsearch -exact [split [string tolower $faq(channels)]] [string tolower $channel]] < 0 } {
return 0
}
if {$faq(status)==1} {
putnotc $nick "The faq-database is \002closed\002."
return 0
}
if {![file exist $faq(database)]} {
set database [open $faq(database) w]
puts -nonewline $database ""
close $database
}

## This line of code sets the "tellnick" variable ##
set tellnick [ lindex [split [join $args]] 0 ]

set fact [ string trim [ string tolower [ join [ lrange [split [join $args]] 1 end ] ] ] ]
if {$tellnick == ""} {
putnotc $nick "Syntax: [string trim $faq(cmdchar)]faq \002nick\002 keyword"
return 0
}
if {$fact == ""} {
putnotc $nick "Syntax: [string trim $faq(cmdchar)]faq nick \002keyword\002"
return 0
}

### Begin Our New Code ###

set database [open $faq(database) r]
set dbline ""
while {![eof $database]} {
gets $database dbline
set dbfact [ string tolower [ lindex [split $dbline [string trim $faq(splitchar)]] 0 ] ]
set dbdefinition [string range $dbline [expr {[string length $fact]+1}] end]
if {$dbfact==$fact} {

set newline [string trim $faq(newline)]

if {[set fnd [string first $newline $dbdefinition]] > "-1"} {
set num [expr {[string length $newline]+1}]
while {$fnd > "-1"} {
set line [string range $dbdefinition 0 [incr $fnd -1]]
if {$line ne ""} {
putmsg $channel "\002$tellnick\002: ($dbfact) $line"
}
set dbdefinition [string range $dbdefinition [incr $fnd $num] end]
set fnd [string first $newline $dbdefinition]
}
if {$dbdefinition ne ""} {
putmsg $channel "\002$tellnick\002: ($dbfact) $dbdefinition"
}

} else {
putmsg $channel "\002$tellnick\002: ($dbfact) $dbdefinition"
}
putlog "FAQ: Send keyword \"\002$fact\002\" to $tellnick by $nick ($idx)"
close $database
return 0
}
}

### End Our New Code ###

close $database
putnotc $nick "I don't know about \002$fact\002."
if {[matchattr $handle [string trim $faq(glob_flag)]|[string trim $faq(chan_flag)] $channel]} {
putnotc $nick "You could add \002$fact\002 by using [string trim $faq(cmdchar)]addword \002$fact\002[string trim $faq(splitchar)]Definition goes here."
} else {
# putnotc $nick "If you're looking for a TCL-Script try http://www.egghelp.org/cgi-bin/tcl_archive.tcl?strings=$fact"
}
return 0
}

proc faq:add_fact {nick idx handle channel args} {
global faq
if { [lsearch -exact [split [string tolower $faq(channels)]] [string tolower $channel]] < 0 } {
return 0
}
if {$faq(status)==1} {
putnotc $nick "The faq-database is \002closed\002."
return 0
}
if {![matchattr $handle [string trim $faq(glob_flag)]|[string trim $faq(chan_flag)] $channel]} {
putnotc $nick "You can't add keywords into my dababase."
return 0
}
if {![file exist $faq(database)]} {
set database [open $faq(database) w]
puts -nonewline $database ""
close $database
}
set fact [ string tolower [ lindex [split [join $args] [string trim $faq(splitchar)]] 0 ] ]
set definition [string range [join $args] [expr [string length $fact]+1] end]
set database [open $faq(database) r]
if {($fact=="")} {
putnotc $nick "Left parameters."
putnotc $nick "use: [string trim $faq(cmdchar)]addword \002keyword\002[string trim $faq(splitchar)]definition"
return 0
} elseif {($definition=="")} {
putnotc $nick "Left parameters."
putnotc $nick "use: [string trim $faq(cmdchar)]addword keyword[string trim $faq(splitchar)]\002definition\002"
return 0
}
while {![eof $database]} {
gets $database dbline
set add_fact [ string tolower [ lindex [split $dbline [string trim $faq(splitchar)]] 0 ] ]
if {$add_fact==$fact} {
putnotc $nick "This keyword is already in my database:"
putnotc $nick "Is: \002$fact\002 - $definition"
putnotc $nick "If you want to modify it just use '[string trim $faq(cmdchar)]modify $fact[string trim $faq(splitchar)]\002definition\002'"
close $database
return 0
}
}
close $database
set database [open $faq(database) a]
puts $database "$fact[string trim $faq(splitchar)]$definition"
close $database
putnotc $nick "The keyword \002$fact\002 was added correctly to my database."
putnotc $nick "Now: \002$fact\002 - $definition"
}

proc faq:delete_fact {nick idx handle channel args} {
global faq
if { [lsearch -exact [split [string tolower $faq(channels)]] [string tolower $channel]] < 0 } {
return 0
}
if {$faq(status)==1} {
putnotc $nick "The faq-database is \002closed\002."
return 0
}
if {![matchattr $handle [string trim $faq(glob_flag)]|[string trim $faq(chan_flag)] $channel]} {
putnotc $nick "You can't delete keywords from my database."
return 0
}
if {![file exist $faq(database)]} {
set database [open $faq(database) w]
puts -nonewline $database ""
close $database
}
set fact [string tolower [join $args]]
if {($fact=="")} {
putnotc $nick "Left parameters."
putnotc $nick "use: [string trim $faq(cmdchar)]delword \002keyword\002"
return 0
}
set database [open $faq(database) r]
set dbline ""
set found 0
while {![eof $database]} {
gets $database dbline
set dbfact [ string tolower [ lindex [split $dbline [string trim $faq(splitchar)]] 0 ] ]
set dbdefinition [string range $dbline [expr [string length $fact]+1] end]
if {$dbfact!=$fact} {
lappend datalist $dbline
} else {
putnotc $nick "The keyword \002$fact\002 was deleted correctly from my database."
putnotc $nick "Was: \002$dbfact\002 - $dbdefinition"
set found 1
}
}
close $database
set databaseout [open $faq(database) w]
foreach line $datalist {
if {$line!=""} {puts $databaseout $line}
}
close $databaseout
if {$found != 1} {putnotc $nick "\002$fact\002 not found in my database."}
}

proc faq:modify_fact {nick idx handle channel args} {
global faq
if { [lsearch -exact [split [string tolower $faq(channels)]] [string tolower $channel]] < 0 } {
return 0
}
if {$faq(status)==1} {
putnotc $nick "The faq-database is \002closed\002."
return 0
}
if {![matchattr $handle [string trim $faq(glob_flag)]|[string trim $faq(chan_flag)] $channel]} {
putnotc $nick "You can't modify keywords in my database."
return 0
}
if {![file exist $faq(database)]} {
set database [open $faq(database) w]
puts -nonewline $database ""
close $database
}
set fact [ string tolower [ lindex [split [join $args] [string trim $faq(splitchar)]] 0 ] ]
set definition [string range [join $args] [expr [string length $fact]+1] end]
set database [open $faq(database) r]
if {($fact=="")} {
putnotc $nick "Left parameters."
putnotc $nick "use: [string trim $faq(cmdchar)]modify \002keyword\002[string trim $faq(splitchar)]definition"
return 0
}
if {($definition=="")} {
putnotc $nick "Left parameters."
putnotc $nick "use: [string trim $faq(cmdchar)]modify keyword[string trim $faq(splitchar)]\002definition\002"
return 0
}
set database [open $faq(database) r]
set dbline ""
set found 0
while {![eof $database]} {
gets $database dbline
set dbfact [ string tolower [ lindex [split $dbline [string trim $faq(splitchar)]] 0 ] ]
set dbdefinition [string range $dbline [expr [string length $fact]+1] end]
if {$dbfact!=$fact} {
lappend datalist $dbline
} else {
if {$dbdefinition!=$definition} {
lappend datalist "$fact[string trim $faq(splitchar)]$definition"
putnotc $nick "The keyword \002$fact\002 was modified correctly in my database."
putnotc $nick "Is now: \002$fact\002 - $definition"
putnotc $nick "Was: $dbfact - $dbdefinition"
set found 1
} else {
lappend datalist $dbline
putnotc $nick "I already had it that way. \002$fact\002 was not modified."
putnotc $nick "Is: \002$fact\002 - $definition"
set found 1
}
}
}
close $database
set databaseout [open $faq(database) w]
foreach line $datalist {
if {$line!=""} {puts $databaseout $line}
}
close $databaseout
if {$found != 1} {
putnotc $nick "\002$fact\002 not found in my database"
putnotc $nick "If you want to add the fact to the database use: [string trim $faq(cmdchar)]addword $fact[string trim $faq(splitchar)]\002description\002"
}
}

proc faq:faq_howto {nick idx handle channel args} {
global faq
if { [lsearch -exact [split [string tolower $faq(channels)]] [string tolower $channel]] < 0 } {
return 0
}
putnotc $nick "Help commands for FAQ Database $faq(version)"
if {[matchattr $handle [string trim $faq(glob_flag)]|[string trim $faq(chan_flag)] $channel]} {
if {$faq(status)==0} {
putnotc $nick " - [string trim $faq(cmdchar)]close-faq"
putnotc $nick " - [string trim $faq(cmdchar)]addword : [string trim $faq(cmdchar)]addword \002keyword\002[string trim $faq(splitchar)]your description goes here..."
putnotc $nick " - [string trim $faq(cmdchar)]delword : [string trim $faq(cmdchar)]delword \002keyword\002"
putnotc $nick " - [string trim $faq(cmdchar)]modify : [string trim $faq(cmdchar)]modify \002keyword\002[string trim $faq(splitchar)]your new description goes here..."
}
if {$faq(status)==1} {
putnotc $nick " - [string trim $faq(cmdchar)]open-faq"
}
}
if {$faq(status)==0} {
putnotc $nick " - [string trim $faq(cmdchar)] \002keyword\002 : looks up keyword in the database"
putnotc $nick " - To let the bot tell someone about something use [string trim $faq(cmdchar)]faq nick \002keyword\002"
}
if {$faq(status)==1} {
putnotc $nick "The faq-database is \002closed\002."
}
}

#######
# LOG #
#######

putlog "FAQ-Database $faq(version) (by ICU <icu@eggdrop-support.org>) loaded. - Original by BaRDaHL"

#################
# END OF SCRIPT #
#################

Madalin
Master

Joined: 24 Jun 2005
Posts: 310
Location: Constanta, Romania

Posted: Wed Jul 31, 2013 9:44 am Post subject:

Have you tryed using http://forum.egghelp.org/viewtopic.php?t=19313 ? For the eggdrop to post line by line you separate them using character "\|" _________________ https://github.com/MadaliNTCL - To chat with me: https://tawk.to/MadaliNTCL

Fraud
Op

Joined: 19 May 2008
Posts: 101

Posted: Wed Jul 31, 2013 4:51 pm Post subject:

Thx Madalin but SpiKe^^ worked on it already, so i will wait till he has fixed everything.

SpiKe^^
Owner

Joined: 12 May 2006
Posts: 792
Location: Tennessee, USA

Posted: Fri Aug 02, 2013 4:19 pm Post subject:

Sorry it took me so long to get back to this, I was busy:)

All fixed, try this version...

Code:

# Original Script (Diccionario.TCL) by BaRDaHL
#
# by ICU <icu@eggdrop-support.org> (#eggdrop.support @ irc.QuakeNet.org)
#
# Thanks to #eggdrop.support for all the tips and support :)
#
# ChangeLog
#
# 20030106 - Changed Name to faq.tcl (changed purpose)
# - Changed some commands
# - Updated the language
# - Added some commands
# - Fixes:)
#
# 20030115 - Changed the ?faq helptext
# - Fixed all to key word
#
# 20030122 - Removed some private parts from the script (?send-faq) till
# i found a solution to make it in tcl (not in perl ;-))
# - Changed the way ?faq works. it now uses public replys
# (requested by #eggdrop.support)
#
# 20030123 - Some cosmetic changes
#
# 20030219 - Changed matchattr to don't use quotation marks
#
# 20030411 - Fixed handling of some special chars in facts/description.
# Mainly changed listtostring proc.
# Thx to |sPhiNX| for reporting ;)
#
# 20030728 - Removed the listtostring proc.
# Format updates
# Spelling
# Changed matchattr to check for chan M too
# Switched the Settings handling
# Added configurable cmdchar, splitchar, glob_flag and chan_flag:
# cmdchar: char to prefix commands
# splitchar: seperator between keyword and definition
# glob_flag: globalflag to be a FAQ Master
# chan_flag: channelflag to be a FAQ Master
# Now using keyword instead of key word
# Switched from using "" to \002
#
# 20030730 - Fixed the "?faq nick key word" bug (wouldn't notice the second
# part of the word)
#
# 20030731 - Added the ability to limit the chans where the script is active
# - Bugfixes - thanks to AliTriX on #eggdrop.support
#
# 20030805 - Last bugfixes and public relase v2.07
#
# 20031011 - Honored the latest changes on egghelp.org by slennox
#
# 20040122 - Changed the default faq(splitchar) since it causes some trouble
# on TCL 8.4+
# - Removed egghelp.org stuff for public release.
#
# 20040314 - Using string trim to remove trailing spaces from fact lookups
# Thanks to bUrN for reporting
#
# 20040629 - Added possibility to use multi-line responses.
# Thanks to arena7|Blacky for the idea
#
#
# creates a file in your eggdrop-dir to store facts
# if you want to modify the faq-database status you need to have the +M flag
# to set this flag you just need to copy ".chattr <handle> +M" to the partyline
#
# The most current Version is available here: http://no-scrub.de/other/faq.tcl.zip
#
# Depending on your faq(cmdchar) setting prefix something other then a questionmark
# Depending on your faq(splitchar) settings use something other then a paragraph sign
#
# Public commands:
# ?faq-help - usage
# ? keyword - used to look up something from the db
# ?faq nick keyword - used to explain something(keyword) to someone(nick)
#
# Master commands:
# ?addword keyword§definition - used to add something to the db
# ?delword keyword - used to delete something from the db
# ?modify keyword§definition - used to modify a keyword in the db
# ?open-faq - opens the database if closed
# ?close-faq - closes the database if opened

########
# SETS #
########

# File will be created in your eggdrop dir unless you specify a path
# Ex. set faq(database) "/path/to/faqdatabase"
set faq(database) "/home/eggdrop/Telnet-143-help-2222/scripts/db/help.db"

# This char will be prefixed to all commands
set faq(cmdchar) "?"

# This char is used to split the keyword from the definition on irc commands and in the database.
# Note: § will not longer work on TCL 8.4+ for some strange reason.
set faq(splitchar) "|"

# This char is used to split multiple lines in your reply/definition.
# Note: § will not longer work on TCL 8.4+ for some strange reason.
set faq(newline) ";;"

# Global flag needed to use the FAQ Master commands
set faq(glob_flag) "A S"

# Channel flag needed to use FAQ Master commands (empty means noone)
set faq(chan_flag) ""

# Channels the FAQ is active on
set faq(channels) "#brainlag #store #brainlag.int #etrust"

#################
# END OF CONFIG #
#################

##############
# STOP HERE! #
##############

# Initial Status of the Database (0 = open 1 = closed)
set faq(status) 0
# Current Version of the Database
set faq(version) "20040926 v2.10"

#########
# BINDS #
#########

bind pub - "[string trim $faq(cmdchar)]" faq:explain_fact
bind pub - "[string trim $faq(cmdchar)]faq" faq:tell_fact
bind pub - "[string trim $faq(cmdchar)]addword" faq:add_fact
bind pub - "[string trim $faq(cmdchar)]delword" faq:delete_fact
bind pub - "[string trim $faq(cmdchar)]modify" faq:modify_fact
bind pub - "[string trim $faq(cmdchar)]close-faq" faq:close-faqdb
bind pub - "[string trim $faq(cmdchar)]open-faq" faq:open-faqdb
bind pub - "[string trim $faq(cmdchar)]faq-help" faq:faq_howto

#########
# PROCS #
#########

proc faq:close-faqdb {nick idx handle channel args} {
global faq
if { [lsearch -exact [split [string tolower $faq(channels)]] [string tolower $channel]] < 0 } {
return 0
}
if {![matchattr $handle [string trim $faq(glob_flag)]|[string trim $faq(chan_flag)] $channel]} {
putnotc $nick "You can't change the faq-database status."
return 0
}
if {$faq(status)==0} {
set faq(status) 1
putnotc $nick "The faq-database was \002closed correctly\002."
putnotc $nick "Now anybody cant use the command '[string trim $faq(cmdchar)] keyword'."
putnotc $nick "To open the faq-database again use the command '[string trim $faq(cmdchar)]open-faq'."
return 0
}
if {$faq(status)==1} {
putnotc $nick "The faq-database is \002already closed\002."
return 0
}
}

proc faq:open-faqdb {nick idx handle channel args} {
global faq
if { [lsearch -exact [split [string tolower $faq(channels)]] [string tolower $channel]] < 0 } {
return 0
}
if {![matchattr $handle [string trim $faq(glob_flag)]|[string trim $faq(chan_flag)] $channel]} {
putnotc $nick "You can't change the faq-database status."
return 0
}
if {$faq(status)==1} {
set faq(status) 0
putnotc $nick "The faq-database was \002opened correctly\002."
putnotc $nick "Now anybody can use the command '[string trim $faq(cmdchar)] \002keyword\002'."
putnotc $nick "To close the faq-database again just use the command '[string trim $faq(cmdchar)]close-faq'."
return 0
}
if {$faq(status)==0} {
putnotc $nick "The faq-database is \002already open\002."
return 0
}
}

proc faq:explain_fact {nick idx handle channel args} {
global faq
if { [lsearch -exact [split [string tolower $faq(channels)]] [string tolower $channel]] < 0 } {
return 0
}
if {$faq(status) == 1} {
putnotc $nick "The faq-database is \002closed\002."
return 0
}
if {![file exist $faq(database)]} {
set database [open $faq(database) w]
puts -nonewline $database ""
close $database
}
set fact [ string trim [ string tolower [ join $args ] ] ]
if {$fact == ""} {
# putmsg $nick "Syntax: [string trim $faq(cmdchar)] \002keyword\002"
return 0
}
set database [open $faq(database) r]
set dbline ""
while {![eof $database]} {
gets $database dbline
set dbfact [ string tolower [ lindex [split $dbline [string trim $faq(splitchar)]] 0 ]]
set dbdefinition [string range $dbline [expr [string length $fact]+1] end]
if {$dbfact==$fact} {

## Begin New Code ##
set newline [string trim $faq(newline)]

if {[set fnd [string first $newline $dbdefinition]] > "-1"} {
set num [expr {[string length $newline]+1}]
while {$fnd > "-1"} {
set line [string range $dbdefinition 0 [incr fnd -1]]
if {$line ne ""} {
putmsg $channel "\002$fact\002: $line"
}
set dbdefinition [string range $dbdefinition [incr fnd $num] end]
set fnd [string first $newline $dbdefinition]
}
if {$dbdefinition ne ""} {
putmsg $channel "\002$fact\002: $dbdefinition"
}
## End New Code ##

} else {
putmsg $channel "\002$fact\002: $dbdefinition"
}
close $database
return 0
}
}
close $database
putnotc $nick "I don't know about \002$fact\002."
if {[matchattr $handle [string trim $faq(glob_flag)]|[string trim $faq(chan_flag)] $channel]} {
putnotc $nick "You could add \002$fact\002 by using [string trim $faq(cmdchar)]addword \002$fact\002[string trim $faq(splitchar)]Definition goes here."
} else {
# putnotc $nick "If you're looking for a TCL-Script try http://www.egghelp.org/cgi-bin/tcl_archive.tcl?strings=$fact"
}
return 0
}

proc faq:tell_fact {nick idx handle channel args} {
global faq
if { [lsearch -exact [split [string tolower $faq(channels)]] [string tolower $channel]] < 0 } {
return 0
}
if {$faq(status)==1} {
putnotc $nick "The faq-database is \002closed\002."
return 0
}
if {![file exist $faq(database)]} {
set database [open $faq(database) w]
puts -nonewline $database ""
close $database
}
set tellnick [ lindex [split [join $args]] 0 ]
set fact [ string trim [ string tolower [ join [ lrange [split [join $args]] 1 end ] ] ] ]
if {$tellnick == ""} {
putnotc $nick "Syntax: [string trim $faq(cmdchar)]faq \002nick\002 keyword"
return 0
}
if {$fact == ""} {
putnotc $nick "Syntax: [string trim $faq(cmdchar)]faq nick \002keyword\002"
return 0
}
set database [open $faq(database) r]
set dbline ""
while {![eof $database]} {
gets $database dbline
set dbfact [ string tolower [ lindex [split $dbline [string trim $faq(splitchar)]] 0 ] ]
set dbdefinition [string range $dbline [expr {[string length $fact]+1}] end]
if {$dbfact==$fact} {

## Begin New Code ##
set newline [string trim $faq(newline)]

if {[set fnd [string first $newline $dbdefinition]] > "-1"} {
set num [expr {[string length $newline]+1}]
while {$fnd > "-1"} {
set line [string range $dbdefinition 0 [incr fnd -1]]
if {$line ne ""} {
putmsg $channel "\002$tellnick\002: ($dbfact) $line"
}
set dbdefinition [string range $dbdefinition [incr fnd $num] end]
set fnd [string first $newline $dbdefinition]
}
if {$dbdefinition ne ""} {
putmsg $channel "\002$tellnick\002: ($dbfact) $dbdefinition"
}
## End New Code ##

} else {
putmsg $channel "\002$tellnick\002: ($dbfact) $dbdefinition"
}
putlog "FAQ: Send keyword \"\002$fact\002\" to $tellnick by $nick ($idx)"
close $database
return 0
}
}
close $database
putnotc $nick "I don't know about \002$fact\002."
if {[matchattr $handle [string trim $faq(glob_flag)]|[string trim $faq(chan_flag)] $channel]} {
putnotc $nick "You could add \002$fact\002 by using [string trim $faq(cmdchar)]addword \002$fact\002[string trim $faq(splitchar)]Definition goes here."
} else {
# putnotc $nick "If you're looking for a TCL-Script try http://www.egghelp.org/cgi-bin/tcl_archive.tcl?strings=$fact"
}
return 0
}

proc faq:add_fact {nick idx handle channel args} {
global faq
if { [lsearch -exact [split [string tolower $faq(channels)]] [string tolower $channel]] < 0 } {
return 0
}
if {$faq(status)==1} {
putnotc $nick "The faq-database is \002closed\002."
return 0
}
if {![matchattr $handle [string trim $faq(glob_flag)]|[string trim $faq(chan_flag)] $channel]} {
putnotc $nick "You can't add keywords into my dababase."
return 0
}
if {![file exist $faq(database)]} {
set database [open $faq(database) w]
puts -nonewline $database ""
close $database
}
set fact [ string tolower [ lindex [split [join $args] [string trim $faq(splitchar)]] 0 ] ]
set definition [string range [join $args] [expr [string length $fact]+1] end]
set database [open $faq(database) r]
if {($fact=="")} {
putnotc $nick "Left parameters."
putnotc $nick "use: [string trim $faq(cmdchar)]addword \002keyword\002[string trim $faq(splitchar)]definition"
return 0
} elseif {($definition=="")} {
putnotc $nick "Left parameters."
putnotc $nick "use: [string trim $faq(cmdchar)]addword keyword[string trim $faq(splitchar)]\002definition\002"
return 0
}
while {![eof $database]} {
gets $database dbline
set add_fact [ string tolower [ lindex [split $dbline [string trim $faq(splitchar)]] 0 ] ]
if {$add_fact==$fact} {
putnotc $nick "This keyword is already in my database:"
putnotc $nick "Is: \002$fact\002 - $definition"
putnotc $nick "If you want to modify it just use '[string trim $faq(cmdchar)]modify $fact[string trim $faq(splitchar)]\002definition\002'"
close $database
return 0
}
}
close $database
set database [open $faq(database) a]
puts $database "$fact[string trim $faq(splitchar)]$definition"
close $database
putnotc $nick "The keyword \002$fact\002 was added correctly to my database."
putnotc $nick "Now: \002$fact\002 - $definition"
}

proc faq:delete_fact {nick idx handle channel args} {
global faq
if { [lsearch -exact [split [string tolower $faq(channels)]] [string tolower $channel]] < 0 } {
return 0
}
if {$faq(status)==1} {
putnotc $nick "The faq-database is \002closed\002."
return 0
}
if {![matchattr $handle [string trim $faq(glob_flag)]|[string trim $faq(chan_flag)] $channel]} {
putnotc $nick "You can't delete keywords from my database."
return 0
}
if {![file exist $faq(database)]} {
set database [open $faq(database) w]
puts -nonewline $database ""
close $database
}
set fact [string tolower [join $args]]
if {($fact=="")} {
putnotc $nick "Left parameters."
putnotc $nick "use: [string trim $faq(cmdchar)]delword \002keyword\002"
return 0
}
set database [open $faq(database) r]
set dbline ""
set found 0
while {![eof $database]} {
gets $database dbline
set dbfact [ string tolower [ lindex [split $dbline [string trim $faq(splitchar)]] 0 ] ]
set dbdefinition [string range $dbline [expr [string length $fact]+1] end]
if {$dbfact!=$fact} {
lappend datalist $dbline
} else {
putnotc $nick "The keyword \002$fact\002 was deleted correctly from my database."
putnotc $nick "Was: \002$dbfact\002 - $dbdefinition"
set found 1
}
}
close $database
set databaseout [open $faq(database) w]
foreach line $datalist {
if {$line!=""} {puts $databaseout $line}
}
close $databaseout
if {$found != 1} {putnotc $nick "\002$fact\002 not found in my database."}
}

proc faq:modify_fact {nick idx handle channel args} {
global faq
if { [lsearch -exact [split [string tolower $faq(channels)]] [string tolower $channel]] < 0 } {
return 0
}
if {$faq(status)==1} {
putnotc $nick "The faq-database is \002closed\002."
return 0
}
if {![matchattr $handle [string trim $faq(glob_flag)]|[string trim $faq(chan_flag)] $channel]} {
putnotc $nick "You can't modify keywords in my database."
return 0
}
if {![file exist $faq(database)]} {
set database [open $faq(database) w]
puts -nonewline $database ""
close $database
}
set fact [ string tolower [ lindex [split [join $args] [string trim $faq(splitchar)]] 0 ] ]
set definition [string range [join $args] [expr [string length $fact]+1] end]
set database [open $faq(database) r]
if {($fact=="")} {
putnotc $nick "Left parameters."
putnotc $nick "use: [string trim $faq(cmdchar)]modify \002keyword\002[string trim $faq(splitchar)]definition"
return 0
}
if {($definition=="")} {
putnotc $nick "Left parameters."
putnotc $nick "use: [string trim $faq(cmdchar)]modify keyword[string trim $faq(splitchar)]\002definition\002"
return 0
}
set database [open $faq(database) r]
set dbline ""
set found 0
while {![eof $database]} {
gets $database dbline
set dbfact [ string tolower [ lindex [split $dbline [string trim $faq(splitchar)]] 0 ] ]
set dbdefinition [string range $dbline [expr [string length $fact]+1] end]
if {$dbfact!=$fact} {
lappend datalist $dbline
} else {
if {$dbdefinition!=$definition} {
lappend datalist "$fact[string trim $faq(splitchar)]$definition"
putnotc $nick "The keyword \002$fact\002 was modified correctly in my database."
putnotc $nick "Is now: \002$fact\002 - $definition"
putnotc $nick "Was: $dbfact - $dbdefinition"
set found 1
} else {
lappend datalist $dbline
putnotc $nick "I already had it that way. \002$fact\002 was not modified."
putnotc $nick "Is: \002$fact\002 - $definition"
set found 1
}
}
}
close $database
set databaseout [open $faq(database) w]
foreach line $datalist {
if {$line!=""} {puts $databaseout $line}
}
close $databaseout
if {$found != 1} {
putnotc $nick "\002$fact\002 not found in my database"
putnotc $nick "If you want to add the fact to the database use: [string trim $faq(cmdchar)]addword $fact[string trim $faq(splitchar)]\002description\002"
}
}

proc faq:faq_howto {nick idx handle channel args} {
global faq
if { [lsearch -exact [split [string tolower $faq(channels)]] [string tolower $channel]] < 0 } {
return 0
}
putnotc $nick "Help commands for FAQ Database $faq(version)"
if {[matchattr $handle [string trim $faq(glob_flag)]|[string trim $faq(chan_flag)] $channel]} {
if {$faq(status)==0} {
putnotc $nick " - [string trim $faq(cmdchar)]close-faq"
putnotc $nick " - [string trim $faq(cmdchar)]addword : [string trim $faq(cmdchar)]addword \002keyword\002[string trim $faq(splitchar)]your description goes here..."
putnotc $nick " - [string trim $faq(cmdchar)]delword : [string trim $faq(cmdchar)]delword \002keyword\002"
putnotc $nick " - [string trim $faq(cmdchar)]modify : [string trim $faq(cmdchar)]modify \002keyword\002[string trim $faq(splitchar)]your new description goes here..."
}
if {$faq(status)==1} {
putnotc $nick " - [string trim $faq(cmdchar)]open-faq"
}
}
if {$faq(status)==0} {
putnotc $nick " - [string trim $faq(cmdchar)] \002keyword\002 : looks up keyword in the database"
putnotc $nick " - To let the bot tell someone about something use [string trim $faq(cmdchar)]faq nick \002keyword\002"
}
if {$faq(status)==1} {
putnotc $nick "The faq-database is \002closed\002."
}
}

#######
# LOG #
#######

putlog "FAQ-Database $faq(version) (by ICU <icu@eggdrop-support.org>) loaded. - Original by BaRDaHL"

#################
# END OF SCRIPT #
#################

_________________
SpiKe^^

Get BogusTrivia 2.06.4.7 at www.mytclscripts.com
or visit the New Tcl Acrhive at www.tclarchive.org
.

Fraud
Op

Joined: 19 May 2008
Posts: 101

Posted: Thu Aug 08, 2013 8:11 am Post subject:

Thank you so much. Works perfect!!! Just one more question, how can i make sure it works with more then just one flag? Lets say i have users only with S Flag and want to make they can add Triggers too. This set faq(glob_flag) "A S" wont do it?

Display posts from previous:

	egghelp.org community Forum Index -> Script Support & Releases	All times are GMT - 4 Hours
Page 1 of 1

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum