Name:
Anonymous
2009-12-24 5:43
sub evaluate_religion( $other_person ) {
if ( $other_person->religion->name == $me->religion->name ) {
return NORMAL_RELIGION;
} elsif ( $other_person->religion->wacky_beliefs == $me->religion->wacky_beliefs ) {
return OK_RELIGION;
} elsif ( $other_person->religion->location == $me->religion->location ) {
return WEIRD_RELIGION | OK_RELIGION;
} else {
return CRAZY_RELIGION | CULT;
}
}
Name:
Anonymous
2009-12-24 8:48
RelStatus evaluate_religion(void *religion)
{
if(religion) return RETARDED_BELIEF;
return NORMAL_PERSON;
}