Code:

[20:21] Tcl error in file 'nele.conf':[20:21] invalid command name "stringmap"    while executing"stringmap {Monday Montag Tuesday Dienstag Wednesday Mittwoch Thursday Donnerstag Friday Freitag Saturday Samstag Sunday Sonntag} $day"    invoked from within"set day [stringmap {Monday Montag Tuesday Dienstag Wednesday Mittwoch Thursday Donnerstag Friday Freitag Saturday Samstag Sunday Sonntag} $day] "    (file "scripts/mmorpg.tcl" line 35)    invoked from within"source scripts/mmorpg.tcl"    (file "nele.conf" line 1352)

Code:

replace:putserv "TOPIC $chan :[strftime %A] evening:  \[$::albcolor\Alb: [join $alb]\003 $::midcolor\Mid: [join $mid]\003 $::hibcolor\Hib: [join $hib]\003\]"with:set day [strftime %A]set day [stringmap {Monday Montag Tuesday Dienstag Wednesday Mittwoch Thursday Donnerstag Friday Freitag Saturday Samstag Sunday Sonntag} $day]putserv "TOPIC $chan :$day evening:  \[$::albcolor\Alb: [join $alb]\003 $::midcolor\Mid: [join $mid]\003 $::hibcolor\Hib: [join $hib]\003\]"

Code:

# MMORPG Script for Moneo - Copyright C.Leonhardt Dec.2006 - rosc2112 at yahoo com# http://members.dandy.net/~fbn/mmorpg.tcl.txt# Purpose: Specialized script for Dark Age of Camelot MMORPG requested by Moneo#          Adds/Removes Realms/Teams from channel topics.# Use: !add <alb|mid|hib> <name>#      !rem <alb|mid|hib> <name>#      !clear (resets topic to empty stats)# Note: I made a string map to replace spaces with underlines to simplify searching/removing teamnames, and also#       to remove tcl-special chars ( [] {} \ " ) because they cause problems and I got tired of wrestling with it.# When reporting bugs, PLEASE include the .set errorInfo debug info!# Read: http://forum.egghelp.org/viewtopic.php?t=10215#------------------------------------------------------------------------------------------------------------------# Configs:# Channels where we allow public use:set mmorpgchans "#mychan #chan2 #etc"# Color code for 'alb'set albcolor "\00307"# Color code for 'mid'set midcolor "\00312"# Color code for 'hib'set hibcolor "\00309"# Our week daysset days [list Montag Dienstag Mittwoch Donnerstag Freitag Samstag Sonntag]# Max length for any single team-name (including spaces, spaces are converted to underlines in channel topics)set maxteamlength 15#- Script below -#-------------------------------------------------------------------------------------------------bind pub - !add proc:addrpgbind pub - !rem proc:remrpgbind pub - !clear proc:resetrpgproc proc:addrpg {nick uhost hand chan text} {# if command is run on non-mmorpgchan's, quietly ignore/returnif {[lsearch -exact $::mmorpgchans $chan] == -1} {return}set text [string trim $text]set cmd [lindex $text 0]set teamname [lrange $text 1 end]set teamname [string map {" " _ \\ "" \[ "" \] "" \{ "" \} "" \" ""} $teamname]if {[string length [join $teamname]] > $::maxteamlength} {puthelp "PRIVMSG $chan :Team names must be $::maxteamlength chars or less in length!"return}if {(($cmd == "alb") || ($cmd == "mid") || ($cmd == "hib")) && ($teamname != "")} {# set the topicset chantopic [topic $chan]set alb [lindex [split $chantopic \003] 1];set alb [lrange $alb 1 end]set mid [lindex [split $chantopic \003] 3];set mid [lrange $mid 1 end]set hib [lrange [split $chantopic \003] 5 end];set hib [lrange [join $hib] 1 end-1]if {$cmd == "alb"} {set regsearch $alb} elseif {$cmd == "mid"} {set regsearch $mid} else {set regsearch $hib}if {[lsearch -exact [split [string tolower $regsearch]] [string tolower $teamname]] != -1} {puthelp "PRIVMSG $chan :That realm/teamname ($cmd/[join $teamname]) is already set in the topic."return}if {$cmd == "alb"} {lappend alb $teamname} elseif {$cmd == "mid"} {lappend mid $teamname} else {lappend hib $teamname}putserv "TOPIC $chan :[day] evening:  \[$::albcolor\Alb: [join $alb]\003 $::midcolor\Mid: [join $mid]\003 $::hibcolor\Hib: [join $hib]\003\]"} else {puthelp "PRIVMSG $chan :To add your realm/name, use: \002!add <alb OR mid OR hib> <team name>\002"return}}proc proc:remrpg {nick uhost hand chan text} {if {[lsearch -exact $::mmorpgchans $chan] == -1} {return}set text [string trim $text]set cmd [lindex $text 0]set teamname [lrange $text 1 end]set teamname [string map {" " _ \\ "" \[ "" \] "" \{ "" \} "" \" ""} $teamname]if {(($cmd == "alb") || ($cmd == "mid") || ($cmd == "hib")) && ($teamname != "")} {# set the topicset chantopic [topic $chan]set alb [lindex [split $chantopic \003] 1];set alb [lrange $alb 1 end]set mid [lindex [split $chantopic \003] 3];set mid [lrange $mid 1 end]set hib [lrange [split $chantopic \003] 5 end];set hib [lrange [join $hib] 1 end-1]if {$cmd == "alb"} {set regsearch $alb} elseif {$cmd == "mid"} {set regsearch $mid} else {set regsearch $hib}if {[set match [lsearch -exact [split [string tolower $regsearch]] [string tolower $teamname]]] == -1} {puthelp "PRIVMSG $chan :That realm/teamname ($cmd/[join $teamname]) could not be found in the topic."return}if {$cmd == "alb"} {set alb [lreplace $alb $match $match]} elseif {$cmd == "mid"} {set mid [lreplace $mid $match $match]} else {set hib [lreplace $hib $match $match]}putserv "TOPIC $chan :[day] evening:  \[$::albcolor\Alb: [join $alb]\003 $::midcolor\Mid: [join $mid]\003 $::hibcolor\Hib: [join $hib]\003\]"} else {puthelp "PRIVMSG $chan :To remove your realm/name, use: \002!rem <alb OR mid OR hib> <team name>\002"return}}proc proc:resetrpg {nick uhost hand chan text} {if {[lsearch -exact $::mmorpgchans $chan] == -1} {return}putserv "TOPIC $chan :[day] evening: \[$::albcolor\Alb:\003 $::midcolor\Mid:\003 $::hibcolor\Hib:\003\]"}# untestedproc day {} {  global days  if {![llength $days]} {    return [clock format [clock seconds] -format %A]  } else {    return [lindex $days [expr [clock format [clock seconds] -format %u] - 1]]  }}#antiwordwrap--------------------------------------------------------------------------------------------------------------------------------------------------------------------------putlog "MMORPG Topic script by Rosc loaded.."