Results 1 to 3 of 3

Thread: Finding online friends

  1. #1
    Join Date
    Jun 2009
    Location
    New Jersey
    Posts
    154
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Finding online friends

    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.
    Take a look at a new OpenDepositBox here.

  2. #2
    Join Date
    Nov 2007
    Location
    46696E6C616E64
    Posts
    3,069
    Mentioned
    44 Post(s)
    Quoted
    302 Post(s)

    Default

    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;
      tempTSA: TStringArray;
    begin
      tempTSA := getFriendsUpText;
      for i := 0 to high(tempTSA) do begin
        Result := srl_Explode(tempTSA[i], 'Message '); // line 34
        for j := 0 to high(Result) do
          writeln(Result[j]);
      end;
    end;



    begin
      SetUpSRL;
      getFriendsUpText;
    end.

    You cannot return an index of an array directly from a function, you need to store it into a variable.
    There used to be something meaningful here.

  3. #3
    Join Date
    Jun 2009
    Location
    New Jersey
    Posts
    154
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Well then....

    THANK YOU!!!
    Take a look at a new OpenDepositBox here.

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •