Script:
# Slap Section
# Bind command
bind pub - slap pub:say2

# Slappers
set aslapr {
  "around a bit with a large trout"
  "with his bare hands"
}

# Proc
	proc pub:say2 {nick uhost hand chan arg} {
	global aslapr
	if {[onchan "$arg" $chan] || [string equal $arg $::botnick]} {
	putmsg $chan "\001ACTION slaps ${arg} [lindex $aslapr [rand [llength $aslapr]]]"}
	} else {
	putmsg $chan "$arg wasnt found on chan"
	}


	return 0
}

putlog "Loaded slaps by Barvaz"


Error:
[20:12:57] <(F-B-I> [13:12] wrong # args: should be "proc name args body"
[20:12:57] <(F-B-I>     while executing
[20:12:57] <(F-B-I> "proc pub:say2 {nick uhost hand chan arg} {
[20:12:57] <(F-B-I> 	global aslapr
[20:12:57] <(F-B-I> 	if {[onchan "$arg" $chan] || [string equal $arg $::botnick]} {
[20:12:57] <(F-B-I> 	putmsg $chan "\001ACTION sl..."
[20:12:57] <(F-B-I>     (file "scripts/slap.tcl" line 12)
[20:12:57] <(F-B-I>     invoked from within
[20:12:57] <(F-B-I> "source scripts/slap.tcl"