> all_great_prog 100
if isnpc($n)
look $n
if isgood($n)
say Hello $n
smile $n
else
Say Evil Is Not Wanted in this City.
glare $n
endif
endif
~
> rand_prog 50
if rand(50)
emote Smiles At all the people in the room.
else
laugh
else
if rand(30)
c heal
endif
endif
~
>act_prog p Grins
say What are you Grining At?
~
>act_prog p Pokes you in
look $n
say Please Don't Poke Me $n
~
>act_prog p laughs
chuc
~
>fight_prog 70
if rand(40)
say You Will Never Win $n!
c fireball $n
else
if rand(50)
say What Is Your Problem!!
c fireball $n
endif
endif
~
|