Skip to content

Commit

Permalink
New Stats Tab functions and restores
Browse files Browse the repository at this point in the history 
New Chat functions and restores
New Map running functions and restores
New Equipment functions and restores
New Equip,Bank,Chat, and area Globals.scar indexes and restores
PressLogin to use enterkey and other login updates and restores
GetItemAmount update and restore
MouseCurrentSpot -> MouseCurrentPos
TBAFromGrid adjusted. Removed unneeded 'rows' and replaced with (number of) Boxes
TSAContainsMulti Restored
FindColorsExP/FindColorsTolP restored
ConstrainBox update restored
DistanceP restored
Object.scar restored
Extended/Object restored
CopyTEA Remove restored
November/Octo"v"er -> October Correction
  • Loading branch information
Want3d committed Oct 28, 2014
1 parent 7925bae commit 4c148aa
Show file tree
Hide file tree
Showing 21 changed files with 1,072 additions and 110 deletions.
3 changes: 2 additions & 1 deletion Compile-OSI.scar
View file
Expand Up @@ -44,6 +44,7 @@
{$I RS07\Skill\Farming.scar}
{$I RS07\Skill\Construction.scar}
{$I RS07\Skill\Hunting.scar}
{$I RS07\Extended\Object.scar}
{$ENDIF}

{=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Expand All @@ -64,7 +65,7 @@ procedure TestCompileOSI;
Contributors: Wanted
Description: Test compiles all of OSI. Comment out every combination of defines.
Date Created: August 7th, 2011. By Wanted
Last Modified: November 26th, 2014. By Wanted
Last Modified: October 26th, 2014. By Wanted
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=}

procedure TestCompileOSI;
Expand Down
10 changes: 5 additions & 5 deletions Divi/Human/Mouse.scar
View file
Expand Up @@ -16,7 +16,7 @@
By: Wanted & Timer.
* procedure MouseP(P: TPoint; RX, RY: Integer; Left: Boolean);
By: Wanted
* procedure MouseCurrentSpot(Left: Boolean);
* procedure MouseCurrentPos(Left: Boolean);
By: Wanted
* procedure HoldMouseWaitBox(X1, Y1, X2, Y2, MinTime, MaxTime: Integer; Left: Boolean);
By: Wanted
Expand Down Expand Up @@ -152,14 +152,14 @@ begin
end;

{=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
procedure MouseCurrentSpot(Left: Boolean);
procedure MouseCurrentPos(Left: Boolean);
Contributors: Wanted
Description: Clicks the mouse in the current position.
Date Created: November 26th, 2014. By Wanted. RS07 Build ???.
Last Modified: November 26th, 2014. By Wanted. RS07 Build ???.
Date Created: October 26th, 2014. By Wanted
Last Modified: October 28th, 2014. By Wanted
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=}

procedure MouseCurrentSpot(Left: Boolean);
procedure MouseCurrentPos(Left: Boolean);
var
P: TPoint;
begin
Expand Down
26 changes: 13 additions & 13 deletions Divi/Human/Timing.scar
View file
Expand Up @@ -56,8 +56,8 @@ procedure SetTimer(var Timer: LongInt; MinMS, MaxMS: Integer);
Contributors: Wanted
Description: Begins counting timer, will expire when the time is up set random
from Min/Max. Check by using CheckTimer(Timer).
Date Created: November 26th, 2014. By Wanted
Last Modified: November 26th, 2014. By Wanted
Date Created: October 26th, 2014. By Wanted
Last Modified: October 26th, 2014. By Wanted
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=}

procedure SetTimer(var Timer: LongInt; MinMS, MaxMS: Integer);
Expand All @@ -69,8 +69,8 @@ end;
function CheckTimer(Timer: LongInt): Boolean;
Contributors: Wanted
Description: Returns true if the amount of time has passed since SetTimer.
Date Created: November 26th, 2014. By Wanted
Last Modified: November 26th, 2014. By Wanted
Date Created: October 26th, 2014. By Wanted
Last Modified: October 26th, 2014. By Wanted
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=}

function CheckTimer(Timer: LongInt): Boolean;
Expand All @@ -82,8 +82,8 @@ end;
procedure MarkTime(var Marker: LongInt);
Contributors: Wanted
Description: Begins marking time.
Date Created: November 26th, 2014. By Wanted
Last Modified: November 26th, 2014. By Wanted
Date Created: October 26th, 2014. By Wanted
Last Modified: October 26th, 2014. By Wanted
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=}

procedure MarkTime(var Marker: LongInt);
Expand All @@ -95,8 +95,8 @@ end;
function TimeSinceMark(Marker: LongInt): LongInt;
Contributors: Wanted
Description: Returns amount of time that has passed since marker.
Date Created: November 26th, 2014. By Wanted
Last Modified: November 26th, 2014. By Wanted
Date Created: October 26th, 2014. By Wanted
Last Modified: October 26th, 2014. By Wanted
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=}

function TimeSinceMark(Marker: LongInt): LongInt;
Expand All @@ -109,7 +109,7 @@ function WaitFunc(Func: function: Boolean; DesiredResult: Boolean; MinWait, MaxW
Contributors: Wanted
Description: Repeats a function until DesiredResult.
Date Created: August 10th, 2011. By Wanted
Last Modified: November 26th, 2014. By Wanted
Last Modified: October 26th, 2014. By Wanted
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=}

function WaitFunc(Func: function: Boolean; DesiredResult: Boolean; MinWait, MaxWait, MinTotalWait, MaxTotalWait: LongInt): Boolean;
Expand All @@ -131,7 +131,7 @@ function WaitFuncEx(Func: string; Parameters: TVariantArray; DesiredResult: Bool
Contributors: Wanted
Description: Repeats a function until DesiredResult.
Date Created: September 26th, 2011. By Wanted
Last Modified: November 26th, 2014. By Wanted
Last Modified: October 26th, 2014. By Wanted
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=}

function WaitFuncEx(Func: string; Parameters: TVariantArray; DesiredResult: Boolean; MinWait, MaxWait, MinTotalWait, MaxTotalWait: LongInt): Boolean;
Expand All @@ -153,7 +153,7 @@ function WaitFindColorEx(var TPA: TPointArray; Color: Integer; B: TBox; DesiredC
Contributors: Wanted, Freddy.
Description: Repeats FindColorEx until greater or less than Count.
Date Created: March 9th, 2013. By Wanted
Last Modified: November 26th, 2014. By Wanted
Last Modified: October 26th, 2014. By Wanted
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=}

function WaitFindColorEx(var TPA: TPointArray; Color: Integer; B: TBox; DesiredCount: Integer; GreaterThan: Boolean; MinWait, MaxWait, MinTotalWait, MaxTotalWait: LongInt): Boolean;
Expand Down Expand Up @@ -184,7 +184,7 @@ function WaitFindColorTol(var P: TPoint; Color: Integer; B: TBox; Tol: Integer;
Contributors: Wanted, Freddy.
Description: Repeats FindColorTol until DesiredResult.
Date Created: September 26th, 2011. By Wanted
Last Modified: November 26th, 2014. By Wanted
Last Modified: October 26th, 2014. By Wanted
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=}

function WaitFindColorTol(var P: TPoint; Color: Integer; B: TBox; Tol: Integer; DesiredResult: Boolean; MinWait, MaxWait, MinTotalWait, MaxTotalWait: LongInt): Boolean;
Expand All @@ -206,7 +206,7 @@ function WaitFindColorTolEx(var TPA: TPointArray; Color: Integer; B: TBox; Tol,
Contributors: Wanted, Freddy.
Description: Repeats FindColorTolEx until greater or less than Count.
Date Created: October 28th, 2011. By Wanted
Last Modified: November 26th, 2014. By Wanted
Last Modified: October 26th, 2014. By Wanted
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=}

function WaitFindColorTolEx(var TPA: TPointArray; Color: Integer; B: TBox; Tol, DesiredCount: Integer; GreaterThan: Boolean; MinWait, MaxWait, MinTotalWait, MaxTotalWait: LongInt): Boolean;
Expand Down
42 changes: 36 additions & 6 deletions Divi/Pixel/Color.scar
View file
Expand Up @@ -2,9 +2,9 @@
Official SCAR Include
Color Routines
--------------------------------------------------------------------------------
* function CountColorP(Color: LongInt; B: TBox): LongInt;
* function CountColorB(Color: LongInt; B: TBox): LongInt;
By: Wanted
* function CountColorTolP(Color: LongInt; B: TBox; Tol: Integer): LongInt;
* function CountColorTolB(Color: LongInt; B: TBox; Tol: Integer): LongInt;
By: Wanted
* function FindColorP(var P: TPoint; Color: LongInt; B: TBox): Boolean;
By: Wanted
Expand All @@ -14,6 +14,10 @@
By: Wanted
* function FindColorTolExP(var TPA: TPointArray; Color: LongInt; B: TBox; Tol: LongInt): Boolean;
By: Wanted
* function FindColorsExP(var TPA: TPointArray; Colors: TIntArray; B: TBox): Boolean;
By: Wanted
* function FindColorsTolP(var P: TPoint; Colors: TIntArray; B: TBox; Tol: LongInt): Boolean;
By: Wanted
* function FindColorSpiralP(SP: TPoint; var P: TPoint; Color: LongInt; B: TBox): Boolean;
By: Wanted
* function FindColorSpiralTolP(SP: TPoint; var P: TPoint; Color: LongInt; B: TBox; Tol: LongInt): Boolean;
Expand Down Expand Up @@ -43,27 +47,27 @@
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=}

{=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
function CountColorP(Color: LongInt; B: TBox): LongInt;
function CountColorB(Color: LongInt; B: TBox): LongInt;
Contributors: Wanted
Description: Wrapper for CountColor with points and boxes.
Date Created: March 7th, 2013. By Wanted
Last Modified: March 7th, 2013. By Wanted
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=}

function CountColorP(Color: LongInt; B: TBox): LongInt;
function CountColorB(Color: LongInt; B: TBox): LongInt;
begin
Result := CountColor(Color, B.X1, B.Y1, B.X2, B.Y2);
end;

{=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
function CountColorTolP(Color: LongInt; B: TBox; Tol: Integer): LongInt;
function CountColorTolB(Color: LongInt; B: TBox; Tol: Integer): LongInt;
Contributors: Wanted
Description: Wrapper for CountColorTol with points and boxes.
Date Created: March 7th, 2013. By Wanted
Last Modified: March 7th, 2013. By Wanted
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=}

function CountColorTolP(Color: LongInt; B: TBox; Tol: Integer): LongInt;
function CountColorTolB(Color: LongInt; B: TBox; Tol: Integer): LongInt;
begin
Result := CountColorTol(Color, B.X1, B.Y1, B.X2, B.Y2, Tol);
end;
Expand Down Expand Up @@ -120,6 +124,32 @@ begin
Result := FindColorTolEx(TPA, Color, B.X1, B.Y1, B.X2, B.Y2, Tol);
end;

{=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
function FindColorsExP(var TPA: TPointArray; Colors: TIntArray; B: TBox): Boolean;
Contributors: Wanted
Description: Wrapper for FindColorsEx with points and boxes.
Date Created: March 19th, 2013. By Wanted
Last Modified: March 19th, 2013. By Wanted
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=}

function FindColorsExP(var TPA: TPointArray; Colors: TIntArray; B: TBox): Boolean;
begin
Result := FindColorsEx(TPA, Colors, B.X1, B.Y1, B.X2, B.Y2);
end;

{=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
function FindColorsTolP(var P: TPoint; Colors: TIntArray; B: TBox; Tol: LongInt): Boolean;
Contributors: Wanted
Description: Wrapper for FindColorsTol with points and boxes.
Date Created: March 22nd, 2013. By Wanted
Last Modified: March 22nd, 2013. By Wanted
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=}

function FindColorsTolP(var P: TPoint; Colors: TIntArray; B: TBox; Tol: LongInt): Boolean;
begin
Result := FindColorsTol(P.X, P.Y, Colors, B.X1, B.Y1, B.X2, B.Y2, Tol);
end;

{=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
function FindColorSpiralP(SP: TPoint; var P: TPoint; Color: LongInt; B: TBox): Boolean;
Contributors: Wanted
Expand Down
34 changes: 25 additions & 9 deletions Divi/TFunctions/Box.scar
View file
Expand Up @@ -2,29 +2,29 @@
Official SCAR Include
Box Type Routines
--------------------------------------------------------------------------------
* function BoxFromGrid(P: TPoint; Index, Width, Height, Rows, Columns, RowSpace, ColumnSpace: LongInt): TBox;
* function BoxFromGrid(P: TPoint; Index, Width, Height, Columns, RowSpace, ColumnSpace: LongInt): TBox;
By: Wanted
* function ValidBox(B: TBox): Boolean;
By: Janilabo
* function BoxContains(Inner_TB, Outer_TB: TBox): Boolean;
By: Janilabo
* procedure BoxDimensions(B: TBox; var W, H: Integer);
By: Janilabo
* procedure ConstrainBox(var B: TBox; MB: TBox);
* function ConstrainBox(var B: TBox; MB: TBox): Boolean;
By: Wanted
* procedure FixBox(var B: TBox);
By: Janilabo
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=}

{=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
function BoxFromGrid(P: TPoint; Index, Width, Height, Rows, Columns, RowSpace, ColumnSpace: LongInt): TBox;
function BoxFromGrid(P: TPoint; Index, Width, Height, Columns, RowSpace, ColumnSpace: LongInt): TBox;
Contributors: Wanted, Janilabo.
Description: Creates box from indexes of boxes arranged in rows and columns.
Date Created: March 7th, 2013. By Wanted
Last Modified: March 7th, 2013. By Wanted
Last Modified: October 27th, 2014. By Wanted
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=}

function BoxFromGrid(P: TPoint; Index, Width, Height, Rows, Columns, RowSpace, ColumnSpace: LongInt): TBox;
function BoxFromGrid(P: TPoint; Index, Width, Height, Columns, RowSpace, ColumnSpace: LongInt): TBox;
var
TP: TPoint;
begin
Expand Down Expand Up @@ -76,23 +76,39 @@ begin
end;

{=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
procedure ConstrainBox(var B: TBox; MB: TBox);
Contributors: Wanted
function ConstrainBox(var B: TBox; MB: TBox): Boolean;
Contributors: Wanted, Janilabo.
Description: Makes the edges of your box within the edges of another box.
Returns true if constrained.
Date Created: December 6th, 2011. By Wanted
Last Modified: March 2nd, 2013. By Wanted
Last Modified: March 19th, 2013. By Wanted
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=}

procedure ConstrainBox(var B: TBox; MB: TBox);
function ConstrainBox(var B: TBox; MB: TBox): Boolean;
var
TB: TBox;
begin
Result := False;
if (not (ValidBox(B))) then
Exit;
TB := B;
if (B.X1 < MB.X1) then
B.X1 := MB.X1;
if (B.X1 > MB.X2) then
B.X1 := MB.X2;
if (B.Y1 < MB.Y1) then
B.Y1 := MB.Y1;
if (B.Y1 > MB.Y2) then
B.Y1 := MB.Y2;
if (B.X2 > MB.X2) then
B.X2 := MB.X2;
if (B.X2 < MB.X1) then
B.X2 := MB.X1;
if (B.Y2 > MB.Y2) then
B.Y2 := MB.Y2;
if (B.Y2 < MB.Y1) then
B.Y2 := MB.Y1;
Result := (TB <> B);
end;

{=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Expand Down
17 changes: 16 additions & 1 deletion Divi/TFunctions/Point.scar
View file
Expand Up @@ -2,14 +2,29 @@
Official SCAR Include
Point Type Routines
--------------------------------------------------------------------------------
* function DistanceP(P1, P2: TPoint): Extended;
By: Wanted
* function GetPointAngleDegrees(P1, P2: TPoint): Extended;
By: Wanted
* function RCirclePoint(CX, CY, Radius: Integer): TPoint;
By: Freddy & Wanted.
* function RRectanglePoint(X1, Y1, X2, Y2: Integer): TPoint;
By: Freddy & Wanted.
By: Freddy & Wanted.
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=}

{=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
function DistanceP(P1, P2: TPoint): Extended;
Contributors: Wanted, Janilabo.
Description: Wrapper for Distance with points.
Date Created: October 28th, 2011. By Wanted
Last Modified: February 26th, 2013. By Wanted
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=}

function DistanceP(P1, P2: TPoint): Extended;
begin
Result := Distance(P1.X, P1.Y, P2.X, P2.Y);
end;

{=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
function GetPointAngleDegrees(P1, P2: TPoint): Extended;
Contributors: Wanted, Janilabo.
Expand Down
12 changes: 6 additions & 6 deletions Divi/TFunctions/TBA.scar
View file
Expand Up @@ -12,7 +12,7 @@
By: Janilabo
* function TBADelete(var TBA: TBoxArray; Index: Integer): TBox;
By: Wanted
* function TBAFromGrid(P: TPoint; Width, Height, Rows, Columns, RowSpace, ColumnSpace: LongInt): TBoxArray;
* function TBAFromGrid(P: TPoint; Width, Height, Boxes, Columns, RowSpace, ColumnSpace: LongInt): TBoxArray;
By: Wanted
* procedure TBAInsert(var TBA: TBoxArray; Index: Integer; B: TBox);
By: Janilabo
Expand Down Expand Up @@ -124,22 +124,22 @@ begin
end;

{=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
function TBAFromGrid(P: TPoint; Width, Height, Rows, Columns, RowSpace, ColumnSpace: LongInt): TBoxArray;
function TBAFromGrid(P: TPoint; Width, Height, Boxes, Columns, RowSpace, ColumnSpace: LongInt): TBoxArray;
Contributors: Wanted, Janilabo.
Description: Creates TBAs arranged in rows and columns.
Date Created: March 7th, 2013. By Wanted
Last Modified: March 7th, 2013. By Wanted
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=}

function TBAFromGrid(P: TPoint; Width, Height, Rows, Columns, RowSpace, ColumnSpace: LongInt): TBoxArray;
function TBAFromGrid(P: TPoint; Width, Height, Boxes, Columns, RowSpace, ColumnSpace: LongInt): TBoxArray;
var
I, H: LongInt;
begin
Result := [];
H := (Rows * Columns) - 1;
SetLength(Result, H + 1);
H := Boxes - 1;
SetLength(Result, Boxes);
for I := 0 to H do
Result[I] := BoxFromGrid(P, I, Width, Height, Rows, Columns, RowSpace, ColumnSpace);
Result[I] := BoxFromGrid(P, I, Width, Height, Columns, RowSpace, ColumnSpace);
end;

{=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Expand Down
20 changes: 0 additions & 20 deletions Divi/TFunctions/TEA.scar
View file
Expand Up @@ -2,30 +2,10 @@
Official SCAR Include
Extended Array Type Routines
--------------------------------------------------------------------------------
* function CopyTEA(TEA: TBooleanArray): TBooleanArray;
By: Wanted
* procedure TEAReverse(var TEA: TExtArray);
By: Janilabo
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=}

{=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
function CopyTEA(TEA: TBooleanArray): TBooleanArray;
Contributors: Wanted
Description: Creates a new TExtendedArray with a copy of every element in the given array TEA.
Date Created: March 3rd, 2013. By Wanted
Last Modified: March 3rd, 2013. By Wanted
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=}

function CopyTEA(TEA: TBooleanArray): TBooleanArray;
var
I, H: LongInt;
begin
H := High(TEA);
SetLength(Result, H + 1);
for I := 0 to H do
Result[I] := TEA[I];
end;

{=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
procedure TEAReverse(var TEA: TExtArray);
Contributors: Janilabo
Expand Down

0 comments on commit 4c148aa

Please sign in to comment.