#
#	This is a sample .fnrc file. Your real one should be in your home
#	directory, named ".fnrc". If you'd like to use a different name,
#	you may set the FNRC variable.
#
#	See "help tcl", "help primitives", and "help variables" for further
#	information.
#

# Clear the screen.

proc c {} {exec /usr/ucb/clear}
c_usage add c c "" "clear the screen"


# Everyone likes a hug.

proc hug nick {s_personal $nick "[*HUG*] Have a *hug*!"}
c_usage add hug c "nick" "give someone a hug"


# Roll a die.

proc d6 {} {print [format "You rolled a %d\n" [c_rand 6]]}
c_usage add d6 c "" "roll a d6"


# Create Sean's favorite group.

proc hack {} {
	s_group create Hacking
	s_group topic "Hacking on Forumnet"
	s_group status r
}

c_usage add hack c "" "create hacking group"


# Finger somene.

proc f name {c_shell finger $name}
c_usage add f c "id" "do a finger on id"


# Greet someone enthusiastically.

proc hi nick {s_send [format "hi %s!!!!!!" $nick]}
c_usage add hi c "nick" "greet a user"


# Dog talk.

proc dog age {s_send [format "In dog years, that's %d!" [expr {$age * 7}]]}
c_usage add dog c "dog age" "convert human years to dog years"