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.


Reply With Quote









