IF
  FallenPaladin(Myself)
  ReputationLT(Myself,14)
  Global("GOODIE_TWO_SHOES","LOCALS",0)
THEN
  RESPONSE #100
    RegainPaladinHood()
END

IF
  !FallenPaladin(Myself)
  ReputationGT(Myself,13)
THEN
  RESPONSE #100
    SetGlobal("GOODIE_TWO_SHOES","LOCALS",1)
    RemovePaladinHood()
END

