Results 1 to 3 of 3

Thread: My script won't run or nothin :(

  1. #1
    Join Date
    Mar 2007
    Posts
    120
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default My script won't run or nothin :(

    well I've been working on a new Al Kharid Iron Smelter, but I can't seem to get it exactly. the mouse won't move or anything .

    SCAR Code:
    program DudesIronAlKharidSmelter;
    {.include SRL/SRL.scar}
    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~//
    Const
         RunDir             = 'E';         //Direction to Run away from randoms
         StartPlayer        = 0;           //Your Start Player
    {--------Colours--------}
         BankBoothColour    = 606035;     //Colour of the Sleeve on the banker
         FurnaceColour      = 2763308;     //Colour of the Furnace, Leave Alone
         RockCol            = 1191766;     //Colour of the rock, set if needed
         IronFurnace        = 5921634;     //Colour of the Iron Bar on the furnace
    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~//
    Var
         Loads : integer;
    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~//
    {--------------------Player Setup--------------------}
    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~//

    Procedure DeclarePlayers;
     begin
      HowManyPlayers :=1;              //Number of Players your using
      NumberOfPlayers(HowManyPlayers); //Just Leave Alone
      CurrentPlayer:= StartPlayer;     //Your Start Player which you set above
     
      Players[0].Name  :='Username';   //Your Runescape Username
      Players[0].Pass  :='Password';   //Your Runescape Password
      Players[0].Nick  :='Nickname';   //Choose 3 letters from the center of your username
      Players[0].Skill :='Smithing';   //The skill to put your Genie Lamp on
      Players[0].Active:=True;         //Only one player for now so just leave
     end;
    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~//
    {---------------------End Setup----------------------}
    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~//

    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~//
    {--------------------DO NOT EDIT---------------------}
    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~//

    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~//
    {--------------------Find Randoms--------------------}
    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~//
    Function FindFastRandoms: Boolean;
    var
      i: Integer;
    begin
      for i:=1 to 12 do
      begin
        case I of
           1:  If FindDead then
                 Result := True;
           2:  If FindMod then
                 Result := True;
           3:  If FindMime then
                 Result := True;
           4:  If FindMaze then
                 Result := True;
           5:  If FindQuiz then
                 Result := True;
           6:  If FindDemon then
                 Result := True;
           7: begin
                 if NoGameTab then
                 begin
                   Result := True;
                   Players[CurrentPlayer].loc := 'No GameTab';
                   Logout;
                   Exit;
                 end;
               end;
           8: begin
                 If InBlack then
                 begin
                   Result := True;
                   Players[CurrentPlayer].loc := 'InBlack';
                   Logout;
                   Exit;
                 end;
               end;
           9 : If RC Then Result := True;

           10 :   If FindFight Then
                 Begin
                   Result := True;
                   MakeCompass('N');
                   RunTo(RunDir, True);
                   MakeCompass('N');
                 End;

           11: If FindTalk Then Result := True;

        End;
        Wait(1);
      end;
    end;
    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~//
    {--------------------Map Settings--------------------}
    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~//
    Procedure MapSettings;
     begin
      SetRun(true)
      end;
    {/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\}
    {---------------------Open Bank----------------------}
    {\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/}
    Procedure OpenBankScr;
    begin
     if FindColorTolerance(x,y,BankBoothColour,MSX1,MSY1,MSX2,MSY2,10) then
     Mouse(x,y,2,2,false);
     ChooseOption(x,y,'uickly');
    end;
    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~//
    {---------------Withdraw and Deposit!----------------}
    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~//
    Procedure WithdrawBank;
     begin
      DepositAll;
      Withdraw(1,1,28);
      CloseBank;
     end;
    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~//
    {--------------------Click Rock!---------------------}
    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~//
    Procedure ClickRock;
     begin
      MakeCompass('N');
      HighestAngle;
      FindNormalRandoms;
      FindFastRandoms;
      if FindColorSpiral(x,y,RockCol,MMX1,MMY1,MMX2,MMY2) then
       begin
        Mouse(x,y,6,6,True);
       end;
      end;
    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~//
    {--------------------Click Symbol--------------------}
    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~//
    Procedure ClickSym;
     begin
      FindNormalRandoms;
      FindFastRandoms;
      if (FindSymbol (x, y, 'furnace')=true) then
       begin
        Mouse(x,y,2,2,true);
        Flag;
       end;
      end;
    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~//
    {-------------------Smelt Furnace!-------------------}
    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~//
    Procedure SmeltFur;
     begin
      FindFastRandoms;
      FindNormalRandoms;
      if (FindMMColorTol(x,y,FurnaceColour,5)) then
      begin
      Mouse(x,y,5,5,true);
      end;
      if (FindMMColorTol(x,y,IronFurnace,5)) then
      begin
      Mouse(x,y,5,5,false);
      ChooseOption(x,y,'Smelt X');
      TypeSend('28');
      HoverEvery(2,'smithing');
      BoredEvery(4);
      Wait(90000);
      end;
     end;
    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~//
    {--------------------Walking Back--------------------}
    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~//
    Procedure WalkBackBank;
     begin
      FindFastRandoms;
      FindNormalRandoms;
      if (FindColorSpiral(x,y,RockCol,MMX1,MMY1,MMX2,MMY2)) Then
      begin
      Mouse(x,y,5,5,true);
      end;
     end;
    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~//
    {-----------------Click Bank Symbol!-----------------}
    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~//
    Procedure ClickBankS;
     begin
      FindFastRandoms;
      FindNormalRandoms;
      if FindSymbol(x,y, 'bank') then
      begin
      Mouse(x,y,5,5,true);
      Loads :=Loads+1;
      end;
     end;
    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~//
    {-----------------Dudes Prog Report!-----------------}
    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~//
    Procedure DudeProgReport;
    begin
     ClearDebug;
     writeln('[ ]~~~~~~~~~~~~~~~~~~~~~~~~~~~~~[ ]');
     writeln(' |------Made By Dudesareus!------|');
     writeln(' |----Time Running: '+ ScriptTime2(2)+'----|');
     writeln(' |------Loads Done: '+ inttostr(Loads) +' Loads------|');
     writeln('[ ]~~~~~~~~~~~~~~~~~~~~~~~~~~~~~[ ]');
     end;
    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~//
    {-----------------End of the Script!-----------------}
    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~//
    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~//
    {------------------Dudes Main Frame------------------}
    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~//
    begin
     SetupSRL;
     DeclarePlayers;
     ActivateClient;
     repeat
      DudeProgReport;
      MapSettings;
      OpenBankScr;
      WithdrawBank;
      ClickRock;
      ClickSym;
      SmeltFur;
      WalkBackBank;
      ClickBankS;
      LoginPlayer;
     until(False);
    end.
    Auto Correctly! If I see you autoing with a level 3 account, normal clothes, consider yourself reported. You have been warned!
    Quote Originally Posted by Jagex
    We can (and do) ban them - including using IP bans

  2. #2
    Join Date
    Jul 2006
    Posts
    259
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    well i can see many errors even if the script ran it would just heres a list:
    1.it probably wouldn't find the bank booth because jagex uses lots of the same colors
    2.when you click on the rock you'll always be in the bank
    3.your main loop is very pron to errors try adding some ifs
    4.the symbol might be to covered so it will not do anything

    and they are just some of the things
    "your always where you supposed to be"

  3. #3
    Join Date
    Mar 2007
    Posts
    120
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Alright, thanks, I'm just a beginner so don't blame me
    Auto Correctly! If I see you autoing with a level 3 account, normal clothes, consider yourself reported. You have been warned!
    Quote Originally Posted by Jagex
    We can (and do) ban them - including using IP bans

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. new update.. nothin special..
    By phantombmx in forum RS has been updated.
    Replies: 11
    Last Post: 06-13-2006, 11:23 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
  •