Results 1 to 21 of 21

Thread: Need Help with Auto superheater

  1. #1
    Join Date
    Dec 2006
    Posts
    51
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Need Help with Auto superheater

    I got most of the script done..i just need one or 2 more things more thing...i got it to super heat the first item..how can i get it to do a whole inventory then get into the bank insert the bars and withdraw more ores then repeat.

    ty in advance for the help anything else you think i can improve on im open for suggestions. ty

    Here is what the script looks like now

    scar
    SCAR Code:
    program SuperHeater;
    {.include SRL\SRL.scar}
    {.include SRL/SRL/Skill/Magic.scar}

    const
    LoadsToDo=1;
    username='****'; //username here
    password='*****'; //password here

    procedure ClickExistingUser;
       begin

          MMouse(455,293,5,5)
          wait(200+random(200));
          Mouse(455,293,0,0, true)
       end;

    procedure ClickLogin;
       begin
          MMouse(259,312,2,2)
          wait(200+random(100));
          Mouse(259,312,0,0,true)
       end;
       
    procedure ClcikOk;
       begin
            wait(50+random(60));
            MMouse(397,336,4,4)
            wait(6000+random(60));
            Mouse (397,336,0,0,true)
       end;



    procedure spellbook; //split prgram up into procedures.
    begin
    GameTab (7) //<< this is right
    end;

    procedure CastTheSpell;
    begin
    Cast('Superheat Item'); //it must be like this like i said..
    end;

    Procedure three;//same
    begin
    MMouse(584,228, 3, 3) //Make this MMouse
    wait(1000+random(300))
    Mouse(584,228, 0, 0, true)
    end; //You forgot this end.

    //You forgot your mainloop. Here you say which procedures you wanna run
    begin
    SetUpSRL;
      wait (1000);
      ClickExistingUser;
      wait(500+random(100));
      TypeSend(username);
      wait(500+random(100));
      TypeSend(password);
      ClickLogin;
      ClcikOk;
    SpellBook;
    CastTheSpell;
    three;
    NEWLINE:='';

    end.

    repeat
    until=(LoadsToDo)
    / scar

  2. #2
    Join Date
    Dec 2006
    Location
    Australia
    Posts
    698
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    To do the whole inventory have a reapt until not fint the ore in the inventory.
    To withdraw more your going to have to investigate banking procedures.

  3. #3
    Join Date
    Apr 2007
    Posts
    3,152
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    use scar tabs
    SCAR Tutorials: The Form Tutorial | Types, Arrays, and Classes
    Programming Projects: NotePad | Tetris | Chess


  4. #4
    Join Date
    Mar 2007
    Location
    Under a rock
    Posts
    813
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Yeah, please use in scar tags, a lot easier to read for me.

  5. #5
    Join Date
    Dec 2006
    Posts
    51
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    what are scar tags/tabs?

  6. #6
    Join Date
    Apr 2007
    Posts
    3,152
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    just putur script in between these [scar][/ scar]
    SCAR Tutorials: The Form Tutorial | Types, Arrays, and Classes
    Programming Projects: NotePad | Tetris | Chess


  7. #7
    Join Date
    Mar 2007
    Location
    Under a rock
    Posts
    813
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Yeah, please use in scar tags, a lot easier to read for me.

    EDIT:

    first off, please doen use 0, 0 in your mouse movements, use like Mouse (397,336,5,5,true)

    second, ust use LoginPlayer; to login, no need to make coords and stuff for it!

    and your main loop should be this:

    SCAR Code:
    begin
    repeat
    SetUpSRL;
    LoginPlayer;
    NEWLINE:='';
    repeat
      SpellBook;
      CastTheSpell;
      three;
    until=(LoadsDone >= LoadsToDo)
    Logout;
    LoadsDone := 0
    NextPlayer(true);
    until(false);
    end.
    and the LoadsDone is a variable and do in your script after a load is done:

    LoadsDone := LoadsDone +1

  8. #8
    Join Date
    Dec 2006
    Posts
    51
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    now i get
    Syntax error in script

  9. #9
    Join Date
    Dec 2006
    Location
    Australia
    Posts
    698
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    change until=(LoadsDone >= LoadsToDo) to until (LoadsDone >= LoadsToDo)

  10. #10
    Join Date
    Dec 2006
    Posts
    51
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    now i get this...
    Unknown identifier 'LoadsDone'

  11. #11
    Join Date
    Dec 2006
    Location
    Australia
    Posts
    698
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    it needs to be set as a variable at the top

  12. #12
    Join Date
    Dec 2006
    Posts
    51
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    errr uhhhh and i would do that how??

  13. #13
    Join Date
    Dec 2006
    Location
    Australia
    Posts
    698
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    var loadsdone :integer

  14. #14
    Join Date
    Dec 2006
    Posts
    51
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    now i get
    Line 8: [Error] (18383:1): Semicolon (';') expected in script


    SCAR Code:
    program SuperHeater;
    {.include SRL\SRL.scar}
    {.include SRL/SRL/Skill/Magic.scar}

    var
    LoadsDone :integer

    const

    LoadsToDo=1;
    username=''; //username here
    password=''; //password here

    procedure ClickExistingUser;
       begin

          MMouse(455,293,5,5)
          wait(200+random(200));
          Mouse(455,293,0,0, true)
       end;

    procedure ClickLogin;
       begin
          MMouse(259,312,2,2)
          wait(200+random(100));
          Mouse(259,312,0,0,true)
       end;
       
    procedure ClcikOk;
       begin
            wait(50+random(60));
            MMouse(397,336,4,4)
            wait(6000+random(60));
            Mouse (397,336,0,0,true)
       end;



    procedure spellbook; //split prgram up into procedures.
    begin
    GameTab (7) //<< this is right
    end;

    procedure CastTheSpell;
    begin
    Cast('Superheat Item'); //it must be like this like i said..
    end;

    Procedure three;//same
    begin
    MMouse(584,228, 3, 3) //Make this MMouse
    wait(1000+random(300))
    Mouse(584,228, 0, 0, true)
    end; //You forgot this end.

    //You forgot your mainloop. Here you say which procedures you wanna run
    begin
    repeat
    SetUpSRL;
    LoginPlayer;
    NEWLINE:='';
    repeat
      SpellBook;
      CastTheSpell;
      three;
    until (LoadsDone >= LoadsToDo)
    Logout;
    LoadsDone := 0
    NextPlayer(true);
    until(false);
    end.

  15. #15
    Join Date
    Dec 2006
    Location
    Australia
    Posts
    698
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    ; after integer.

    have you actually read any tuts?

  16. #16
    Join Date
    Dec 2006
    Posts
    51
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i read one or 2

  17. #17
    Join Date
    Dec 2006
    Posts
    51
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i want it to repeat SpellBook and CastTheSpell and click on inv slots 1-28 right now it just does the first inv slot can u help me do that?

  18. #18
    Join Date
    Dec 2006
    Location
    Australia
    Posts
    698
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    I really think you should read more tutorials, and you need to understand the concept of how to use dtms, like i mentioned before make it do a loop using
    repeat
    smelt
    until not(findDtm.....

  19. #19
    Join Date
    Apr 2007
    Location
    California
    Posts
    259
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    You should read some more tutorials, and use DTMs since this script is all inventory item things. You'll have to read some of the SRL include and learn about the various banking methods and choose one you like. Here's my fix on your script, including an ore DTM (which i already had made from one of my scripts, and it should work(if not, make a new one))

    SCAR Code:
    program New;
    {.include SRL/SRL.scar}
    {.include SRL/SRL/Skill/Magic.scar}

    var
      LoadsDone,OreDTM: Integer;

    const
      LoadsToDo = 10; //Set this to the amount you want todo

    procedure LoadImages; //Loads the DTM
    begin //This DTM should work. If it doesn't, read a tut and make a new one
      OreDTM := DTMFromString('78DA6394646060106740011EBA0A0CFF81342' +
           '310FF0702464E204392010D302291405A0448A81050A30424E408' +
           'A89101125C04D4A8030901026A0408AB010092B906EC');
    end;

    procedure FreeImages; //Frees the DTM
    begin
      FreeDTM(OreDTM);
    end;

    procedure SpellBook;
    begin
      GameTab(7);
    end;

    procedure CastTheSpell;
    begin
      SpellBook;//Clicks the spellbook
      repeat
        Cast('Superheat Item'); //clicks superheat (i believe)
        FindDTM(OreDTM,x,y,MIX1,MIY1,MIX1,MIX2); //Sets x and y to the coords of the DTM
        Mouse(x,y,2,2,true); //Clicks the DTM (in this case, the ore)
        Wait(1000+random(300));
      until (not(FindDTM(OreDTM,x,y,MIX1,MIY1,MIX2,MIY2)));//until not find the ore
      LoadsDone := LoadsDone + 1; //Adds 1 to LoadsDone each time you finish a load
    end;

    begin
      SetupSRL;
      LoadImages;
      LoadsDone := 0; //Sets the amount done so far to 0.
      repeat
        if(LoggedIn = False) then  //If not logged in, then log in
        NextPlayer(True);
        CastTheSpell;
      until(LoadsDone >= LoadsToDo)//Stops when the amount done matches the amount to do
      //It will do as many loads as you said, then log out and end script.
      Logout;
      FreeImages;
    end.

  20. #20
    Join Date
    Dec 2006
    Posts
    51
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    is there a tutorial that yall would reccomend

  21. #21
    Join Date
    Apr 2007
    Posts
    220
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by psychoson View Post
    is there a tutorial that yall would reccomend
    Go to tutorial island and then to the beginners tutorial section. Check one of the stickys. There is a very good tut. And don't ask something for every error. First learn the basics. Tnx
    EDIT: Don't make dubble threads about the same thing..

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Help Superheater?
    By joshdabest01 in forum OSR Help
    Replies: 10
    Last Post: 11-29-2008, 11:22 PM
  2. Ore Superheater
    By Kupoz in forum RS3 Outdated / Broken Scripts
    Replies: 4
    Last Post: 10-29-2008, 03:14 AM
  3. Need Help With an Auto Superheater
    By Bonfield in forum OSR Help
    Replies: 20
    Last Post: 11-12-2007, 01:19 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
  •