Results 1 to 2 of 2

Thread: First Scripts

  1. #1
    Join Date
    Jun 2007
    Posts
    8
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default First Scripts

    Well, I have decided to try my hand at scar scripting.
    These scripts are very basic, so I didn't want to post them in the scripts section.

    i decided to post them here and ask for comments / criticism.

    In case anybody wants them, I will include an attachment.

    Anyways, without further ado.

    (Posting in order that I made them)

    AutoLogin By: Gumby
    First useful script I've written.
    Pretty simple
    SCAR Code:
    program AutoLogin;
    //By: Gumby
    //Be sure to drag the crosshair onto the RS window.

    Const
    Username= 'Zezima'; //Enter RuneScape username here
    Password= 'iwanktogayporn'; //Enter RuneScape Password here

    procedure WaitASec;
    begin
     Wait(200+random(50));
    end;

    begin
    MoveMouseSmooth(488,293);
     WaitASec;
    ClickMouse(488,293,true);
     WaitASec;
      SendKeys(Username);
     WaitASec;
      SendKeys(chr(13));
     WaitASec;
      SendKeys(Password);
     WaitASec;
    MoveMouseSmooth(292,319);
     WaitASec;
    ClickMouse(292,319,true);
    end.

    AutoTalker By: Gumby
    Another basic one.
    My first time using constants
    SCAR Code:
    program AutoTalker;
    //By: Gumby
    //Make sure you are in the RuneScape window
    //Press Ctrl+Alt+R to run
    //Press Ctrl+Alt+S to stop

    const
    Howlong=(2000); //Set how long you want the intervals
                    //to be in milliseconds (2000-4000 is usally good)

    WriteThis='Testing123';//Enter what you want SCAR to type here.

    procedure WaitASec;
    begin
     Wait(Howlong);
     Wait(10+random(100));
    end;

    begin
    repeat;
     WaitASec;
      SendKeys(WriteThis);
     Wait(100+random(10));
      SendKeys(chr(13));
    until(false);

    end.

    AutoDropper By: Gumby
    This one was a bit more complicated.
    I'm sure there's an easier way to do this, but I dunno how
    Very proud of myself for figuring out how to tell the script how many items not to drop.
    SCAR Code:
    program AutoDropper;
    //By: Gumby
    //Used for dropping things such as logs, ores, or fish
    //Cannot Drop Things with more then 4 options (drop,examine,use,cancel)
    //So no weapons, armor, and unfortunatley, cooked food

    //Make sure you drag the crosshair onto the RuneScape Window

    //I didn't randomize the co-ordinates at all, but that
    //shouldn't matter too much.

    //Go to Line 15 for setup

    var
    DoNotDrop:Integer;

    procedure WaitASec;
    begin
     Wait(100+random(45));
    end;

    procedure TopDrop;
    begin
    DoNotDrop:=1; //Set 1-4 here to indicate how many items not to drop
    begin
    if (DoNotDrop=4) then
    begin
      Writeln('Dropping Complete');
    end else
    MoveMouseSmooth(711,230);
     WaitASec;
    ClickMouse(711,230,false);
     WaitASec;
    MoveMouseSmooth(683,265);
     WaitASec;
    ClickMouse(683,265,true);
    WaitASec;
    if (DoNotDrop=3) then
    begin
     Writeln('Dropping Complete');
    end else
    MoveMouseSmooth(670,228);
     WaitASec;
    ClickMouse(670,228,false);
     WaitASec;
    MoveMouseSMooth(633,269);
     WaitASec;
    ClickMouse(633,269,true);
     WaitASec;
    if (DoNotDrop=2) then
    begin
      Writeln('Dropping Complete');
    end else
    MoveMouseSmooth(626,227);
     WaitASec;
    ClickMouse(626,227,false);
     WaitASec;
    MoveMouseSmooth(610,266);
     WaitASec;
    ClickMouse(610,266,true);
     WaitASec;
      Writeln('Dropping Complete');
    end;
    end;

    procedure BulkDrop;
    begin
    //Row 1
    MoveMouseSmooth(710,443);
     WaitASec;
    ClickMouse(710,443,false);
     WaitASec;
    MoveMouseSmooth(706,462);
     WaitASec;
    ClickMouse(706,462,true);
     WaitASec;
    MoveMouseSmooth(666,443);
     WaitASec;
    ClickMouse(666,433,false);
     WaitASec;
    MoveMouseSmooth(642,463);
     WaitASec;
    ClickMouse(642,463,true);
     WaitASec;
    MoveMouseSmooth(626,444);
     WaitASec;
    ClickMouse(626,444,false);
     WaitASec;
    MoveMouseSmooth(622,461);
     WaitASec;
    ClickMouse(622,461,true);
     WaitASec;
    MoveMouseSmooth(582,455);
     WaitASec;
    ClickMouse(582,455,false);
     WaitASec;
    MoveMouseSmooth(563,463);
     WaitASec;
    ClickMouse(563,463,true);
     WaitASec;
    //Row 2
    MoveMouseSmooth(714,407);
     WaitASec;
    ClickMouse(714,407,false);
     WaitASec;
    MoveMouseSmooth(668,448);
     WaitASec;
    ClickMouse(668,448,true);
     WaitASec;
    MoveMouseSmooth(666,410);
     WaitASec;
    ClickMouse(666,410,false);
     WaitASec;
    MovemouseSmooth(631,445);
     WaitASec;
    ClickMouse(631,445,true);
     WaitASec;
    MoveMouseSmooth(624,410);
     WaitASec;
    ClickMouse(624,410,false);
     WaitASec;
    MoveMouseSmooth(593,451);
     WaitASec;
    ClickMouse(593,451,true);
     WaitASec;
    MoveMouseSmooth(583,405);
     WaitASec;
    Clickmouse(583,405,false);
     WaitASec;
    MoveMouseSmooth(534,442);
     WaitASec;
    Clickmouse(534,443,true);
     WaitASec;
    //Row 3
    MoveMouseSmooth(710,374);
     WaitASec;
    ClickMouse(710,374,false);
     WaitASec;
    MoveMouseSmooth(668,416);
     WaitASec;
    ClickMouse(668,416,true);
     WaitASec;
    MoveMouseSmooth(667,374);
     WaitASec;
    ClickMouse(667,374,false);
     WaitASec;
    MoveMouseSmooth(631,410);
     WaitASec;
    Clickmouse(631,410,true);
     WaitASec;
    MoveMouseSmooth(625,372);
     WaitASec;
    Clickmouse(625,372,false);
     WaitASec;
    MoveMouseSmooth(601,414);
     WaitASec;
    ClickMouse(601,414,true);
     WaitASec;
    MoveMouseSMooth(584,372);
     WaitASec;
    ClickMouse(584,372,false);
     WaitASec;
    MoveMouseSmooth(567,411);
     WaitASec;
    ClickMouse(567,411,true);
     WaitASec;
    //Row 4
    MoveMouseSmooth(711,337);
     WaitASec;
    ClickMouse(711,337,false);
     WaitASec;
    MoveMouseSmooth(675,373);
     WaitASec;
    ClickMouse(675,373,true);
     WaitASec;
    MoveMouseSmooth(666,333);
     WaitASec;
    ClickMouse(666,333,false);
     WaitASec;
    MoveMouseSmooth(641,375);
     WaitASec;
    ClickMouse(641,375,true);
     WaitASec;
    MoveMouseSmooth(625,337);
     WaitASec;
    ClickMouse(625,337,false);
     WaitASec;
    MoveMouseSmooth(591,375);
     WaitASec;
    ClickMouse(591,375,true);
     WaitASec;
    MoveMouseSmooth(585,340);
     WaitASec;
    ClickMouse(585,340,false);
     WaitASec;
    MoveMouseSmooth(568,375);
     WaitASec;
    ClickMouse(568,375,true);
     WaitASec;
    //Row 5
    MoveMouseSmooth(710,303);
     WaitASec;
    ClickMouse(710,303,false);
     WaitASec;
    MoveMouseSmooth(672,346);
     WaitASec;
    ClickMouse(672,346,true);
     WaitASec;
    MoveMouseSmooth(667,298);
     WaitASec;
    ClickMouse(667,298,false);
     WaitASec;
    MoveMouseSmooth(640,345);
     WaitASec;
    ClickMouse(640,345,true);
     WaitASec;
    MoveMouseSmooth(629,302);
     WaitASec;
    ClickMouse(629,302,false);
     WaitASec;
    MoveMouseSmooth(584,340);
     WaitASec;
    ClickMouse(584,340,true);
     WaitASec;
    MoveMouseSMooth(584,302);
     WaitASec;
    ClickMouse(584,302,false);
     WaitASec;
    MoveMouseSmooth(579,343);
     WaitASec;
    ClickMouse(579,343,true);
     WaitASec;
    //Row 6
    MoveMouseSmooth(710,266);
     WaitASec;
    ClickMouse(710,266,false);
     WaitASec;
    MoveMouseSmooth(681,304);
     WaitASec;
    ClickMouse(681,304,true);
     WaitASec;
    MoveMouseSmooth(670,267);
     WaitASec;
    ClickMouse(670,267,false);
     WaitASec;
    MoveMouseSmooth(630,310);
     WaitASec;
    ClickMouse(630,310,true);
     WaitASec;
    MoveMouseSmooth(624,268);
     WaitASec;
    ClickMouse(624,268,false);
     WaitASec;
    MoveMouseSmooth(590,309);
     WaitASec;
    ClickMouse(590,309,true);
     WaitASec;
    MoveMouseSmooth(585,264);
     WaitASec;
    ClickMouse(585,264,false);
     WaitASec;
    MoveMouseSmooth(583,301);
     WaitASec;
    ClickMouse(583,301,true);
     WaitASec;
    end;

    begin
    BulkDrop;
    TopDrop;
    end.

    AutoTeleport By:Gumby
    Had a difficult time setting up the counter but finally figured it out
    Alot of 'if' 'then' 'else' in this one.
    SCAR Code:
    program AutoTeleport;
    //By: Gumby
    //Be sure to drag the crosshair to the RS Window
    //Be sure to have your magic page open
    //No AntiRandoms do not leave running for long periods
    //of time

    var
    tel,num,c: Integer;

    procedure WaitASec;
    begin
     wait(200+random(50));
    end;

    procedure Teleport;
    begin
    tel:=5 //Set 1-5 here to indicate if you want to teleport to:
            //1. Varrok
            //2. Lumbridge
            //3. Falador
            //4. House
            //5. Camelot
            //Default is 5
    num:=100//Number of teleports you want to do

    c:=0    //Do Not Touch

    begin
    if (tel=1) then
    begin
    repeat
    MoveMouseSmooth(600,287);
     WaitASec;
    ClickMouseSpline(600,287,7,7,true);
     Wait(1500+random(100));
    c:=c+1;
    until(c=(num));
    end else
      Writeln('Teleported to Varrok');
    if (tel=2) then
    begin
    repeat
    MoveMouseSmooth(673,286);
     WaitASec;
    ClickMouseSpline(673,286,7,7,true);
     Wait(1500+random(100));
    c:=c+1;
    until(c=(num));
    end else
      Writeln('Teleported to Lumbridge');
    if (tel=3) then
    begin
    repeat
    MoveMouseSmooth(573,311);
     WaitASec;
    ClickMouseSpline(573,311,7,7,true);
     Wait(1500+random(100));
    c:=c+1;
    until(c=(num));
    end else
      Writeln('Teleported to Falador');
    if (tel=4) then
    begin
    repeat
    MoveMouseSmooth(625,313);
     WaitASec;
    ClickMouseSpline(625,313,7,7,true);
     Wait(1500+random(100));
    c:=c+1;
    until(c=(num));
    end else
      Writeln('Teleported to House')
    if (tel=5) then
    begin
    repeat
    MoveMouseSmooth(696,311);
     WaitASec;
    ClickMouseSpline(696,311,7,7,true);
     Wait(1500+random(100));
    c:=c+1;
    until(c=(num));
     Writeln('Teleported to Camelot');
    end;
    end;
    end;


    begin
    Teleport;
    end.

    AutoAlcher By: Gumby
    Last one I made today.
    Fairly easy compared to the others.
    Decided to try out new mouse commands for randomizing.
    SCAR Code:
    program AutoAlcher;
    //By: Gumby
    //Be sure to drag the crosshair onto the RS window
    //No AntiRandoms, do not leave running for long periods
    //of time
    //Set The Items you want to Alch directly behind the High-Alch Spell
    //Start with your inventory open
    //Setup on line 20

    var
    num,c: Integer;

    procedure WaitASec;
    begin
     Wait(200+random(100));
    end;

    procedure Alching;
    begin
    num:= 7 //Set how many items you want to alch
    c:= 0     //Do Not Touch
    begin
    MoveMouseSpline(739,188,7,7);
     WaitASec;
    ClickMouseSpline(739,188,7,7,true);
     WaitASec;
    repeat
    MoveMouseSpline(718,332,7,7);
     WaitASec;
    ClickMouseSpline(718,332,7,7,true);
     WaitASec;
    ClickMouseSpline(718,332,7,7,true);
     Wait(1500+random(100));
    c:=c+1
    until(c=(num));

    end;
    end;

    begin
    Alching;
    end.

    And there you have it.
    My first stab at Scar scripting.

    ~Gumby

    EDIT: Big thanks to WhoCares for his great scripting guides.

  2. #2
    Join Date
    May 2007
    Location
    Canada
    Posts
    261
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Well, you didn't use the SRL include in your scripts...and you used "SendKeys" "MoveMouseSmooth" "ClickMouse" ect..Those are all very detectable because they are very in-human like. Instead of "Sendkeys" use "TypeSend" and instead of "MoveMouseSmooth" "ClickMouse" use "Mouse". Check out how they work in the SRL manual or post here for help.
    Good job for your first scripts though...try not to use coordinates as much though, try using either colors or bitmaps to find the coordinates.
    BTW, for the auto dropper, you could have just done
    SCAR Code:
    program Drop;
    {.include SRL/SRL.scar}
     
    begin
      DropAll; //or DropTo(1,28); Drops items from slot #1 to #28
    end.
    ^ The magic of the SRL include
    I hope I made sense...
    On vacation from July 2nd till middle of August


    Account Creator and Tutorial Island Runner (member | public) Errors fixed


    Check out my Complete forms tutorial. It will teach you everything you need to know about forms.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Add ranging to chicken killing scripts, or the cow killing scripts
    By canu44 in forum RS3 Outdated / Broken Scripts
    Replies: 0
    Last Post: 12-18-2007, 07:37 AM

Posting Permissions

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