SRL Archive - RS3 Outdated / Broken Scripts

I need a script that finds distance from two points on a coordinate plane.

program New;
const
  Ax = 0; Ay = 0;
  Bx = 3; By = 4;
begin
  WriteLn('Distance between the points is ' + IntToStr(Distance(Ax, Ay, Bx, By)));
end.

;)

Simple:

Distance(x1, y1, x2, y2);

Returns a INTEGER (number)

Oh, thanks….Didn't know that existed…

EDIT: Now how to find slope plox.

From: Elkins121
Oh, thanks….Didn't know that existed…

EDIT: Now how to find slope plox.

program New;

const
  ax = 0; ay = 0;
  bx = 4; by = 4;
  
var
  Slope: Extended;

begin
  Slope := (ay - by)/(ax - bx);
  Writeln('The gradient of the line connecting the two points is: ' + FloatToStr(Slope));
end.

The gradient of the line between two points is equal to the difference of the two y's divided by the difference of the two x's.

Hmm… it automatically rounds the decimal for some reason…

From: ZephyrsFury

program New;

const
  ax = 0; ay = 0;
  bx = 4; by = 4;
  
var
  Slope: Extended;

begin
  Slope := (ay - by)/(ax - bx);
  Writeln('The gradient of the line connecting the two points is: ' + FloatToStr(Slope));
end.

The gradient of the line between two points is equal to the difference of the two y's divided by the difference of the two x's.

Hmm… it automatically rounds the decimal for some reason…

This works:

program New;

const
  ax = 0; ay = 0;
  bx = 4; by = 5;

var
  Slope: Extended;
  z, r : Extended;
begin
  z := ay - by;
  r := ax - bx;
  Slope := z/r;
  Writeln('The gradient of the line connecting the two points is: ' + FloatToStr(Slope));
end.

If you try to divide integers, the answer will be floored (or ceiled? Floored I think). So just simply change
Slope := (ay - by)/(ax - bx);
to
Slope := (ay * 1.0 - by)/(ax - bx);
And it should work.