>greet_prog 80~
if ispc($n)

	beg $n

	say Spare some gold?

endif

~
>hitprcnt_prog 50~
say Halfway to death...

~
>bribe_prog 10000~
dance $n

french $n

~
>bribe_prog 1000~
say Oh my GOD!  Thank you! Thank you!

french $n

~
>bribe_prog 100~
say Wow!  Thank you! Thank you!

~
>bribe_prog 1~
thank $n

~
>fight_prog 100~
say Help!  Please somebody help me!

if rand(50)

	say Ouch!

else

	say I'm bleeding.

endif

~
>death_prog 100~
if rand(50)

	mpechoaround $i $I says 'Now I go to a better place.'

else

	mpechoaround $i $I says 'Forgive me God for I have sinned...'

endif

~
|