realrune
2006-06-09 12:15:54
Here ya go, something that would prove useful to autoresponders…
procedure SayCurrentLevels(which : string); //very useful for autoresponders.
var
I : integer;
begin
case lowercase(Which) of
'attack' : I := 1;
'strength' : I := 2;
'defence' : I := 3;
'range' : I := 4;
'prayer' : I := 5;
'magic' : I := 6;
'runecrafting' : I := 7;
'hitpoints' : I := 8;
'agility' : I := 9;
'herblore' : I := 10;
'thieving' : I := 11;
'crafting' : I := 12;
'fletching' : I := 13;
'slayer' : I := 14;
'mining' : I := 15;
'smithing' : I := 16;
'fishing' : I := 17;
'cooking' : I := 18;
'firemaking' : I := 19;
'woodcutting' : I := 20;
'farming' : I := 21;
end;
Players[CurrentPlayer].Level[I] := GetSkillLevel(which);
TypeSend(IntToStr(Players[CurrentPlayer].Level[I]));
end;