Hello SRL, Feroc1ty has a really good idea (here)
If you don't feel like going to that post basically he had the idea of Private messaging while botting using a form. It really caught my eye so I decided to make a Script to find online friends and eventually put them in a listbox in a form(Im not sure if listboxes exist in Simba if they don't I'm sure SRL could come up with an alternative
)
So anyway enough with the background information and on to the problem I am having.
Simba Code:
program new;
{$i srl\srl.scar}
{$i srl/srl/misc/debug.scar}
function getFriendsUpText : Array of String;
var
x, y, i : integer;
friendsTPA, serverTPA : TpointArray;
friendATPA, serverATPA : Array of TpointArray;
begin
FindColorsTolerance(serverTPA, clYELLOW, MIX1, MIY1, MIX2, MIY2, 0);
serverATPA := SplitTPAEx(serverTPA, 80, 1);
//debugATPA(serverATPA, 'd');
FindColorsTolerance(friendsTPA, clWhite, MIX1, MIY1, MIX2, MIY2, 0);
friendATPA := SplitTPAEx(friendsTPA, 80, 1);
//debugATPA(friendATPA, 'b');
SortATPAFromFirstPoint(friendATPA, IntToPoint(562, 233));
SetLength(result, length(serverATPA));
for i := 0 to length(serverATPA) - 1 do
begin
MiddleTPAEx(friendATPA[i], x, y);
MMouse(x, y, 0, 0);
result[i] := GetUpText;
Wait(500);
end;
end;
function getNames : TStringArray;
var
i, j : integer;
begin
for i := 0 to high(getFriendsUpText) do
begin
Result := srl_Explode(getFriendsUpText[i], 'Message '); // line 34
for j := 0 to high(Result) do
writeln(Result[j]);
end;
end;
begin
SetUpSRL;
getFriendsUpText;
end.
Code:
[Error] (35:43): Semicolon (';') expected at line 34
I have no freaking idea why it is saying i need a semicolon. Maybe it is telling me that I have an error but a semicolon isn't need.
Anyway help would greatly be appreciated.