Results 1 to 2 of 2

Thread: Hello SRL Forums

  1. #1
    Join Date
    Sep 2006
    Posts
    30
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Hello SRL Forums

    Hello, I actually joined awhile back, but I started posting recently, to learn more about SCAR, I think I might want to learn how to make scripts, I have absolutly no programing skills, I attempted to learn as many terms in scar as I could, went and made a script with all of them in the past 3 days I learned, like acouple hours a day I would try and read tutorials and experiment (so you can imagine I havn't been doing it that long), I made this Script that I'm sure has many mistakes in it :P. If anyone is willing to have a laugh take a look:

    SCAR Code:
    Program new;
    {.include SRL/SRL/Misc/Smart.scar}
    {.include srl/srl.scar}

    Var
    x,y:integer;

    Const
    LoadsPerPlayer = 10000;
    RockColor1 = '11111';
    RockColor2 = '11111';


    procedure DeclarePlayers;
    begin
    SetupPlayers;

    Players[0].Name := 'username';
    Players[0].Pass := 'password';
    Players[0].Nick := 'nick';
    Players[0].Active := True;

    LoadPlayerArray;
    end;

    Procedure AntiRandoms;
    begin
    FTWait(5);
    FindNormalRandoms;
    If (FindFight = True) Then
    begin
    RunAwayDirection('N');
    Wait(9000+Random(1000)-Random(1000));
    RunBack;
    end;
    end;

    Procedure AntiBan;
    begin
    if not LoggedIn then Exit;
    Case Random(75) of
    0:= RandomRClick;
    1:= HoverSkill('Mining',False);
    2:= AlmostLogout;
    3:= BoredHuman;
    4:= PickUpMouse;
    5:= MouseC(200+Random(100),200-Random(100),0);
    6:= GameTab(4);
    end;
    end;

    Procedure Mine;
    begin
    if not Loggedin then Exit;
    Repeat
    if (FindObjCustom(x,y,['Ir','orn'],[Rockcolor1,Rockcolor2],5)) then
    MouseC(x,y,0);
    Wait(500+random(100));
    Mouse(x,y,1,1,False);
    ChooseOption('ine');
    AntiBan
    Wait(6000+random(1203)-random(204));
    Until (InvFull);
    end;

    Procedure Drop;
    begin
    DropAll;
    end;

    begin
      smartSetup('mn3', False, True);
    While Not (SmartReady) Do
    Wait(100);
    SetTargetDC(SmartGetDC);
    If Not (LoggedIn) Then
    While Not (SmartGetColor(386, 249) = 65535) Do
    Wait(100);
    SetupSRL;
    ActivateClient:
    DeclarePlayers;
    if Loggedin then Logout;
    LoginPlayer;
    Repeat
    Mine;
    Drop;
    Inc(Players[CurrentPlayer].Banked);
    if Players[CurrentPlayer].Banked mod LoadsPerPlayer = 0 then
    begin
    NextPlayer(True);
    if not Loggedin then NextPlayer(False);
    end;
    Until(False)
     
    end.

    So yeah :P , I've learned a good amount of terms, but they have poor structure I'm guessing. The problem is I learn something but forget what tutorial I learned it from, and then forget something about that, and not know were to find it.

    I have no idea were to enter antirandoms into the main line, or if they should be entered into a sepret procedure, or if they need to at all.

    EDIT: why does it say the scripts by Drunkenoldma, possibly something I copyed and pasted from a tutorial maybe?

  2. #2
    Join Date
    Mar 2008
    Posts
    1,492
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by ldg1414 View Post
    So yeah :P , I've learned a good amount of terms, but they have poor structure I'm guessing.
    They are called standards, read This

    The problem is I learn something but forget what tutorial I learned it from, and then forget something about that, and not know were to find it.
    Use bookmarks, they are very handy with all the tuts =D

    I have no idea were to enter antirandoms into the main line, or if they should be entered into a sepret procedure, or if they need to at all.
    You will want to make them a case, inside the mining procedure after every time you mine an ore


    EDIT: why does it say the scripts by Drunkenoldma, possibly something I copyed and pasted from a tutorial maybe?
    Im not 100% sure but that is the person who made the special scar thing for this forum... i think... because not all codes scroll down like that =D

    Im sure someone else can do a lot more to that script than me, im tired atm though lol and am learning as well. Good luck, keep trying, you are on a good track.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Replies: 55
    Last Post: 09-01-2009, 10:13 PM
  2. new forums
    By kelly slater pro surfer in forum News and General
    Replies: 7
    Last Post: 08-18-2007, 01:09 PM
  3. new Forums!!!...?
    By LazyBoy in forum News and General
    Replies: 5
    Last Post: 11-07-2006, 04:32 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
  •