> 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 ~ |