ack42/
ack42/npcs/a/
ack42/npcs/c/
ack42/npcs/e/
ack42/npcs/f/
ack42/npcs/h/
ack42/npcs/i/
ack42/npcs/l/
ack42/npcs/n/
ack42/npcs/o/
ack42/npcs/p/
ack42/npcs/r/
ack42/npcs/s/
ack42/npcs/w/
ack42/player/c/
ack42/player/s/
ack42/player/z/
>fight_prog 40~
cackle
~
>greet_prog 50~
look $n
if isgood($n)
	smile $n
        say Welcome to Midgaard!
else
	mpechoaround $n $I eyes $n suspiciously.
	mpechoat $n $I eyes you suspiciously.
endif
~
>speech_prog p looking at~
growl $n
say A pesky little insect!
if rand(5)
	if isgood($n)
		mpechoaround $n $I eyes $n suspiciously.
		mpechoat $n $I eyes you suspiciously.
	else
		mpkill $n
	endif
endif
~
|