1: my( $shownumbers )= @_;
   2: # send FALSE if you want people to see gain/loss w/o exact numbers
   3: 
   4: return ""
   5:     if  getId($USER) eq $HTMLVARS{default_user};
   6: 
   7: my $curexp= $USER->{experience};
   8: my $oldexp= $VARS->{oldexp};
   9: $oldexp= $curexp
  10:     if  ! defined $oldexp;
  11: my $difexp= $curexp - $oldexp;
  12: $VARS->{oldexp}= $curexp;
  13: return ""
  14:     if  0 == $difexp;
  ....... lots more below dealing with quips.