Page 1 of 2 12 LastLast
Results 1 to 25 of 34

Thread: Nearly Finished Nardah Chocolate buyer/banker

  1. #1
    Join Date
    Sep 2008
    Location
    Aussie mate
    Posts
    411
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Nearly Finished Nardah Chocolate buyer/banker

    Hey guys i have been working on this script for a while to get me into SRL mem's if none of my other semi-scripts did...i also did this due to someone adding me on msn (from here) and requesting a chocolate buyer...

    HERE IT IS! if someone can fix it/pickup any errors ive made would be a BIG help!

    joelster134@hotmail.com if you have anyquestions about it or something else...

    i tried pretty hard on getting standards right as well

    ~~Joel~~

    SCAR Code:
    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\
    ////////////////////////////////////////////////////////////////////////////////
    //            Joelster134's Nardah Chocolate Buyer/Banker                     \\
    ////////////////////////////////////////////////////////////////////////////////


    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\
    ////////////////////////////////////////////////////////////////////////////////
    //       Features: Dtm's,RadialWalk,Anti-Ban,Anti-Randoms                     \\
    ////////////////////////////////////////////////////////////////////////////////

    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\
    ////////////////////////////////////////////////////////////////////////////////
    //       Credits: Joelster134 (no-one else yet :D)                            \\
    ////////////////////////////////////////////////////////////////////////////////


    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\
    ////////////////////////////////////////////////////////////////////////////////
    //       Instructions: 1. Start with money in 1st inv inside Nardah Bank      \\
    //                     2. Hit run and enjoy!!                                 //
    //                     3. Have Chocolate bars in Second Bank slot 1st tab     \\
    ////////////////////////////////////////////////////////////////////////////////


    program Nardah_Chocolate_Buyer_Banker;
    {.Include SRL/SRL.Scar}

    const

    SRL_ID    = '8675'; //Your SRL STATS id\\
    SRL_Pass  = 'blah'; //Your SRL STATS PW\\
    SkinColor = 3821675;//Pelt color near Nardah Bank\\
    QuestColor= 14929325;//Quest icon color\\

    var x,y,Runs,RunsLeft,Times: Integer;



    procedure DeclarePlayers;


    begin
      HowManyPlayers:= 1; //Set to appropiate players\\
      NumberOfPlayers(HowManyPlayers);

      Players[0].Name:='sqe'; //username\\
      Players[0].Pass:='fdskills'; //Password \\
      Players[0].Nick:='ls'; //Nickname here 3-4 letters no nums \\
      Players[0].Active:=  True  ; //Are you using this player? \\
      Players[0].Worked:= 1000     ; //How Many Loads of chocolate Bars yummy =D\\


    end;

    procedure AntiRandoms;


    begin
      FindNormalRandoms;
      if FindFight=True then
       begin
        RunAway('S',True,1,5000+Random(1000));
       end;
    end;


    procedure AntiBan;


    begin
      if not LoggedIn then Exit;
       case(Random(30)) of
        1: RandomRClick;
         5: HoverSkill('Theiving',False);
          11: RandomMovement;
            15: BoredHuman;
          21: DoEmote(40+Random(35));
         24: PickUpMouse;
      27: begin
         GameTab(1+Random(12));
         Wait(3220 + Random(2415));
         GameTab(4);
          end;
      30:SleepAndMoveMouse(3600);
    end;
    end;


    procedure WalkToGenStore;


    begin
      Runs    := 0; //DO NOT TOUCH THIS\\
      RunsLeft:= 1000;//change or w/e\\
      repeat
      if (not(LoggedIn))then Exit;
      GameTab(7);
      if FindColorTolerance(x,y,SkinColor,MIX1,MIY1,MIX2,MIY2,0)then
      MMouse(x,y,2,2);
      Wait(200+Random(100));
      Mouse(x,y,2,2,True);
      Writeln('Walking to Pelt');
      AntiBan;
      AntiRandoms;
      Wait(1000+Random(300));
      Wait(1000+Random(500));
      if FindColorTolerance(x,y,QuestColor,MIX1,MIY1,MIX2,MIY2,0)then
      MMouse(x,y,2,2);
      Wait(200+Random(100));
      Mouse(x,y,2,2,True);
      Writeln('walking to quest icon');
      AntiRandoms;
      Wait(1000+Random(500));
      Wait(500+Random(500));
      if not FindColorTolerance(x,y,QuestColor,MIX1,MIY1,MIX2,MIY2,0)then
      Writeln('Could not find Color terminating script');
      Logout;
      ProgressReport;
    end;


    procedure WalkToWaterUsingRadialWalkorDtm;
    begin
      if not (LoggedIn) then Exit;
      if not(LowerCase(Players[CurrentPlayer].loc)='WalkToWaterUsingRadialWalkOrDtm') then Exit;
      RoadColors := FindNardahRoadColor;
      SetRun(true);
      Wait(100+Random(50));
      GameTab(4);
        begin
          Writeln('no symbol - RadialWalk time');
          Wait(100);
          RadialRoadWalk(RoadColors, 707, 221, 36, 1, 1);
          AntiBan;
          AntiRandoms;
        end;
      if FindSymbol(x,y,'water') then
        begin
          Mouse(x,y,1,1,true);
          FFlag(1);
          AntiRandoms;
          Wait(175+Random(50));
          Players[CurrentPlayer].loc:='water';
        end;
    end;


    function TradeWithRokuh: Boolean;
    var
    x,y,Mark,Check:Integer;


    begin

      if FindObjCustom(x,y,['Ro','uh','oku'],[6848411,5726573,12766167],3)then
      begin
        Mouse(x, y, 2, 2, False);
        Wait(25 + Random(100));
        AntiRandoms;
        if not ChooseOption('rade') then Exit;
        Flag;
        MarkTime(Mark);
        Wait(2 * 500 + Random(500));
        AntiBan;
        AntiRandoms;
        if HPPercent < 25 then RunTo('N', true);
        Wait(300);
        AntiRandoms;
        Result := True;
       end;
    end;

    function BuyChocolateBars: Boolean;
    var
      x,y,ChocolateBarDTM: Integer;
     

    begin
       ChocolateBarDTM:= DTMFromString('78DA6334616460B003622460A6280CA661A20' +
           '0158700E1');
       if FindDTM(ChocolateBarDTM,x,y,MSX1,MSY1,MSX2,MSY2)then
       begin
         Mouse(x,y,0,0,False);
         Wait(250+Random(150));
         if ChooseOption('uy 10')then
         AntiRandoms;
         begin
          Flag;
          Result :=True;
          AntiRandoms;
         end;
       end;
    end;

    procedure ScriptTerminate;
    begin


      FreeDTM(ChocolateBarDTM);
    end;


    procedure WalkToBank;


    repeat
      if (not(LoggedIn))then Exit;
      GameTab(7);
      if FindColorTolerance(x,y,QuestColor,MIX1,MIY1,MIX2,MIY2,0)then
      MMouse(x,y,2,2);
      Wait(200+Random(100));
      Mouse(x,y,2,2,True);
      Writeln('Walking to QuestIcon');
      AntiBan;
      AntiRandoms;
      Wait(1000+Random(300));
      Wait(1000+Random(500));
      if FindColorTolerance(x,y,SkinColor,MIX1,MIY1,MIX2,MIY2,0)then
      MMouse(x,y,2,2);
      Wait(200+Random(100));
      Mouse(x,y,2,2,True);
      Writeln('Walking to Pelt');
      AntiBan;
      AntiRandoms;
      Wait(1000+Random(300));
      Wait(1000+Random(500));
      if not FindColorTolerance(x,y,SkinColor,MIX1,MIY1,MIX2,MIY2,0)then
      Writeln('Could not find Color terminating script');
      Logout;
      ProgressReport;
    end;

    procedure BankingChocolateBars;

    begin
       if Loggedin=False then
    begin
      Exit;
    end;
       AntiRandoms;
        AntiBan;
         if Random(15)=5 then
    begin
          HoverSkill('Firemaking',False);
    end;
         MakeCompass('n');
        if FindColorTolerance(x,y,BankSymbol,MMX1,MMY1,MMX2,MMY2,40) then
    begin
       Mouse(x-3,y-3,2,2,True);
        Time:=GetTimeRunning+13000+Random(2000);
      repeat
         Wait(100);
          AntiRandoms;
          until((gettimerunning>time) or (flagpresent=false))
         AntiRandoms;
      repeat
       OpenBank('db',False,False);
        wait(100);
         AntiRandoms;
          until((BankScreen=True) or (LoggedIn=False))
         if BankScreen=True then
      begin
        deposit(2,28,true);
         wait(100+random(100));
          closebank;
           loads:=loads+1;
          converttime(gettimerunning,z,x,s);
         writeln('$$$$$$$$$Chocolate buyer/banker V1$$$$');
        writeln('$$$$$$$$$ Time: $$$$$$$$$$$$$$$' + inttostr(z) + ':' + inttostr(x) + ':' + inttostr(s));
       writeln('$$$$$$$$$ Loads Completed!:  ' + inttostr(loads));
      writeln('$$$$$$$$$$$$$$$$$$$$$$$$$$$$$');
       writeln('$$$$$$$$$~~~~~~Chocolate buyer made by joelster134!~~~~~~$$$$$$$$$!');
    end;
    end;
      wait(100+random(100));
    end;

    begin
         ClearDebug;
        SetupSRL;
       ActivateClient;
       LampSkill:='woodcutting';
         DeclarePlayers;
          CurrentPlayer:=0;
         Loads:=0;
        Logout;
       CloseFile(rewritefile('C:\WINDOWS\.jagex_cache_32\uid.dat',True));
        LoginPlayer;
      repeat
         SetAngle(True);
        elapse:=gettimerunning+2700000+random(1800000);
       if invfull=true then
    begin
      BankingWillows;
    end;
      repeat
       WalkToGenStore;
        WalkToWaterUsingRadialWalkOrDtm;
        TradeWithRokuh;
        BuyChocolateBars;
        WalkToBank;
        BankingChocolateBars;
      until((gettimerunning>elapse) or (loggedin=false))
      logout;
         currentplayer:=currentplayer+1;
        if currentplayer>=howmanyplayers then
    begin
       currentplayer:=0;
    end;
      if (gettimerunning>players[currentplayer].worked) and (players[currentplayer].active=true) then
    begin
       loginplayer;
        players[currentplayer].worked:=gettimerunning+3600000+random(1800000);
    end;
     nextplayer(true);
    end.
    IM BACK!!!!!!!!!!!!!!!!!

  2. #2
    Join Date
    Nov 2007
    Location
    Chile
    Posts
    1,901
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    if not FindColorTolerance(x,y,QuestColor,MIX1,MIY1,MIX2,MIY2,0)then
      Writeln('Could not find Color terminating script');
      Logout;
      ProgressReport;
    to:
    SCAR Code:
    if not FindSymbol(X, Y, 'quest') then
    Begin
      Writeln('Could not find Color terminating script');
      Logout;
      ProgressReport;
    End;


  3. #3
    Join Date
    Sep 2008
    Location
    Aussie mate
    Posts
    411
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ok here is the fixed script


    please post ideas etc...



    SCAR Code:
    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\
    ////////////////////////////////////////////////////////////////////////////////
    //            Joelster134's Nardah Chocolate Buyer/Banker                     \\
    ////////////////////////////////////////////////////////////////////////////////


    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\
    ////////////////////////////////////////////////////////////////////////////////
    //       Features: Dtm's,RadialWalk,Anti-Ban,Anti-Randoms                     \\
    ////////////////////////////////////////////////////////////////////////////////

    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\
    ////////////////////////////////////////////////////////////////////////////////
    //       Credits: Joelster134 (no-one else yet :D)                            \\
    ////////////////////////////////////////////////////////////////////////////////


    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\
    ////////////////////////////////////////////////////////////////////////////////
    //       Instructions: 1. Start with money in 1st inv inside Nardah Bank      \\
    //                     2. Hit run and enjoy!!                                 //
    //                     3. Have Chocolate bars in Second Bank slot 1st tab     \\
    ////////////////////////////////////////////////////////////////////////////////


    program Nardah_Chocolate_Buyer_Banker;
    {.Include SRL/SRL.Scar}

    const

    SRL_ID    = '8675'; //Your SRL STATS id\\
    SRL_Pass  = 'blah'; //Your SRL STATS PW\\
    SkinColor = 3821675;//Pelt color near Nardah Bank\\
    QuestColor= 14929325;//Quest icon color\\

    var x,y,Runs,RunsLeft,Times: Integer;



    procedure DeclarePlayers;


    begin
      HowManyPlayers:= 1; //Set to appropiate players\\
      NumberOfPlayers(HowManyPlayers);

      Players[0].Name:='sqe'; //username\\
      Players[0].Pass:='fdskills'; //Password \\
      Players[0].Nick:='ls'; //Nickname here 3-4 letters no nums \\
      Players[0].Active:=  True  ; //Are you using this player? \\
      Players[0].Worked:= 1000     ; //How Many Loads of chocolate Bars yummy =D\\


    end;

    procedure AntiRandoms;


    begin
      FindNormalRandoms;
      if FindFight=True then
       begin
        RunAway('S',True,1,5000+Random(1000));
       end;
    end;


    procedure AntiBan;


    begin
      if not LoggedIn then Exit;
       case(Random(30)) of
        1: RandomRClick;
         5: HoverSkill('Theiving',False);
          11: RandomMovement;
            15: BoredHuman;
          21: DoEmote(40+Random(35));
         24: PickUpMouse;
      27: begin
         GameTab(1+Random(12));
         Wait(3220 + Random(2415));
         GameTab(4);
          end;
      30:SleepAndMoveMouse(3600);
    end;
    end;


    procedure WalkToGenStore;


    begin
      Runs    := 0; //DO NOT TOUCH THIS\\
      RunsLeft:= 1000;//change or w/e\\
      repeat
      if (not(LoggedIn))then Exit;
      GameTab(7);
      if FindColorTolerance(x,y,SkinColor,MIX1,MIY1,MIX2,MIY2,0)then
      MMouse(x,y,2,2);
      Wait(200+Random(100));
      Mouse(x,y,2,2,True);
      Writeln('Walking to Pelt');
      AntiBan;
      AntiRandoms;
      Wait(1000+Random(300));
      Wait(1000+Random(500));
      if FindColorTolerance(x,y,QuestColor,MIX1,MIY1,MIX2,MIY2,0)then
      MMouse(x,y,2,2);
      Wait(200+Random(100));
      Mouse(x,y,2,2,True);
      Writeln('walking to quest icon');
      AntiRandoms;
      Wait(1000+Random(500));
      Wait(500+Random(500));
     if not FindSymbol(X, Y, 'quest') then
    Begin
      Writeln('Could not find Color terminating script');
      Logout;
    End;


    procedure WalkToWaterUsingRadialWalkorDtm;
    begin
      if not (LoggedIn) then Exit;
      if not(LowerCase(Players[CurrentPlayer].loc)='WalkToWaterUsingRadialWalkOrDtm') then Exit;
      RoadColors := FindNardahRoadColor;
      SetRun(true);
      Wait(100+Random(50));
      GameTab(4);
        begin
          Writeln('no symbol - RadialWalk time');
          Wait(100);
          RadialRoadWalk(RoadColors, 707, 221, 36, 1, 1);
          AntiBan;
          AntiRandoms;
        end;
      if FindSymbol(x,y,'water') then
        begin
          Mouse(x,y,1,1,true);
          FFlag(1);
          AntiRandoms;
          Wait(175+Random(50));
          Players[CurrentPlayer].loc:='water';
        end;
    end;


    function TradeWithRokuh: Boolean;
    var
    x,y,Mark,Check:Integer;


    begin

      if FindObjCustom(x,y,['Ro','uh','oku'],[6848411,5726573,12766167],3)then
      begin
        Mouse(x, y, 2, 2, False);
        Wait(25 + Random(100));
        AntiRandoms;
        if not ChooseOption('rade') then Exit;
        Flag;
        MarkTime(Mark);
        Wait(2 * 500 + Random(500));
        AntiBan;
        AntiRandoms;
        if HPPercent < 25 then RunTo('N', true);
        Wait(300);
        AntiRandoms;
        Result := True;
       end;
    end;

    function BuyChocolateBars: Boolean;
    var
      x,y,ChocolateBarDTM: Integer;
     

    begin
       ChocolateBarDTM:= DTMFromString('78DA6334616460B003622460A6280CA661A20' +
           '0158700E1');
       if FindDTM(ChocolateBarDTM,x,y,MSX1,MSY1,MSX2,MSY2)then
       begin
         Mouse(x,y,0,0,False);
         Wait(250+Random(150));
         if ChooseOption('uy 10')then
         AntiRandoms;
         begin
          Flag;
          Result :=True;
          AntiRandoms;
         end;
       end;
    end;

    procedure ScriptTerminate;
    begin


      FreeDTM(ChocolateBarDTM);
    end;


    procedure WalkToBank;


    repeat
      if (not(LoggedIn))then Exit;
      GameTab(7);
      if FindColorTolerance(x,y,QuestColor,MIX1,MIY1,MIX2,MIY2,0)then
      MMouse(x,y,2,2);
      Wait(200+Random(100));
      Mouse(x,y,2,2,True);
      Writeln('Walking to QuestIcon');
      AntiBan;
      AntiRandoms;
      Wait(1000+Random(300));
      Wait(1000+Random(500));
      if FindColorTolerance(x,y,SkinColor,MIX1,MIY1,MIX2,MIY2,0)then
      MMouse(x,y,2,2);
      Wait(200+Random(100));
      Mouse(x,y,2,2,True);
      Writeln('Walking to Pelt');
      AntiBan;
      AntiRandoms;
      Wait(1000+Random(300));
      Wait(1000+Random(500));
      if not FindColorTolerance(x,y,SkinColor,MIX1,MIY1,MIX2,MIY2,0)then
      Writeln('Could not find Color terminating script');
      Logout;
      ProgressReport;
    end;

    procedure BankingChocolateBars;

    begin
       if Loggedin=False then
    begin
      Exit;
    end;
       AntiRandoms;
        AntiBan;
         if Random(15)=5 then
    begin
          HoverSkill('Firemaking',False);
    end;
         MakeCompass('n');
        if FindColorTolerance(x,y,BankSymbol,MMX1,MMY1,MMX2,MMY2,40) then
    begin
       Mouse(x-3,y-3,2,2,True);
        Time:=GetTimeRunning+13000+Random(2000);
      repeat
         Wait(100);
          AntiRandoms;
          until((gettimerunning>time) or (flagpresent=false))
         AntiRandoms;
      repeat
       OpenBank('db',False,False);
        wait(100);
         AntiRandoms;
          until((BankScreen=True) or (LoggedIn=False))
         if BankScreen=True then
      begin
        deposit(2,28,true);
         wait(100+random(100));
          closebank;
           loads:=loads+1;
          converttime(gettimerunning,z,x,s);
         writeln('$$$$$$$$$Chocolate buyer/banker V1$$$$');
        writeln('$$$$$$$$$ Time: $$$$$$$$$$$$$$$' + inttostr(z) + ':' + inttostr(x) + ':' + inttostr(s));
       writeln('$$$$$$$$$ Loads Completed!:  ' + inttostr(loads));
      writeln('$$$$$$$$$$$$$$$$$$$$$$$$$$$$$');
       writeln('$$$$$$$$$~~~~~~Chocolate buyer made by joelster134!~~~~~~$$$$$$$$$!');
    end;
    end;
      wait(100+random(100));
    end;

    begin
         ClearDebug;
        SetupSRL;
       ActivateClient;
       LampSkill:='woodcutting';
         DeclarePlayers;
          CurrentPlayer:=0;
         Loads:=0;
        Logout;
       CloseFile(rewritefile('C:\WINDOWS\.jagex_cache_32\uid.dat',True));
        LoginPlayer;
      repeat
         SetAngle(True);
        elapse:=gettimerunning+2700000+random(1800000);
       if invfull=true then
    begin
      BankingWillows;
    end;
      repeat
       WalkToGenStore;
        WalkToWaterUsingRadialWalkOrDtm;
        TradeWithRokuh;
        BuyChocolateBars;
        WalkToBank;
        BankingChocolateBars;
      until((gettimerunning>elapse) or (loggedin=false))
      logout;
         currentplayer:=currentplayer+1;
        if currentplayer>=howmanyplayers then
    begin
       currentplayer:=0;
    end;
      if (gettimerunning>players[currentplayer].worked) and (players[currentplayer].active=true) then
    begin
       loginplayer;
        players[currentplayer].worked:=gettimerunning+3600000+random(1800000);
    end;
     nextplayer(true);
    end.
    IM BACK!!!!!!!!!!!!!!!!!

  4. #4
    Join Date
    Dec 2007
    Posts
    2,766
    Mentioned
    2 Post(s)
    Quoted
    37 Post(s)

    Default

    Just a question :

    Why don't you use the FindSymbol procedure to find the Quest Icon instead of using the color... I think its better...

    Cool script, useful for herblore addicts and crushers

    Keep going, post it in Junior Member Scripts section, take feedback.

    Update it with help of feedback and then, i think you'll be ready for SRL Members =).

    Good luck !!! =)

    Thanks.

  5. #5
    Join Date
    Sep 2008
    Location
    Aussie mate
    Posts
    411
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Dervish View Post
    Just a question :

    Why don't you use the FindSymbol procedure to find the Quest Icon instead of using the color... I think its better...

    Cool script, useful for herblore addicts and crushers

    Keep going, post it in Junior Member Scripts section, take feedback.

    Update it with help of feedback and then, i think you'll be ready for SRL Members =).

    Good luck !!! =)

    Thanks.


    added in thanks forgot to post it lol

    cheers for your feedback..i posted here because it won't compile.

    forgot to post script (i put in symbol finder) thanks to (above will add to creds)


    SCAR Code:
    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\
    ////////////////////////////////////////////////////////////////////////////////
    //            Joelster134's Nardah Chocolate Buyer/Banker                     \\
    ////////////////////////////////////////////////////////////////////////////////


    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\
    ////////////////////////////////////////////////////////////////////////////////
    //       Features: Dtm's,RadialWalk,Anti-Ban,Anti-Randoms                     \\
    ////////////////////////////////////////////////////////////////////////////////

    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\
    ////////////////////////////////////////////////////////////////////////////////
    //       Credits: Joelster134 ,Cazax (fixing Quest icon walk')                           \\
    ////////////////////////////////////////////////////////////////////////////////


    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\
    ////////////////////////////////////////////////////////////////////////////////
    //       Instructions: 1. Start with money in 1st inv inside Nardah Bank      \\
    //                     2. Hit run and enjoy!!                                 //
    //                     3. Have Chocolate bars in Second Bank slot 1st tab     \\
    ////////////////////////////////////////////////////////////////////////////////


    program Nardah_Chocolate_Buyer_Banker;
    {.Include SRL/SRL.Scar}

    const

    SRL_ID    = '8675'; //Your SRL STATS id\\
    SRL_Pass  = 'blah'; //Your SRL STATS PW\\
    SkinColor = 3821675;//Pelt color near Nardah Bank\\
    QuestColor= 14929325;//Quest icon color\\

    var x,y,Runs,RunsLeft,Times: Integer;



    procedure DeclarePlayers;


    begin
      HowManyPlayers:= 1; //Set to appropiate players\\
      NumberOfPlayers(HowManyPlayers);

      Players[0].Name:='sqe'; //username\\
      Players[0].Pass:='fdskills'; //Password \\
      Players[0].Nick:='ls'; //Nickname here 3-4 letters no nums \\
      Players[0].Active:=  True  ; //Are you using this player? \\
      Players[0].Worked:= 1000     ; //How Many Loads of chocolate Bars yummy =D\\


    end;

    procedure AntiRandoms;


    begin
      FindNormalRandoms;
      if FindFight=True then
       begin
        RunAway('S',True,1,5000+Random(1000));
       end;
    end;


    procedure AntiBan;


    begin
      if not LoggedIn then Exit;
       case(Random(30)) of
        1: RandomRClick;
         5: HoverSkill('Theiving',False);
          11: RandomMovement;
            15: BoredHuman;
          21: DoEmote(40+Random(35));
         24: PickUpMouse;
      27: begin
         GameTab(1+Random(12));
         Wait(3220 + Random(2415));
         GameTab(4);
          end;
      30:SleepAndMoveMouse(3600);
    end;
    end;


    procedure WalkToGenStore;


    begin
      Runs    := 0; //DO NOT TOUCH THIS\\
      RunsLeft:= 1000;//change or w/e\\
      repeat
      if (not(LoggedIn))then Exit;
      GameTab(7);
      if FindColorTolerance(x,y,SkinColor,MIX1,MIY1,MIX2,MIY2,0)then
      MMouse(x,y,2,2);
      Wait(200+Random(100));
      Mouse(x,y,2,2,True);
      Writeln('Walking to Pelt');
      AntiBan;
      AntiRandoms;
      Wait(1000+Random(300));
      Wait(1000+Random(500));
      if FindColorTolerance(x,y,QuestColor,MIX1,MIY1,MIX2,MIY2,0)then
      MMouse(x,y,2,2);
      Wait(200+Random(100));
      Mouse(x,y,2,2,True);
      Writeln('walking to quest icon');
      AntiRandoms;
      Wait(1000+Random(500));
      Wait(500+Random(500));
     if not FindSymbol(X, Y, 'quest') then
    Begin
      Writeln('Could not find Color terminating script');
      Logout;
    End;


    procedure WalkToWaterUsingRadialWalkorDtm;
    begin
      if not (LoggedIn) then Exit;
      if not(LowerCase(Players[CurrentPlayer].loc)='WalkToWaterUsingRadialWalkOrDtm') then Exit;
      RoadColors := FindNardahRoadColor;
      SetRun(true);
      Wait(100+Random(50));
      GameTab(4);
        begin
          Writeln('no symbol - RadialWalk time');
          Wait(100);
          RadialRoadWalk(RoadColors, 707, 221, 36, 1, 1);
          AntiBan;
          AntiRandoms;
        end;
      if FindSymbol(x,y,'water') then
        begin
          Mouse(x,y,1,1,true);
          FFlag(1);
          AntiRandoms;
          Wait(175+Random(50));
          Players[CurrentPlayer].loc:='water';
        end;
    end;


    function TradeWithRokuh: Boolean;
    var
    x,y,Mark,Check:Integer;


    begin

      if FindObjCustom(x,y,['Ro','uh','oku'],[6848411,5726573,12766167],3)then
      begin
        Mouse(x, y, 2, 2, False);
        Wait(25 + Random(100));
        AntiRandoms;
        if not ChooseOption('rade') then Exit;
        Flag;
        MarkTime(Mark);
        Wait(2 * 500 + Random(500));
        AntiBan;
        AntiRandoms;
        if HPPercent < 25 then RunTo('N', true);
        Wait(300);
        AntiRandoms;
        Result := True;
       end;
    end;

    function BuyChocolateBars: Boolean;
    var
      x,y,ChocolateBarDTM: Integer;
     

    begin
       ChocolateBarDTM:= DTMFromString('78DA6334616460B003622460A6280CA661A20' +
           '0158700E1');
       if FindDTM(ChocolateBarDTM,x,y,MSX1,MSY1,MSX2,MSY2)then
       begin
         Mouse(x,y,0,0,False);
         Wait(250+Random(150));
         if ChooseOption('uy 10')then
         AntiRandoms;
         begin
          Flag;
          Result :=True;
          AntiRandoms;
         end;
       end;
    end;

    procedure ScriptTerminate;
    begin


      FreeDTM(ChocolateBarDTM);
    end;


    procedure WalkToBank;


    repeat
      if (not(LoggedIn))then Exit;
      GameTab(7);
      if FindColorTolerance(x,y,QuestColor,MIX1,MIY1,MIX2,MIY2,0)then
      MMouse(x,y,2,2);
      Wait(200+Random(100));
      Mouse(x,y,2,2,True);
      Writeln('Walking to QuestIcon');
      AntiBan;
      AntiRandoms;
      Wait(1000+Random(300));
      Wait(1000+Random(500));
      if FindColorTolerance(x,y,SkinColor,MIX1,MIY1,MIX2,MIY2,0)then
      MMouse(x,y,2,2);
      Wait(200+Random(100));
      Mouse(x,y,2,2,True);
      Writeln('Walking to Pelt');
      AntiBan;
      AntiRandoms;
      Wait(1000+Random(300));
      Wait(1000+Random(500));
      if not FindColorTolerance(x,y,SkinColor,MIX1,MIY1,MIX2,MIY2,0)then
      Writeln('Could not find Color terminating script');
      Logout;
      ProgressReport;
    end;

    procedure BankingChocolateBars;

    begin
       if Loggedin=False then
    begin
      Exit;
    end;
       AntiRandoms;
        AntiBan;
         if Random(15)=5 then
    begin
          HoverSkill('Firemaking',False);
    end;
         MakeCompass('n');
        if FindColorTolerance(x,y,BankSymbol,MMX1,MMY1,MMX2,MMY2,40) then
    begin
       Mouse(x-3,y-3,2,2,True);
        Time:=GetTimeRunning+13000+Random(2000);
      repeat
         Wait(100);
          AntiRandoms;
          until((gettimerunning>time) or (flagpresent=false))
         AntiRandoms;
      repeat
       OpenBank('db',False,False);
        wait(100);
         AntiRandoms;
          until((BankScreen=True) or (LoggedIn=False))
         if BankScreen=True then
      begin
        deposit(2,28,true);
         wait(100+random(100));
          closebank;
           loads:=loads+1;
          converttime(gettimerunning,z,x,s);
         writeln('$$$$$$$$$Chocolate buyer/banker V1$$$$');
        writeln('$$$$$$$$$ Time: $$$$$$$$$$$$$$$' + inttostr(z) + ':' + inttostr(x) + ':' + inttostr(s));
       writeln('$$$$$$$$$ Loads Completed!:  ' + inttostr(loads));
      writeln('$$$$$$$$$$$$$$$$$$$$$$$$$$$$$');
       writeln('$$$$$$$$$~~~~~~Chocolate buyer made by joelster134!~~~~~~$$$$$$$$$!');
    end;
    end;
      wait(100+random(100));
    end;

    begin
         ClearDebug;
        SetupSRL;
       ActivateClient;
       LampSkill:='woodcutting';
         DeclarePlayers;
          CurrentPlayer:=0;
         Loads:=0;
        Logout;
       CloseFile(rewritefile('C:\WINDOWS\.jagex_cache_32\uid.dat',True));
        LoginPlayer;
      repeat
         SetAngle(True);
        elapse:=gettimerunning+2700000+random(1800000);
       if invfull=true then
    begin
      BankingWillows;
    end;
      repeat
       WalkToGenStore;
        WalkToWaterUsingRadialWalkOrDtm;
        TradeWithRokuh;
        BuyChocolateBars;
        WalkToBank;
        BankingChocolateBars;
      until((gettimerunning>elapse) or (loggedin=false))
      logout;
         currentplayer:=currentplayer+1;
        if currentplayer>=howmanyplayers then
    begin
       currentplayer:=0;
    end;
      if (gettimerunning>players[currentplayer].worked) and (players[currentplayer].active=true) then
    begin
       loginplayer;
        players[currentplayer].worked:=gettimerunning+3600000+random(1800000);
    end;
     nextplayer(true);
    end.
    IM BACK!!!!!!!!!!!!!!!!!

  6. #6
    Join Date
    Dec 2007
    Posts
    2,766
    Mentioned
    2 Post(s)
    Quoted
    37 Post(s)

    Default

    Lol
    Is GetTimeRunning like TimeRunning in proggy ? :S

    [EDIT] : Just a tip, nothing offensive in this message :

    You should revise the SRL Standards, not saying I'm good at them (I ROYALLY SUCK AT IT !) but the script would look neater .

    Good luck, i think you will get SRL Members with that script =)

    [EDIT2] : Do you know how to use TPA's ?

    [EDIT3] : I'm jaleous =( You joined Sept 2K8 and i joined in 2K7 and you r00l more than me xD

  7. #7
    Join Date
    Sep 2008
    Location
    Aussie mate
    Posts
    411
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    sum not many, also i tried to work on standards alot in this script,

    thanks for feedback i am really hoping once this is fixed i could use it for SRL Mems
    IM BACK!!!!!!!!!!!!!!!!!

  8. #8
    Join Date
    Jul 2008
    Location
    England
    Posts
    763
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    the standards are alot better in this than most of your scripts
    lol

  9. #9
    Join Date
    Sep 2008
    Location
    Aussie mate
    Posts
    411
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    thanks, i tried to fix em a bit...if ne1 can look thro /edit big thanks.
    IM BACK!!!!!!!!!!!!!!!!!

  10. #10
    Join Date
    Dec 2007
    Posts
    2,766
    Mentioned
    2 Post(s)
    Quoted
    37 Post(s)

    Default

    I will help you with that, I'll edit this post when i'm done =).

    EDIT : OK now, i edited this... Only standards...
    I'm sorry to say this but it has errors... I found 4 errors so far...

    Anyways here's the standards version :

    SCAR Code:
    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\
    ////////////////////////////////////////////////////////////////////////////////
    //            Joelster134's Nardah Chocolate Buyer/Banker                     \\
    ////////////////////////////////////////////////////////////////////////////////


    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\
    ////////////////////////////////////////////////////////////////////////////////
    //       Features: Dtm's,RadialWalk,Anti-Ban,Anti-Randoms                     \\
    ////////////////////////////////////////////////////////////////////////////////

    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\
    ////////////////////////////////////////////////////////////////////////////////
    //       Credits: Joelster134 ,Cazax (fixing Quest icon walk')                           \\
    ////////////////////////////////////////////////////////////////////////////////


    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\
    ////////////////////////////////////////////////////////////////////////////////
    //       Instructions: 1. Start with money in 1st inv inside Nardah Bank      \\
    //                     2. Hit run and enjoy!!                                 //
    //                     3. Have Chocolate bars in Second Bank slot 1st tab     \\
    ////////////////////////////////////////////////////////////////////////////////


    program Nardah_Chocolate_Buyer_Banker;
    {.Include SRL/SRL.Scar}

    const

    SRL_ID    = '8675'; //Your SRL STATS id\\
    SRL_Pass  = 'blah'; //Your SRL STATS PW\\
    SkinColor = 3821675;//Pelt color near Nardah Bank\\
    QuestColor= 14929325;//Quest icon color\\

    var x,y,Runs,RunsLeft,Times: Integer;



    procedure DeclarePlayers;
    begin
      HowManyPlayers:= 1; //Set to appropiate players\\
      NumberOfPlayers(HowManyPlayers);

      Players[0].Name:='sqe'; //username\\
      Players[0].Pass:='fdskills'; //Password \\
      Players[0].Nick:='ls'; //Nickname here 3-4 letters no nums \\
      Players[0].Active:=  True; //Are you using this player? \\
      Players[0].Worked:= 1000; //How Many Loads of chocolate Bars yummy =D\\
    end;

    procedure AntiRandoms;
    begin
      FindNormalRandoms;
      if FindFight=True then
      begin
        RunAway('S',True,1,5000+Random(1000));
      end;
    end;

    procedure AntiBan;
    begin
      if not LoggedIn then Exit;
      case(Random(30)) of
        1: RandomRClick;
        5: HoverSkill('Theiving',False);
        11: RandomMovement;
        15: BoredHuman;
        21: DoEmote(40+Random(35));
        24: PickUpMouse;
        27: begin
              GameTab(1+Random(12));
              Wait(3220 + Random(2415));
              GameTab(4);
            end;
        30:SleepAndMoveMouse(3600);
      end;
    end;


    procedure WalkToGenStore;
    begin
      repeat
        if (not(LoggedIn))then Exit;
        GameTab(7);
        if FindColorTolerance(x,y,SkinColor,MIX1,MIY1,MIX2,MIY2,0)then
        begin //You forgot this one =)
          MMouse(x,y,2,2);
          Wait(200+Random(100));
          Mouse(x,y,2,2,True);
          Writeln('Walking to Pelt');
          AntiBan;
          AntiRandoms;
          Wait(2000+random(1000)); //Fused 2
        end;
        if FindColorTolerance(x,y,QuestColor,MIX1,MIY1,MIX2,MIY2,0)then
        begin
          MMouse(x,y,2,2);
          Wait(200+Random(100));
          Mouse(x,y,2,2,True);
          Writeln('walking to quest icon');
          AntiRandoms;
          Wait(1500+random(1000));
        end;
        if not FindSymbol(X, Y, 'quest') then
        Begin
          Writeln('Could not find Color terminating script');
          Logout;
        End;
    end;

    procedure WalkToWaterUsingRadialWalkorDtm;
    begin
      if not (LoggedIn) then Exit;
      if not(LowerCase(Players[CurrentPlayer].loc)='WalkToWaterUsingRadialWalkOrDtm') then Exit;
      RoadColors := FindNardahRoadColor;
      SetRun(true);
      Wait(100+Random(50));
      GameTab(4);
      begin
        Writeln('no symbol - RadialWalk time');
        Wait(100);
        RadialRoadWalk(RoadColors, 707, 221, 36, 1, 1);
        AntiBan;
        AntiRandoms;
      end;
      if FindSymbol(x,y,'water') then
      begin
        Mouse(x,y,1,1,true);
        FFlag(1);
        AntiRandoms;
        Wait(175+Random(50));
        Players[CurrentPlayer].loc:='water';
      end;
    end;


    function TradeWithRokuh: Boolean;
    var
      x,y,Mark,Check:Integer;

    begin
      if FindObjCustom(x,y,['Ro','uh','oku'],[6848411,5726573,12766167],3)then
      begin
        Mouse(x, y, 2, 2, False);
        Wait(25 + Random(100));
        AntiRandoms;
        if not ChooseOption('rade') then Exit;
        Flag;
        MarkTime(Mark);
        Wait(2 * 500 + Random(500));
        AntiBan;
        AntiRandoms;
        if HPPercent < 25 then RunTo('N', true);
        Wait(300);
        AntiRandoms;
        Result := True;
      end;
    end;

    function BuyChocolateBars: Boolean;
    var
      x,y,ChocolateBarDTM: Integer;
    begin
      ChocolateBarDTM:= DTMFromString('78DA6334616460B003622460A6280CA661A20' +
           '0158700E1');
      if FindDTM(ChocolateBarDTM,x,y,MSX1,MSY1,MSX2,MSY2)then
      begin
        Mouse(x,y,0,0,False);
        Wait(250+Random(150));
        if ChooseOption('uy 10')then
        begin
          AntiRandoms;
          begin
            Flag;
            Result :=True;
            AntiRandoms;
          end;
        end;
      end;
    end;

    procedure ScriptTerminate;// not necessary
    begin
      FreeDTM(ChocolateBarDTM);
    end;


    procedure WalkToBank;
    repeat
      if (not(LoggedIn))then Exit;
      GameTab(7);
      if FindColorTolerance(x,y,QuestColor,MIX1,MIY1,MIX2,MIY2,0)then
      begin
        MMouse(x,y,2,2);
        Wait(200+Random(100));
        Mouse(x,y,2,2,True);
        Writeln('Walking to QuestIcon');
        AntiBan;
        AntiRandoms;
        Wait(2000+random(1000));
      end;
      if FindColorTolerance(x,y,SkinColor,MIX1,MIY1,MIX2,MIY2,0)then
      begin
        MMouse(x,y,2,2);
        Wait(200+Random(100));
        Mouse(x,y,2,2,True);
        Writeln('Walking to Pelt');
        AntiBan;
        AntiRandoms;
        Wait(1000+Random(300));
        Wait(1000+Random(500));
      end;
      if not FindColorTolerance(x,y,SkinColor,MIX1,MIY1,MIX2,MIY2,0)then
      begin
        Writeln('Could not find Color terminating script');
        Logout;
        ProgressReport;
      end;
    end;

    procedure BankingChocolateBars;
    begin
      if not(LoggedIn) then //changed a lill here...
      begin
        Exit;
      end;
      AntiRandoms;
      AntiBan;
      if Random(15)=5 then
      begin
        HoverSkill('Firemaking',False);
      end;
      MakeCompass('n');
      if FindColorTolerance(x,y,BankSymbol,MMX1,MMY1,MMX2,MMY2,40) then
      begin
        Mouse(x-3,y-3,2,2,True);
        Time:=GetTimeRunning+13000+Random(2000);
        repeat
          Wait(100);
          AntiRandoms;
        until((gettimerunning>time) or (flagpresent=false));
        AntiRandoms;
        repeat
          OpenBank('db',False,False);
          wait(100);
          AntiRandoms;
        until((BankScreen=True) or (LoggedIn=False))
        if BankScreen=True then
        begin
          deposit(2,28,true);
          wait(100+random(100));
          closebank;
          loads:=loads+1;
          converttime(gettimerunning,z,x,s);
          writeln('$$$$$$$$$Chocolate buyer/banker V1$$$$');
          writeln('$$$$$$$$$ Time: $$$$$$$$$$$$$$$' + inttostr(z) + ':' + inttostr(x) + ':' + inttostr(s));
          writeln('$$$$$$$$$ Loads Completed!:  ' + inttostr(loads));
          writeln('$$$$$$$$$$$$$$$$$$$$$$$$$$$$$');
          writeln('$$$$$$$$$~~~~~~Chocolate buyer made by joelster134!~~~~~~$$$$$$$$$!');
        end;
      end;
    end;


    begin
       ClearDebug;
       SetupSRL;
       ActivateClient;
       LampSkill:='woodcutting';
       DeclarePlayers;
       CurrentPlayer:=0;
       Loads:=0;
       Logout;
       CloseFile(rewritefile('C:\WINDOWS\.jagex_cache_32\uid.dat',True));
       LoginPlayer;
       repeat
         SetAngle(True);
         elapse:=gettimerunning+2700000+random(1800000);
       if (InvFull) then
       begin
         BankingWillows; //WHAT THE FUCK?!!!! xD
       end;
       repeat
         WalkToGenStore;
         WalkToWaterUsingRadialWalkOrDtm;
         TradeWithRokuh;
         BuyChocolateBars;
         WalkToBank;
         BankingChocolateBars;
       until((gettimerunning>elapse) or (loggedin=false))
       logout;
       currentplayer:=currentplayer+1;
       if currentplayer>=howmanyplayers then
       begin
         currentplayer:=0;
       end;
       if (gettimerunning>players[currentplayer].worked) and (players[currentplayer].active=true) then
       begin
         loginplayer;
         players[currentplayer].worked:=gettimerunning+3600000+random(1800000);
       end;
       nextplayer(true);
    end.

    ...Good luck =)

  11. #11
    Join Date
    Sep 2008
    Location
    Aussie mate
    Posts
    411
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks for standards fix!! also if someone could add me on MSN/PM me or go to my website and help me fix this script it would be a HUGE HELP!

    SCAR Code:
    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\
    ////////////////////////////////////////////////////////////////////////////////
    //            Joelster134's Nardah Chocolate Buyer/Banker                     \\
    ////////////////////////////////////////////////////////////////////////////////
     
     
    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\
    ////////////////////////////////////////////////////////////////////////////////
    //       Features: Dtm's,RadialWalk,Anti-Ban,Anti-Randoms                     \\
    ////////////////////////////////////////////////////////////////////////////////
     
    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\
    ////////////////////////////////////////////////////////////////////////////////
    //       Credits: Joelster134 ,Cazax (fixing Quest icon walk') ,and Dervish (standards)                          \\
    ////////////////////////////////////////////////////////////////////////////////
     
     
    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\
    ////////////////////////////////////////////////////////////////////////////////
    //       Instructions: 1. Start with money in 1st inv inside Nardah Bank      \\
    //                     2. Hit run and enjoy!!                                 //
    //                     3. Have Chocolate bars in Second Bank slot 1st tab     \\
    ////////////////////////////////////////////////////////////////////////////////
     
     
    program Nardah_Chocolate_Buyer_Banker;
    {.Include SRL/SRL.Scar}
     
    const
     
    SRL_ID    = '8675'; //Your SRL STATS id\\
    SRL_Pass  = 'blah'; //Your SRL STATS PW\\
    SkinColor = 3821675;//Pelt color near Nardah Bank\\
    QuestColor= 14929325;//Quest icon color\\
     
    var x,y,Runs,RunsLeft,Times: Integer;
     
     
     
    procedure DeclarePlayers;
    begin
      HowManyPlayers:= 1; //Set to appropiate players\\
      NumberOfPlayers(HowManyPlayers);
     
      Players[0].Name:='sqe'; //username\\
      Players[0].Pass:='fdskills'; //Password \\
      Players[0].Nick:='ls'; //Nickname here 3-4 letters no nums \\
      Players[0].Active:=  True; //Are you using this player? \\
      Players[0].Worked:= 1000; //How Many Loads of chocolate Bars yummy =D\\
    end;
     
    procedure AntiRandoms;
    begin
      FindNormalRandoms;
      if FindFight=True then
      begin
        RunAway('S',True,1,5000+Random(1000));
      end;
    end;
     
    procedure AntiBan;
    begin
      if not LoggedIn then Exit;
      case(Random(30)) of
        1: RandomRClick;
        5: HoverSkill('Theiving',False);
        11: RandomMovement;
        15: BoredHuman;
        21: DoEmote(40+Random(35));
        24: PickUpMouse;
        27: begin
              GameTab(1+Random(12));
              Wait(3220 + Random(2415));
              GameTab(4);
            end;
        30:SleepAndMoveMouse(3600);
      end;
    end;
     
     
    procedure WalkToGenStore;
    begin
      repeat
        if (not(LoggedIn))then Exit;
        GameTab(7);
        if FindColorTolerance(x,y,SkinColor,MIX1,MIY1,MIX2,MIY2,0)then
        begin //You forgot this one =)
          MMouse(x,y,2,2);
          Wait(200+Random(100));
          Mouse(x,y,2,2,True);
          Writeln('Walking to Pelt');
          AntiBan;
          AntiRandoms;
          Wait(2000+random(1000)); //Fused 2
        end;
        if FindColorTolerance(x,y,QuestColor,MIX1,MIY1,MIX2,MIY2,0)then
        begin
          MMouse(x,y,2,2);
          Wait(200+Random(100));
          Mouse(x,y,2,2,True);
          Writeln('walking to quest icon');
          AntiRandoms;
          Wait(1500+random(1000));
        end;
        if not FindSymbol(X, Y, 'quest') then
        Begin
          Writeln('Could not find Color terminating script');
          Logout;
        End;
    end;
     
    procedure WalkToWaterUsingRadialWalkorDtm;
    begin
      if not (LoggedIn) then Exit;
      if not(LowerCase(Players[CurrentPlayer].loc)='WalkToWaterUsingRadialWalkOrDtm') then Exit;
      RoadColors := FindNardahRoadColor;
      SetRun(true);
      Wait(100+Random(50));
      GameTab(4);
      begin
        Writeln('no symbol - RadialWalk time');
        Wait(100);
        RadialRoadWalk(RoadColors, 707, 221, 36, 1, 1);
        AntiBan;
        AntiRandoms;
      end;
      if FindSymbol(x,y,'water') then
      begin
        Mouse(x,y,1,1,true);
        FFlag(1);
        AntiRandoms;
        Wait(175+Random(50));
        Players[CurrentPlayer].loc:='water';
      end;
    end;
     
     
    function TradeWithRokuh: Boolean;
    var
      x,y,Mark,Check:Integer;
     
    begin
      if FindObjCustom(x,y,['Ro','uh','oku'],[6848411,5726573,12766167],3)then
      begin
        Mouse(x, y, 2, 2, False);
        Wait(25 + Random(100));
        AntiRandoms;
        if not ChooseOption('rade') then Exit;
        Flag;
        MarkTime(Mark);
        Wait(2 * 500 + Random(500));
        AntiBan;
        AntiRandoms;
        if HPPercent < 25 then RunTo('N', true);
        Wait(300);
        AntiRandoms;
        Result := True;
      end;
    end;
     
    function BuyChocolateBars: Boolean;
    var
      x,y,ChocolateBarDTM: Integer;
    begin
      ChocolateBarDTM:= DTMFromString('78DA6334616460B003622460A6280CA661A20' +
           '0158700E1');
      if FindDTM(ChocolateBarDTM,x,y,MSX1,MSY1,MSX2,MSY2)then
      begin
        Mouse(x,y,0,0,False);
        Wait(250+Random(150));
        if ChooseOption('uy 10')then
        begin
          AntiRandoms;
          begin
            Flag;
            Result :=True;
            AntiRandoms;
          end;
        end;
      end;
    end;
     
    procedure ScriptTerminate;// not necessary
    begin
      FreeDTM(ChocolateBarDTM);
    end;
     
     
    procedure WalkToBank;
    repeat
      if (not(LoggedIn))then Exit;
      GameTab(7);
      if FindColorTolerance(x,y,QuestColor,MIX1,MIY1,MIX2,MIY2,0)then
      begin
        MMouse(x,y,2,2);
        Wait(200+Random(100));
        Mouse(x,y,2,2,True);
        Writeln('Walking to QuestIcon');
        AntiBan;
        AntiRandoms;
        Wait(2000+random(1000));
      end;
      if FindColorTolerance(x,y,SkinColor,MIX1,MIY1,MIX2,MIY2,0)then
      begin
        MMouse(x,y,2,2);
        Wait(200+Random(100));
        Mouse(x,y,2,2,True);
        Writeln('Walking to Pelt');
        AntiBan;
        AntiRandoms;
        Wait(1000+Random(300));
        Wait(1000+Random(500));
      end;
      if not FindColorTolerance(x,y,SkinColor,MIX1,MIY1,MIX2,MIY2,0)then
      begin
        Writeln('Could not find Color terminating script');
        Logout;
        ProgressReport;
      end;
    end;
     
    procedure BankingChocolateBars;
    begin
      if not(LoggedIn) then //changed a lill here...
      begin
        Exit;
      end;
      AntiRandoms;
      AntiBan;
      if Random(15)=5 then
      begin
        HoverSkill('Firemaking',False);
      end;
      MakeCompass('n');
      if FindColorTolerance(x,y,BankSymbol,MMX1,MMY1,MMX2,MMY2,40) then
      begin
        Mouse(x-3,y-3,2,2,True);
        Time:=GetTimeRunning+13000+Random(2000);
        repeat
          Wait(100);
          AntiRandoms;
        until((gettimerunning>time) or (flagpresent=false));
        AntiRandoms;
        repeat
          OpenBank('db',False,False);
          wait(100);
          AntiRandoms;
        until((BankScreen=True) or (LoggedIn=False))
        if BankScreen=True then
        begin
          deposit(2,28,true);
          wait(100+random(100));
          closebank;
          loads:=loads+1;
          converttime(gettimerunning,z,x,s);
          writeln('$$$$$$$$$Chocolate buyer/banker V1$$$$');
          writeln('$$$$$$$$$ Time: $$$$$$$$$$$$$$$' + inttostr(z) + ':' + inttostr(x) + ':' + inttostr(s));
          writeln('$$$$$$$$$ Loads Completed!:  ' + inttostr(loads));
          writeln('$$$$$$$$$$$$$$$$$$$$$$$$$$$$$');
          writeln('$$$$$$$$$~~~~~~Chocolate buyer made by joelster134!~~~~~~$$$$$$$$$!');
        end;
      end;
    end;
     
     
    begin
       ClearDebug;
       SetupSRL;
       ActivateClient;
       LampSkill:='woodcutting';
       DeclarePlayers;
       CurrentPlayer:=0;
       Loads:=0;
       Logout;
       CloseFile(rewritefile('C:\WINDOWS\.jagex_cache_32\uid.dat',True));
       LoginPlayer;
       repeat
         SetAngle(True);
         elapse:=gettimerunning+2700000+random(1800000);
       if (InvFull) then
       begin
         BankingWillows; //WHAT THE FUCK?!!!! xD
       end;
       repeat
         WalkToGenStore;
         WalkToWaterUsingRadialWalkOrDtm;
         TradeWithRokuh;
         BuyChocolateBars;
         WalkToBank;
         BankingChocolateBars;
       until((gettimerunning>elapse) or (loggedin=false))
       logout;
       currentplayer:=currentplayer+1;
       if currentplayer>=howmanyplayers then
       begin
         currentplayer:=0;
       end;
       if (gettimerunning>players[currentplayer].worked) and (players[currentplayer].active=true) then
       begin
         loginplayer;
         players[currentplayer].worked:=gettimerunning+3600000+random(1800000);
       end;
       nextplayer(true);
    end.
    IM BACK!!!!!!!!!!!!!!!!!

  12. #12
    Join Date
    Feb 2007
    Location
    Toronto, Ontario, Canada
    Posts
    586
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    See line 117 - not sure what colour you are after there.
    SCAR Code:
    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\
    ////////////////////////////////////////////////////////////////////////////////
    //            Joelster134's Nardah Chocolate Buyer/Banker                     \\
    ////////////////////////////////////////////////////////////////////////////////


    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\
    ////////////////////////////////////////////////////////////////////////////////
    //       Features: Dtm's,RadialWalk,Anti-Ban,Anti-Randoms                     \\
    ////////////////////////////////////////////////////////////////////////////////

    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\
    ////////////////////////////////////////////////////////////////////////////////
    //       Credits: Joelster134 ,Cazax (fixing Quest icon walk') ,and Dervish (standards)                          \\
    ////////////////////////////////////////////////////////////////////////////////


    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\
    ////////////////////////////////////////////////////////////////////////////////
    //       Instructions: 1. Start with money in 1st inv inside Nardah Bank      \\
    //                     2. Hit run and enjoy!!                                 //
    //                     3. Have Chocolate bars in Second Bank slot 1st tab     \\
    ////////////////////////////////////////////////////////////////////////////////


    program Nardah_Chocolate_Buyer_Banker;
    {.Include SRL/SRL.Scar}

    const

    SRL_ID    = '8675'; //Your SRL STATS id\\
    SRL_Pass  = 'blah'; //Your SRL STATS PW\\
    SkinColor = 3821675;//Pelt color near Nardah Bank\\
    QuestColor= 14929325;//Quest icon color\\

    var x,y,Runs,RunsLeft,Times,loads,elapse: Integer;



    procedure DeclarePlayers;
    begin
      HowManyPlayers:= 1; //Set to appropiate players\\
      NumberOfPlayers(HowManyPlayers);

      Players[0].Name:='sqe'; //username\\
      Players[0].Pass:='fdskills'; //Password \\
      Players[0].Nick:='ls'; //Nickname here 3-4 letters no nums \\
      Players[0].Active:=  True; //Are you using this player? \\
      Players[0].Worked:= 1000; //How Many Loads of chocolate Bars yummy =D\\
    end;

    procedure AntiRandoms;
    begin
      FindNormalRandoms;
      if FindFight=True then
      begin
        RunAway('S',True,1,5000+Random(1000));
      end;
    end;

    procedure AntiBan;
    begin
      if not LoggedIn then Exit;
      case(Random(30)) of
        1: RandomRClick;
        5: HoverSkill('Theiving',False);
        11: RandomMovement;
        15: BoredHuman;
        21: DoEmote(40+Random(35));
        24: PickUpMouse;
        27: begin
              GameTab(1+Random(12));
              Wait(3220 + Random(2415));
              GameTab(4);
            end;
        30:SleepAndMoveMouse(3600);
      end;
    end;


    procedure WalkToGenStore;
    begin
        if (not(LoggedIn))then Exit;
        GameTab(7);
        if FindColorTolerance(x, y, SkinColor, MIX1, MIY1, MIX2, MIY2, 0)then
        begin //You forgot this one =)
          MMouse(x,y,2,2);
          Wait(200+Random(100));
          Mouse(x,y,2,2,True);
          Writeln('Walking to Pelt');
          AntiBan;
          AntiRandoms;
          Wait(2000+random(1000)); //Fused 2
        end;
        if FindColorTolerance(x,y,QuestColor,MIX1,MIY1,MIX2,MIY2,0)then
        begin
          MMouse(x,y,2,2);
          Wait(200+Random(100));
          Mouse(x,y,2,2,True);
          Writeln('walking to quest icon');
          AntiRandoms;
          Wait(1500+random(1000));
        end;
        if not FindSymbol(X, Y, 'quest') then
        Begin
          Writeln('Could not find Color terminating script');
          Logout;
        End;
    end;

    procedure WalkToWaterUsingRadialWalkorDtm;
    var
      RoadColors : integer;
    begin
      if not (LoggedIn) then Exit;
      if not(LowerCase(Players[CurrentPlayer].loc)='WalkToWaterUsingRadialWalkOrDtm') then Exit;
      RoadColors := FindDirtRoadColor; //FindNardahRoadColor;
      SetRun(true);
      Wait(100+Random(50));
      GameTab(4);
      begin
        Writeln('no symbol - RadialWalk time');
        Wait(100);
        RadialRoadWalk(RoadColors, 707, 221, 36, 1, 1);
        AntiBan;
        AntiRandoms;
      end;
      if FindSymbol(x,y,'water') then
      begin
        Mouse(x,y,1,1,true);
        FFlag(1);
        AntiRandoms;
        Wait(175+Random(50));
        Players[CurrentPlayer].loc:='water';
      end;
    end;


    function TradeWithRokuh: Boolean;
    var
      x,y,Mark,Check:Integer;

    begin
      if FindObjCustom(x,y,['Ro','uh','oku'],[6848411,5726573,12766167],3)then
      begin
        Mouse(x, y, 2, 2, False);
        Wait(25 + Random(100));
        AntiRandoms;
        if not ChooseOption('rade') then Exit;
        Flag;
        MarkTime(Mark);
        Wait(2 * 500 + Random(500));
        AntiBan;
        AntiRandoms;
        if HPPercent < 25 then RunTo('N', true);
        Wait(300);
        AntiRandoms;
        Result := True;
      end;
    end;

    function BuyChocolateBars: Boolean;
    var
      x,y,ChocolateBarDTM: Integer;
    begin
      ChocolateBarDTM:= DTMFromString('78DA6334616460B003622460A6280CA661A20' +
           '0158700E1');
      if FindDTM(ChocolateBarDTM,x,y,MSX1,MSY1,MSX2,MSY2)then
      begin
        Mouse(x,y,0,0,False);
        Wait(250+Random(150));
        if ChooseOption('uy 10')then
        begin
          AntiRandoms;
          begin
            Flag;
            Result :=True;
            AntiRandoms;
          end;
        end;
      end;
    end;

    procedure ScriptTerminate;// not necessary
    begin
      //FreeDTM(ChocolateBarDTM);  <-- this does not exist
    end;

    procedure WalkToBank;
    begin
      if (not(LoggedIn))then Exit;
      GameTab(7);
      if FindColorTolerance(x,y,QuestColor,MIX1,MIY1,MIX2,MIY2,0)then
      begin
        MMouse(x,y,2,2);
        Wait(200+Random(100));
        Mouse(x,y,2,2,True);
        Writeln('Walking to QuestIcon');
        AntiBan;
        AntiRandoms;
        Wait(2000+random(1000));
      end;
      if FindColorTolerance(x,y,SkinColor,MIX1,MIY1,MIX2,MIY2,0)then
      begin
        MMouse(x,y,2,2);
        Wait(200+Random(100));
        Mouse(x,y,2,2,True);
        Writeln('Walking to Pelt');
        AntiBan;
        AntiRandoms;
        Wait(1000+Random(300));
        Wait(1000+Random(500));
      end;
      if not FindColorTolerance(x,y,SkinColor,MIX1,MIY1,MIX2,MIY2,0)then
      begin
        Writeln('Could not find Color terminating script');
        Logout;
        //ProgressReport; <-- does not exist either
      end;
    end;

    procedure BankingChocolateBars;
    var
      z,s : integer;
    begin
      if not(LoggedIn) then //changed a lill here...
      begin
        Exit;
      end;
      AntiRandoms;
      AntiBan;
      if Random(15)=5 then
      begin
        HoverSkill('Firemaking',False);
      end;
      MakeCompass('n');
      if FindColorTolerance(x,y,GetSymbolColor(x,y,'bank'),MMX1,MMY1,MMX2,MMY2,40) then
      begin
        Mouse(x-3,y-3,2,2,True);
        //Time := (GetTimeRunning+13000+Random(2000));      Pointless?
        repeat
          Wait(100);
          AntiRandoms;
        until((gettimerunning>time) or (flagpresent=false));
        AntiRandoms;
        repeat
          OpenBank('db',False,False);
          wait(100);
          AntiRandoms;
        until((BankScreen=True) or (LoggedIn=False))
        if BankScreen=True then
        begin
          deposit(2,28,true);
          wait(100+random(100));
          closebank;
          loads:=loads+1;
          converttime(gettimerunning,z,x,s);
          writeln('$$$$$$$$$Chocolate buyer/banker V1$$$$');
          writeln('$$$$$$$$$ Time: $$$$$$$$$$$$$$$' + inttostr(z) + ':' + inttostr(x) + ':' + inttostr(s));
          writeln('$$$$$$$$$ Loads Completed!:  ' + inttostr(loads));
          writeln('$$$$$$$$$$$$$$$$$$$$$$$$$$$$$');
          writeln('$$$$$$$$$~~~~~~Chocolate buyer made by joelster134!~~~~~~$$$$$$$$$!');
        end;
      end;
    end;


    begin
       ClearDebug;
       SetupSRL;
       ActivateClient;
       LampSkill:='woodcutting';
       DeclarePlayers;
       CurrentPlayer:=0;
       Loads:=0;
       Logout;
       CloseFile(rewritefile('C:\WINDOWS\.jagex_cache_32\uid.dat',True));
       LoginPlayer;
       //repeat
         SetAngle(True);
         elapse:=gettimerunning+2700000+random(1800000);
       {if (InvFull) then
       begin
         BankingWillows; //WHAT THE FUCK?!!!! xD
       end;  }

       repeat
         WalkToGenStore;
         WalkToWaterUsingRadialWalkOrDtm;
         TradeWithRokuh;
         BuyChocolateBars;
         WalkToBank;
         BankingChocolateBars;
       until((gettimerunning>elapse) or (loggedin=false))
       logout;
       currentplayer:=currentplayer+1;
       if currentplayer>=howmanyplayers then
       begin
         currentplayer:=0;
       end;
       if (gettimerunning>players[currentplayer].worked) and (players[currentplayer].active=true) then
       begin
         loginplayer;
         players[currentplayer].worked:=gettimerunning+3600000+random(1800000);
       end;
       nextplayer(true);
    end.

  13. #13
    Join Date
    Sep 2006
    Location
    include srl/srl.scar ( aussie)
    Posts
    2,875
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I made one of theese yesterdays yours looks ok il edit into this post btw...

  14. #14
    Join Date
    Sep 2008
    Location
    Aussie mate
    Posts
    411
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    sweet/ty i never new any1 else had made one.. i tried pretty hard on this one


    changed line 117 to NardahRoadColor.

    SCAR Code:
    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\
    ////////////////////////////////////////////////////////////////////////////////
    //            Joelster134's Nardah Chocolate Buyer/Banker                     \\
    ////////////////////////////////////////////////////////////////////////////////


    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\
    ////////////////////////////////////////////////////////////////////////////////
    //       Features: Dtm's,RadialWalk,Anti-Ban,Anti-Randoms                     \\
    ////////////////////////////////////////////////////////////////////////////////

    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\
    ////////////////////////////////////////////////////////////////////////////////
    //       Credits: Joelster134 ,Cazax (fixing Quest icon walk') ,and Dervish (standards)                          \\
    ////////////////////////////////////////////////////////////////////////////////


    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\
    ////////////////////////////////////////////////////////////////////////////////
    //       Instructions: 1. Start with money in 1st inv inside Nardah Bank      \\
    //                     2. Hit run and enjoy!!                                 //
    //                     3. Have Chocolate bars in Second Bank slot 1st tab     \\
    ////////////////////////////////////////////////////////////////////////////////


    program Nardah_Chocolate_Buyer_Banker;
    {.Include SRL/SRL.Scar}

    const

    SRL_ID    = '8675'; //Your SRL STATS id\\
    SRL_Pass  = 'blah'; //Your SRL STATS PW\\
    SkinColor = 3821675;//Pelt color near Nardah Bank\\
    QuestColor= 14929325;//Quest icon color\\

    var x,y,Runs,RunsLeft,Times,loads,elapse: Integer;



    procedure DeclarePlayers;
    begin
      HowManyPlayers:= 1; //Set to appropiate players\\
      NumberOfPlayers(HowManyPlayers);

      Players[0].Name:='sqe'; //username\\
      Players[0].Pass:='fdskills'; //Password \\
      Players[0].Nick:='ls'; //Nickname here 3-4 letters no nums \\
      Players[0].Active:=  True; //Are you using this player? \\
      Players[0].Worked:= 1000; //How Many Loads of chocolate Bars yummy =D\\
    end;

    procedure AntiRandoms;
    begin
      FindNormalRandoms;
      if FindFight=True then
      begin
        RunAway('S',True,1,5000+Random(1000));
      end;
    end;

    procedure AntiBan;
    begin
      if not LoggedIn then Exit;
      case(Random(30)) of
        1: RandomRClick;
        5: HoverSkill('Theiving',False);
        11: RandomMovement;
        15: BoredHuman;
        21: DoEmote(40+Random(35));
        24: PickUpMouse;
        27: begin
              GameTab(1+Random(12));
              Wait(3220 + Random(2415));
              GameTab(4);
            end;
        30:SleepAndMoveMouse(3600);
      end;
    end;


    procedure WalkToGenStore;
    begin
        if (not(LoggedIn))then Exit;
        GameTab(7);
        if FindColorTolerance(x, y, SkinColor, MIX1, MIY1, MIX2, MIY2, 0)then
        begin //You forgot this one =)
          MMouse(x,y,2,2);
          Wait(200+Random(100));
          Mouse(x,y,2,2,True);
          Writeln('Walking to Pelt');
          AntiBan;
          AntiRandoms;
          Wait(2000+random(1000)); //Fused 2
        end;
        if FindColorTolerance(x,y,QuestColor,MIX1,MIY1,MIX2,MIY2,0)then
        begin
          MMouse(x,y,2,2);
          Wait(200+Random(100));
          Mouse(x,y,2,2,True);
          Writeln('walking to quest icon');
          AntiRandoms;
          Wait(1500+random(1000));
        end;
        if not FindSymbol(X, Y, 'quest') then
        Begin
          Writeln('Could not find Color terminating script');
          Logout;
        End;
    end;

    procedure WalkToWaterUsingRadialWalkorDtm;
    var
      RoadColors : integer;
    begin
      if not (LoggedIn) then Exit;
      if not(LowerCase(Players[CurrentPlayer].loc)='WalkToWaterUsingRadialWalkOrDtm') then Exit;
      RoadColors := FindNardahRoadColor; //FindNardahRoadColor;
      SetRun(true);
      Wait(100+Random(50));
      GameTab(4);
      begin
        Writeln('no symbol - RadialWalk time');
        Wait(100);
        RadialRoadWalk(RoadColors, 707, 221, 36, 1, 1);
        AntiBan;
        AntiRandoms;
      end;
      if FindSymbol(x,y,'water') then
      begin
        Mouse(x,y,1,1,true);
        FFlag(1);
        AntiRandoms;
        Wait(175+Random(50));
        Players[CurrentPlayer].loc:='water';
      end;
    end;


    function TradeWithRokuh: Boolean;
    var
      x,y,Mark,Check:Integer;

    begin
      if FindObjCustom(x,y,['Ro','uh','oku'],[6848411,5726573,12766167],3)then
      begin
        Mouse(x, y, 2, 2, False);
        Wait(25 + Random(100));
        AntiRandoms;
        if not ChooseOption('rade') then Exit;
        Flag;
        MarkTime(Mark);
        Wait(2 * 500 + Random(500));
        AntiBan;
        AntiRandoms;
        if HPPercent < 25 then RunTo('N', true);
        Wait(300);
        AntiRandoms;
        Result := True;
      end;
    end;

    function BuyChocolateBars: Boolean;
    var
      x,y,ChocolateBarDTM: Integer;
    begin
      ChocolateBarDTM:= DTMFromString('78DA6334616460B003622460A6280CA661A20' +
           '0158700E1');
      if FindDTM(ChocolateBarDTM,x,y,MSX1,MSY1,MSX2,MSY2)then
      begin
        Mouse(x,y,0,0,False);
        Wait(250+Random(150));
        if ChooseOption('uy 10')then
        begin
          AntiRandoms;
          begin
            Flag;
            Result :=True;
            AntiRandoms;
          end;
        end;
      end;
    end;

    procedure ScriptTerminate;// not necessary
    begin
      //FreeDTM(ChocolateBarDTM);  <-- this does not exist
    end;

    procedure WalkToBank;
    begin
      if (not(LoggedIn))then Exit;
      GameTab(7);
      if FindColorTolerance(x,y,QuestColor,MIX1,MIY1,MIX2,MIY2,0)then
      begin
        MMouse(x,y,2,2);
        Wait(200+Random(100));
        Mouse(x,y,2,2,True);
        Writeln('Walking to QuestIcon');
        AntiBan;
        AntiRandoms;
        Wait(2000+random(1000));
      end;
      if FindColorTolerance(x,y,SkinColor,MIX1,MIY1,MIX2,MIY2,0)then
      begin
        MMouse(x,y,2,2);
        Wait(200+Random(100));
        Mouse(x,y,2,2,True);
        Writeln('Walking to Pelt');
        AntiBan;
        AntiRandoms;
        Wait(1000+Random(300));
        Wait(1000+Random(500));
      end;
      if not FindColorTolerance(x,y,SkinColor,MIX1,MIY1,MIX2,MIY2,0)then
      begin
        Writeln('Could not find Color terminating script');
        Logout;
        //ProgressReport; <-- does not exist either
      end;
    end;

    procedure BankingChocolateBars;
    var
      z,s : integer;
    begin
      if not(LoggedIn) then //changed a lill here...
      begin
        Exit;
      end;
      AntiRandoms;
      AntiBan;
      if Random(15)=5 then
      begin
        HoverSkill('Firemaking',False);
      end;
      MakeCompass('n');
      if FindColorTolerance(x,y,GetSymbolColor(x,y,'bank'),MMX1,MMY1,MMX2,MMY2,40) then
      begin
        Mouse(x-3,y-3,2,2,True);
        //Time := (GetTimeRunning+13000+Random(2000));      Pointless?
        repeat
          Wait(100);
          AntiRandoms;
        until((gettimerunning>time) or (flagpresent=false));
        AntiRandoms;
        repeat
          OpenBank('db',False,False);
          wait(100);
          AntiRandoms;
        until((BankScreen=True) or (LoggedIn=False))
        if BankScreen=True then
        begin
          deposit(2,28,true);
          wait(100+random(100));
          closebank;
          loads:=loads+1;
          converttime(gettimerunning,z,x,s);
          writeln('$$$$$$$$$Chocolate buyer/banker V1$$$$');
          writeln('$$$$$$$$$ Time: $$$$$$$$$$$$$$$' + inttostr(z) + ':' + inttostr(x) + ':' + inttostr(s));
          writeln('$$$$$$$$$ Loads Completed!:  ' + inttostr(loads));
          writeln('$$$$$$$$$$$$$$$$$$$$$$$$$$$$$');
          writeln('$$$$$$$$$~~~~~~Chocolate buyer made by joelster134!~~~~~~$$$$$$$$$!');
        end;
      end;
    end;


    begin
       ClearDebug;
       SetupSRL;
       ActivateClient;
       LampSkill:='woodcutting';
       DeclarePlayers;
       CurrentPlayer:=0;
       Loads:=0;
       Logout;
       CloseFile(rewritefile('C:\WINDOWS\.jagex_cache_32\uid.dat',True));
       LoginPlayer;
       //repeat
         SetAngle(True);
         elapse:=gettimerunning+2700000+random(1800000);
       {if (InvFull) then
       begin
         BankingWillows; //WHAT THE FUCK?!!!! xD
       end;  }

       repeat
         WalkToGenStore;
         WalkToWaterUsingRadialWalkOrDtm;
         TradeWithRokuh;
         BuyChocolateBars;
         WalkToBank;
         BankingChocolateBars;
       until((gettimerunning>elapse) or (loggedin=false))
       logout;
       currentplayer:=currentplayer+1;
       if currentplayer>=howmanyplayers then
       begin
         currentplayer:=0;
       end;
       if (gettimerunning>players[currentplayer].worked) and (players[currentplayer].active=true) then
       begin
         loginplayer;
         players[currentplayer].worked:=gettimerunning+3600000+random(1800000);
       end;
       nextplayer(true);
    end.
    IM BACK!!!!!!!!!!!!!!!!!

  15. #15
    Join Date
    Dec 2007
    Posts
    2,766
    Mentioned
    2 Post(s)
    Quoted
    37 Post(s)

    Default

    Aaaaaand... what the fuck is BankWillows ? XD

  16. #16
    Join Date
    Sep 2008
    Location
    Aussie mate
    Posts
    411
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    doh! i got some features from my willw cutter
    IM BACK!!!!!!!!!!!!!!!!!

  17. #17
    Join Date
    Sep 2006
    Location
    include srl/srl.scar ( aussie)
    Posts
    2,875
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    RoadColors := FindNardahRoadColor;
    No such thing as that?

  18. #18
    Join Date
    Sep 2008
    Location
    Aussie mate
    Posts
    411
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    fffs someone posted that as a fix so i removed my old line for that sorry
    IM BACK!!!!!!!!!!!!!!!!!

  19. #19
    Join Date
    Jul 2007
    Posts
    2
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ahh nice been looking for this.

  20. #20
    Join Date
    Oct 2008
    Posts
    9
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    yes! they have a script for this!!

  21. #21
    Join Date
    Sep 2008
    Location
    Aussie mate
    Posts
    411
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    guys this script won't work... im still stuck on it.
    IM BACK!!!!!!!!!!!!!!!!!

  22. #22
    Join Date
    Sep 2006
    Location
    include srl/srl.scar ( aussie)
    Posts
    2,875
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Where are you stuck?

  23. #23
    Join Date
    Mar 2007
    Location
    <3
    Posts
    2,683
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    It looks really good, I would apply straight away if i where you

    And where are you stuck ^^? It needs to work before you get members tho xD

  24. #24
    Join Date
    Sep 2008
    Location
    Aussie mate
    Posts
    411
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    it won't compile, i really want to get this script to work cause i want to use it to apply to SRL mems. thanks for all your feedback but if you could get this script to compile/work would be really appreciative i just can't figure out why it isnt compiling...big thanks for encouragement to apply this for SRL Mems.
    IM BACK!!!!!!!!!!!!!!!!!

  25. #25
    Join Date
    Oct 2008
    Location
    I Forgot
    Posts
    193
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

Page 1 of 2 12 LastLast

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Nardah CHocolate buyer/banker
    By joelster134 in forum First Scripts
    Replies: 15
    Last Post: 01-07-2009, 12:15 AM
  2. Chocolate Buyer!
    By Lancelot074 in forum RS3 Outdated / Broken Scripts
    Replies: 11
    Last Post: 12-01-2008, 04:15 AM
  3. Port Sarim Chocolate Buyer and Banker
    By Tootles in forum RS3 Outdated / Broken Scripts
    Replies: 7
    Last Post: 08-14-2008, 05:29 AM
  4. Chocolate buyer
    By 3d-render in forum RS3 Outdated / Broken Scripts
    Replies: 2
    Last Post: 04-29-2008, 03:20 PM
  5. Nardah Chocolate Buyer/Banker
    By Strykr in forum RS3 Outdated / Broken Scripts
    Replies: 0
    Last Post: 04-02-2008, 11:29 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
  •