SCAR Code:
program New;
{.include SRL/SRL.scar}
var x, y: integer;
{*******************************************************************************
function getsymbolpos(symbol1, symbol2: string);
By: akwardsaw, idea came from [ethan]
Description: It finds the coords of 2 symbols, could be edited for more/less
*******************************************************************************}
procedure getsymbolpos(symbol1, symbol2: string);
var
sp1x, sp2x, sp1y, sp2y, sym1x: integer;
sym2x, sym1y, sym2y: integer;
begin
if Findsymbol(sp1x, sp1y, symbol1) then
begin
Sym1x:= sp1x;
sym1y:= sp1y;
writeln('the x-coord of ' + symbol1 + ' is ' + inttostr(sym1x));
writeln('the y-coord of ' + symbol1 + ' is ' + inttostr(sym1y));
end;
if Findsymbol(sp2x, sp2y, symbol2) then
begin
Sym2x:= sp2x;
sym2y:= sp2y;
writeln('the x-coord of ' + symbol2 + ' is ' + inttostr(sym2x));
writeln('the y-coord of ' + symbol2 + ' is ' + inttostr(sym2y));
end;
end;
{*******************************************************************************
function Getsymbolmidpoint(var xm, ym: integer; symbol1, symbol2: string): integer;
By: akwardsaw, idea came from [ethan]
Description: It finds two symbol coords, and then finds the midpoint. Can be for map
walking, or a helper in getting coords for the minimap.
*******************************************************************************}
function Getsymbolmidpoint(var xm, ym: integer; symbol1, symbol2: string): integer;
var
sp1x, sp2x, sp1y, sp2y, sym1x: integer;
sym2x, sym1y, sym2y, i: integer;
xstep1, xstep2, ystep1, ystep2: integer;
midpoint: array [0..1] of integer;
begin
begin
if Findsymbol(sp1x, sp1y, symbol1) then
begin
Sym1x:= sp1x;
sym1y:= sp1y;
end;
if Findsymbol(sp2x, sp2y, symbol2) then
begin
Sym2x:= sp2x;
sym2y:= sp2y;
end;
begin
xstep1:= Sym2x - sym1x
xstep2:= xstep1 / 2;
ystep1:= sym2y - sym1y;
ystep2:= ystep1 / 2;
midpoint[0]:= sym1x + xstep2;;
midpoint[1]:= sym1y + ystep2;
xm:= midpoint[0]
ym:= midpoint[1]
writeln('the midpoint of ' + symbol1 + ' and ' + symbol2 + ' is:');
writeln('(' + inttostr(midpoint[0]) + ',' + inttostr(midpoint[1]) + ')');
for i:= 0 to 1 do
result:= midpoint[i];
end;
end;
end;
begin
mousespeed:= 10;
getsymbolmidpoint(x, y, 'quest', 'spin');
mmouse(x, y, 0, 0);
end.