Results 1 to 4 of 4

Thread: not doing anything?

  1. #1
    Join Date
    Mar 2008
    Location
    USA
    Posts
    13
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default not doing anything?

    so i got this script and it logs me in and then stops and doesnt do anything.
    heres the script i got in from a TuT k,
    Code:
    program powerminer;
    
    {.include SRL/SRL.scar}
    
    const
    rockcolor1= 3230026;//set the color of the rock
    rockcolor2= 567243;//set color of rock (these aren't the real colors)
    
    var x,y,randomm: integer;
    
    
    Procedure DeclarePlayers; // this procedure is used to logg players in
    begin
         HowManyPlayers  :=1;               // Set Number of Players here.
         NumberOfPlayers(HowManyPlayers);   // Sets the Players Array Length;
         CurrentPlayer:=0;                // CurrentPlayer = Array Index
    
         Players[0].Name :='almost put my acually user here lol';//USERNAME
         Players[0].Pass :='blaaaaab';//PASS
         Players[0].Nick :='ert';//3 LETTERS OF YOUR USERNAME NOT THE FIRST ONE
         Players[0].Active:=True;//PLAYER IN USE OR NOT
    
    
    end;
    
    Procedure Randoms;
    Begin
    FindTalk; //finds talkin randoms
    FindNormalRandoms; //finds normal randoms
    SolveChatRandom; //sloves chat randoms
    FindLamp('Woodcutting'); //solves lamp and then choses a skill to update
    SolvePinball; //solves pinball random
    DwarfItem; //dropes dawalf items
    If(FindFight)Then //runs away from fight
    Begin
    MakeCompass('N');
    RunTo('E', True);
    Wait(7000 +Random(3000));
    RunTo('W', True);
    End;
    End;
    
    
    procedure antiban;
    begin
     randomm := Random(4)
      case randomm of
    
    
      0:                begin
    
                        Wait(3591+(random(287)));
                        RandomRClick;
                        Wait(3591+(random(287)));
                        Randoms;
                       end;
    
      1:     begin
             Wait(3694+(random(791)));
             GameTab(random(13)+1);
             Randoms;
             Wait(3694+(random(791)));
             GameTab(4);
             end;
    
      2:                begin
                        Wait(3294+(random(873)));
                        Randoms;
                        HoverSkill('Woodcutting' ,false);
                        Wait(3294+(random(873)));
                        end;
    
      3:     begin
              Wait(3694+(random(791)));
              GameTab(random(13)+1);
              Randoms;
              Wait(3694+(random(791)));
              GameTab(4);
              end;
    end;
    end;
    
    
    
    Procedure minerock;
    begin
    
      if not LoggedIn then
      Exit;
    
        repeat
        if FindObjCustom(x, y, ['Min', 'ine'], [rockcolor1, rockcolor2], 7) then
        begin
    
          MoveMouseSmoothEx(x,y,  20,40,45,25,20);
          FTWait(1);
          clickmouse(x,y,false);
          Wait(500+(random(150)));
    
            ChooseOption('mine')
            randoms
            antiban;
            writeln('found rock');
    
              end else
              writeln('couldnt find rock');
              randoms;
              antiban;
              antiban;
              antiban;
    
                until( InvFull )
                end;
    
    begin
    SetupSRL;
      DeclarePlayers;
        LoginPlayer;
          repeat
            minerock;
                until(IsFKeyDown(3));
      end.
    now my user and pass isnt on there(i almost put there lol :P )
    but can someone tell me if i need to add something?

  2. #2
    Join Date
    Mar 2008
    Posts
    90
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    are you near rocks?

  3. #3
    Join Date
    Mar 2008
    Location
    USA
    Posts
    13
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    yea.
    i went to color picker,clicked on the coal rock(maybe i might not have it beacause i might not be clicking in the right place.)but i clicked right in the middle of the coal rock,it says the color is 3230026 do u know if thats right?

  4. #4
    Join Date
    Jun 2007
    Location
    Wednesday
    Posts
    2,446
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    That tut is very out of date and I recommend you try and find a more recently posted tutorial that helps you make a script. For example, your Randoms procedure isn't needed as SRL has a procedure that does it all for you.
    By reading this signature you agree that mixster is superior to you in each and every way except the bad ways but including the really bad ways.

Thread Information

Users Browsing this Thread

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

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •