Results 1 to 5 of 5

Thread: Before I delete any TRACE of this..

  1. #1
    Join Date
    Feb 2007
    Location
    South East England
    Posts
    2,906
    Mentioned
    2 Post(s)
    Quoted
    8 Post(s)

    Default Before I delete any TRACE of this..

    Can someone please fix this. Take it and fix it. Please, pass it off as yours I dont care. Ill just have a sidecredit for the idea.

    Ive tried this TOO many times now. It doesnt find the potions at the bank, doesnt mix them, OR bank them. Its utterly f*cking useless. Someone, please fix it or tell me how to :[

    SCAR Code:
    {//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//
    |                       Varrock West Bank Potion 3 to 4 Mixer                  |
    |                             By Torrent of Flame                              |
    |                       Scar 3.14          SRL 4.0 Rev 14                      |
    |                                 Version 1.1                                  |
    |                    Mixes Potions in Varrock West from 3 to 4                 |
    |                             Start in Varrock West Bank                       |
    |                                 Start Logged Out                             |
    |                        Put Potions in FIRST or SECOND Row                    |
    |                    First of a Kind Script as far as I know!                  |
    //\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\
    |                        Setup Player at lines 45 to 77                        |
    //\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\
    |                   Mega thanks to Dude Richard for helping me out!            |
    //\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\
    |Version 1.1 Includes                                                          |
    |                                   Anti - Ban                                 |
    |                                 Anti - Randoms                               |
                                        FailSafes                                  |
                                      Pin Compatible                               |
    //\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\}



    Program PotionMixer;
    {.include SRL/SRL.scar}


    const

    //---->Loads<-----\\
    Loads = 0; //Approximate Amount.

    //--->SRL ID<---\\
    YourSRLId = '';
    YourSRLPassword ='';

    //--->Pin - Make same for ALL chars. If no Pin, leave blank<---\\
    YourPin = '1993';


    {-------------------------------------------------------
                           Player Setup
    --------------------------------------------------------}


    procedure DeclarePlayers;
    begin

       HowManyPlayers := 2; //How many Players
       NumberOfPlayers(HowManyPlayers);
       CurrentPlayer :=0; //Starting Player

       Players[0].Name := 'Emo Wood Cut';
       Players[0].Pass := 'pscsrocks';
       Players[0].Nick := 'ood';
       Players[0].Active := True;

    {   Players[1].Name := '';
       Players[1].Pass := '';
       Players[1].Nick := '';
       Players[1].Active := False;

       Players[2].Name := '';
       Players[2].Pass := '';
       Players[2].Nick := '';
       Players[2].Active := True;

       Players[3].Name := '';
       Players[3].Pass := '';
       Players[3].Nick := '';
       Players[3].Active := True;

       Players[4].Name := '';
       Players[4].Pass := '';
       Players[4].Nick := '';
       Players[4].Active := True;

       Players[5].Name := '';
       Players[5].Pass := '';
       Players[5].Nick := '';
       Players[5].Active := True;   }


    end;

    {----------------------------Do Not Edit Below This----------------------------}
    var x, y: integer;
        PotionsMixed: integer;
        PotionsMixed2: integer;
        EmptyVial: integer;
        Attack: integer;

    //Signature\\

    procedure Signature;
     begin
       ClearDebug;
       wait(250 + random(30));
       writeln('        Torrents Potion 3 to 4 Mixer      ');
       wait(250 + random(30));
       writeln(' _____                                _   ');
       wait(250 + random(30));
       writeln('(_   _)                              ( )_ ');
       wait(250 + random(30));
       writeln('  | |   _    _ __  _ __   __    ___  | ,_)');
       wait(250 + random(30));
       writeln('  | | / _`\ ( "__)( "__)/"__`\/" _ `\| |  ');
       wait(250 + random(30));
       writeln('  | |( (_) )| |   | |  (  ___/| ( ) || |_ ');
       wait(250 + random(30));
       writeln('  (_)`\___/ (_)   (_)  `\____)(_) (_) \__)');
       wait(500 + random(30));
     end;

    //Torrent Proggy\\

    procedure ToFProggy;
    begin
      ClearDebug;
      Writeln(',,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,');
      Writeln('/\Please Post Progress Reports & Any problems /\ ');
      Writeln('/\      From Wherever you got the script      /\ ');
      Writeln('//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\ ');
      Writeln('//\\Worked For: '        + TimeRunning + '                   //\\');
      Writeln('//\\Mixed: '        + IntToStr(PotionsMixed)+ ' Potions                     //\\');
      Writeln('//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\ ');
      Writeln('//\\      Thanks for Using my Script :D     //\\ ');
      Writeln('```````````````````````````````````````````````');
    end;

    //Logging in...\\

    procedure Login;
    begin
     if (not(LoggedIn)) then
     LoginPlayer;
    end;

    //------------------------------Anti-Randoms!!------------------------------\\

    procedure FindRandoms;
    begin
      FindTalk;
      FindNormalRandoms;
      FindLamp('Herblore');
      SolvePinball;
    end;


    //------------------Attack Potion DDTM & Empty Vial DDTM-----------------------\\
    function AttackPotionDDTM: Integer;
    var
      dtmMainPoint: TDTMPointDef;
      dtmSubPoints: Array [0..9] of TDTMPointDef;
      TempTDTM: TDTM;
    begin
      dtmMainPoint.x := 117;
      dtmMainPoint.y := 82;
      dtmMainPoint.AreaSize := 0;
      dtmMainPoint.AreaShape := 0;
      dtmMainPoint.Color := 3358280;
      dtmMainPoint.Tolerance := 0;

      dtmSubPoints[0].x := 117;
      dtmSubPoints[0].y := 82;
      dtmSubPoints[0].AreaSize := 0;
      dtmSubPoints[0].AreaShape := 0;
      dtmSubPoints[0].Color := 3358280;
      dtmSubPoints[0].Tolerance := 0;

      dtmSubPoints[1].x := 96;
      dtmSubPoints[1].y := 67;
      dtmSubPoints[1].AreaSize := 0;
      dtmSubPoints[1].AreaShape := 0;
      dtmSubPoints[1].Color := 3368304;
      dtmSubPoints[1].Tolerance := 0;

      dtmSubPoints[2].x := 93;
      dtmSubPoints[2].y := 81;
      dtmSubPoints[2].AreaSize := 0;
      dtmSubPoints[2].AreaShape := 0;
      dtmSubPoints[2].Color := 13815102;
      dtmSubPoints[2].Tolerance := 0;

      dtmSubPoints[3].x := 91;
      dtmSubPoints[3].y := 89;
      dtmSubPoints[3].AreaSize := 0;
      dtmSubPoints[3].AreaShape := 0;
      dtmSubPoints[3].Color := 13880906;
      dtmSubPoints[3].Tolerance := 0;

      dtmSubPoints[4].x := 90;
      dtmSubPoints[4].y := 83;
      dtmSubPoints[4].AreaSize := 0;
      dtmSubPoints[4].AreaShape := 0;
      dtmSubPoints[4].Color := 13880902;
      dtmSubPoints[4].Tolerance := 0;

      dtmSubPoints[5].x := 92;
      dtmSubPoints[5].y := 73;
      dtmSubPoints[5].AreaSize := 0;
      dtmSubPoints[5].AreaShape := 0;
      dtmSubPoints[5].Color := 8026489;
      dtmSubPoints[5].Tolerance := 0;

      dtmSubPoints[6].x := 85;
      dtmSubPoints[6].y := 88;
      dtmSubPoints[6].AreaSize := 0;
      dtmSubPoints[6].AreaShape := 0;
      dtmSubPoints[6].Color := 65536;
      dtmSubPoints[6].Tolerance := 0;

      dtmSubPoints[7].x := 95;
      dtmSubPoints[7].y := 92;
      dtmSubPoints[7].AreaSize := 0;
      dtmSubPoints[7].AreaShape := 0;
      dtmSubPoints[7].Color := 65536;
      dtmSubPoints[7].Tolerance := 0;

      dtmSubPoints[8].x := 92;
      dtmSubPoints[8].y := 78;
      dtmSubPoints[8].AreaSize := 0;
      dtmSubPoints[8].AreaShape := 0;
      dtmSubPoints[8].Color := 13880902;
      dtmSubPoints[8].Tolerance := 0;

      dtmSubPoints[9].x := 88;
      dtmSubPoints[9].y := 83;
      dtmSubPoints[9].AreaSize := 0;
      dtmSubPoints[9].AreaShape := 0;
      dtmSubPoints[9].Color := 13880902;
      dtmSubPoints[9].Tolerance := 0;

      TempTDTM.MainPoint := dtmMainPoint;
      TempTDTM.SubPoints := dtmSubPoints;
      Result := AddDTM(TempTDTM);
    end;

    function EmptyVialDDTM: Integer;
    var
      dtmMainPoint: TDTMPointDef;
      dtmSubPoints: Array [0..9] of TDTMPointDef;
      TempTDTM: TDTM;
    begin
      dtmMainPoint.x := 121;
      dtmMainPoint.y := 82;
      dtmMainPoint.AreaSize := 0;
      dtmMainPoint.AreaShape := 0;
      dtmMainPoint.Color := 3358280;
      dtmMainPoint.Tolerance := 0;

      dtmSubPoints[0].x := 121;
      dtmSubPoints[0].y := 82;
      dtmSubPoints[0].AreaSize := 0;
      dtmSubPoints[0].AreaShape := 0;
      dtmSubPoints[0].Color := 3358280;
      dtmSubPoints[0].Tolerance := 0;

      dtmSubPoints[1].x := 141;
      dtmSubPoints[1].y := 67;
      dtmSubPoints[1].AreaSize := 0;
      dtmSubPoints[1].AreaShape := 0;
      dtmSubPoints[1].Color := 3500147;
      dtmSubPoints[1].Tolerance := 0;

      dtmSubPoints[2].x := 142;
      dtmSubPoints[2].y := 76;
      dtmSubPoints[2].AreaSize := 0;
      dtmSubPoints[2].AreaShape := 0;
      dtmSubPoints[2].Color := 3814966;
      dtmSubPoints[2].Tolerance := 0;

      dtmSubPoints[3].x := 144;
      dtmSubPoints[3].y := 83;
      dtmSubPoints[3].AreaSize := 0;
      dtmSubPoints[3].AreaShape := 0;
      dtmSubPoints[3].Color := 4407102;
      dtmSubPoints[3].Tolerance := 0;

      dtmSubPoints[4].x := 148;
      dtmSubPoints[4].y := 88;
      dtmSubPoints[4].AreaSize := 0;
      dtmSubPoints[4].AreaShape := 0;
      dtmSubPoints[4].Color := 3617587;
      dtmSubPoints[4].Tolerance := 0;

      dtmSubPoints[5].x := 139;
      dtmSubPoints[5].y := 93;
      dtmSubPoints[5].AreaSize := 0;
      dtmSubPoints[5].AreaShape := 0;
      dtmSubPoints[5].Color := 65536;
      dtmSubPoints[5].Tolerance := 0;

      dtmSubPoints[6].x := 139;
      dtmSubPoints[6].y := 90;
      dtmSubPoints[6].AreaSize := 0;
      dtmSubPoints[6].AreaShape := 0;
      dtmSubPoints[6].Color := 7368301;
      dtmSubPoints[6].Tolerance := 0;

      dtmSubPoints[7].x := 140;
      dtmSubPoints[7].y := 72;
      dtmSubPoints[7].AreaSize := 0;
      dtmSubPoints[7].AreaShape := 0;
      dtmSubPoints[7].Color := 5854291;
      dtmSubPoints[7].Tolerance := 0;

      dtmSubPoints[8].x := 138;
      dtmSubPoints[8].y := 66;
      dtmSubPoints[8].AreaSize := 0;
      dtmSubPoints[8].AreaShape := 0;
      dtmSubPoints[8].Color := 5547702;
      dtmSubPoints[8].Tolerance := 0;

      dtmSubPoints[9].x := 143;
      dtmSubPoints[9].y := 80;
      dtmSubPoints[9].AreaSize := 0;
      dtmSubPoints[9].AreaShape := 0;
      dtmSubPoints[9].Color := 4209723;
      dtmSubPoints[9].Tolerance := 0;

      TempTDTM.MainPoint := dtmMainPoint;
      TempTDTM.SubPoints := dtmSubPoints;
      Result := AddDTM(TempTDTM);
    end;

    //-----------------------------Banking the Potions----------------------------\\

    function Banking: Boolean;
    begin
      Wait (300 + random(160));
      OpenBankQuiet('db');
      if (PinScreen) then
        InPin(YourPin);
       
      if (FindDTM(AttackPotionDDTM, x, y, 66, 59, 163, 96 ))then
      begin
        Mouse(x, y, 4, 3, false)
        ChooseOption('All');
      end else

      if (not(FindDTM(AttackPotionDDTM, x, y, 66, 59, 163, 96 ))) then
      begin
        Writeln('Potions NOT found. Make sure they are in the first 3 slots!');
        Exit;
      end;
     CloseBank;
     Wait(150 + random (278));
    end;

    //-----------------------------Mixing the Potions-----------------------------\\

    procedure MixingPotions;
    begin
      if (FindColorSpiral(x, y, 13815094, 564, 209, 728, 464 )) then
      begin
        if IsUpText('(3)') then
          Mouse(x, y, 5, 5, false);
          ChooseOption('Use');
         
        if (FindColorSpiral(x, y, 13815094, 564, 209, 728, 464 )) then
          begin
          if IsUpText('ial') then
          Mouse (x, y , 5, 5, true);
              begin
                PotionsMixed := PotionsMixed + 1;
                PotionsMixed2 := PotionsMixed2 + 1;
                ReportVars[1] := ReportVars[1] + 1;
                SendSRLReport;
              end;
          end;
      end;
    end;


    //-------------------------------->BankThisShit<------------------------------\\

    procedure BankThisShit;
    begin
      Mouse(732, 472, 766, 504, false);
      if IsUpText('(4)') then
         OpenBankQuiet('db');
         if (FindColorSpiral(x, y, 13815094, 564, 209, 728, 464 )) then
         begin
           Mouse (x, y , 5, 5, false);
           ChooseOption('All')
         end;

         if (FindColorSpiral(x, y, 6512479, 564, 209, 728, 464)) then
         begin
           Mouse(x, y, 4, 3, false)
           ChooseOption('All');
         end;
       CloseBank;
       Banking;
    end;

    //----------------------------->>>Main Loop<<<--------------------------------\\

    procedure SetupScript;
    begin
      SRLId := YourSRLId;
      SRLPassword:= YourSRLPassword;
      if (Loggedin) then Logout;
      LoadBMPs;
      SetupSRL;
      ScriptID:= '700';
      Signature;
      DeclarePlayers;
      if (not (Loggedin)) then Login;
    end;

    begin
      SetupScript;
      Banking;
        repeat
          MixingPotions;
          BankThisShit;
          if (PotionsMixed=Loads) then
            begin
              NextPlayer(True);
              PotionsMixed2 := 0;
              Writeln('Players Switched successfully')
            end;
        until (false)
         TofProggy;
         SRLRandomsReport;
    end.

    Thanks
    Jus' Lurkin'

  2. #2
    Join Date
    Dec 2006
    Location
    Copy pastin to my C#
    Posts
    3,788
    Mentioned
    8 Post(s)
    Quoted
    29 Post(s)

    Default

    Ofcourse it doesn't find them, the every point of your DDTM is 0 tolerance

  3. #3
    Join Date
    Feb 2007
    Location
    South East England
    Posts
    2,906
    Mentioned
    2 Post(s)
    Quoted
    8 Post(s)

    Default

    Tried changing it. This is the version that I just opened and it had no tolerance.

    The mouse just zooms around the screen randomly clicking...
    Jus' Lurkin'

  4. #4
    Join Date
    Oct 2006
    Location
    finland, helsinki
    Posts
    2,501
    Mentioned
    3 Post(s)
    Quoted
    2 Post(s)

    Default

    Mouse(732, 472, 766, 504, false);

    What is this?

    and this?

    procedure FindRandoms;
    begin
    FindTalk;
    FindNormalRandoms;
    FindLamp('Herblore');
    SolvePinball;
    end;

    use FindNormalRandoms only..

    change all ur

    FindColorSpiral

    To

    FindColorTolerance

    and add tolerance about 5-10

    and ur DDTMs add 5-10 tolerance to every point.

    Code:
    • Narcle: I recall Jukka releasing a bunch of scripts like this before... Its how he rolls I think. rofl
    • Solarwind: Dude, you are like... t3h s3x.
    • Hy71194: JuKKa you're a machine! You released 3 scripts in 10 minutes! :O
    • benjaa: woah.... Jukka is the man Guildminer pwns all
    • NaumanAkhlaQ: And JuKKa Is my Her0!

  5. #5
    Join Date
    Feb 2007
    Location
    South East England
    Posts
    2,906
    Mentioned
    2 Post(s)
    Quoted
    8 Post(s)

    Default

    Ill try it, hope it works.

    And The mouse is too look up the potion in inventory, i think..

    I dont know, Dude Richard wrote that part.

    SOD IT. Cant be bothered anymore.
    Jus' Lurkin'

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. How To Trace Peoples IP through MSN
    By Johura in forum Computer Help and Tutorials
    Replies: 25
    Last Post: 08-11-2008, 11:54 PM
  2. delete this forum
    By Starblaster100 in forum The Bashing Club / BBQ Pit
    Replies: 21
    Last Post: 06-09-2008, 06:27 PM
  3. Which to delete
    By Camaro' in forum RuneScape News and General
    Replies: 3
    Last Post: 06-01-2008, 10:02 PM
  4. UID, others not being able to delete
    By da_professa in forum RS has been updated.
    Replies: 5
    Last Post: 06-19-2007, 03:16 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
  •