This is the new home of the egghelp.org community forum.
All data has been migrated (including user logins/passwords) to a new phpBB version.


For more information, see this announcement post. Click the X in the top right-corner of this box to dismiss this message.

Script [Message]

Requests for complete scripts or modifications/fixes for scripts you didn't write. Response not guaranteed, and no thread bumping!
C
CP1832
Halfop
Posts: 68
Joined: Thu Oct 09, 2014 4:03 pm

Post by CP1832 »

Sorry but I don't have that much TCL knowledge. Please check other scripts if this one doesn't work.
C
CP1832
Halfop
Posts: 68
Joined: Thu Oct 09, 2014 4:03 pm

Post by CP1832 »

CP1832 wrote:Sorry but I don't have that much TCL knowledge. Please check other scripts if this one doesn't work.
I had forgotten I had the original script (as I made some modifications). Here it is:

Code: Select all

# Hadace messaging (uzeno-eng-win-beta v.1.5 WINDOWS ENGLISH BETA 2005.nov.08) #mfc.cs @ quakenet
# NOTE!! 
# you must manualy create an empty file named: h_message.dat into your bot's main directory.
# __        ___       ____  _   ___  __
# \ \      / (_)_ __ / ___|| | | \ \/ /
#  \ \ /\ / /| | '_ \\___ \| | | |\  /
#   \ V  V / | | | | |___) | |_| |/  \
#    \_/\_/  |_|_| |_|____/ \___//_/\_\  
# my TCL scripts are avaiable here: 
# http://mazsola.linuxteam.hu/tcl/
# WARNING !
# in this version user rights are not correct!
# it must be corrected!
bind pub - "!msg" mess_do
bind pub - "!messages" mess_lista
bind pubm - * mess_join
bind time - "20 * * * *" mess_sort
bind pub - "!messaging" mess_info
bind msg - "!msg" mess_do_inmsg

#bind pub v|o "!msg" mess_do
#bind pub o|o "!messages" mess_lista
#bind pubm - * mess_join
#bind time - "20 * * * *" mess_sort
#bind pub v|o "!messaging" mess_info
#bind msg v|o "!msg" mess_do_inmsg

set message_db "h_message.dat"
set message_whodid ""

proc mess_info {nick host hand chan arg} {
	puthelp "PRIVMSG $chan :Hadace messaging (uzeno-eng-win-beta v.1.5 2005.dec.03)"
	puthelp "PRIVMSG $chan :Recepients list: !messages"
	puthelp "PRIVMSG $chan :Leaving message: !msg <nick> <message>"
	puthelp "PRIVMSG $chan :This info: !messaging"
}

proc mess_sort {a c d e f} {
	global message_db
	set t_count [clock clicks -milliseconds]
	set filemuvelet [open $message_db r]
	set osszesuzenet ""
	while {![eof $filemuvelet]} {
		set konkretuzenet [gets $filemuvelet]
		if {[info exists konkretuzenet]&&$konkretuzenet!=""} {
			lappend osszesuzenet [split $konkretuzenet " "]
		}
	}
	close $filemuvelet
	set osszesuzenet [lsort -index 1 $osszesuzenet]
	set filemuvelet [open $message_db w]
	foreach konkretuzenet $osszesuzenet {
		puts $filemuvelet [join $konkretuzenet " "]
	}
	close $filemuvelet
	putlog "!message Done with sorting of data on the database ($message_db)->[expr double([clock clicks -milliseconds]-$t_count)/1000]s"
}
proc mess_do_inmsg {nick uhost hand rest} {
global botnick
putlog "mess_do_inmsg: $rest"
	set rest [split $rest " "]
	set cimzett [lindex $rest 0]
	if {$cimzett == ""} {
		puthelp "NOTICE $nick :The right format: /msg $botnick !msg <nick> <message>"
	} else {
		mess_write $nick $cimzett [lrange $rest 1 end] "MSG"
		puthelp "NOTICE $nick :Message for $cimzett accepted"
	}
}
proc mess_do {nick host hand chan args} {
	putlog "mess_do indul"
	set args [lindex $args 0]
	set args [split $args " "]
	set cimzett [lindex $args 0]
	if {$cimzett == ""} {
		puthelp "NOTICE $nick :The right format: !msg <nick> <message>"
	} else {
		if {[onchan $cimzett $chan]} {
			set mwhom $cimzett
			set mmoo [finduser "*![getchanhost $mwhom $chan]"]
			if {[validuser $mmoo]} {
				set cimzett $mmoo
				#putlog "uj uzenet $cimzett botuser szamara"
			} else {
				#putlog "uj uzenet $cimzett nick szamara"
			}
		}
		mess_write $nick $cimzett [lrange $args 1 end] $chan
		puthelp "NOTICE $nick :Message for $cimzett accepted"
	}
}

proc mess_write { nick cimzett uzenet csatorna } {
	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 $csatorna $ido [join $uzenet] "
	close $filemuvelet
}

#####################
proc mess_join { nick uhost hand chan args } {
	#puthelp "NOTICE HeyBaby : $nick $uhost $hand $chan $args"
	if {$hand != "*"} {
		set explain [string tolower $hand]
	} else {
		set explain [string tolower $nick]
	}
	global message_db message_whodid
	if {![info exists message_whodid]} {
		set message_whodid ""
	}
	set nick [string tolower $nick]
	set filemuvelet [open $message_db r]
	set osszesuzenet ""
	while {![eof $filemuvelet]} {
		gets $filemuvelet konkretuzenet
		set konkretuzenet [split $konkretuzenet " "]
		if {[string equal -nocase [lindex $konkretuzenet 1] $explain]} {
			lappend osszesuzenet [join $konkretuzenet " "]
		}
	}
	close $filemuvelet
	set count 0
	if {[llength $osszesuzenet]==1} {
		set uzente [split [lindex $osszesuzenet 0] " "]
		puthelp "PRIVMSG $nick :[lindex $uzente 0] says at [join [lrange [split [lindex $osszesuzenet 0] " "] 2 end]]"
		incr count
	} else {
		foreach konkretuzenet $osszesuzenet {
			incr count
			puthelp "PRIVMSG $nick :[lindex $konkretuzenet 0]\[${count}] says at [join [lrange [split $konkretuzenet " "] 2 end]]"
		} 
	}
	if {$count == 0} { 
	} else {
		lappend message_whodid [list $explain [string tolower $chan]]
		set explain [message_filterstr $explain]	;# Don't allow code to be executed
		set chan [message_filterstr $chan]	;# ensure []s are properly handled...
		mess_delete $explain
	}
}
###############################################x
proc message_filterstr { data } {
	regsub -all -- \\\\ $data \\\\\\\\ data
	regsub -all -- \\\[ $data \\\\\[ data	
	regsub -all -- \\\] $data \\\\\] data
	regsub -all -- \\\} $data \\\\\} data
	regsub -all -- \\\{ $data \\\\\{ data
	regsub -all -- \\" $data \\\\" data
	return $data
}

proc mess_delete { cimzett {remnum "all"}} {
	global message_db
	set cimzett [string tolower $cimzett]
	set filemuvelet [open $message_db r]
	set osszesuzenet ""
	set count 1
	if {$remnum == "all"} {
		while {![eof $filemuvelet]} {
			gets $filemuvelet konkretuzenet
			if {![string equal -nocase [lindex [split $konkretuzenet] 1] $cimzett]} {
				lappend osszesuzenet $konkretuzenet
			}
		}
	} else {
		while {![eof $filemuvelet]} {
			gets $filemuvelet konkretuzenet
			if {![string equal -nocase [lindex [split $konkretuzenet] 1] $cimzett] || ($count != $remnum && $remnum != -2)} {
				if {[info exists konkretuzenet]&&$konkretuzenet!=""} {
					lappend osszesuzenet $konkretuzenet
				}
				if {[string equal -nocase [lindex [split $konkretuzenet] 1] $cimzett]} {
				incr count
				}
			} else {
				incr count
			}
		}
	}
	close $filemuvelet
	set filemuvelet [open $message_db w]
	foreach konkretuzenet $osszesuzenet {
		puts $filemuvelet $konkretuzenet
	}
	close $filemuvelet
}

proc mess_lista {nick host hand chan args} { 
	global message_db
	putserv "NOTICE $nick :\[ Recepients list \]"
	set lista ""
	set filemuvelet [open $message_db r]
	while {![eof $filemuvelet]} {
		lappend lista [lindex [split [gets $filemuvelet] " "] 1]
	}
	close $filemuvelet
	foreach {a b c d e f g} [lsort -unique $lista] {
		putserv "NOTICE $nick :Recepients: $a $b $c $d $e $f $g"
	}
	putserv "NOTICE $nick :\[ end of the list \]" 
}
putlog "Hadace messaging (uzeno.tcl v.1.5 ENG 2005.nov.08) #mfc.cs @ quakenet loaded"
User avatar
Fahad
Op
Posts: 127
Joined: Mon Aug 29, 2016 9:40 am

Post by Fahad »

I even install it in my new eggdrop and I created "h_message.dat" in my bot main dictionary and "messages.txt" I create manually it was not created auto

<MuteServ> [08:49:33] Tcl error [mess_join]: invalid command name " "
<MuteServ> [08:49:33] Tcl error [mess_do]: invalid command name " "

Please check http://picpaste.com/2017-04-29-ayKxULYG.png
Post Reply