Small Update To Agility.scar

**Simtoon** · 06-28-2009, 03:26 PM

Code:

//-----------------------------------------------------------------//
//--               Scar Standard Resource Library                --//
//-----------------------------------------------------------------//

// * function GetCourseXP(Course : String) : Extended; //by Mad Cow

{*******************************************************************************
function GetCourseXP(Course: String): Extended;
By: Mad Cow, Hobbit, Simtoon
Description: Returns the experience for a certain agility course.
*******************************************************************************}

function GetCourseXP(Course: string): Extended;
var
  CourseXP: Extended;
begin
  case LowerCase(Course) of
    'agiliy dungeon ledge': CourseXP := 22.5;
    'gnome course': CourseXP := 86.5;
    'gnome course extra': CourseXP := 725;
    'barbarian course': CourseXP := 153.2;
    'barbarian course extra': CourseXP := 740.67;
    'werewolves course': CourseXP := 540;
    'penguin course': CourseXP := 540;
    'wilderness course': CourseXP := 571.4;
    'ape atoll course': CourseXP := 580;
    'agility pyramid': CourseXP := 1014;
    'dorgesh-kaan long(2)': CourseXP := 2750;
    'dorgesh-kaan long+grapple': CourseXP := 1429;
    'dorgesh-kaan grapple(2)': CourseXP := 108;
  end;
  Result := CourseXP;
end;