Results 1 to 5 of 5

Thread: Smart is not launching

  1. #1
    Join Date
    Feb 2012
    Posts
    390
    Mentioned
    2 Post(s)
    Quoted
    14 Post(s)

    Default Smart is not launching

    Whats up with my script? smart isnt launching....
    Code:
    program MahMiner;
    
    {$i SRL\SRL.simba}
    {$i SPS/SPS.simba}
    {$DEFINE SMART} // COMMENT IF YOU DONT WANT SMART
    
    
    var
    objo:Integer;
    
      procedure DeclarePlayers;
    begin
    HowManyPlayers := 1;
    NumberOfPlayers(HowManyPlayers);
    CurrentPlayer := 0;
    
    Players[0].Name := 'LOL'; //Your Runescape username here.
    Players[0].Pass := 'HAHA GOT YOU'; //Your Runescape password here.
    Players[0].Active := True; //Set to True if you want to use this player. Set to False to disable this player.
    Players[0].Pin := 'Your_Bank_PIN'; //Put your Bank PIN here. Leave alone if you don't have a Bank PIN.
    end;
    Procedure Proggy;
    begin
    writeln('*******************************');
    writeln('Blackstab1337s Miner. Enjoy!!');
    writeln('You have been running for: ' + TimeRunning);
    writeln('You have Mined/chopped/fished/etc: ' + IntToStr(objo));
    writeln('*******************************');
    End;
    
    function RockColour: Integer;
    var
      arP: TPointArray;
      arC: TIntegerArray;
      tmpCTS, i, arL: Integer;
    begin
      tmpCTS := GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
      SetColorSpeed2Modifiers(0.03, 0.08);
    
      if not (FindColorsTolerance(arP, 2569305, MSX1, MSY1, MSX2, MSY2, 9)) then
      begin
        Writeln('Failed to find the color, no result.');
        ColorToleranceSpeed(tmpCTS);
        SetColorSpeed2Modifiers(0.2, 0.2);
        Exit;
      end;
    
      arC := GetColors(arP);
      ClearSameIntegers(arC);
      arL := High(arC);
    
      for i := 0 to arL do
      begin
        Result := arC[i];
        //Writeln('AutoColor = ' + IntToStr(arC[i]));
        Break;
      end;
    
      ColorToleranceSpeed(tmpCTS);
      SetColorSpeed2Modifiers(0.2, 0.2);
    
      if (i = arL + 1) then
        //Writeln('AutoColor failed in finding the color.');
    end;
    
    Procedure StatsGuise(wat:String);
    begin
     Status(wat);
    end;
    Function Rock:boolean;
    var
    X,Y,PlusOne,Time:Integer;
    begin
    X := MSCX;
    Y := MSCY;
    PlusOne := InvCount +1;
    if FindObjCustom(X, Y, ['Mine', 'Mine Iron'], [RockColour], 5) Then
    Begin
    StatsGuise('Found the Rock!');
    Mouse(X,Y,5,5,true);
    Flag;
    MarkTime(Time);
    Repeat
    
      wait(1000);
    Until(InvCount = PlusOne) Or (TimeFromMark(Time) > 10000)
     if InvCount = PlusOne then
    inc(objo);
    End;
    End;
    
    
    
    
    
    
    begin
    SetupSRL;
    DeclarePlayers;
    LoginPlayer;
    FindNormalRandoms;
    Repeat
    //ACA procedure and chop/mine/fish/mousepress/etc goes here.
    RockColour;
    Rock;
    if(InvFull) then
    begin
    //Drop/bank and/or walking procedure goes here...
    DropAll;
    ClearDebug;
    Proggy;
    End;
    Until(false)
    end.

  2. #2
    Join Date
    Feb 2012
    Posts
    390
    Mentioned
    2 Post(s)
    Quoted
    14 Post(s)

  3. #3
    Join Date
    Mar 2007
    Posts
    5,125
    Mentioned
    275 Post(s)
    Quoted
    901 Post(s)

    Default

    What does it say in the debug box

    Forum account issues? Please send me a PM

  4. #4
    Join Date
    Jan 2012
    Posts
    2,568
    Mentioned
    35 Post(s)
    Quoted
    356 Post(s)

    Default

    Place {$DEFINE SMART}
    before
    {$i SRL\SRL.simba}

  5. #5
    Join Date
    Feb 2012
    Posts
    390
    Mentioned
    2 Post(s)
    Quoted
    14 Post(s)

    Default

    Quote Originally Posted by riwu View Post
    Place {$DEFINE SMART}
    before
    {$i SRL\SRL.simba}
    K Thanks mate

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
  •