Updated for the new agility courses. And I also added in abbreviations for ease of use but kept old ones for compatibility for any other scripts that may use it.
SCAR Code:
//-----------------------------------------------------------------//
//-- Scar Standard Resource Library --//
//-----------------------------------------------------------------//
// * function GetCourseXP(Course : String) : Extended; //by Mad Cow
{*******************************************************************************
function GetCourseXP(Course: String): Extended;
By: Mad Cow and Hobbit
Description: Returns the experience for a certain agility course.
Course list:
adl = agility dungeon ledge
gc = gnome course
bc = barbarian course
pc = penguin course
wec = werewolves course
wic = wilderness course
aac = ape atoll course
ap = agility pyramid
dklg = dorgesh-kaan long grapple
dkdl = dorgesh-kaan double long
*******************************************************************************}
function GetCourseXP(Course: string): Extended;
var
CourseXP: Extended;
begin
case LowerCase(Course) of
'adl', 'agility dungeon ledge': CourseXP := 22.5;
'gc', 'gnome course': CourseXP := 86;
'bc', 'barbarian course': CourseXP := 153.2;
'pc', 'penguin course' : CourseXP := 540;
'wec', 'werewolves course': CourseXP := 540;
'wic', 'wilderness course': CourseXP := 571.5;
'aac', 'ape atoll course': CourseXP := 580;
'ap', 'agility pryamid': CourseXP := 1014;
'dklg', 'dorgesh-kaan long grapple' : CourseXP := 1429;
'dkdl', 'dorgesh-kaan double long' : CourseXP := 2750;
end;
Result := CourseXP;
end;