>speech_prog p Hug me!~
if isnpc($n)
	hug $n
endif
~
>speech_prog p Squeeze me!~
if isnpc($n)
	squeeze $n
endif
~
>speech_prog p Go to sleep!~
if isnpc($n)
	say Okay, good night.
	sleep
endif
~
>rand_prog 3~
if inroom ($i) == 6606
	defecate
else
	if istime (21) == 7
		wake
		pmote sneaks around in the darkness.
	else
		pmote runs in cirles around $R.
		say Do you want to play a game?
	endif
endif
~
>fight_prog 5~
yell Nanny, nanny!  $N is hurting me!
~
>greet_prog 5~
if isnpc($n)
	tell self shit
else
	if israce($n) == 4
		smile $n
	else
		point $n
		yell Stranger!
	endif
endif
~
>time_prog 75~
if istime (21) == 7
	if findmob(6606)
		say Shh.. I'm supposed to be asleep.
	endif
endif
if istime (21) == 7
	yawn
	sleep
else
	if isasleep($i)
		wake
		say It's time to play!
	endif
endif
~
|