SRL Archive - Research & Development Lounge

{********************************************}
{Function CalculateCombat(A,S,D,H,P,R,M: integer): extended;
 This will calculate your combat level as close as possible. A stands
 for attack, S for strength, D for defence, H for hitpoints, P for
 prayer, R for range, and M for mage.
 By: jhildy
{********************************************}
Function CalculateCombat(A,S,D,H,P,R,M: integer): extended;
var L: array [0..6] of extended;
var Base,melee,range,mage: extended;
begin
  L[0]:=D*100;
  L[1]:=H*100;
  if p mod 2 = 0 then
  l[2]:=P*50
  else if p mod 2 <> 0 then
  l[2]:=(p-1)*50;
  Base:=(l[0]+l[1]+l[2])/400;
  l[3]:=A*130;
  l[4]:=s*130;
  if r mod 2 = 0 then
  l[5]:=r*195
  else if r mod 2 <> 0 then
  l[5]:= (((r-1)+(r*2))*65);
  if m mod 2 = 0 then
  l[6]:=m*195
  else if m mod 2 <> 0 then
  l[6]:=(((m-1)+(m*2))*65);
  melee:=(l[3]+l[4])/400;
  range:=l[5]/400;
  mage:=l[6]/400;
  if (melee > range) and (melee > mage) then
  result:=melee+base
  else if (range > melee) and (range > mage) then
  result:=range+base
  else if (mage > melee) and (mage > range) then
  result:=mage+base
end;

there you go calculates combat as exact as possible.

Nice! Combat is supposed to be super hard to calculate?

it was on the runescape forums how to i just put it in scar terms.

Nice man! looks like a bunch of letters an numbers to me though :*(

Ooo very nice. Is this the official formula or a player-made one?

I know this is impossible, but still:

Writeln(FloatToStr(CalculateCombat(1,99,99,99,99,99,99)))

That writes out 0? Why?

But a very nice script :D Thumbs up

-Knives

well idk i havn't figured out the bugs but this is the official formula taken from the runescape forums.

Wow, worked for me. I put in my exact tank ranger stats and it told me his cmb lvl which was correct. Very nice work :D.

Very Nice!!