First Script
# Throw Script
# Bind command
bind pub - throw pub:say

# Throw
set throw {
  "Windows ME Installation CD"
  "Bill Gates's Address"
  "X-BOX"
  "Playstation 1"
  "Playstation 2"
}

# Proc
	proc pub:say {nick uhost hand chan arg} {
	global throw
	putmsg $chan "\001ACTION throws on ${arg} [lindex $throw [rand [llength $throw]]]"}

	return 0
}

putlog "Loaded throw by Barvaz"

The Second script

# Slap Script
# Bind command
bind pub - slap pub:say

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

# Proc
	proc pub:say {nick uhost hand chan arg} {
	global aslapr
	putmsg $chan "\001ACTION slaps ${arg} [lindex $aslapr [rand [llength $aslapr]]]"}

	return 0
}

putlog "Loaded slaps by Barvaz"