//***Fame/Karma Fix - Fame and karma doesnt
//rise over 4000 and people cant get gm.

[EVENTS e_fame_karma_gain]
ON=@GetHit
TAG.TEMPFAMETAG <SRC.FAME>
TAG.TEMPKARMATAG <SRC.KARMA>
RETURN 0

ON=@Death
ACT.FAME <TAG.TEMPFAMETAG>
IF (<ACT.FAME> < 10000) && (<ACT.FAME> < <FAME>)
ACT.FAME <ACT.FAME>+((<FAME>+-<ACT.FAME>)/10)
f_show_fame_gain
IF <ACT.FAME> > 10000
ACT.FAME 10000
ENDIF
ENDIF
ACT.KARMA <TAG.TEMPKARMATAG>
IF (<ACT.KARMA> > -10000) && (<ACT.KARMA> < 10000)
IF <KARMA> > 0
ACT.KARMA <ACT.KARMA>+-(<KARMA>/10)
f_show_karma_loss
ELSE
ACT.KARMA <ACT.KARMA>+((<ACT.KARMA>+-(<KARMA>))/10)
f_show_karma_gain
ENDIF
IF <ACT.KARMA> > 10000
ACT.KARMA 10000
ELSEIF <ACT.KARMA> < -10000
ACT.KARMA -10000
ENDIF
ENDIF
RETURN 0

[FUNCTION f_show_fame_gain]
IF ((<FAME>+-<ACT.FAME>)/10)>500
ACT.SYSMESSAGE You have gained huge amounts of fame.
ELSEIF ((<FAME>+-<ACT.FAME>)/10)>250
ACT.SYSMESSAGE You have gained a lot of fame.
ELSEIF ((<FAME>+-<ACT.FAME>)/10)>100
ACT.SYSMESSAGE You have gained a moderate amount of fame.
ELSEIF ((<FAME>+-<ACT.FAME>)/10)>50
ACT.SYSMESSAGE You have gained a little fame.
ELSEIF ((<FAME>+-<ACT.FAME>)/10)>0
ACT.SYSMESSAGE You have gained a bit of fame.
ENDIF

[FUNCTION f_show_karma_loss]
IF (<KARMA>/10)>500
ACT.SYSMESSAGE You have lost huge amounts of karma.
ELSEIF (<KARMA>/10)>250
ACT.SYSMESSAGE You have lost a lot of karma.
ELSEIF (<KARMA>/10)>100
ACT.SYSMESSAGE You have lost a moderate amount of karma.
ELSEIF (<KARMA>/10)>50
ACT.SYSMESSAGE You have lost a little of karma.
ELSEIF (<KARMA>/10)>0
ACT.SYSMESSAGE You have lost a bit of karma.
ENDIF

[FUNCTION f_show_karma_gain]
IF ((<ACT.KARMA>+-(<KARMA>))/10)>500
ACT.SYSMESSAGE You have gained huge amounts of karma.
ELSEIF ((<ACT.KARMA>+-(<KARMA>))/10)>250
ACT.SYSMESSAGE You have gained a lot of karma.
ELSEIF ((<ACT.KARMA>+-(<KARMA>))/10)>100
ACT.SYSMESSAGE You have gained a moderate amount of karma.
ELSEIF ((<ACT.KARMA>+-(<KARMA>))/10)>50
ACT.SYSMESSAGE You have gained a little karma.
ELSEIF ((<ACT.KARMA>+-(<KARMA>))/10)>0
ACT.SYSMESSAGE You have gained a bit of karma.
ENDIF

[EOF]