SRL Archive - SRL Archives

Description of GetAllLevels:

procedure GetAllLevels;
Bsy: WT-Fakawi & ZephyrsFury
Description: Sets all 25 skilllevels to Players.Level[1..25]

 *  1   8   15
 *  2   9   16
 *  3  10   17
 *  4  11   18
 *  5  12   19
 *  6  13   20
 *  7  14   21
 *  22 23   24

 * 1   = attack
 * 2   = strength
 * 3   = defence
 * 4   = range
 * 5   = prayer
 * 6   = magic
 * 7   = runecrafting
 * 8   = hitpoints
 * 9   = agility
 * 10  = herblore
 * 11  = thieving
 * 12  = crafting
 * 13  = fletching
 * 14  = slayer
 * 15  = mining
 * 16  = smithing
 * 17  = fishing
 * 18  = cooking
 * 19  = firemaking
 * 20  = woodcutting
 * 21  = farming
 * 22  = construction
 * 23  = hunting
 * 24  = summoning
 * 25 =  dungeoning    

This is the debug script i ran

Program Rawr;

{$i SRL\SRL.scar}

Var
  I : Integer;

procedure DeclarePlayers;
Begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name := '';
  Players[0].Pass := '';
  Players[0].Nick := '';
  Players[0].Active := True;
  Players[0].Level[8] := 88;
End;

Begin
  Cleardebug;
  SetupSRL;
  DeclarePlayers;
  GetAllLevels;
  for I := 0 to 25 do
  Begin
    Writeln( 'Skill ' + IntToStr( i) + ' is ' + inttostr(Players[CurrentPlayer].Level[i]) + '.');
  End;
End.                                

And here are the result

BTW This is my mates account, I just asked him to log in for me and he is not aware of this.:P

0..24 btw

There are consts for it to.

  SKILL_ATTACK        = 0;
  SKILL_DEFENCE       = 1;
  SKILL_STRENGTH      = 2;
  SKILL_HITPOINTS     = 3;    SKILL_HP = SKILL_HITPOINTS;
  SKILL_RANGE         = 4;
  SKILL_PRAYER        = 5;
  SKILL_MAGIC         = 6;
  SKILL_COOKING       = 7;
  SKILL_WOODCUTTING   = 8;
  SKILL_FLETCHING     = 9;
  SKILL_FISHING       = 10;
  SKILL_FIREMAKING    = 11;
  SKILL_CRAFTING      = 12;
  SKILL_SMITHING      = 13;
  SKILL_MINING        = 14;
  SKILL_HERBLORE      = 15;
  SKILL_AGILITY       = 16;
  SKILL_THIEVING      = 17;
  SKILL_SLAYER        = 18;
  SKILL_FARMING       = 19;
  SKILL_RUNECRAFTING  = 20;
  SKILL_HUNTER        = 21;
  SKILL_CONSTRUCTION  = 22;
  SKILL_SUMMONING     = 23;
  SKILL_DUNGEONEERING = 24;

THANKS MATE:p

Someone should update it in the current srl.