Results 1 to 10 of 10

Thread: i dont even know where to start...

  1. #1
    Join Date
    Apr 2007
    Location
    South-West
    Posts
    34
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    i dont even know where to start...

    ok... RS_Monkey has been helping me alot with my problums non stop Thank you RS_Monkey but do you got a MSN or yahoo bcuz i need instant help for the stuff im going through

    ok to all the ppl new to me (and I new to you) this is my problum... im a very NOOB programmer and i plan to become a game programmer but i cant even make this power miner -.- the curser keeps hitting the Far Upper left corner of the screen and now i got a error on Line 24 saying i need a period

    heres the script:

    SCAR Code:
    program PowerMiner;
    {.include SRL/SRL.scar}
    {.include SRL/SRL/skill/Mining.scar}
    var
    z,c:integer;
    i:integer;
    Const
    TinOreColor1=4211015;
    TinOreColor2= 5592415;

    procedure Mine;
    begin
    i:=0;
    end;
    begin
    repeat
    i:=i+1
    if(FindColor(x,y,TinOreColor2,0,0,100,100))THEN
    begin
    MMouse(x,y,0,0);
    wait(100+random(50));
    Mouse(x,y,0,0,true);
    until(InvFull);
    end;
    procedure Drop;
    begin
    DropAll;
    end;
    begin
    SetupSRL;
    repeat
    Mine;
    Drop;
    until(i >=10);
    end.

    I'm pretty new to programming and every1 tells me SCAR is a good place to start... that and i wanna Help all of us out there when i get as good as RS_monkey,pentii,wizzup, and starblaster100(h) so sum1 plz plz give me their messenger so you can help me... problum with forums is its very slow to get respounces when u got as many problums as me -.-

  2. #2
    Join Date
    Feb 2007
    Location
    USA
    Posts
    667
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    randomF_I_R_E@hotmail.com


    I'm on right now.

  3. #3
    Join Date
    Apr 2007
    Location
    South-West
    Posts
    34
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    soz forgot to add the problum line

    SCAR Code:
    program PowerMiner;
    {.include SRL/SRL.scar}
    {.include SRL/SRL/skill/Mining.scar}
    var
    z,c:integer;
    i:integer;
    Const
    TinOreColor1=4211015;
    TinOreColor2= 5592415;
     
    procedure Mine;
    begin
    i:=0;
    end;
    begin
    repeat
    i:=i+1
    if(FindColor(x,y,TinOreColor2,0,0,100,100))THEN
    begin
    MMouse(x,y,0,0);
    wait(100+random(50));
    Mouse(x,y,0,0,true);
    until(InvFull);
    end; //this is the line 24
    procedure Drop;
    begin
    DropAll;
    end;
    begin
    SetupSRL;
    repeat
    Mine;
    Drop;
    until(i >=10);
    end.

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

    Default

    try this.



    SCAR Code:
    program PowerMiner;
    {.include SRL/SRL.scar}
    {.include SRL/SRL/skill/Mining.scar}
    var
    z,c:integer;
    i:integer;
    Const
    TinOreColor1=4211015;
    TinOreColor2= 5592415;

    procedure Mine;
    begin
     repeat
      i:=i+1
      if(FindColor(x,y,TinOreColor2,0,0,100,100))THEN
      begin
       MMouse(x,y,0,0);
       wait(100+random(50));
       Mouse(x,y,0,0,true);

      end;
     until(InvFull);
    end;


    procedure Drop;
    begin
     DropAll;
     i:=0;
    end;
    begin
     SetupSRL;
     repeat

      Mine;
      Drop;
     until(i >=10);
    end.
     repeat
      Mine;
      Drop;
     until(i >=10);
    end.

    this compiles, but i don't know what you are trying to do, also, i dont understand your repeat cycles, you need a different variable to end script after loads done, and you have your mining cycle in two different repeats whith var set at different amounts, why?
    just adding another var or two would simplify things so much,
    and also adding some tolerance to your mouse procedure would help, 0 not a good random.
    (too much tolerance on findcolor procedure?)

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

    Default

    SCAR Code:
    program PowerMiner;

    {.include SRL/SRL.scar}
    {.include SRL/SRL/skill/Mining.scar}

    var
      i:integer; //I took out z and c because they're not used..

    const
      TinOreColor1=4211015;
      TinOreColor2= 5592415;

    procedure Mine;
    begin
      i:=0;
      repeat
        i:=i+1
        if(FindColor(x,y,TinOreColor2,0,0,100,100))then
        begin
          MMouse(x,y,0,0);
          wait(100+random(50));
          Mouse(x,y,0,0,true);
        end
      until(InvFull);
    end;

    procedure Drop;
    begin
      DropAll;
    end;

    begin
      SetupSRL;
      repeat
        Mine;
        Drop;
      until(i >=10);
    end.

    Try that. I didn't test it, but i fixed your errors so that it compiles.

    Edit: And yeah, as The RS Monkey said below me there is plenty of room for improvement, I merely fixed it so that it compiles and should work now. All it does though is check the color, not the name of the object. FindObj would work better, as it's FindColor and IsUpText put together.

  6. #6
    Join Date
    May 2006
    Posts
    1,230
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    addictionsocom2@aim.com = msn
    but im not on it most of the time, so don't expect me to get on anytime soon =\

    What newtoauting posted will work,
    but to make the script more reliable
    you make want to study FindObj.

    If you need help with it you can ask here =)

  7. #7
    Join Date
    Apr 2007
    Location
    South-West
    Posts
    34
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Ok tks all of you i fixed it and had it running pretty well... except i wanna know how starblaster100 makes his auto wait for ores :P well anyways heres the 1 im working on with randoms... for some reason it says it cant find the procedure in everything

    SCAR Code:
    {|  ___|__  ________  _ _      _ ____                       |
     |  |  |  ||        |  |        |   |                       |
     |  |__|__ |    |   |  |        |   |                       |
     |     |  ||    |   |  |        |   |                       |
     |  |__|__||________|  |________|   |______|                |
     |     |           __|__                                    |
     |   ___    ___   /  |  \   ___|___   |  /  ______   _____  |
     |    |      |   /   |   \ |   |   |  | /  |        |  |  | |
     |    |__|__ |   |___|___| |   |   ++ |/   |        |  |  | |
     |    |  |   |   |   |   | |   |   ++ | \  |++++++  |     / |
     |    |      |   |   |   | |___|___|  |  \ |        |  | \  |
     |  +++++ ++++++     |         |      |   \|_______ |  |  \ |
     |__________________________________________________________|
     Special thanks to RS_Monkey and omgh4xorz and ALL OF THOSE WHO HELPED OUT}



    program SoulHackersPowerMiner;
    {.include SRL/SRL.scar}
    {.include SRL/SRL/skill/Mining.scar}
    var
    z:integer;
    Loads:integer;
    Ores:integer;
    Const
    TinOreColor2= 5592415;

    procedure Mine;
    begin
    repeat
    if(FindColorTolerance(x,y,TinOreColor2,MSX1, MSY1, MSX2, MSY2, 15))THEN
    MMouse(x,y,0,0);
    Mouse(x,y,0,0,true);
    wait(5000+random(500));
    DoAntiRandoms
    until(InvFull);
    end;
    procedure Drop;
    begin
    DropTo(2,28);
    DoAntiRandoms
    end;
    procedure DoAntiRandoms;
    begin
    FindTalk;
    FindNormalRandoms;
    if (FindFight=true) THEN
    begin
    RunAwayDirection('N')
    Wait(10000+random(2000));
    RunBack
    end;
    end;

    procedure Proggy;
    begin
    ClearDebug
     Writeln('0000000000000000000000');
     Writeln('0000000PROGRESS0000000');
     writeln('00 did'+ IntToStr(loads)+'Loads'+'      00');
     Writeln('00 Did '+ IntToStr(Ores)+'Ores'+'       00');
     Writeln('0000000000000000000000')
     Writeln('0000000000000000000000')

     begin
    SetupSRL;
    repeat
    Loads:=Loads+1
    Mine;
    Drop;
    until(Loads >=z)
    end.

    and heres the 1 that works without bugs and Anti-random >_>

    SCAR Code:
    {|  ___|__  ________  _ _      _ ____                       |
     |  |  |  ||        |  |        |   |                       |
     |  |__|__ |    |   |  |        |   |                       |
     |     |  ||    |   |  |        |   |                       |
     |  |__|__||________|  |________|   |______|                |
     |     |           __|__                                    |
     |   ___    ___   /  |  \   ___|___   |  /  ______   _____  |
     |    |      |   /   |   \ |   |   |  | /  |        |  |  | |
     |    |__|__ |   |___|___| |   |   ++ |/   |        |  |  | |
     |    |  |   |   |   |   | |   |   ++ | \  |++++++  |     / |
     |    |      |   |   |   | |___|___|  |  \ |        |  | \  |
     |  +++++ ++++++     |         |      |   \|_______ |  |  \ |
     |__________________________________________________________|
     Special thanks to RS_Monkey and omgh4xorz and ALL OF THOSE WHO HELPED OUT}


    program PowerMiner;
    {.include SRL/SRL.scar}
    {.include SRL/SRL/skill/Mining.scar}
    var
    z:integer;
    i:integer;
    Const
    TinOreColor1=4211015;
    TinOreColor2= 5592415;

    procedure Mine;
    begin
    z=10 //number of loads
    i:=0;
    repeat
    if(FindColorTolerance(x,y,TinOreColor2,MSX1, MSY1, MSX2, MSY2, 15))THEN
    MMouse(x,y,0,0);
    Mouse(x,y,0,0,true);
     wait(5000+random(50));
    until(InvFull);
    end; //this is the line 24
    procedure Drop;
    begin
    DropTo(2,28);
    end;
    begin
    SetupSRL;
    repeat
    i:=i+1
    Mine;
    Drop;
    until(i >=z);
    end.

    its not bad but the 1 without anti ban is glitchy i could use a lil help on it

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

    Default

    Simple, you called DoAntiRandoms before you declared it was a procedure (At least that's what I gathered from glancing at it quickly) Just put the DoAntiRandoms procedure above any procedure where you call it. Also, please use standards so that it's easier for everyone to read and in effect easier to help.

    Edit: Also, try FindObj (or a variation of it). Ways i've heard of checking when your character got the ore is by InvCount and by reading the black text in the chat box for certain words (such as "manged to mine" etc). I use the second one in my RimmingtonAutoMiner, you can always look through the SRL Manual or the includes themselves as research to help learn about the various functions and procedures.

  9. #9
    Join Date
    Apr 2007
    Location
    South-West
    Posts
    34
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    {|  ___|__  ________  _ _      _ ____                       |
     |  |  |  ||        |  |        |   |                       |
     |  |__|__ |    |   |  |        |   |                       |
     |     |  ||    |   |  |        |   |                       |
     |  |__|__||________|  |________|   |______|                |
     |     |           __|__                                    |
     |   ___    ___   /  |  \   ___|___   |  /  ______   _____  |
     |    |      |   /   |   \ |   |   |  | /  |        |  |  | |
     |    |__|__ |   |___|___| |   |   ++ |/   |        |  |  | |
     |    |  |   |   |   |   | |   |   ++ | \  |++++++  |     / |
     |    |      |   |   |   | |___|___|  |  \ |        |  | \  |
     |  +++++ ++++++     |         |      |   \|_______ |  |  \ |
     |__________________________________________________________|
     PowerMiner}



    program SoulHackersPowerMiner;
    {.include SRL/SRL.scar}
    {.include SRL/SRL/skill/Mining.scar}
    var
    z:integer;
    Loads:integer;
    Ores:integer;
    Const
    TinOreColor2= 5592415;

    procedure DoAntiRandoms;
     begin
       FindTalk;
       FindNormalRandoms;
       if (FindFight=true) THEN
     begin
       RunAwayDirection('N');
       Wait(10000+random(2000));
       RunBack;
     end;
     end;

    procedure Mine;
     begin
      repeat
      if(FindColorTolerance(x,y,TinOreColor2,MSX1, MSY1, MSX2, MSY2, 15))THEN
      MMouse(x,y,0,0);
      Mouse(x,y,0,0,true);
      wait(5000+random(500));
      until(InvFull);
     end;

    procedure Drop;
     begin
      DropTo(2,28);
    end;

    procedure Proggy;
     begin
     ClearDebug
       Writeln('0000000000000000000000');
       Writeln('0000000PROGRESS0000000');
       writeln('00 did'+ IntToStr(loads)+'Loads'+'      00');
       Writeln('00 Did '+ IntToStr(Ores)+'Ores'+'       00');
       Writeln('0000000000000000000000');
       Writeln('0000000000000000000000');
    end;

    Procedure MainFunctions;
     begin
      SetupSRL;
     repeat
      Loads:=Loads+1;
      Mine;
      Drop;
      DoAntiRandoms;
     until(Loads >=z);
    end.

    Ok i did what NewToAutoing said and put the "DoAntiRandoms" procedure in front of everything
    now i keep getting a message saying ";" is expected but it wont tell me which lines otherwise i'd to it

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

    Default

    SCAR Code:
    program SoulHackersPowerMiner;
    {.include SRL/SRL.scar}
    {.include SRL/SRL/skill/Mining.scar}
    var
      z,Loads,Ores:integer;

    const
      TinOreColor2= 5592415;

    procedure DoAntiRandoms;
    begin
      FindTalk;
      FindNormalRandoms;
      if (FindFight = True) then
      begin
        RunAwayDirection('N');
        Wait(10000+random(2000));
        RunBack;
      end;
    end;

    procedure Mine;
    begin
      repeat
        if(FindColorTolerance(x,y,TinOreColor2,MSX1, MSY1, MSX2, MSY2, 15)) then
        begin
          MMouse(x,y,0,0);
          Mouse(x,y,0,0,true);
          wait(5000+random(500));
        end;
      until(InvFull);
    end;

    procedure Drop;
    begin
      DropTo(2,28);
    end;

    procedure Proggy;
    begin
      ClearDebug
      Writeln('0000000000000000000000');
      Writeln('0000000PROGRESS0000000');
      writeln('00 did'+ IntToStr(loads)+'Loads'+'      00');
      Writeln('00 Did '+ IntToStr(Ores)+'Ores'+'       00');
      Writeln('0000000000000000000000');
      Writeln('0000000000000000000000');
    end;

    //The problem was right here,
    //You called it a procedure when it was your main loop
    begin
      SetupSRL;
      repeat
        Loads:=Loads+1;
        Mine;
        Drop;
        DoAntiRandoms;
      until(Loads >=z);
    end.

    You put procedure in front of your main loop and procedures don't end with "."s so it wanted a ";" Which would have been fine but left you without a main loop, all i had to do was remove the line that said it was a procedure and fix the standards (again)

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Replies: 4
    Last Post: 09-23-2007, 01:43 AM
  2. Replies: 8
    Last Post: 05-24-2007, 11:57 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
  •