The problem that i get is this when trying to add a bot. 
[01:08] Tcl error [addbitch]: can't read "src(name)": no such variable

HERE IS THE TCL CODE!

# Your home chan here:
set scr(home) "#stat-bots"

# The bots realname:
set scr(name) "Owned by Psycho--"

# The Bot Owners nick name:
set scr(own) "Psycho--"



# -

bind dcc -|- addbitch addbitch
# .addbitch botnick ip port



proc addbitch {handle idx text} {
global scr botnick
set bot_nick "[lindex $text 0]"
set bot_ip "[lindex $text 1]"
set bot_port "[lindex $text 2]"
regsub -all -nocase {\|} "$bot_nick" "" bot_username
regsub -all -nocase {\^} "$bot_username" "" bot_username
if {[file exist "$bot_username.conf"]} {
putdcc $idx "Bot allready exists, chose anoter botnick"
return 0
}
set bot_file "[open $bot_username.conf a]"
puts $bot_file "set \"mod-path\" modules/"
puts $bot_file "set \"help-path\" help/"
puts $bot_file "set \"text-path\" text/"
puts $bot_file "loadmodule dns"
puts $bot_file "loadmodule channels"
puts $bot_file "loadmodule server"
puts $bot_file "loadmodule ctcp"
puts $bot_file "loadmodule irc"
puts $bot_file "loadmodule notes"
puts $bot_file "loadmodule console"
puts $bot_file "loadmodule blowfish"
puts $bot_file "loadmodule share"
puts $bot_file "loadmodule transfer"
puts $bot_file ""
puts $bot_file "set nick \"$bot_nick\""
puts $bot_file "set username \"$bot_username\""
puts $bot_file "set altnick \"^$bot_nick^\""
puts $bot_file "set realname \"$src(name)\""
puts $bot_file "set userfile \"$bot_username.user\""
puts $bot_file "set chanfile \"$bot_username.chan\""
puts $bot_file "set my-ip \"$bot_ip\""
puts $bot_file "listen $bot_port all"
puts $bot_file ""
puts $bot_file "set servers {"
puts $bot_file "dk.quakenet.eu.org:6667"
puts $bot_file "irc.quakenet.eu.org:6667"
puts $bot_file "}"
puts $bot_file ""
puts $bot_file "channel add $scr(home) {"
puts $bot_file "chanmode +nt-likm"
puts $bot_file "idle-kick 0"
puts $bot_file "stopnethack-mode 0"
puts $bot_file "}"
puts $bot_file ""
puts $bot_file "set net-type \"5\""
puts $bot_file ""
puts $bot_file "set owner \"$scr(own)\""
puts $bot_file ""
puts $bot_file "set \"temp-path\" /tmp"
puts $bot_file ""
puts $bot_file "logfile msbxco * logs/eggdrop.log"
puts $bot_file ""
puts $bot_file "logfile jpk $scr(home) logs/home.log"
puts $bot_file ""
puts $bot_file "set console mkcobxs"
puts $bot_file ""
puts $bot_file "loadmodule uptime"
puts $bot_file ""
puts $bot_file "source scripts/userinfo.tcl"
puts $bot_file "source scripts/alltools.tcl"
puts $bot_file "source scripts/action.fix.tcl"
puts $bot_file "source scripts/compat.tcl"
puts $bot_file ""
puts $bot_file ""
puts $bot_file "loadhelp userinfo.help"
puts $bot_file ""
close $bot_file
puthelp "privmsg $scr(home) :Created and starting bot \002$bot_nick\002 \002 Port:\002 $bot_port"
exec ./eggdrop -m $bot_username.conf
}
