My views on Reflection Member Apps
I don't know as I totally agree with reflection apps. AFAIK it's not technically part of SRL, and it is so much easier than color.
An example: (This is taken from a recent members app)
SCAR Code:
function findFishingSpot: boolean;
var
FP: tnpc;
begin
if (FindNPC('Fishing Spot', FP)) then
begin
if(TileOnMS(Fp.tile, 10))then
begin
result := true;
end else
begin
result := false;
end;
end;
end;
I'm not familiar with Reflection so I can't be sure but this function can be done in 2 lines.
So this would be a Reflection FindFishingSpot function:
SCAR Code:
function findFishingSpot: boolean;
var
FP: tnpc;
begin
if (FindNPC('Fishing Spot', FP)) then
Result := (TileOnMS(Fp.tile, 10));
end;
// if not that, then this:
function findFishingSpot: boolean;
var
FP: tnpc;
begin
if (FindNPC('Fishing Spot', FP)) then
if(TileOnMS(Fp.tile, 10))then
result := true;
end;
As simple as 2 or 3 lines apparently either way.
This would be color: (Taken from another member)
SCAR Code:
Function FindFish(var Spot: TPoint; x1, y1, x2, y2: Integer) : Boolean;
Var
CTS, I: Integer;
Spott: TPointArray;
ATPA: Array of TPointArray;
begin
CTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.10, 0.24);
FindColorsSpiralTolerance(MSCX, MSCY, Spott, 11972264 , x1, y1, x2, y2, 13);
//DebugTPA(Spott, 'lll');
If Length(Spott) < 1 then
begin
Write('Error, couldn''t find fishing spot!');
Result := False;
exit;
end;
ColorToleranceSpeed(CTS);
ATPA := TPAToATPAEx(Spott, 6, 6);
For I := 0 to High(ATPA) do
begin
MiddleTPAEx(ATPA[i], Spot.x, Spot.y);
If not (distance(Spot.x, Spot.y, MSCX, MSCY) > 200)then
begin
Result := True;
Break;
end;
end;
end;
Granted, this could be done in less lines as well, it still seems to take much more effort.
I don't mean to attack or offend anyone, I'm just curious to read others thoughts on this. :o
To Clarify: I have nothing against reflection, or people that use it at all.
*Waits for Method to post*