Results 1 to 12 of 12

Thread: Mouse Speed Weirdness? (w/ Virtual Machine)

  1. #1
    Join Date
    Mar 2010
    Posts
    119
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Mouse Speed Weirdness? (w/ Virtual Machine)

    I use default mouse speed settings and it works fine. I copy the same SCAR + SRL folder over to a virtual machine (still presumably under default mouse speed settings) and the mouse inside moves quite a lot slower. Can someone explain what's happening and what I should do? Thanks.
    Wow. I've been gone a very long time indeed. So much has changed.

  2. #2
    Join Date
    Feb 2006
    Location
    Tracy/Davis, California
    Posts
    12,631
    Mentioned
    135 Post(s)
    Quoted
    418 Post(s)

    Default

    Make 100% sure you setup scar/SRL correctly in the VM.
    Also, check the mouse settings of the VM itself maybe, and make the mouse speed higher on whatever OS you are using.

    Also, why use a VM? Why not just use SCAR/SMART (you can minimize SMART while SCAR autos)

  3. #3
    Join Date
    Mar 2010
    Posts
    119
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Uh, I copy pasted the SCAR folder from my Windows install.
    The VM was installed off the same disc in the same way and I don't think I changed any configurations.
    Does the OS's settings for mouse speed affect the mouse speed SCAR?
    I'm using a VM to auto while working in Linux without touching Wine because I'm familiar with them and not Wine.
    The only difference I can think of is that the VM runs at a slightly different resolution. But RS is fixed size on each.
    Last edited by ForgotMyName; 05-11-2010 at 05:51 AM.
    Wow. I've been gone a very long time indeed. So much has changed.

  4. #4
    Join Date
    Jan 2008
    Location
    10° north of Hell
    Posts
    2,035
    Mentioned
    65 Post(s)
    Quoted
    164 Post(s)

    Default

    Quote Originally Posted by ForgotMyName View Post
    Uh, I copy pasted the SCAR folder from my Windows install.
    The VM was installed off the same disc in the same way and I don't think I changed any configurations.
    Does the OS's settings for mouse speed affect the mouse speed SCAR?
    I'm using a VM to auto while working in Linux without touching Wine because I'm familiar with them and not Wine.
    The only difference I can think of is that the VM runs at a slightly different resolution. But RS is fixed size on each.
    Does the script SetupSRL;?

    Dg's Small Procedures | IRC Quotes
    Thank Wishlah for my nice new avatar!
    Quote Originally Posted by IRC
    [22:12:05] <Dgby714> Im agnostic
    [22:12:36] <Blumblebee> :O ...you can read minds

  5. #5
    Join Date
    Feb 2006
    Posts
    3,044
    Mentioned
    4 Post(s)
    Quoted
    21 Post(s)

    Default

    Yeah, it it doesn't have SetupSRL; in it it will affect the Mousespeed, please post script, if you still get problems

    ~Home

  6. #6
    Join Date
    Feb 2006
    Location
    Tracy/Davis, California
    Posts
    12,631
    Mentioned
    135 Post(s)
    Quoted
    418 Post(s)

    Default

    Yeah, I was also going to say that. I was just assuming you were using the same script that you used on your normal OS on the VM too, but not having SetupSRL called in the script makes the mouse move slow.

    Edit:
    Why not just take a few minutes to learn how to setup SCAR/SRL on WINE in linx, it would take up a lot less ram and allow you to run more (if you want to run multiple SMARTs), but if you have enough computing power to run linux/VM/SMART then go right on ahead!

  7. #7
    Join Date
    Mar 2010
    Posts
    119
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    The script isn't even SMART enabled. Right now I'm going through a busy time, so I'll stick with what I know, and save learning SMART / Wine / whatever for summer vacation.

    The script is a draft of a Soul Wars herblore thing. In case it matters, here's a copy. I should reemphasize, the difference comes from the exact same script being run in two different environments.

    Oh, and it's buggy. But that's a different story.

    program SWHerby;
    {.include SRL\SRL.scar}

    var
    LoadsDone, WaitTimer: Integer;

    const
    LoadsToDo = 1000;

    function sFindObjTPA(var X, Y: Integer; Color, Tol, CTS, ObjWidth, ObjHeight, minCount: Integer; UpText: TStringArray): Boolean;
    var
    I, tCTS: Integer;
    myPoint: TPoint;
    Points: TPointArray;
    aPoints: T2DPointArray;
    begin
    Result := False;
    if not LoggedIn then exit;
    ColorToleranceSpeed(2);
    SetColorSpeed2Modifiers(0.07, 0.44);
    FindColorsSpiralTolerance(X, Y, Points, Color, MSX1, MSY1, MSX2, MSY2, Tol);
    if Length(Points) = 0 then
    begin
    ColorToleranceSpeed(1);
    SetColorSpeed2Modifiers(0.02, 0.02);
    Exit;
    end;
    ColorToleranceSpeed(1);
    SetColorSpeed2Modifiers(0.02, 0.02);
    aPoints := TPAtoATPAEx(Points, ObjWidth, ObjHeight);
    SetLength(Points, 0);
    for I := 0 to High(aPoints) do
    begin
    if Length(aPoints[i]) < minCount then
    Continue;
    myPoint := MiddleTPA(aPoints[i]);
    MMouse(myPoint.X, myPoint.Y, 4, 6);
    if WaitUpTextMulti(UpText, 300) then
    begin
    GetMousePos(X, Y);
    Result := True;
    ColorToleranceSpeed(1);
    SetColorSpeed2Modifiers(0.02, 0.02);
    Exit;
    end;
    end;
    ColorToleranceSpeed(1);
    SetColorSpeed2Modifiers(0.02, 0.02);
    end;

    function FindBankChest: boolean;
    var
    x, y: integer;
    begin
    if BankScreen then
    begin
    result := true;
    Exit;
    end;

    if IsUpTextMultiCustom(['chest', 'ank']) then
    begin
    result := true;
    wait(100 + random(100));
    GetMousePos(x, y);
    Mouse(x, y, 0, 0, true);
    exit;
    end;

    Wait(100 + Random(100));
    if not IsUpTextMultiCustom(['chest', 'ank']) then
    begin
    x := MSCX;
    y := MSCY - 100;

    if sFindObjTPA(x, y, 11053497, 21, 2, 32, 35, 3, ['chest', 'ank']) then
    begin
    Result := true;
    GetMousePos(x, y);
    Mouse(x, y, 0, 0, true);
    end;
    end;
    end;

    procedure WaitRandomAntiban(time: Integer);
    begin
    MarkTime(WaitTimer);
    repeat
    case Random(50) of
    1: SleepAndMoveMouse(500 + Random(1000));
    2: HoverSkill('herblore', false);
    3: SleepAndMoveMouse(1000 + Random(1000));
    4: GameTab(tab_Friends);
    5: GameTab(tab_Stats);
    6: SleepAndMoveMouse(1500 + Random(1000));
    7: SleepAndMoveMouse(2000 + Random(1000));
    8: SleepAndMoveMouse(1000 + Random(1000));
    9: SleepAndMoveMouse(1000 + Random(1000));
    else
    Wait(1000 + Random(1000));
    end;
    until TimeFromMark(WaitTimer) > time;
    end;

    procedure UnfToPots;
    begin
    GameTab(tab_Inv);
    Wait(500 + Random(100));
    MouseItem(1 + Random(13), true);
    Wait(500 + Random(100));
    MouseItem(28 - Random(13), true);
    Wait(1000 + Random(100));
    Mouse(255, 420, 5, 5, false);
    Wait(1000 + Random(100));
    ChooseOption('Make All');
    WaitRandomAntiban(18000 + Random(1000));
    ClickContinue(true, true);
    Wait(500 + Random(100));
    end;

    procedure DoBank;
    begin
    Wait(1000 + Random(100));
    if not FindBankChest then begin
    Wait(1000 + Random(100));
    if not FindBankChest then begin
    LogOut;
    TerminateScript;
    end;
    end;
    Wait(1000 + Random(100));
    if not BankScreen then begin
    LogOut;
    TerminateScript;
    end;
    Wait(1000 + Random(100));
    DepositAll;
    Wait(500 + Random(100));
    DepositAll;
    Wait(500 + Random(100));
    Withdraw(0, 0, 14);
    Wait(500 + Random(100));
    Withdraw(1, 0, 14);
    Wait(500 + Random(100));
    CloseBank;
    Wait(500 + Random(100));
    end;

    procedure Initialize;
    begin
    SetupSRL();
    ActivateClient();
    LoadsDone := 0;
    end;

    begin
    Initialize;
    repeat
    DoBank;
    UnfToPots;
    LoadsDone := LoadsDone + 1;
    until LoadsDone >= LoadsToDo;
    LogOut;
    end.
    Wow. I've been gone a very long time indeed. So much has changed.

  8. #8
    Join Date
    Feb 2006
    Location
    Tracy/Davis, California
    Posts
    12,631
    Mentioned
    135 Post(s)
    Quoted
    418 Post(s)

    Default

    Maybe change
    SetupSRL();
    to
    SetupSRL;

  9. #9
    Join Date
    Jan 2008
    Location
    10° north of Hell
    Posts
    2,035
    Mentioned
    65 Post(s)
    Quoted
    164 Post(s)

    Default

    Quote Originally Posted by YoHoJo View Post
    Maybe change
    SetupSRL();
    to
    SetupSRL;
    And read a standards guide?

    Dg's Small Procedures | IRC Quotes
    Thank Wishlah for my nice new avatar!
    Quote Originally Posted by IRC
    [22:12:05] <Dgby714> Im agnostic
    [22:12:36] <Blumblebee> :O ...you can read minds

  10. #10
    Join Date
    Mar 2010
    Posts
    119
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Meh, it's for personal use. I don't really care about what conventions other people use when it comes to something that isn't meant to be publicized. I don't think the choice of syntax has anything to do with this issue.
    Wow. I've been gone a very long time indeed. So much has changed.

  11. #11
    Join Date
    Jan 2008
    Location
    10° north of Hell
    Posts
    2,035
    Mentioned
    65 Post(s)
    Quoted
    164 Post(s)

    Default

    Went thru it in gedit didnt notice anything wrong that would change how the mouse acted >.>

    ForgotMyName: "[ code][ /code]" scripts dont quote.

    i did make a few modifications...

    SCAR Code:
    program SWHerby;
    {.include SRL\SRL.scar}

    var
      LoadsDone, WaitTimer: Integer;

    const
      LoadsToDo = 1000;

    function sFindObjTPA(var X, Y: Integer; Color, Tol, CTS, ObjWidth, ObjHeight, minCount: Integer; UpText: TStringArray): Boolean;
    var
      I, tCTS: Integer;
      myPoint: TPoint;
      Points: TPointArray;
      aPoints: T2DPointArray;
    begin
      Result := False;
      if (not (LoggedIn)) then
        Exit;

      tCTS := GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
      SetColorSpeed2Modifiers(0.07, 0.44);
      try
        FindColorsSpiralTolerance(X, Y, Points, Color, MSX1, MSY1, MSX2, MSY2, Tol);

        if Length(Points) = 0 then
          Exit;

        aPoints := TPAtoATPAEx(Points, ObjWidth, ObjHeight);
        SetLength(Points, 0);

        for I := 0 to High(aPoints) do
        begin
          if Length(aPoints[i]) < minCount then
            Continue;
          myPoint := MiddleTPA(aPoints[i]);
          MMouse(myPoint.X, myPoint.Y, 4, 6);
          if WaitUpTextMulti(UpText, 300) then
          begin
            GetMousePos(X, Y);
            Result := True;
            Exit;
          end;
        end;
      finally
        ColorToleranceSpeed(tCTS);
        SetColorSpeed2Modifiers(0.02, 0.02);
      end;
    end;

    function FindBankChest: boolean;
    var
      x, y, Tries: integer;
    begin
      if BankScreen then
      begin
        Result := True;
        Exit;
      end;

      if IsUpTextMultiCustom(['chest', 'ank']) then
      begin
        Wait(100 + Random(100));
        GetMousePos(x, y);
        Mouse(x, y, 0, 0, true);
        Tries := 0;
        repeat
          if BankScreen then
            Result := True;
          Wait(500 + Random(100));
          Inc(Tries);
        until(Result or (Tries >= 30));
        if Result then
          Exit;
      end;

      Wait(100 + Random(100));

      if (not (IsUpTextMultiCustom(['chest', 'ank']))) then
      begin
        x := MSCX;
        y := MSCY - 100;

        if sFindObjTPA(x, y, 11053497, 21, 2, 32, 35, 3, ['chest', 'ank']) then
        begin
          Result := true;
          GetMousePos(x, y);
          Mouse(x, y, 0, 0, true);
          Tries := 0;
          repeat
            if BankScreen then
              Result := True;
            Wait(500 + Random(100));
            Inc(Tries);
          until(Result or (Tries >= 30));
        end;
      end;
    end;

    procedure WaitRandomAntiban(time: Integer);
    begin
      MarkTime(WaitTimer);
      repeat
        case Random(50) of
          1: SleepAndMoveMouse(500 + Random(1000));
          2: HoverSkill('herblore', false);
          3: SleepAndMoveMouse(1000 + Random(1000));
          4: GameTab(tab_Friends);
          5: GameTab(tab_Stats);
          6: SleepAndMoveMouse(1500 + Random(1000));
          7: SleepAndMoveMouse(2000 + Random(1000));
          8: SleepAndMoveMouse(1000 + Random(1000));
          9: SleepAndMoveMouse(1000 + Random(1000));
          else
            Wait(1000 + Random(1000));
        end;
      until(TimeFromMark(WaitTimer) > time);
    end;

    procedure UnfToPots;
    begin
      GameTab(tab_Inv);
      Wait(500 + Random(100));
      MouseItem(1 + Random(13), true);
      Wait(500 + Random(100));
      MouseItem(28 - Random(13), true);
      Wait(1000 + Random(100));
      Mouse(255, 420, 5, 5, false);
      Wait(1000 + Random(100));
      ChooseOption('Make All');
      WaitRandomAntiban(18000 + Random(1000));
      ClickContinue(true, true);
      Wait(500 + Random(100));
    end;

    procedure DoBank;
    begin
      Wait(1000 + Random(100));
      if (not (FindBankChest)) then
      begin
        Wait(1000 + Random(100));
        if (not (FindBankChest)) then
        begin
          LogOut;
          TerminateScript;
        end;
      end;
      Wait(1000 + Random(100));
      if (not (BankScreen)) then
      begin
        LogOut;
        TerminateScript;
      end;
      Wait(1000 + Random(100));
      DepositAll;
      Wait(500 + Random(100));
      DepositAll;
      Wait(500 + Random(100));
      Withdraw(0, 0, 14);
      Wait(500 + Random(100));
      Withdraw(1, 0, 14);
      Wait(500 + Random(100));
      CloseBank;
      Wait(500 + Random(100));
    end;

    procedure Initialize;
    begin
      SetupSRL;
      ActivateClient;
      LoadsDone := 0;
    end;

    begin
      Initialize;
      repeat
        DoBank;
        UnfToPots;
        LoadsDone := LoadsDone + 1;
      until(LoadsDone >= LoadsToDo);
      LogOut;
    end.
    Last edited by Dgby714; 05-12-2010 at 03:25 AM.

    Dg's Small Procedures | IRC Quotes
    Thank Wishlah for my nice new avatar!
    Quote Originally Posted by IRC
    [22:12:05] <Dgby714> Im agnostic
    [22:12:36] <Blumblebee> :O ...you can read minds

  12. #12
    Join Date
    Feb 2007
    Location
    Alberta,Canada
    Posts
    2,358
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I always do setUpSRL(); lol it works just fine
    “Ignorance, the root and the stem of every evil.”

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
  •