Results 1 to 11 of 11

Thread: need piece of script

  1. #1
    Join Date
    Aug 2007
    Posts
    140
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    need piece of script

    all I want is the piece of script to auto take a screenie. And no im not a leecher. Read this if you think i'm leeching. http://www.villavu.com/forum/showthread.php?t=16020
    I am using this to get pix for my render pack as well as help me understand scar better. If you could give me the script with descriptions of what each function does that would be great.

  2. #2
    Join Date
    Sep 2006
    Location
    New Jersey, USA
    Posts
    5,347
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    SCAR Code:
    program Screenshot;
    const
      FilePath = 'C:\screenie.bmp';
    begin
      SaveScreenshot(filepath);
    end.


    Or if you only want a certain window:
    SCAR Code:
    program ScreenshotWindow;
    const
      FilePath = 'C:\screenie.bmp';
    var
      TheBitmap, xsize, ysize: integer;
    begin
      GetClientDimensions(xsize, ysize); //Get the client window size
      TheBitmap := BitmapFromString(xsize, ysize, ''); //Create a bitmap the same size as the bitmap
      CopyCanvas(GetClientCanvas, GetBitmapCanvas(TheBitmap), 1, 1, xsize, ysize, 1, 1, xsize, ysize); //Copy the client's picture to the bitmap we just create
      SaveBitmap(TheBitmap, FilePath); //Save the bitmap
    end.
    Interested in C# and Electrical Engineering? This might interest you.

  3. #3
    Join Date
    Aug 2007
    Posts
    140
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    would you mind adding that to the bottom of this script...
    Code:
    program NEW;
    {.include SRL/SRL.scar}
    begin
    MoveMouseSmooth(479, 294);
    clickmouse(472, 294, True)
    wait(1000);
    SendKeys('username');
    wait(1000);
    movemousesmooth(348, 279);
    clickmouse(386, 270,true);
    wait(1000)
    sendkeys('password');
    wait(1000);
    clickmouse(292, 331,true);
    wait(5000);
    clickmouse(292, 331,true);
    ActivateClient;
    Wait(1000 + Random(500));
    MakeCompass('N');
    KeyDown(VK_Right);
    Wait(450);
    KeyUp(VK_Right);
    end.

  4. #4
    Join Date
    Aug 2007
    Posts
    282
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    lol, are you serious? you can do that

    and if thats for runescape... clickmouse and movemousesmooth are very detectable..

  5. #5
    Join Date
    Aug 2007
    Posts
    140
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    First off, I'm new to scar so I don't know "how to do that".
    And second it doesent matter if its detectable, its a lvl 3 account.

    please help.

  6. #6
    Join Date
    Aug 2007
    Posts
    282
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    which do you want.. the first one that he gave you or the second one he gave you?

    nevermind...

    first:
    SCAR Code:
    program NEW;
    {.include SRL/SRL.scar}
    const
      FilePath = 'C:\screenie.bmp';
    begin
    MoveMouseSmooth(479, 294);
    clickmouse(472, 294, True)
    wait(1000);
    SendKeys('username');
    wait(1000);
    movemousesmooth(348, 279);
    clickmouse(386, 270,true);
    wait(1000)
    sendkeys('password');
    wait(1000);
    clickmouse(292, 331,true);
    wait(5000);
    clickmouse(292, 331,true);
    ActivateClient;
    Wait(1000 + Random(500));
    MakeCompass('N');
    KeyDown(VK_Right);
    Wait(450);
    KeyUp(VK_Right);
    Wait(100);
    SaveScreenshot(filepath);
    end.

    Second:
    SCAR Code:
    program NEW;
    {.include SRL/SRL.scar}
    const
      FilePath = 'C:\screenie.bmp';
    var
      TheBitmap, xsize, ysize: integer;
    begin
    MoveMouseSmooth(479, 294);
    clickmouse(472, 294, True)
    wait(1000);
    SendKeys('username');
    wait(1000);
    movemousesmooth(348, 279);
    clickmouse(386, 270,true);
    wait(1000)
    sendkeys('password');
    wait(1000);
    clickmouse(292, 331,true);
    wait(5000);
    clickmouse(292, 331,true);
    ActivateClient;
    Wait(1000 + Random(500));
    MakeCompass('N');
    KeyDown(VK_Right);
    Wait(450);
    KeyUp(VK_Right);
    Wait(100);
    GetClientDimensions(xsize, ysize); //Get the client window size
    TheBitmap := BitmapFromString(xsize, ysize, ''); //Create a bitmap the same size as the bitmap
    CopyCanvas(GetClientCanvas, GetBitmapCanvas(TheBitmap), 1, 1, xsize, ysize, 1, 1, xsize, ysize); //Copy the client's picture to the bitmap we just create
    SaveBitmap(TheBitmap, FilePath); //Save the bitmap
    end.

  7. #7
    Join Date
    Aug 2007
    Posts
    140
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ok, now that I have expelled the human part of the problem from the problem by using a bot. Now all i have to do is figure out a way to get all the same zoom on all the photos.

  8. #8
    Join Date
    Aug 2007
    Posts
    282
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    the same zoom? if you mean the height of the camera.. (that moves using up and down arrows)

    use: HighestAngle;

  9. #9
    Join Date
    Aug 2007
    Posts
    140
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    no i meant that when you move one square north, it changes your view of the whole screen. such as when you are looking at a building from far off you see mostly the side, and when you are right up next to it you mostly see the top. try taking 3 pictures of something from runescape and piecing them together and you'll see what i mean. It's not a problem easily fixed.

  10. #10
    Join Date
    Jun 2007
    Location
    La Mirada, CA
    Posts
    2,484
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    highestangle doesnt work anymore its not a function, also you should care if its detectable cuz they could ip ban you so you could use any of your chars from your comp

    "Failure is the opportunity to begin again more intelligently" (Henry Ford)


  11. #11
    Join Date
    Aug 2007
    Posts
    282
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    {*******************************************************************************
    procedure HighestAngle;
    By: Starblaster100
    Description: Makes the Screen at the higest angle it can be - For use after logging in.
    *******************************************************************************}


    procedure HighestAngle;
    begin
      if (LoggedIn) then
      begin
        KeyDown(38);
        Sleep(1000 + Random(100) + Random(200));
        KeyUp(38);
        Wait(1000 + Random(100));
      end;
    end;

    it isnt?? i have SRL 4 and its in there for me.. bottom of mapwalk

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Hermpie's banking proc's and Func's makes banking a piece of a cake!
    By ShowerThoughts in forum Research & Development Lounge
    Replies: 13
    Last Post: 06-11-2008, 03:16 PM

Posting Permissions

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