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.
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.
aka.tcl
Code: Select all
##############################################################################################
## ## aka.tcl for eggdrop by Ford_Lawnmower irc.geekshed.net #Script-Help ## ##
##############################################################################################
## .chanset #chan +aka for each channel you want to run the !aka trigger on. ##
## .chanset #chan +akashowlog to automatically see aka's in the partyline on join. ##
## .chanset #chan +akashowchan to automatically see aka's in #chan ##
##############################################################################################
## ____ __ ########################################### ##
## / __/___ _ ___ _ ___/ /____ ___ ___ ########################################### ##
## / _/ / _ `// _ `// _ // __// _ \ / _ \ ########################################### ##
## /___/ \_, / \_, / \_,_//_/ \___// .__/ ########################################### ##
## /___/ /___/ /_/ ########################################### ##
## ########################################### ##
##############################################################################################
## ## Start Setup. ## ##
##############################################################################################
namespace eval aka {
## Edit cmdchar to change the !trigger used to for this script ## ##
variable cmdchar "!"
## AKA Logo edit to change ## ##
variable logo "\002\00304\[\00307A\00304K\00307A\00304\]\017"
## Edit nicktextf to change the colors of the nickname. ## ##
variable nicktextf "\017\00309"
## Edit nickstextf to change the colors of the nicks in the aka list ## ##
variable nickstextf "\017\00304"
## addresstype defines the type of search AKA uses to match users. Valid values are ## ##
## 0-9 0 *!user@host, 1 *!*user@host, 2 *!*@host, 3 *!*user@*.host, 4 *!*@*.host, 5 ## ##
## nick!user@host, 6 nick!*user@host, 7 nick!*@host, 8 nick!*user@*.host, 9 nick!*@*.host ##
variable addresstype 2
## dupsdelay is the delay in seconds before the aka for a nick already displayed will ## ##
## be displayed again. This prevents redisplay on /hop and duplicates in partyline ## ##
variable dupsdelay 5
## maxakas is the maximum number of nicks that will be recorded for a single hostmask ## ##
variable maxakas 25
##############################################################################################
## ## End Setup. ## ##
##############################################################################################
setudef flag akashowchan
setudef flag akashowlog
setudef flag aka
bind dcc - aka aka::dccsearch
bind pub -|- [string trimleft $aka::cmdchar]aka aka::search
bind join -|- * aka::join
bind nick -|- * aka::nick
bind evnt -|- prerehash aka::savehash
bind evnt -|- prerestart aka::savehash
bind evnt -|- disconnect-server aka::savehash
bind evnt -|- save aka::savehash
bind evnt -|- init-server aka::loadhash
proc dccsearch {hand idx text {matchno 1}} {
if {[getchanhost $text] != ""} {
set ltext [string tolower $text]
set hostmask "akaindex[address "${text}![getchanhost $text]" $aka::addresstype]"
if {[llength [hget "AKA" $hostmask]] <= 1} {
putlog "${aka::logo} ${aka::nicktextf}${text} ${aka::nickstextf} has not been know by any other names."
} else {
putlog "${aka::logo} ${aka::nicktextf}${text} $aka::logo ${aka::nickstextf}[string map {" " \,} [hget "AKA" $hostmask]]"
}
} else {
if {[hfind "AKA" "*${text}*" $matchno] != ""} {
set hostmask "akaindex[address [hfind "AKA" "*${text}*" $matchno] $aka::addresstype]"
}
if {[hfind "AKA" "*${text}*" $matchno] == ""} {
putlog "${aka::logo} ${aka::nickstextf}I have no data for ${aka::nicktextf}${text}."
} elseif {[llength [hget "AKA" $hostmask]] <= 1} {
putlog "${aka::logo} ${aka::nicktextf}${text} ${aka::nickstextf} has not been know by any other names."
} else {
putlog "${aka::nicktextf}${text} $aka::logo ${aka::nickstextf}[string map {" " \,} [hget "AKA" $hostmask]]"
}
}
}
proc search {nick host hand chan text {matchno 1}} {
if {[lsearch -exact [channel info $chan] +aka] != -1} {
if {[getchanhost $text] != ""} {
set hostmask "akaindex[address "${text}![getchanhost $text]" $aka::addresstype]"
if {[llength [hget "AKA" $hostmask]] <= 1} {
putserv "PRIVMSG $chan :${aka::logo} ${aka::nicktextf}${text} ${aka::nickstextf} has not been know by any other names."
} else {
putserv "PRIVMSG $chan :${aka::logo} ${aka::nicktextf}${text} $aka::logo ${aka::nickstextf}[string map {" " \,} [hget "AKA" $hostmask]]"
}
} else {
if {[hfind "AKA" "*${text}*" $matchno] != ""} {
set hostmask "akaindex[address [hfind "AKA" "*${text}*" $matchno] $aka::addresstype]"
}
if {[hfind "AKA" "*${text}*" $matchno] == ""} {
putserv "PRIVMSG $chan :${aka::logo} ${aka::nickstextf}I have no data for ${aka::nicktextf}${text}."
} elseif {[llength [hget "AKA" $hostmask]] <= 1} {
putserv "PRIVMSG $chan :${aka::logo} ${aka::nicktextf}${text} ${aka::nickstextf} has not been know by any other names."
} else {
putserv "PRIVMSG $chan :${aka::nicktextf}${text} $aka::logo ${aka::nickstextf}[string map {" " \,} [hget "AKA" $hostmask]]"
}
}
}
}
proc loadhash {type} {
if {[file exists "${::network}aka.hsh"]} { aka::hload "AKA" "${::network}aka.hsh" }
}
proc savehash {type} {
hsave "AKA" "${::network}aka.hsh"
}
proc nick {nick host hand chan newnick} {
set hostmask "akaindex[address "${nick}!${host}" $aka::addresstype]"
hadd "AKA" "${nick}!${host}" [unixtime]
hadd "AKA" $hostmask [nodups [hget "AKA" $hostmask] $newnick]
}
proc ntimer {name seconds command} {
set killtimer [hget NTIMER $name]
if {[set idx [lsearch -glob [utimers] "*$killtimer*"]] != -1 && $killtimer != ""} {
putlog "killed timer [lindex [lindex [utimers] $idx] 2]"
killutimer [lindex [lindex [utimers] $idx] 2]
}
hadd NTIMER $name [utimer $seconds $command]
utimer $seconds "aka::hdel {NTIMER} $name"
}
proc address {hostmask type} {
set halfhost ""
regexp -- {^(.*)\!(.*)@(.*?)(\..*\..*)?$} $hostmask wholematch nick user host halfhost
switch $type {
0 { return "*!${user}@${host}${halfhost}" }
1 { return "*!*${user}@${host}${halfhost}" }
2 { return "*!*@${host}${halfhost}" }
3 {
if {$halfhost != ""} {
return "*!*${user}@*${halfhost}"
} else {
return "*!*${user}@${host}${halfhost}"
}
}
4 {
if {$halfhost != ""} {
return "*!*@*${halfhost}"
} else {
return "*!*@${host}${halfhost}"
}
}
5 { return $hostmask }
6 { return "${nick}!*${user}@${host}${halfhost}" }
7 { return "${nick}!*@${host}${halfhost}" }
8 {
if {$halfhost != ""} {
return "${nick}!*${user}@*${halfhost}"
} else {
return "${nick}!*${user}@${host}${halfhost}"
}
}
9 {
if {$halfhost != ""} {
return "${nick}!*@*${halfhost}"
} else {
return "${nick}!*@${host}${halfhost}"
}
}
default { return $hostmask }
}
}
proc joinadd {chan} {
foreach user [chanlist $chan] {
set host [getchanhost $user $chan]
set hostmask "akaindex[address "${user}!${host}" $aka::addresstype]"
hadd "AKA" "${user}!${host}" [unixtime]
hadd "AKA" $hostmask [nodups [hget "AKA" $hostmask] $user]
}
}
proc nodups {text add} {
set return ""
set addfix [string map {\[ \( \] \) \\ \\\\} $add]
foreach name $text {
set namefix [string map {\[ \( \] \) \\ \\\\} $name]
if {![string match -nocase $namefix $addfix]} {
set return [concat $return $name]
}
}
if {[llength $return] >= [expr $aka::maxakas -1]} {
set return [lrange $return 1 end]
}
return [concat $return $add]
}
proc noop {nick} {
return 0
}
proc join {nick host hand chan} {
if {$nick != $::botnick} {
set hostmask "akaindex[address "${nick}!${host}" $aka::addresstype]"
set safenick [string map {\[ \{ \] \}} $nick]
hadd "AKA" "${nick}!${host}" [unixtime]
hadd "AKA" $hostmask [nodups [hget "AKA" $hostmask] $nick]
if {$nick != [hget "AKA" $hostmask]} {
if {[lsearch -exact [channel info $chan] +akashowlog] != -1} {
if {[set idx [lsearch -glob [utimers] "*aka::noop $safenick*"]] == -1} {
putlog "$aka::logo ${aka::nicktextf}${nick} $aka::logo ${aka::nickstextf}[string map {" " "\,"} [hget "AKA" $hostmask]]"
utimer $aka::dupsdelay "aka::noop $safenick"
}
}
if {[lsearch -exact [channel info $chan] +akashowchan] != -1} {
if {[set idx [lsearch -glob [utimers] "*aka::noop ${chan}${safenick}*"]] == -1} {
putserv "PRIVMSG $chan :${aka::logo} ${aka::nicktextf}${nick} $aka::logo ${aka::nickstextf}[string map {" " "\,"} [hget "AKA" $hostmask]]"
utimer $aka::dupsdelay "aka::noop ${chan}${safenick}"
}
}
}
} else {
timer 1 "aka::joinadd $chan"
}
}
proc hadd {hashname hashitem hashdata } {
global $hashname
set ${hashname}($hashitem) $hashdata
}
proc hget {hashname hashitem} {
upvar #0 $hashname hgethashname
if {[info exists hgethashname($hashitem)]} {
return $hgethashname($hashitem)
} else {
return ""
}
}
proc hfind {hashname search matchno {type "w"}} {
upvar #0 $hashname hfindhashname
set search "(?i)[string map {* ""} ${search}]"
if {$type == "w"} {
if {[array exists hfindhashname]} {
if {$matchno == 0} {
return [llength [array names hfindhashname -regexp $search]]
} else {
set matchno [expr $matchno - 1]
return [lindex [array names hfindhashname -regexp $search] $matchno]
}
}
} elseif {$type == "W"} {
set count 0
foreach {item value} [array get hfindhashname] {
if {[string match -nocase $search $value] && ![string match -nocase "*akaindex*" $item]} {
incr count
if {$count == $matchno} { return $item }
}
}
if {$matchno == 0} {
return $count
} else {
return ""
}
}
}
proc hsave {hashname filename} {
upvar #0 $hashname hsavehashname
if {[array exists hsavehashname]} {
set hsavefile [open $filename w]
foreach {key value} [array get hsavehashname] {
puts $hsavefile "${key}=${value}"
}
close $hsavefile
}
}
proc hload {hashname filename} {
upvar #0 $hashname hloadhashname
hfree $hashname
set hloadfile [open $filename]
set linenum 0
while {[gets $hloadfile line] >= 0} {
if {[regexp -- {([^\s]+)=(.*)$} $line wholematch item data]} {
set hloadhashname($item) $data
}
}
close $hloadfile
}
proc hfree {hashname} {
upvar #0 $hashname hfreehashname
if {[array exists hfreehashname]} {
foreach key [array names hfreehashname] {
unset hfreehashname($key)
}
}
}
proc hdel {hashname hashitem} {
upvar #0 $hashname hdelhashname
if {[info exists hdelhashname($hashitem)]} {
unset hdelhashname($hashitem)
}
}
proc hcopy {hashfrom hashto} {
upvar #0 $hashfrom hashfromlocal $hashto hashtolocal
array set hashtolocal [array get hashfromlocal]
}
}
putlog "\002*Loaded* \002\00304\[\00307A\00304K\00307A\00304\]\017 \002by \
Ford_Lawnmower irc.GeekShed.net #Script-Help .rss for help"
As stated in the script's documentation, set the chanset to see stuff in the channel...
Code: Select all
## .chanset #chan +akashowchan to automatically see aka's in #chan ##SpiKe^^
Get BogusTrivia 2.06.4.7 at www.mytclscripts.com
or visit the New Tcl Acrhive at www.tclarchive.org
.
Get BogusTrivia 2.06.4.7 at www.mytclscripts.com
or visit the New Tcl Acrhive at www.tclarchive.org
.
First of all I congratulate you on your bogus trivia!!SpiKe^^ wrote:As stated in the script's documentation, set the chanset to see stuff in the channel...Code: Select all
## .chanset #chan +akashowchan to automatically see aka's in #chan ##
( .chanset #chan +akashowlog to automatically see aka's in the partyline on join.)
Setting .chanset + akashowcnan #examplechan the bot writes in the partyline akas coming into channel I was wondering if it was possible to do this function and what part you had to change to make it write in a specific channel rather than in partyline . Thank you for your intervention . I'm sorry for my english.
sky6419 wrote:First of all I congratulate you on your bogus trivia!!SpiKe^^ wrote:As stated in the script's documentation, set the chanset to see stuff in the channel...Code: Select all
## .chanset #chan +akashowchan to automatically see aka's in #chan ##
( .chanset #chan +akashowlog to automatically see aka's in the partyline on join.)
Setting .chanset + akashowlog #examplechan the bot writes in the partyline akas coming into channel I was wondering if it was possible to do this function and what part you had to change to make it write in a specific channel rather than in partyline . Thank you for your intervention . I'm sorry for my english.
You need to do those code adjustments in proc join .
Try this & see what you get.
Try this & see what you get.
Code: Select all
##############################################################################################
## ## aka.tcl for eggdrop by Ford_Lawnmower irc.geekshed.net #Script-Help ## ##
##############################################################################################
## .chanset #chan +aka for each channel you want to run the !aka trigger on. ##
## .chanset #chan +akashowlog to automatically see aka's in the partyline on join. ##
## .chanset #chan +akashowchan to automatically see aka's in #chan ##
##############################################################################################
## ____ __ ########################################### ##
## / __/___ _ ___ _ ___/ /____ ___ ___ ########################################### ##
## / _/ / _ `// _ `// _ // __// _ \ / _ \ ########################################### ##
## /___/ \_, / \_, / \_,_//_/ \___// .__/ ########################################### ##
## /___/ /___/ /_/ ########################################### ##
## ########################################### ##
##############################################################################################
## ## Start Setup. ## ##
##############################################################################################
namespace eval aka {
## Edit cmdchar to change the !trigger used to for this script ## ##
variable cmdchar "!"
## AKA Logo edit to change ## ##
variable logo "\002\00304\[\00307A\00304K\00307A\00304\]\017"
## Edit nicktextf to change the colors of the nickname. ## ##
variable nicktextf "\017\00309"
## Edit nickstextf to change the colors of the nicks in the aka list ## ##
variable nickstextf "\017\00304"
## addresstype defines the type of search AKA uses to match users. Valid values are ## ##
## 0-9 0 *!user@host, 1 *!*user@host, 2 *!*@host, 3 *!*user@*.host, 4 *!*@*.host, 5 ## ##
## nick!user@host, 6 nick!*user@host, 7 nick!*@host, 8 nick!*user@*.host, 9 nick!*@*.host ##
variable addresstype 2
## dupsdelay is the delay in seconds before the aka for a nick already displayed will ## ##
## be displayed again. This prevents redisplay on /hop and duplicates in partyline ## ##
variable dupsdelay 5
## maxakas is the maximum number of nicks that will be recorded for a single hostmask ## ##
variable maxakas 25
######################################################################
## Slight script modification by Spike^^ to give the option to have ##
## this script report on-join aka info to a report channel. ##
## NOTE: This disables +akashowlog for all on-join aka infos. ##
######################################################################
## Set the report channel here (one channel), or leave blank to disable report channel ##
variable reportchan ""
##############################################################################################
## ## End Setup. ## ##
##############################################################################################
setudef flag akashowchan
setudef flag akashowlog
setudef flag aka
bind dcc - aka aka::dccsearch
bind pub -|- [string trimleft $aka::cmdchar]aka aka::search
bind join -|- * aka::join
bind nick -|- * aka::nick
bind evnt -|- prerehash aka::savehash
bind evnt -|- prerestart aka::savehash
bind evnt -|- disconnect-server aka::savehash
bind evnt -|- save aka::savehash
bind evnt -|- init-server aka::loadhash
proc dccsearch {hand idx text {matchno 1}} {
if {[getchanhost $text] != ""} {
set ltext [string tolower $text]
set hostmask "akaindex[address "${text}![getchanhost $text]" $aka::addresstype]"
if {[llength [hget "AKA" $hostmask]] <= 1} {
putlog "${aka::logo} ${aka::nicktextf}${text} ${aka::nickstextf} has not been know by any other names."
} else {
putlog "${aka::logo} ${aka::nicktextf}${text} $aka::logo ${aka::nickstextf}[string map {" " \,} [hget "AKA" $hostmask]]"
}
} else {
if {[hfind "AKA" "*${text}*" $matchno] != ""} {
set hostmask "akaindex[address [hfind "AKA" "*${text}*" $matchno] $aka::addresstype]"
}
if {[hfind "AKA" "*${text}*" $matchno] == ""} {
putlog "${aka::logo} ${aka::nickstextf}I have no data for ${aka::nicktextf}${text}."
} elseif {[llength [hget "AKA" $hostmask]] <= 1} {
putlog "${aka::logo} ${aka::nicktextf}${text} ${aka::nickstextf} has not been know by any other names."
} else {
putlog "${aka::nicktextf}${text} $aka::logo ${aka::nickstextf}[string map {" " \,} [hget "AKA" $hostmask]]"
}
}
}
proc search {nick host hand chan text {matchno 1}} {
if {[lsearch -exact [channel info $chan] +aka] != -1} {
if {[getchanhost $text] != ""} {
set hostmask "akaindex[address "${text}![getchanhost $text]" $aka::addresstype]"
if {[llength [hget "AKA" $hostmask]] <= 1} {
putserv "PRIVMSG $chan :${aka::logo} ${aka::nicktextf}${text} ${aka::nickstextf} has not been know by any other names."
} else {
putserv "PRIVMSG $chan :${aka::logo} ${aka::nicktextf}${text} $aka::logo ${aka::nickstextf}[string map {" " \,} [hget "AKA" $hostmask]]"
}
} else {
if {[hfind "AKA" "*${text}*" $matchno] != ""} {
set hostmask "akaindex[address [hfind "AKA" "*${text}*" $matchno] $aka::addresstype]"
}
if {[hfind "AKA" "*${text}*" $matchno] == ""} {
putserv "PRIVMSG $chan :${aka::logo} ${aka::nickstextf}I have no data for ${aka::nicktextf}${text}."
} elseif {[llength [hget "AKA" $hostmask]] <= 1} {
putserv "PRIVMSG $chan :${aka::logo} ${aka::nicktextf}${text} ${aka::nickstextf} has not been know by any other names."
} else {
putserv "PRIVMSG $chan :${aka::nicktextf}${text} $aka::logo ${aka::nickstextf}[string map {" " \,} [hget "AKA" $hostmask]]"
}
}
}
}
proc loadhash {type} {
if {[file exists "${::network}aka.hsh"]} { aka::hload "AKA" "${::network}aka.hsh" }
}
proc savehash {type} {
hsave "AKA" "${::network}aka.hsh"
}
proc nick {nick host hand chan newnick} {
set hostmask "akaindex[address "${nick}!${host}" $aka::addresstype]"
hadd "AKA" "${nick}!${host}" [unixtime]
hadd "AKA" $hostmask [nodups [hget "AKA" $hostmask] $newnick]
}
proc ntimer {name seconds command} {
set killtimer [hget NTIMER $name]
if {[set idx [lsearch -glob [utimers] "*$killtimer*"]] != -1 && $killtimer != ""} {
putlog "killed timer [lindex [lindex [utimers] $idx] 2]"
killutimer [lindex [lindex [utimers] $idx] 2]
}
hadd NTIMER $name [utimer $seconds $command]
utimer $seconds "aka::hdel {NTIMER} $name"
}
proc address {hostmask type} {
set halfhost ""
regexp -- {^(.*)\!(.*)@(.*?)(\..*\..*)?$} $hostmask wholematch nick user host halfhost
switch $type {
0 { return "*!${user}@${host}${halfhost}" }
1 { return "*!*${user}@${host}${halfhost}" }
2 { return "*!*@${host}${halfhost}" }
3 {
if {$halfhost != ""} {
return "*!*${user}@*${halfhost}"
} else {
return "*!*${user}@${host}${halfhost}"
}
}
4 {
if {$halfhost != ""} {
return "*!*@*${halfhost}"
} else {
return "*!*@${host}${halfhost}"
}
}
5 { return $hostmask }
6 { return "${nick}!*${user}@${host}${halfhost}" }
7 { return "${nick}!*@${host}${halfhost}" }
8 {
if {$halfhost != ""} {
return "${nick}!*${user}@*${halfhost}"
} else {
return "${nick}!*${user}@${host}${halfhost}"
}
}
9 {
if {$halfhost != ""} {
return "${nick}!*@*${halfhost}"
} else {
return "${nick}!*@${host}${halfhost}"
}
}
default { return $hostmask }
}
}
proc joinadd {chan} {
foreach user [chanlist $chan] {
set host [getchanhost $user $chan]
set hostmask "akaindex[address "${user}!${host}" $aka::addresstype]"
hadd "AKA" "${user}!${host}" [unixtime]
hadd "AKA" $hostmask [nodups [hget "AKA" $hostmask] $user]
}
}
proc nodups {text add} {
set return ""
set addfix [string map {\[ \( \] \) \\ \\\\} $add]
foreach name $text {
set namefix [string map {\[ \( \] \) \\ \\\\} $name]
if {![string match -nocase $namefix $addfix]} {
set return [concat $return $name]
}
}
if {[llength $return] >= [expr $aka::maxakas -1]} {
set return [lrange $return 1 end]
}
return [concat $return $add]
}
proc noop {nick} {
return 0
}
proc join {nick host hand chan} {
if {$nick != $::botnick} {
set hostmask "akaindex[address "${nick}!${host}" $aka::addresstype]"
set safenick [string map {\[ \{ \] \}} $nick]
hadd "AKA" "${nick}!${host}" [unixtime]
hadd "AKA" $hostmask [nodups [hget "AKA" $hostmask] $nick]
if {$nick != [hget "AKA" $hostmask]} {
if {$aka::reportchan != ""} {
if {[lsearch -glob [utimers] "*aka::noop $safenick*"] == -1} {
putmsg $aka::reportchan "$aka::logo ${aka::nicktextf}${nick} $chan $aka::logo\
${aka::nickstextf}[string map {" " "\,"} [hget "AKA" $hostmask]]"
utimer $aka::dupsdelay "aka::noop $safenick"
}
} elseif {[lsearch -exact [channel info $chan] +akashowlog] != -1} {
if {[set idx [lsearch -glob [utimers] "*aka::noop $safenick*"]] == -1} {
putlog "$aka::logo ${aka::nicktextf}${nick} $aka::logo ${aka::nickstextf}[string map {" " "\,"} [hget "AKA" $hostmask]]"
utimer $aka::dupsdelay "aka::noop $safenick"
}
}
if {[lsearch -exact [channel info $chan] +akashowchan] != -1} {
if {[set idx [lsearch -glob [utimers] "*aka::noop ${chan}${safenick}*"]] == -1} {
putserv "PRIVMSG $chan :${aka::logo} ${aka::nicktextf}${nick} $aka::logo ${aka::nickstextf}[string map {" " "\,"} [hget "AKA" $hostmask]]"
utimer $aka::dupsdelay "aka::noop ${chan}${safenick}"
}
}
}
} else {
timer 1 "aka::joinadd $chan"
}
}
proc hadd {hashname hashitem hashdata } {
global $hashname
set ${hashname}($hashitem) $hashdata
}
proc hget {hashname hashitem} {
upvar #0 $hashname hgethashname
if {[info exists hgethashname($hashitem)]} {
return $hgethashname($hashitem)
} else {
return ""
}
}
proc hfind {hashname search matchno {type "w"}} {
upvar #0 $hashname hfindhashname
set search "(?i)[string map {* ""} ${search}]"
if {$type == "w"} {
if {[array exists hfindhashname]} {
if {$matchno == 0} {
return [llength [array names hfindhashname -regexp $search]]
} else {
set matchno [expr $matchno - 1]
return [lindex [array names hfindhashname -regexp $search] $matchno]
}
}
} elseif {$type == "W"} {
set count 0
foreach {item value} [array get hfindhashname] {
if {[string match -nocase $search $value] && ![string match -nocase "*akaindex*" $item]} {
incr count
if {$count == $matchno} { return $item }
}
}
if {$matchno == 0} {
return $count
} else {
return ""
}
}
}
proc hsave {hashname filename} {
upvar #0 $hashname hsavehashname
if {[array exists hsavehashname]} {
set hsavefile [open $filename w]
foreach {key value} [array get hsavehashname] {
puts $hsavefile "${key}=${value}"
}
close $hsavefile
}
}
proc hload {hashname filename} {
upvar #0 $hashname hloadhashname
hfree $hashname
set hloadfile [open $filename]
set linenum 0
while {[gets $hloadfile line] >= 0} {
if {[regexp -- {([^\s]+)=(.*)$} $line wholematch item data]} {
set hloadhashname($item) $data
}
}
close $hloadfile
}
proc hfree {hashname} {
upvar #0 $hashname hfreehashname
if {[array exists hfreehashname]} {
foreach key [array names hfreehashname] {
unset hfreehashname($key)
}
}
}
proc hdel {hashname hashitem} {
upvar #0 $hashname hdelhashname
if {[info exists hdelhashname($hashitem)]} {
unset hdelhashname($hashitem)
}
}
proc hcopy {hashfrom hashto} {
upvar #0 $hashfrom hashfromlocal $hashto hashtolocal
array set hashtolocal [array get hashfromlocal]
}
}
putlog "\002*Loaded* \002\00304\[\00307A\00304K\00307A\00304\]\017 \002by \
Ford_Lawnmower irc.GeekShed.net #Script-Help .rss for help"
SpiKe^^
Get BogusTrivia 2.06.4.7 at www.mytclscripts.com
or visit the New Tcl Acrhive at www.tclarchive.org
.
Get BogusTrivia 2.06.4.7 at www.mytclscripts.com
or visit the New Tcl Acrhive at www.tclarchive.org
.