Code:
function R_GetCurrentPrayer: integer;
begin
  Result := R_GetSkillLevel(skill_prayer);
end;