Results 1 to 22 of 22

Thread: Teamview help

  1. #1
    Join Date
    Apr 2013
    Posts
    14
    Mentioned
    0 Post(s)
    Quoted
    9 Post(s)

    Question Teamview help

    im having trouble with my running of 07... so many like types of running ways
    when i run this it works
    Code:
    program new;
    {$DEFINE SMART}
    {$i srl/srl.simba}
    
    begin
      ClearDebug();
      SetupSRL();
    end.

    but this doesnt work when i run it.
    Code:
    Program testP07;
    
    {$I SRL/SRL.Simba}
    {$I P07Include.Simba}
    
    //LOGIN INFO STUFF
    Procedure P07_DeclarePlayer;
    Begin
      P07_PlayerName:='username';
      P07_PlayerPass:='password';
    End;
    
    Begin
    
      P07_DeclarePlayer;
      SetupP07Include;
      ActivateClient;
      Wait(2000);
      If (Not P07_LoggedIn) Then
        P07_LogInPlayer;
      P07_MakeCameraAngleHigh;
      P07_MakeCompassNorth;
    
      Writeln(P07_GetUpText);
    
      If P07_BankScreen Then
        WriteLn('Bank is Open');
      If P07_InvFull Then
        WriteLn('Inventory is Full');
     
    End.
    would any1 like team view me and help me out? like ASAP? or any help.
    FYI I DO HAVE A MAC~~~
    Thanks!

  2. #2
    Join Date
    Jun 2012
    Location
    Howell, Michigan
    Posts
    1,585
    Mentioned
    34 Post(s)
    Quoted
    553 Post(s)

    Default

    Quote Originally Posted by stephensking View Post
    FYI I DO HAVE A MAC~~~
    There's your issue(; Nah, just kidding, make sure they are a member or trusted before letting them TV your computer.

  3. #3
    Join Date
    Apr 2013
    Posts
    14
    Mentioned
    0 Post(s)
    Quoted
    9 Post(s)

    Default

    would u give me help :/

  4. #4
    Join Date
    Jun 2012
    Location
    Howell, Michigan
    Posts
    1,585
    Mentioned
    34 Post(s)
    Quoted
    553 Post(s)

    Default

    Quote Originally Posted by stephensking View Post
    would u give me help :/
    I wont need tv, I do need more info though, such as, do you have 07 setup correctly? visit this thread to find out :P http://villavu.com/forum/showthread.php?t=100543

  5. #5
    Join Date
    Apr 2013
    Posts
    14
    Mentioned
    0 Post(s)
    Quoted
    9 Post(s)

    Default

    i have just done the Following ^above.

  6. #6
    Join Date
    Jun 2012
    Location
    Howell, Michigan
    Posts
    1,585
    Mentioned
    34 Post(s)
    Quoted
    553 Post(s)

    Default

    Quote Originally Posted by stephensking View Post
    i have just done the Following ^above.
    Add
    Simba Code:
    {$DEFINE SMART}

    to the top of the other script.

  7. #7
    Join Date
    Apr 2013
    Posts
    14
    Mentioned
    0 Post(s)
    Quoted
    9 Post(s)

    Default

    Quote Originally Posted by SRLKing View Post
    Add
    Simba Code:
    {$DEFINE SMART}

    to the top of the other script.

    something went wrong? help?



    [Error] C:\Simba\Includes\SRL/SRL/misc/SmartParams.Simba(295:135): Invalid number of parameters at line 294
    Compiling failed.



    Result := SmartSpawnClient(ReplaceWrap(PluginPath, '\', '/', [rfReplaceAll]), Params[0], ',' + Params[1], 765, 503, 's', '', '', -1);

  8. #8
    Join Date
    Jun 2012
    Location
    Howell, Michigan
    Posts
    1,585
    Mentioned
    34 Post(s)
    Quoted
    553 Post(s)

    Default

    Quote Originally Posted by stephensking View Post
    something went wrong? help?



    [Error] C:\Simba\Includes\SRL/SRL/misc/SmartParams.Simba(295:135): Invalid number of parameters at line 294
    Compiling failed.



    Result := SmartSpawnClient(ReplaceWrap(PluginPath, '\', '/', [rfReplaceAll]), Params[0], ',' + Params[1], 765, 503, 's', '', '', -1);
    Just add an 8 after the word SMART then

  9. #9
    Join Date
    Apr 2013
    Posts
    14
    Mentioned
    0 Post(s)
    Quoted
    9 Post(s)

    Default

    it says running but nothing is popping up?
    Attached Images Attached Images
    Last edited by stephensking; 04-03-2013 at 03:09 AM.

  10. #10
    Join Date
    Jun 2012
    Location
    Howell, Michigan
    Posts
    1,585
    Mentioned
    34 Post(s)
    Quoted
    553 Post(s)

    Default

    Quote Originally Posted by stephensking View Post
    it says running but nothing is popping up?
    Give it a second to load, also post more info, what are you trying to do?

  11. #11
    Join Date
    Apr 2013
    Posts
    14
    Mentioned
    0 Post(s)
    Quoted
    9 Post(s)

    Default

    Quote Originally Posted by SRLKing View Post
    Give it a second to load, also post more info, what are you trying to do?
    tried something different i loaded this script into the simba, then i typed in username&password. i pressed the green run button. it turns to "running" bottom left corner and the box went empty where output goes. but no client pops up, but claims its running?

    Code:
    program AutoRangeGuilder_11;
    
    //Welcome to the AutoRangeGuilder_11! This is my first official script so please feel
    //free to comment me on the forums/inbox for problems and suggestions.
    //Currently I know that it keeps 'talking' to the judge sometimes, simply end the script
    //and try a different spot or rotate the camera a bit.
    //Thanks to everyone who dedicated their time for the OldSchool Simba support.
    //First script, no leech. There is something you may want to change however.
    
    {$I SRL/SRL.Simba}
    {$I SRL/SRL/Misc/Debug.Simba}
    {$I P07Include.Simba}
    
     var
        TargetDTM, BronzeArrowDTM, CloseDTM, x, y, a, b, mouseclickcount, mouseclickcount2, competitionsplayedcount: integer;
    
     const
        judgecolor1 = 3364126;
        judgecolor2 = 3033937;
        judgecolor3 = 3763576;
    
    procedure P07_DeclarePlayer;
    begin
      P07_Playername:='username'; //enter your username
      P07_Playerpass:='password'; //enter your password
    end;
    
    procedure Open_Inv_Tab;
    begin
      if(not P07_TabInventoryTab(4)) then
      begin
        P07_TabInventoryTab(4)
      end;
    end;
    
    procedure Start_Comp;
    begin
      wait(randomrange(500,1000));
      begin
        case random(10000) of
        1..50: wait(randomrange(3000,6000));
        200..276: wait(randomrange(7000,12000));
        9875..10000: P07_HoverSkill('ranged', random(6000));
        end;
      end;
      P07_MakeCameraAngleHigh;
      begin
        if P07_FindObjCustom(x, y, ['omp', 'tition', 'judge'], [judgecolor1, judgecolor2, judgecolor3], 5) then
        begin
          MMouse(x,y,5,5);
          ClickMouse2(mouse_left);
          writeln('');
          writeln('Talking to the Judge...');
        end
        else
        begin
          writeln('Unable to find the Judge, looking again...');
          P07_MakeCameraAngleHigh;
          Start_Comp;
        end;
      end;
    end;
    
    procedure Click_to_Continue;
    begin
      wait(randomrange(1000,1500));
      begin
        case random(50) of   //click to continue
        1..20: MMouse(380,454,5,5);
        21..35: MMouse(310,455,5,5);
        36..50: MMouse(246,453,5,5);
        end;
      end;
      ClickMouse2(mouse_left);
      ClickMouse2(mouse_left);
      wait(randomrange(600,1000));
      begin
        case random(50) of    //click sure
        1..20: MMouse(320,396,5,5);
        21..35: MMouse(273,390,5,5);
        36..50: MMouse(197,394,5,5);
        end;
      end;
      ClickMouse2(mouse_left);
      ClickMouse2(mouse_left);
      wait(randomrange(600,1000));
      begin
        case random(50) of   //click to continue
        1..20: MMouse(380,454,5,5);
        21..35: MMouse(310,455,5,5);
        36..50: MMouse(246,453,5,5);
        end;
      end;
      ClickMouse2(mouse_left);
      ClickMouse2(mouse_left);
      wait(randomrange(600,1000)); //click to continue
      ClickMouse2(mouse_left);
      ClickMouse2(mouse_left);
      wait(randomrange(400,600));
      writeln('The competition has started! Wielding the Bronze arrows...');
    end;
    
    procedure Wield_Arrow;
    begin
      BronzeArrowDTM := DTMFromString('mggAAAHicY2NgYDjBxMBwCIj3AvFxID4LxNuBmImRgeE/AwT/BeJ/QCwAFHM2lgXjeE8dMK2nIsKQK8LLwA+Ux4YZcWAIAACNZgyT');
      if FindDTM(BronzeArrowDTM, x, y, MIX1, MIY1, MIX2, MIY2) then
      begin
        MMouse(x,y,5,5);
        ClickMouse2(mouse_left);
      end
      else
      begin
        MMouse(675,184,10,10); //equipment
        ClickMouse2(mouse_left);
        if FindDTM(BronzeArrowDTM, x, y, MIX1, MIY1, MIX2, MIY2) then
        begin
          Open_Inv_Tab;
          Start_Comp;
          Click_to_Continue;
        end;
      end;
      FreeDTM(BronzeArrowDTM);
    end;
    
    procedure Fire_Target;
    begin
      P07_MakeCameraAngleLow;
      P07_MakeCompassDegree(randomrange(304,316));
      writeln('Compass Angle set for:' + IntToStr(P07_GetCompassAngle));
      mouseclickcount := 0;
      mouseclickcount2 := 0;
      wait(randomrange(300,500));
      TargetDTM := DTMFromString('mlwAAAHicY2dgYPgDxD+B+B+U/Q2IGRghYvJArAvEekCsCcTKUGwIxM9vRzNs2tjDEJkizpAVZsMQnTWfYW2YP0N8rhEDF1AeF2bEg6EAAKUoEN4=');
      CloseDTM := DTMFromString('mFQEAAHic42VgYHjKyMDwCogfQjGIfQ+I3zJC5J5B2feQxDWB+lSgWA+KNRgg4kpAbAilYWwQZmBgxMAp4Y5gXJDoxhDiaQ6mYWwQZgWqIhVj2kIYowAAOJcV5Q==');
    
      if FindDTM(TargetDTM, x, y, MSX1, MSY1, MSX2, MSY2) then
      begin
      writeln('Firing at Target!');
        repeat
          if FindDTM(TargetDTM, x, y, MSX1, MSY1, MSX2, MSY2) then
            begin
              MMouse(x,y,7,7);
              ClickMouse2(mouse_left);
              wait(randomrange(2350,2500));
              mouseclickcount := mouseclickcount + 1;
            end;
        if FindDTM(CloseDTM, a, b, MSX1, MSY1, MSX2, MSY2) then
        begin
          MMouse(a,b,5,5);
          ClickMouse2(mouse_left);
          mouseclickcount2 := mouseclickcount2 + 1;
        end;
        until(mouseclickcount2 or mouseclickcount = 10);
          begin
            if FindDTM(TargetDTM, x, y, MSX1, MSY1, MSX2, MSY2) then
              begin
                MMouse(x,y,5,5);
                ClickMouse2(mouse_left);
                ClickMouse2(mouse_left);
                wait(randomrange(200,600));
              end;
          end;
      end
      else
      begin
        FreeDTM(TargetDTM);
        writeln('Unable to find Target... Trying again...');
        Fire_Target;
      end;
      competitionsplayedcount := competitionsplayedcount + 1;
      writeln('Competitions Played:' + IntToStr(competitionsplayedcount) +'!');
      FreeDTM(TargetDTM);
      FreeDTM(CloseDTM);
    end;
    
    begin
    SetupP07Include;
    ActivateClient;
    ClearDebug;
    Wait(1000);
    If (Not P07_LoggedIn) then
    begin
      P07_LogInPlayer;
    end;
    repeat
    Open_Inv_Tab;
    Start_Comp;
    Click_to_Continue;
    Wield_Arrow;
    Fire_Target;
    until(competitionsplayedcount = 3);
      begin
      writeln('Number of Competitions completed!');
      writeln('Logging out...');
      MMouse(644,483,5,5);
      ClickMouse2(mouse_left);
      wait(randomrange(500,1500));
      MMouse(633,378,5,5);
      ClickMouse2(mouse_left);
      end;
    TerminateScript;
    end.
    Attached Images Attached Images
    Last edited by stephensking; 04-03-2013 at 03:23 AM.

  12. #12
    Join Date
    Jun 2012
    Location
    Howell, Michigan
    Posts
    1,585
    Mentioned
    34 Post(s)
    Quoted
    553 Post(s)

    Default

    Quote Originally Posted by stephensking View Post
    tried something different i loaded this script into the simba, then i typed in username&password. i pressed the green run button. it turns to "running" bottom left corner and the box went empty where output goes. but no client pops up, but claims its running?

    Code:
    program AutoRangeGuilder_11;
    
    //Welcome to the AutoRangeGuilder_11! This is my first official script so please feel
    //free to comment me on the forums/inbox for problems and suggestions.
    //Currently I know that it keeps 'talking' to the judge sometimes, simply end the script
    //and try a different spot or rotate the camera a bit.
    //Thanks to everyone who dedicated their time for the OldSchool Simba support.
    //First script, no leech. There is something you may want to change however.
    
    {$I SRL/SRL.Simba}
    {$I SRL/SRL/Misc/Debug.Simba}
    {$I P07Include.Simba}
    
     var
        TargetDTM, BronzeArrowDTM, CloseDTM, x, y, a, b, mouseclickcount, mouseclickcount2, competitionsplayedcount: integer;
    
     const
        judgecolor1 = 3364126;
        judgecolor2 = 3033937;
        judgecolor3 = 3763576;
    
    procedure P07_DeclarePlayer;
    begin
      P07_Playername:='username'; //enter your username
      P07_Playerpass:='password'; //enter your password
    end;
    
    procedure Open_Inv_Tab;
    begin
      if(not P07_TabInventoryTab(4)) then
      begin
        P07_TabInventoryTab(4)
      end;
    end;
    
    procedure Start_Comp;
    begin
      wait(randomrange(500,1000));
      begin
        case random(10000) of
        1..50: wait(randomrange(3000,6000));
        200..276: wait(randomrange(7000,12000));
        9875..10000: P07_HoverSkill('ranged', random(6000));
        end;
      end;
      P07_MakeCameraAngleHigh;
      begin
        if P07_FindObjCustom(x, y, ['omp', 'tition', 'judge'], [judgecolor1, judgecolor2, judgecolor3], 5) then
        begin
          MMouse(x,y,5,5);
          ClickMouse2(mouse_left);
          writeln('');
          writeln('Talking to the Judge...');
        end
        else
        begin
          writeln('Unable to find the Judge, looking again...');
          P07_MakeCameraAngleHigh;
          Start_Comp;
        end;
      end;
    end;
    
    procedure Click_to_Continue;
    begin
      wait(randomrange(1000,1500));
      begin
        case random(50) of   //click to continue
        1..20: MMouse(380,454,5,5);
        21..35: MMouse(310,455,5,5);
        36..50: MMouse(246,453,5,5);
        end;
      end;
      ClickMouse2(mouse_left);
      ClickMouse2(mouse_left);
      wait(randomrange(600,1000));
      begin
        case random(50) of    //click sure
        1..20: MMouse(320,396,5,5);
        21..35: MMouse(273,390,5,5);
        36..50: MMouse(197,394,5,5);
        end;
      end;
      ClickMouse2(mouse_left);
      ClickMouse2(mouse_left);
      wait(randomrange(600,1000));
      begin
        case random(50) of   //click to continue
        1..20: MMouse(380,454,5,5);
        21..35: MMouse(310,455,5,5);
        36..50: MMouse(246,453,5,5);
        end;
      end;
      ClickMouse2(mouse_left);
      ClickMouse2(mouse_left);
      wait(randomrange(600,1000)); //click to continue
      ClickMouse2(mouse_left);
      ClickMouse2(mouse_left);
      wait(randomrange(400,600));
      writeln('The competition has started! Wielding the Bronze arrows...');
    end;
    
    procedure Wield_Arrow;
    begin
      BronzeArrowDTM := DTMFromString('mggAAAHicY2NgYDjBxMBwCIj3AvFxID4LxNuBmImRgeE/AwT/BeJ/QCwAFHM2lgXjeE8dMK2nIsKQK8LLwA+Ux4YZcWAIAACNZgyT');
      if FindDTM(BronzeArrowDTM, x, y, MIX1, MIY1, MIX2, MIY2) then
      begin
        MMouse(x,y,5,5);
        ClickMouse2(mouse_left);
      end
      else
      begin
        MMouse(675,184,10,10); //equipment
        ClickMouse2(mouse_left);
        if FindDTM(BronzeArrowDTM, x, y, MIX1, MIY1, MIX2, MIY2) then
        begin
          Open_Inv_Tab;
          Start_Comp;
          Click_to_Continue;
        end;
      end;
      FreeDTM(BronzeArrowDTM);
    end;
    
    procedure Fire_Target;
    begin
      P07_MakeCameraAngleLow;
      P07_MakeCompassDegree(randomrange(304,316));
      writeln('Compass Angle set for:' + IntToStr(P07_GetCompassAngle));
      mouseclickcount := 0;
      mouseclickcount2 := 0;
      wait(randomrange(300,500));
      TargetDTM := DTMFromString('mlwAAAHicY2dgYPgDxD+B+B+U/Q2IGRghYvJArAvEekCsCcTKUGwIxM9vRzNs2tjDEJkizpAVZsMQnTWfYW2YP0N8rhEDF1AeF2bEg6EAAKUoEN4=');
      CloseDTM := DTMFromString('mFQEAAHic42VgYHjKyMDwCogfQjGIfQ+I3zJC5J5B2feQxDWB+lSgWA+KNRgg4kpAbAilYWwQZmBgxMAp4Y5gXJDoxhDiaQ6mYWwQZgWqIhVj2kIYowAAOJcV5Q==');
    
      if FindDTM(TargetDTM, x, y, MSX1, MSY1, MSX2, MSY2) then
      begin
      writeln('Firing at Target!');
        repeat
          if FindDTM(TargetDTM, x, y, MSX1, MSY1, MSX2, MSY2) then
            begin
              MMouse(x,y,7,7);
              ClickMouse2(mouse_left);
              wait(randomrange(2350,2500));
              mouseclickcount := mouseclickcount + 1;
            end;
        if FindDTM(CloseDTM, a, b, MSX1, MSY1, MSX2, MSY2) then
        begin
          MMouse(a,b,5,5);
          ClickMouse2(mouse_left);
          mouseclickcount2 := mouseclickcount2 + 1;
        end;
        until(mouseclickcount2 or mouseclickcount = 10);
          begin
            if FindDTM(TargetDTM, x, y, MSX1, MSY1, MSX2, MSY2) then
              begin
                MMouse(x,y,5,5);
                ClickMouse2(mouse_left);
                ClickMouse2(mouse_left);
                wait(randomrange(200,600));
              end;
          end;
      end
      else
      begin
        FreeDTM(TargetDTM);
        writeln('Unable to find Target... Trying again...');
        Fire_Target;
      end;
      competitionsplayedcount := competitionsplayedcount + 1;
      writeln('Competitions Played:' + IntToStr(competitionsplayedcount) +'!');
      FreeDTM(TargetDTM);
      FreeDTM(CloseDTM);
    end;
    
    begin
    SetupP07Include;
    ActivateClient;
    ClearDebug;
    Wait(1000);
    If (Not P07_LoggedIn) then
    begin
      P07_LogInPlayer;
    end;
    repeat
    Open_Inv_Tab;
    Start_Comp;
    Click_to_Continue;
    Wield_Arrow;
    Fire_Target;
    until(competitionsplayedcount = 3);
      begin
      writeln('Number of Competitions completed!');
      writeln('Logging out...');
      MMouse(644,483,5,5);
      ClickMouse2(mouse_left);
      wait(randomrange(500,1500));
      MMouse(633,378,5,5);
      ClickMouse2(mouse_left);
      end;
    TerminateScript;
    end.
    You must add Smart

  13. #13
    Join Date
    Apr 2013
    Posts
    14
    Mentioned
    0 Post(s)
    Quoted
    9 Post(s)

    Default

    Quote Originally Posted by SRLKing View Post
    You must add Smart
    Your so smart man, ok so i put smart then i got error again from above so then i added the 8 like you said but i just got another error?


    Code:
    [Error] C:\Simba\Includes\SRL\SRL\misc\SmartParams.Simba(78:8): Unknown identifier 'RSReady' at line 77
    Compiling failed.
    Code:
    If RSReady then

  14. #14
    Join Date
    Jun 2012
    Location
    Howell, Michigan
    Posts
    1,585
    Mentioned
    34 Post(s)
    Quoted
    553 Post(s)

    Default

    Quote Originally Posted by stephensking View Post
    Your so smart man, ok so i put smart then i got error again from above so then i added the 8 like you said but i just got another error?


    Code:
    [Error] C:\Simba\Includes\SRL\SRL\misc\SmartParams.Simba(78:8): Unknown identifier 'RSReady' at line 77
    Compiling failed.
    Code:
    If RSReady then
    The script you are using doesnt support smart :P

    Delete the smart portions, then grab the green crosshairs and pull them over the client :P

  15. #15
    Join Date
    Apr 2013
    Posts
    14
    Mentioned
    0 Post(s)
    Quoted
    9 Post(s)

    Default

    Quote Originally Posted by SRLKing View Post
    The script you are using doesnt support smart :P

    Delete the smart portions, then grab the green crosshairs and pull them over the client :P
    i spent past 5 minutes trying to get client... ? it only gets desktop?
    Attached Images Attached Images

  16. #16
    Join Date
    Jun 2012
    Location
    Howell, Michigan
    Posts
    1,585
    Mentioned
    34 Post(s)
    Quoted
    553 Post(s)

    Default

    Quote Originally Posted by stephensking View Post
    i spent past 5 minutes trying to get client... ? it only gets desktop?
    You are on a MAC, I dont know how to fix that >.<

    @Flight You know how to make simba work on mac?

  17. #17
    Join Date
    Apr 2013
    Posts
    14
    Mentioned
    0 Post(s)
    Quoted
    9 Post(s)

    Default

    ive read this ,but it Messed me up even more?... lol

    http://villavu.com/forum/showthread.php?t=78004

  18. #18
    Join Date
    Aug 2007
    Location
    Colorado
    Posts
    7,421
    Mentioned
    268 Post(s)
    Quoted
    1442 Post(s)

    Default

    Quote Originally Posted by SRLKing View Post
    You are on a MAC, I dont know how to fix that >.<

    @Flight You know how to make simba work on mac?
    I'm afraid I don't know anything about MACs let alone how to set up Simba on one. I could have sworn we had tutorials for such a thing though...

    Current projects:
    [ AeroGuardians (GotR minigame), Motherlode Miner, Blast furnace ]

    "I won't fall in your gravity. Open your eyes,
    you're the Earth and I'm the sky..."


  19. #19
    Join Date
    Jun 2012
    Location
    Howell, Michigan
    Posts
    1,585
    Mentioned
    34 Post(s)
    Quoted
    553 Post(s)

    Default

    Look around for a Tut then!

  20. #20
    Join Date
    Apr 2013
    Posts
    14
    Mentioned
    0 Post(s)
    Quoted
    9 Post(s)

    Default

    Quote Originally Posted by Flight View Post
    I'm afraid I don't know anything about MACs let alone how to set up Simba on one. I could have sworn we had tutorials for such a thing though...
    its working and all but it wont get crosshairs to client it just goes full desktop

  21. #21
    Join Date
    Jun 2012
    Location
    Howell, Michigan
    Posts
    1,585
    Mentioned
    34 Post(s)
    Quoted
    553 Post(s)

    Default

    Quote Originally Posted by stephensking View Post
    its working and all but it wont get crosshairs to client it just goes full desktop
    I think another user had that issue, look around the forums :P

  22. #22
    Join Date
    Apr 2013
    Posts
    14
    Mentioned
    0 Post(s)
    Quoted
    9 Post(s)

    Default

    Quote Originally Posted by SRLKing View Post
    I think another user had that issue, look around the forums :P
    ive been looking for 10 min.. yeah... no... lmfao.
    ive only seen this http://villavu.com/forum/showthread.php?t=78004
    i dont get it at all & i dont think thatd work but i dont know?
    u know u kno anyone that works with mac? lol

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
  •