hmm.. whats going on?

Discussion in 'Scar/Simba Help' started by akwardsaw, May 2, 2008.

hmm.. whats going on?
  1. Unread #1 - May 2, 2008 at 8:09 PM
  2. akwardsaw
    Joined:
    Jul 26, 2007
    Posts:
    17
    Referrals:
    0
    Sythe Gold:
    0

    akwardsaw Newcomer

    hmm.. whats going on?

    so. all my lletya flaxer script is doing is clicking the inv tab and sits there and i cant find a reason why.

    this is it

    Code:
    ///////////////////////////////INSTRUCTIONS!\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
    /////////////////////////////FILL OUT SETTINGS\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
    //////////////PUT THE CROSS HAIRS OVER THE RUNESCAPE WINDOW\\\\\\\\\\\\\\\\
    //////////////////////////HIT PLAY AND HAVE FUN\\\\\\\\\\\\\\\\\\\\\\\\\\\\
    ////////////////////////START IN LLETYA FLAX FEILD\\\\\\\\\\\\\\\\\\\\\\\\\
    //////////MAKE SURE YOU ARE LOGGED ON FIRST, AND AN EMPTY INVENTORY\\\\\\\\
    ////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
    /////////////thanks to Nova2 for the great constructive feedback\\\\\\\\\\\
    //////////// Bigger Thanks to NaumanAkhlaQ for making the script better\\\\
    program LletyaFlaxPickerBanker;
    {.include SRL\SRL.scar}
    
    var
      x,y,clicks: integer;
    
    const//  VVVV  VVVV  VVVV SETTINGS VVVV  VVVV  VVVV  VVVV
    Loads = 10; //How many loads per player before switching
    
    YourSRLId = ' ';      { if you want it to be}
    YourSRLPassword = ' '; {added to your srl stats}
    
    FlaxColor=  15394989;// the blue part of the flax
    TimeToWait= 5000;
    
    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;
    
      Players[0].Name := 'Username';
      Players[0].Pass := 'Password';
      Players[0].Nick := 'ser';
      Players[0].Pin := '  '; // leave blank if you dont have a pin
      Players[0].Active := True;
    end;
    /////////////////////DO NOT EDIT BEYOND THIS POINT\\\\\\\\\\\\\\\\\\\\\\\
    procedure AntiBan;
    begin
      if not LoggedIn then Exit;
      case Random(30) of
        1: RandomRClick;
        2: HoverSkill('Crafting', False);
        3: RandomMovement;
        4: BoredHuman;
        5: AlmostLogout;
        6: DoEmote(400 +Random(90));
      end;
    end;
    
    
    
    //picks flax till inventory is full
    procedure PickFlax;
    var
    TOL,clicks : iNTEGER;
    begin
     Tol := 10;
      repeat
        if FindColorTolerance(x, y, FlaxColor, 386, 51, 105, 34, 10)then
        begin
          Mouse(x,y, 2, 3, true);
          Clicks:= Clicks+ 1;
          Wait(TimetoWait- 200);
        end;
        Wait(200);
      until(InvFull);
    end;
    
    procedure WalkToBank;
    begin
      if(FindColorTolerance(x,y, 4879491, 601, 34, 615, 44, 10))then
         begin
           Mouse(x,y, 4, 2, true);
         end;
    end;
    
    Function Banking : Boolean;
    var
    Loads1,FlaxNum,LoadsNum:Integer;
    begin
      if (InvFull) then
      begin
        MakeCompass('N');
        Wait (300 + random(160));
        OpenBankQuiet('lb');
        if (PinScreen) then
        InPin(Players[0].Pin);
        if(FindColorSpiral(x,y, 65536, 589, 219, 589, 219))then
        begin
         Mouse(x,y, 4, 3, false);
         ChooseOption('All');
         Loads1 := Loads1+ 1;
         Result := True;
         if Result = True then
         begin
           FlaxNum := FlaxNum + 1;
           LoadsNum := LoadsNum + 1;
           ReportVars[1] := ReportVars[1] + 1;
           SendSRLReport;
         end;
       end;
       CloseBank;
       Wait(150 + random (278));
       MakeCompass('S');
      end;
    end;
    
    
    procedure WalkFromBank;
    Begin
    MakeCompass('N');
    begin
      if(FindColorTolerance(x,y, 12414830, 620, 118, 646, 150, 10))then
      begin
           Mouse(x,y, 5, 1, true);
         end;
      end;
    end;
    
    procedure AntiRandoms;
    begin
      If(FindFight)then
      RunAway('N', True, 1, 15000);
      FindNormalRandoms;
      FindBox;
      OpenBox;
      SolveBox;
      FindMod;
      FindDead;
      FindFrogCave;
      SolveFrogSwamp;
      SolveQuiz;
      SolveSandWich;
      
      FindLamp('Crafting');
    end;
    
     procedure ProgressReport;
    begin
      ClearDebug;
      Writeln('[]========================================[]');
      Writeln('---------------->Your Proggy<----------------');
      Writeln('  did ' + IntToStr(Loads) + ' Loads' + '    ');
      Writeln('---------------------------------------------');
      Writeln('picked ' + IntToStr(Clicks) + ' flax' + '        ');
      Writeln('[]========================================[]');
    end;
    
    procedure Signature;
    begin
      writeln('-------------------akwardsaw`s lletya flaxzorz-----------------');
      writeln('       / /\ \        |  |   /  / \ \                            / /');
      writeln('      / /  \ \       |  |  /  /   \ \            /\            / /');
      writeln('     / /    \ \      |  | /  /     \ \          /  \          / /');
      writeln('    / /      \ \     |  |/  /       \ \        / /\ \        / /');
      writeln('   / /--------\ \    |  |\  \        \ \      / /  \ \      / /');
      writeln('  / /----------\ \   |  | \  \        \ \    / /    \ \    / /');
      writeln(' / /            \ \  |  |  \  \        \ \  / /      \ \  / /');
      writeln('/ /              \ \ |  |   \  \        \ \/ /        \ \/ /');
      wait(3000 + random(750));
    end;
    
    
    
    //Main Loop//
    begin
      repeat
          PickFlax;   //done
          WalkToBank; //done
          Banking;    //done
          ProgressReport; //done
          WalkFromBank; //done
          AntiBan;
          AntiRandoms;
          until(true);
          signature; //done
        end.
    
        { things that need to be worked on:
         Make more failsafes, having one is not enough.
         You are missing a LOT of identifiers (begins and ends).
         }
    so yeah, whys it just doing that?

    oh, and how do i make it so that it only does the amount of loads you tell it to?

    one more thing. how do i add on a timer into the proggy so it tells how long it was running for

    thanks:)
     
< +1? | What you recomend >

Users viewing this thread
1 guest


 
 
Adblock breaks this site