Code:

bind pub v|o "!msg" mess_do

Code:

bind pub o|o "!msg" mess_do

Code:

set message_db "data/h_message.dat"

Code:

proc bs_save {} {  global bs_list userfile bs ; if {[array size bs_list] == 0} {return}  if {![string match */* $userfile]} {set name [lindex [split $userfile .] 0]} {    set temp [split $userfile /] ; set temp [lindex $temp [expr [llength $temp]-1]] ; set name [lindex [split $temp .] 0]  }  if {[file exists $bs(path)bs_data.$name]} {catch {exec cp -f $bs(path)bs_data.$name $bs(path)bs_data.$name.bak}}  set fd [open $bs(path)bs_data.$name w] ; set id [array startsearch bs_list] ; putlog "Backing up seen data..."  puts $fd "#$bs(updater)"      while {[array anymore bs_list $id]} {set item [array nextelement bs_list $id] ; puts $fd "$bs_list($item)"} ; array donesearch bs_list $id ; close $fd}

Code:

proc mess_write { nick cimzett uzenet } {        global message_db        set cimzett [string tolower $cimzett]        if {![file exists $message_db]} {                file mkdir [lindex [split $message_db /] 0]                set filemuvelet [open $message_db w+]                  puts $filemuvelet "Hadace !messaging database file created"        } else {                set filemuvelet [open $message_db a]               }        set systemTime [clock seconds]        set ido [clock format $systemTime -format {%d.%m.%Y. %H.%M:}]        puts $filemuvelet "$nick $cimzett $ido [join $uzenet] "        close $filemuvelet}

Code:

This command opens a file, serial port, or command pipeline and returns a channel identifier that may be used in future invocations of commands like read, puts, and close. If the first character of fileName is not | then the command opens a file: fileName gives the name of the file to open, and it must conform to the conventions described in the filename manual entry. The access argument, if present, indicates the way in which the file (or command pipeline) is to be accessed. In the first form access may have any of the following values: rOpen the file for reading only; the file must already exist. This is the default value if access is not specified. r+Open the file for both reading and writing; the file must already exist. wOpen the file for writing only. Truncate it if it exists. If it doesn't exist, create a new file. w+Open the file for reading and writing. Truncate it if it exists. If it doesn't exist, create a new file. aOpen the file for writing only. If the file doesn't exist, create a new empty file. Set the initial access position to the end of the file. a+Open the file for reading and writing. If the file doesn't exist, create a new empty file. Set the initial access position to the end of the file. 

Code:

##### SCRIPTS ###### This is a good place to load scripts to use with your bot.# This line loads script.tcl from the scripts directory inside your Eggdrop's# directory. All scripts should be put there, although you can place them where# you like as long as you can supply a fully qualified path to them.#                 # source scripts/script.tclsource scripts/alltools.tclsource scripts/action.fix.tclsource scripts/egghttp.tclsource scripts/imdb.tclsource scripts/bseen1.4.2.tclsource scripts/weather3.5.7.tclsource scripts/googler1.0.tclsource scripts/bash.org-1.4.7.tclsource scripts/duke.tcl  source scripts/uzeno-eng.tcl# Use this script for Tcl and Eggdrop downwards compatibility.     # NOTE: This can also cause problems with some newer scripts.       source scripts/compat.tcl# This script provides many useful informational functions, like setting# users' URLs, e-mail address, ICQ numbers, etc. You can modify it to add# extra entries.source scripts/userinfo.tclloadhelp userinfo.help

Code:

bs_data.chan

Code:

   close $filemuvelet    set osszesuzenet [lsort -index 1 $osszesuzenet]    set filemuvelet [open $message_db w]    foreach konkretuzenet $osszesuzenet {       puts $filemuvelet [join $konkretuzenet " "]