Results 1 to 6 of 6

Thread: Someone check this for me

  1. #1
    Join Date
    Oct 2006
    Posts
    15
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Someone check this for me

    got this script for flaxing i dunno if its old or not but could some one who is half decent at this kinda stuff have a quick check through it and see if all is well, because when i run it it says some shit at the bottom then ends.
    SCAR Code:
    {//////////////////////////////////////////////////////////////////////////////} program
    Flax0r_Kthx;
    {.include SRL/SRL.scar}
    {//////////////////////////////////////////////////////////////////////////////
    Setup
    //////////////////////////////////////////////////////////////////////////////}

    const

    HowTrips = 120 ; // How Many Trips ?

    UserName = 'username' ; //RS UserName
    PassWord = 'password' ; //RS PassWord
    Treesym = 86529; //Color of the tree symbol
    Flaxcol = 407832; //Color of the flax on the mini
    FlaxMSC = 1666639; //Color of the flax on the MainScreen
    BankSym = 4636122; // BankSym Color in Bank House (MiniMap)


    {//////////////////////////////////////////////////////////////////////////////
    Script Procedures
    //////////////////////////////////////////////////////////////////////////////}

    var
    trips, PerHours: integer;
    i: integer;
    blarg: integer;

    procedure Randoms;
    begin
    FindNormalRandoms;
    // if(FindFight)then RunAway;
    end;

    procedure RandomWait(waittime, randtime: integer);
    begin
    if(randtime = waittime)then
    begin
    randtime := waittime + 2;
    end;
    wait(100 * waittime + random(100 * randtime));
    end;

    procedure NotFind(Col: string);
    begin
    Logout;
    Writeln('Could not find the ' + col);
    Writeln('Restart the script please.');
    Terminatescript;
    end;

    procedure WalkFlax;
    var
    x, y: integer;
    begin
    x := 647;
    y := 77;
    if(FindColorSpiraltolerance(x, y, BankSym, 581, 15, 738, 132,50))then
    begin
    Mouse(x, y + 17, 2, 2, True);
    end else
    begin
    NotFind('bank symbol');
    end;
    RandomWait(3, 5);
    HumanFlag(10);
    x := 650;
    y := 121;
    if(FindColorSpiraltolerance(x, y, Treesym, 563, 78, 721, 162,20))then
    begin
    Mouse(x - 12, y + 27, 3, 2, True);
    end else
    begin
    NotFind('tree symbol(First Step)');
    end;
    SetRun(True);
    GameTab(4);
    RandomWait(3, 5);
    flag;
    x := 653;
    y := 121;
    if(FindColorSpiraltolerance(x, y, Treesym, 565, 114, 744, 163,10))then
    begin
    Mouse(x + 11, y + 19, 2, 2, True);
    end else
    begin
    NotFind('tree symbol(Second step)');
    end;
    RandomWait(3, 5);
    HumanFlag(10);
    x := 638;
    y := 49;
    if(FindColorSpiraltolerance(x, y, Treesym, 595, 48, 668, 107,10))then
    begin
    Mouse(x + 50, y + 41, 4, 4, True);
    end else
    begin
    NotFind('tree symbol(Third step)');
    end;
    RandomWait(3, 5);
    flag;
    x := 648;
    y := 83;
    if(FindColorSpiraltolerance(x, y, Flaxcol, 648, 101, 797, 145,10))then
    begin
    Mouse(x, y, 1, 2, True);
    end else
    begin
    Writeln('Could Not Find Flax Color... Using Coords')
    wait(245+random(589))
    Mouse(674,112,1,1,true)
    flag;
    end;
    RandomWait(3, 5);
    HumanFlag(10);
    end;

    procedure WalkBank;
    var
    x, y, i: integer;
    begin
    While(not(Findcolor(x, y, Treesym, 576, 44, 654, 89)) and (i < 5))do
    begin
    Mouse(614, 74, 5, 5, True);
    if(Trips < 4 + random(3))then
    SetRun(False);
    HumanFlag(5);
    i := i + 1;
    end;
    x := 541;
    y := 87;
    if(FindColorSpiraltolerance(x, y, Treesym, 566, 36, 711, 138,20))then
    begin
    Mouse(x + 47, y - 18, 2, 2, True);
    end else
    begin
    NotFind('tree symbol(To bank)');
    end;
    RandomWait(3, 5);
    flag;
    x := 631;
    y := 80;
    if(FindColorSpiraltolerance(x, y, Treesym, 588, 50, 646, 97,10))then
    begin
    Mouse(x + 7, y - 36, 2, 2, True);
    end else
    begin
    NotFind('tree symbol(Step two towards the bank)');
    end;
    RandomWait(3, 5);
    flag;
    x := 647;
    y := 43;
    if(FindColorSpiraltolerance(x, y, Treesym, 607, 26, 715, 103,10))then
    begin
    Mouse(x - 15, y - 12, 2, 2, True);
    end else
    begin
    NotFind('tree symbol(Step three towards the bank)');
    end;
    begin
    If(FindColorSpiraltolerance(x, y, BankSym, 547, 8, 733, 61,10))then
    Mouse(x,y,1,1,true)
    flag;
    end;
    end;


    procedure PickingFlax;
    var
    x, y :integer;
    begin
    randoms;
    repeat
    if(findobj(x,y,'Pick',FlaxMSC,15))then
    mouse(x,y,1,1,true)
    Flag;
    wait(250+random(186))
    until(InvFull)or(IsChatMessage('carry'))
    randoms;
    end;











    procedure Bank;
    var
    x, y: integer;
    begin
    if(Findcolortolerance(x, y, BankSym, 619, 40, 680, 117,10))then
    begin
    flag;
    OpenBankColor(10328990)
    RandomWait(2, 5);
    DepositAll;
    RandomWait(2, 5);
    CloseWindow;
    RandomWait(1, 3);
    end else
    if(FindColortolerance(x, y, BankSym, 558, 12, 743, 115,10))then
    begin
    Mouse(x, y, 3, 3, True);
    Flag;
    OpenBankColor(10328990)
    RandomWait(2, 5);
    DepositAll;
    RandomWait(2, 5);
    CloseWindow;
    RandomWait(1, 3);
    end else
    begin
    Writeln('You'#39're not in the bank!');
    LogOut;
    TerminateScript;
    end;
    end;

    procedure ProgressReport;
    begin
    PerHours := (Trips * 28) / ScriptTime(2) * 60;
    ClearDebug;
    Writeln(' ');
    Writeln(' Pwnd'#39's Flax0r, kthx.');
    Writeln(' ');
    Writeln('You'#39've picked ' + inttostr(Trips * 28) + ' flax!');
    Writeln('Travelled '+inttostr(Trips)+'/'+inttostr(HowTrips)+' Trips To Flax Field ')
    Writeln('Script has been running for ' + ScriptTime2(2));
    Writeln('That is roughly ' + inttostr(PerHours) + ' per hour.');
    end;

    procedure StartTehScriptPlocks;
    begin
    if((UserName = '') and (PassWord = ''))then
    begin
    Writeln('Please, Put your UserName And Password On correct lines');
    Writeln('Fix this and restart the script please.');
    LogOut;
    TerminateScript;
    end else
    if((not(UserName = '')) and (not(PassWord = '')))then
    begin
    Cleardebug;
    Writeln('Thanks to Pwnd Because of this awsome Script.. I tried to update it to SRL..')
    Writeln('Hello ' + UserName);
    Writeln('Welcome and have fun!');
    Writeln('The Flax0r will begin soon, kthx!');
    Wait(2000 + random(1000));
    Writeln('Now!');
    end;
    end;

    begin
    //Tih := 0;
    Trips := 0;
    SetupSRL;
    StartTehScriptPlocks;
    if(FindColortolerance(x, y, BankSym, 550, 6, 738, 149,10))then
    begin
    repeat
    WalkFlax;
    PickingFlax;
    Walkbank;
    Bank;
    Trips := Trips + 1;
    ProgressReport;
    until(Trips >=HowTrips);
    Writeln('Done')
    logout;
    end else
    if(FindColor(x, y, FlaxMSC, 5, 5, 545, 340))then
    begin
    blarg:=1;
    repeat
    if(isfunctionkeydown(1)) then
    blarg:=0
    PickingFlax;
    WalkBank;
    Bank;
    WalkFlax;
    Trips := Trips + 1;
    ProgressReport;
    Writeln(' pmg you have picked 27 more flax !');
    until (false)
    end;
    end.

  2. #2
    Join Date
    Oct 2006
    Posts
    412
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    it would help if you posted what it says at the bottom.

  3. #3
    Join Date
    Oct 2006
    Posts
    15
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ah srry it says

    Code:
    Writeln('Thanks to Pwnd Because of this awsome Script.. I tried to update it to SRL..')
    Writeln('Hello ' + UserName);
    Writeln('Welcome and have fun!');
    Writeln('The Flax0r will begin soon, kthx!');

    with out all the script codes



    **edit** before you say im retarded that is ALL it says when i run it then the script stops

  4. #4
    Join Date
    Sep 2006
    Posts
    161
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I would recommend just getting one from scratch if you have no idea how old that is.


    Wow. I've been away quite a while. Real life, yea, way unpredictable. Sorry, y'all, if I've caused any inconvenience.

  5. #5
    Join Date
    Oct 2006
    Posts
    15
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    is that a offer to make me one?

    lol

    thanks for looking

  6. #6
    Join Date
    Sep 2006
    Posts
    161
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by a noob View Post
    is that a offer to make me one?

    lol

    thanks for looking
    If you have a mems account you'd lend me, I'd be happy to try. But not really, I'm not that good at it.

    More of what my point was, that probably doesn't work any more.


    Wow. I've been away quite a while. Real life, yea, way unpredictable. Sorry, y'all, if I've caused any inconvenience.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Check this out!
    By PwNZoRNooB in forum SRL Site Discussion
    Replies: 16
    Last Post: 05-04-2007, 12:06 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
  •