>rand_prog 50~ if hitprcnt ($r) < 100 layon $r else if rand (6) say Get me a scalpel. endif endif ~ |