[SIMBA=program PEANUTs_ResourceMiner_v1; {$I SRL/SRL.Simba}{$I Sps/Sps.Simba}{$I SRL/SRL/Misc/Debug.Simba}{$I Srl/Srl/Skill/Fighting.Simba}{$I SRL/SRL/Misc/SmartGraphics.Simba}{$I SRL/SRL/Misc/Online.simba} Var Errors, NoOresFailSafe, hoppable, XP, XPH, goToSpot,FAILSAFED, mineaddyfor, minerunefor, StuckInCorner, moveon, LaggerMode, VersionNumber, Profit, ProfitPerHour, chances, outthedoor, runeoreDTM, SapphireDtm, x, y, runevalue, addyvalue, emvalue, sapvalue, divalue, noruneleft, rubvalue, moveonaddy, Result12, emeralddtm, rubydtm, diamonddtm, addyoreDTM, addy_count123, rune_count123, noAddy, Sapphire_Count, OresToMine, BitmapForProggy, diamond_count, GemsMined, OresMined, ruby_count, emerald_count, StartingExperience, QX, QY: integer; StartTime,CurrentTime: Int64; MyPath1, MyPath2, mypath3, mypath4, MyPath5, MyPath3444 : TPointArray; Procedure DeclarePlayers; Begin HowManyPlayers := 1; NumberOfPlayers(HowManyPlayers); CurrentPlayer := 0; With Players[0] Do Begin LaggerMode := 2; MineAddyFor := 95000; MineRuneFor := 110000; Active := True; //////////////////////////////////////////////////////////////////////////////// ////////////////////// Peanuts Rune & Addy Miner /////////////////////// //////////////////////////////////////////////////////////////////////////////// ////////////////// - Brightness HIGH, Zoomed OUT ////////////// ////////////////// - XP pop ups OFF ////////////// ////////////////// - XP bar set to TOTAL LEVEL or MINING LEVEL ////////////// ////////////////// - Character Inside The Resource Cave ////////////// //////////////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////////////// Name := '1asdfd1'; // Username Pass := 'xxasdas'; // Password OresToMine := 300; // Ores To Mine Before Log Out? //////////////////////////////////////////////////////////////////////////////// ///////////////////////////// ////////////////////////////////// ////////////////////////// PRESS PLAY ! //////////////////////////////// /////////////////////// ////////////////////////////// //////////////////////////////////////////////////////////////////////////////// ///////////// ================ CREDITS ================ /////////////////////// //////////////////////////////////////////////////////////////////////////////// /// Wizzup BMWxi LeJingle bENland100 //// /// Engage The Rage Kevin //// /// NKN Officer Barbady //// /// Marpis Flight //// /// StickToTheScript YoHoJo BobboHobbo //// //////////////////////////////////////////////////////////////////////////////// End;End; Procedure StatsGuise (wat:String); Begin Status(wat); Disguise(wat); End; Function LoadDTMWalk(WalkNumber: Integer): Integer; // DDTM walking Tuts by - BobboHobbo var dtmMainPoint: TDTMPointDef; dtmSubPoints: array[0..4] of TDTMPointDef; TempTDTM: TDTM; begin case WalkNumber of 1: Begin dtmMainPoint.x := 607; dtmMainPoint.y := 210; dtmMainPoint.AreaSize := 3; dtmMainPoint.AreaShape := 0; dtmMainPoint.Color := 4285298; dtmMainPoint.Tolerance := 1; dtmSubPoints[0].x := 607; dtmSubPoints[0].y := 210; dtmSubPoints[0].AreaSize := 3; dtmSubPoints[0].AreaShape := 0; dtmSubPoints[0].Color := 4285298; dtmSubPoints[0].Tolerance := 1; dtmSubPoints[1].x := 604; dtmSubPoints[1].y := 206; dtmSubPoints[1].AreaSize := 1; dtmSubPoints[1].AreaShape := 0; dtmSubPoints[1].Color := 15855601; dtmSubPoints[1].Tolerance := 1; dtmSubPoints[2].x := 600; dtmSubPoints[2].y := 211; dtmSubPoints[2].AreaSize := 1; dtmSubPoints[2].AreaShape := 0; dtmSubPoints[2].Color := 16051432; dtmSubPoints[2].Tolerance := 1; dtmSubPoints[3].x := 606; dtmSubPoints[3].y := 214; dtmSubPoints[3].AreaSize := 1; dtmSubPoints[3].AreaShape := 0; dtmSubPoints[3].Color := 16051432; dtmSubPoints[3].Tolerance := 1; dtmSubPoints[4].x := 612; dtmSubPoints[4].y := 209; dtmSubPoints[4].AreaSize := 1; dtmSubPoints[4].AreaShape := 0; dtmSubPoints[4].Color := 16051432; dtmSubPoints[4].Tolerance := 1; TempTDTM.MainPoint := dtmMainPoint; TempTDTM.SubPoints := dtmSubPoints; Result := AddDTM(TempTDTM); end; end; end; Procedure SuperWindMouse(xs, ys, xe, ye, gravity, wind, minWait, maxWait, maxStep, targetArea: extended); // MouseMovments by - Flight Var veloX,veloY,windX,windY,veloMag,dist,randomDist,lastDist,step: extended; lastX,lastY,MSP,W: integer; sqrt2,sqrt3,sqrt5: extended; Begin MSP := MouseSpeed; sqrt2:= sqrt(2); sqrt3:= sqrt(3); sqrt5:= sqrt(5); While hypot(xs - xe, ys - ye) > 1 Do Begin dist:= hypot(xs - xe, ys - ye); wind:= minE(wind, dist); If dist >= targetArea Then Begin windX:= windX / sqrt3 + (random(round(wind) * 2 + 1) - wind) / sqrt5; windY:= windY / sqrt3 + (random(round(wind) * 2 + 1) - wind) / sqrt5; End Else Begin windX:= windX / sqrt2; windY:= windY / sqrt2; If (maxStep < 3) Then Begin maxStep:= random(3) + 3.0; End Else Begin maxStep:= maxStep / sqrt5; End; End; veloX:= veloX + windX; veloY:= veloY + windY; veloX:= veloX + gravity * (xe - xs) / dist; veloY:= veloY + gravity * (ye - ys) / dist; if hypot(veloX, veloY) > maxStep then Begin randomDist:= maxStep / 2.0 + random(round(maxStep) div 2); veloMag:= sqrt(veloX * veloX + veloY * veloY); veloX:= (veloX / veloMag) * randomDist; veloY:= (veloY / veloMag) * randomDist; End; lastX:= Round(xs); lastY:= Round(ys); xs:= xs + veloX; ys:= ys + veloY; Case Random(50) Of 1..25: W := (MSP + (Random((MSP/4)))); 26..50: W := (MSP - (RandomRange((MSP/2), MSP-1))); End; If (W < 1) Then W := 1; If (lastX <> Round(xs)) Or (lastY <> Round(ys)) Then MoveMouse(Round(xs), Round(ys)); step:= hypot(xs - lastX, ys - lastY); //W := round((maxWait - minWait) * (step / maxStep) + minWait); wait(W); lastdist:= dist; end; If (Round(xe) <> Round(xs)) or (Round(ye) <> Round(ys)) Then MoveMouse(Round(xe), Round(ye)); MouseSpeed := MSP; End; Procedure HumanMMouse(eX, eY, ranX, ranY: Integer); // MouseMovments by - Flight Var randSpeed: extended; X,Y,X2,Y2,j,Dist,MP: integer; Begin j := MouseSpeed; GetMousePos(X, Y); Dist := Distance(X, Y, eX, eY); MP := Round(Dist/150); If MP < 0 Then MP := 1; randSpeed := (random(MouseSpeed) / 2.0 + MouseSpeed) / 10.0; X2 := RandomRange(eX-(j*MP), eX+(j*MP)); Y2 := RandomRange(eY-(j*MP), eY+(j*MP)); SuperWindMouse(X, Y, X2, Y2, 11, 8, 10.0 / randSpeed, 12.0 / randSpeed, 10.0 * randSpeed, 10.0 * randSpeed); GetMousePos(X, Y); MMouse(eX, eY, ranX, ranY); MouseSpeed := j; End; Procedure HumanMouseBox(X1, Y1, X2, Y2: Integer); // MouseMovments by - Flight Var FX, FY: Integer; Begin GaussBox(FX,FY,X1,Y1,X2,Y2); HumanMMouse(FX,FY,0,0) End; procedure filterTPAsBetween(var atpa: T2DPointArray; len1, len2: integer); var h, l, i: integer; c: T2DPointArray; begin h := high(atpa); for i := 0 to h do begin l := length(atpa
); if (not (inRange(l, len1, len2))) then begin setLength(c, length© + 1); c[high©] := atpa; end; end; atpa := c; end; function FindObjTPA1(var X, Y: Integer; Color, Tol, CTS, ObjWidth, ObjHeight, minCount: Integer; UpText: TStringArray): Boolean; var I, tCTS: Integer; myPoint: TPoint; Points: TPointArray; aPoints: T2DPointArray; begin Result := False; if chances > 1 then begin Chances := 0 exit; end; if not LoggedIn then exit; tCTS := GetColorToleranceSpeed; CTS := Integer(CTS * 9 mod 3 <> 0); ColorToleranceSpeed(CTS); FindColorsSpiralTolerance(X, Y, Points, Color, MSX1, MSY1, MSX2, MSY2, Tol); if Length(Points) = 0 then begin ColorToleranceSpeed(tCTS); Exit; end; ColorToleranceSpeed(1); aPoints := TPAtoATPAEx(Points, ObjWidth, ObjHeight); // smart_debugATPA(true,aPoints); //////////////////////////////////////////// SetLength(Points, 0); for I := 0 to High(aPoints) do begin if Length(aPoints) < minCount then Continue; myPoint := MiddleTPA(aPoints); MMouse(myPoint.X, myPoint.Y, 0, 0); if WaitUpTextMulti(UpText, 300) then begin GetMousePos(X, Y); Result := True; ColorToleranceSpeed(tCTS); Exit; end; end; ColorToleranceSpeed(tCTS); end; function RuneColor: Integer; var arP: TPointArray; arC: TIntegerArray; tmpCTS, i, arL: Integer; begin tmpCTS := GetColorToleranceSpeed; ColorToleranceSpeed(2); SetColorSpeed2Modifiers(0.02, 1.95); if not (FindColorsTolerance(arP, 13287551, MSX1, MSY1, MSX2, MSY2, 14)) then begin Chances := 2; 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; Break; end; ColorToleranceSpeed(tmpCTS); SetColorSpeed2Modifiers(0.2, 0.2); end; function AddyColor: Integer; var arP: TPointArray; arC: TIntegerArray; tmpCTS, i, arL: Integer; begin tmpCTS := GetColorToleranceSpeed; ColorToleranceSpeed(2); SetColorSpeed2Modifiers(0.08, 0.06); if not (FindColorsTolerance(arP, 6319967, MSX1, MSY1, MSX2, MSY2, 12)) then begin Chances := Chances + 2; 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; Break; end; ColorToleranceSpeed(tmpCTS); SetColorSpeed2Modifiers(0.2, 0.2); end; procedure ConvertTime64(timeMS:int64; var YEAR, MONTH, WEEK, DAY, HOUR, MINUTE, SECOND:integer); var x: int64; begin x := timeMS; (* Better to do the calculations in my opinion (especially for year) now, * trying at run time usually results in breaking/miscalculation. * Hence, commented out [equilavent] expressions *) YEAR := x div (31536000000); // 1000 * 60 * 60 * 24 * 365 (1 year or 365 days) x := x mod (31536000000); MONTH := x div (2592000000); // 1000 * 60 * 60 * 24 * 30 (1 month or 30 days) x := x mod (2592000000); WEEK := x div (604800000); // 1000 * 60 * 60 * 24 * 7 (1 week or 7 days) x := x mod (604800000); DAY := x div (86400000); // 1000 * 60 * 60 * 24 (1 day or 24 hours) x := x mod (86400000); HOUR := x div (3600000); // 1000 * 60 * 60 (1 hour or 60 minutes) x := x mod (3600000); MINUTE := x div (60000); // 1000 * 60 (1 minute or 60 seconds) x := x mod (60000); SECOND := x div (1000); // 1000 (1 second, is in MS format now) x := x mod (1000); end; function MsToTime64(MS: int64): string; var STA: TVariantArray; Time: array [0..6] of Integer; i: Integer; begin Result := ''; STA := [' Years, ', ' Months, ', ' Weeks, ', ' Days, ', ' Hours, ', ' Minutes ' , ' Seconds', 0]; ConvertTime64(MS, Time[0], Time[1], Time[2], Time[3], Time[4], Time[5], Time[6]); for i := 0 to 6 do if (Time > 0) or (STA[7]) or (i = 6) then Result := Result + PadZ(IntToStr(Time), STA[7]) + STA; end; procedure FreeTheDTMS; begin FreeDTM(RuneOreDTM); FreeDTM(DiamondDTM); FreeDTM(SapphireDTM); FreeDTM(rubyDTM); FreeDTM(emeraldDTM); end; procedure LoadTheDTMS; begin AddyOreDTM := DTMFromString('mggAAAHicY2NgYOAHYlEglgFiXgYIYAViLiAWBmJmJDFBILZxtQGSTBgYpJ4RC2bCIQ4BAHwPAWw='); RuneOreDTM := DTMFromString('78DA634C656060106664000108C9C0E0E017C2C00FE5FF0702C65C20431222CB824B4D14C21C981A2713150619247319F381041F013589404216BF1A007FE60E83'); DiamondDTM := DTMFromString('mggAAAHicY2NgYOAGYlEg5mWAAH4g5gJiHqiYGBCzATETVH7ahAlQHipOAZKMWDALDnEIAADVLAK2'); sapphireDTM := DTMFromString('mlwAAAHicY2dgYHBkYmBwAWJPIPYGYl8g9mGCiIszMjDwAjE/EIsAsQQQSwMxDxALCBUCdTNhxfwMuAFIBSMODAUAiQ4DTA=='); rubyDTM := DTMFromString('mggAAAHicY2NgYMhmYmDIAeICIC4B4nIgLgVicUYGBh4g5gNiASCWAGIRIA4X4gHqYsLA/AzYAUiWEQuGAACO2wPC'); emeraldDTM := DTMFromString('mbQAAAHicY2VgYJjKxMAwBYhnAPE8IF4IxOKMDAy8UCwAxBJAzJ8uCFTNhIL5GTABSIYRDYMBAGt5BBI='); end; procedure TerminateTheScript; begin Writeln('Terminate00000000'); FreeTheDTMs; TerminateScript; end; Procedure PaintProggy; begin SMART_DrawBitmap(false, BitmapForProggy, Point(1, 300)); SMART_DrawBitmap(false, BitmapForProggy, Point(1, 320)); SMART_DrawBitmap(false, BitmapForProggy, Point(1, 340)); SMART_DrawBitmap(false, BitmapForProggy, Point(1, 480)); Smart_drawtext(5, 325, SmallChars, IntToStr(Sapphire_Count) + ' : Sapphires ' , claqua ); Smart_drawtext(5, 345, SmallChars, IntToStr(Emerald_Count) + ' : Emeralds ' , clGreen); Smart_drawtext(440, 325, SmallChars, IntToStr(Ruby_Count) + ' : Rubys ' , clRed); Smart_drawtext(440, 345, SmallChars, IntToStr(Diamond_Count) + ' : Diamonds ' , clwhite); Smart_drawtext(5, 305, SmallChars, IntToStr(Rune_count123) + ' : Rune Ore', 26367); Smart_drawtext(440, 305, SmallChars, IntToStr(Addy_count123) + ' : Addy Ore', 26367); Smart_drawtext(5, 483, SmallChars, 'Time Running : ' + ToStr(MsToTime64(CurrentTime)), cllime); Smart_drawtext(180, 305, SmallChars, 'Gold : ' + IntToStr(Profit) + ' (' + IntToStr(ProfitPerHour) + ' Gold/h) ', clyellow); Smart_drawtext(180, 335, SmallChars, 'Gained : ' + IntToStr(XP) + ' Xp (' + IntToStr(XPH) + ' Xp/h)', clyellow); end; Procedure Proggy; Begin CurrentTime:= GetSystemTime - StartTime; OresMined := (Addy_Count123) + (Rune_Count123); XP := (GetXPBarTotal - StartingExperience); XPH := Round(XP * (3600.0 / (GetTimeRunning / 1000.0))); Profit := (Rune_Count123 * RuneValue) + (Addy_Count123 * AddyValue) + (Sapphire_Count * SapValue) + (Emerald_Count * EmValue) + (Ruby_Count * RubValue) + (Diamond_Count * DiValue); GemsMined := (Sapphire_Count) + (Emerald_Count) + (Ruby_Count) + (Diamond_Count); ProfitPerHour := Round(Profit * (3600.0 / (GetTimeRunning / 1000.0))); PaintProggy; Writeln('Time Running : ' + ToStr(MsToTime64(CurrentTime))); Writeln('Experience Gained : ' + IntToStr(XP)); Writeln('Ores Mined : ' + IntToStr(OresMined)); Writeln('Gems Mined : ' + IntToStr(GemsMined)); writeln('Gold Earned : ' + IntToStr(Profit)+ ' (' + IntToStr(ProfitPerHour)); End; Function MouseAntiban: Boolean; Var I: Integer; Begin I := Random(300); if not LoggedIn then exit; Case i of 0..40: begin RandomMovement; //writeln('random move'); end; 41..65: begin RandomRClick; //writeln('random click'); end; 80..90: Begin Wait(RandomRange(50,250)); // writeln('waiting'); End; 95..99: Begin hoverskill(Skill_Mining, False); // writeln('mining hover'); End; 101..149: Begin MMouseOffClient('Random'); // writeln('Checking Facebook'); end; end; Result := True; End; Function isMining: Boolean; // Pixel shift tutorial by - Flight var PBox: TBox; begin PBox := IntToBox(245, 130, 285, 195); Result := (AveragePixelShift(PBox, 350, 550) > 150); end; Function FindRune: Boolean; var sexx,seyy,RuneCounter, z: Integer; begin Sexx:= MSCX; Seyy:= MSCY; RuneCounter := InvCount + 1; Chances := 0; if not LoggedIn then exit; if InvFull Then exit; if FindObjTPA1(sexx, seyy, RuneColor, 6, 1, 15, 40, 1, ['Ru']) then begin MarkTime(z); GetMousePos(sexx, seyy); HumanMMouse(Sexx, seyy, 3, 3); Mouse(Sexx, Seyy, 0, 0, true); Result := True; MarkTime(z); StatsGuise('Mining Runite Ore'); StuckInCorner := StuckInCorner + 1; MarkTime(FAILSAFED); MouseAntiBan; Hoppable := Hoppable + 1; Result := True; While IsMining Do begin // Statsguise('Waiting minin r Ore'); if not loggedin then exit; if InvCount = RuneCounter then exit; if TimeFromMark(z) > MineRuneFor then Begin exit; end; end; end else begin StuckInCorner := 1; StatsGuise('No Runite Ore Found'); NoRuneLeft := 1; end; end; Function FindAddy: Boolean; var sexx,seyy, CounterA, z : Integer; begin Sexx:= MSCX; Seyy:= MSCY; Chances := 0; Result := False; CounterA := InvCount + 1; if not LoggedIn then exit; if InvFull Then exit; if FindObjTPA1(sexx, seyy, AddyColor, 5, 1, 15, 40, 1, ['Ada']) then begin StatsGuise('Mining Adamantite Ore'); StuckInCorner := 3; GetMousePos(sexx, seyy); Mouse(Sexx, Seyy, 0, 0, true); NoOresFailSafe := NoOresFailSafe + 1; MarkTime(FAILSAFED); Result := True; marktime(z); NoAddy := 9; //antiban here? begin While IsMining Do begin if not loggedin then exit; if InvFull Then exit; if InvCount = CounterA then exit; if TimeFromMark(z) > MineAddyFor then exit; end; end else begin Result := False; GoToSpot := GoToSpot + 1; moveonaddy := moveonaddy + 1; StatsGuise('No Adamantite Ore Found'); StuckInCorner := 1; MoveOn := MoveOn + 7; hoppable := hoppable + 1; end; end; Function FindExitDoor: Boolean; var TPA: TPointArray; i,CTS,X,Y: Integer; ATPA: T2DPointArray; begin Result := False; if not LoggedIn then exit; CTS := GetColorToleranceSpeed; ColorToleranceSpeed(2); SetColorSpeed2Modifiers(0.10, 0.04); FindColorsSpiralTolerance(MSCX, MSCY, TPA, 6120290, MSX1, MSY1, MSX2, MSY2, 30); SetColorSpeed2Modifiers(0.02, 0.02); ColorToleranceSpeed(CTS); if (Length(TPA) < 1) then Exit; ATPA := TPAToATPAEx(TPA, 15, 20); filterTPAsBetween(ATPA, 2, 222) SortATPAFromFirstpoint(ATPA, Point(MSCX, MSCY)); for i := 0 to High(ATPA) do begin MiddleTPAEx(ATPA, X, Y); HumanMMouse(x, y, 2, 2); Wait(RandomRange(50,150)); if WaitUpTextMulti(['Exit','door'], 600) then begin Mouse(x, y, 0, 0, false); if WaitOption('Mysterious', 500) then begin result := true; OutTheDoor := 1; exit; end; end; end; end; Function FindEnterDoor: Boolean; var TPA: TPointArray; i,CTS,X,Y: Integer; ATPA: T2DPointArray; begin Result := False; if not LoggedIn then exit; CTS := GetColorToleranceSpeed; ColorToleranceSpeed(2); SetColorSpeed2Modifiers(0.10, 0.04); FindColorsSpiralTolerance(MSCX, MSCY, TPA, 6120290, MSX1, MSY1, MSX2, MSY2, 30); SetColorSpeed2Modifiers(0.02, 0.02); ColorToleranceSpeed(CTS); if (Length(TPA) < 1) then Exit; ATPA := TPAToATPAEx(TPA, 25, 30); filterTPAsBetween(ATPA, 2, 222) SortATPAFromFirstpoint(ATPA, Point(MSCX, MSCY)); for i := 0 to High(ATPA) do begin MiddleTPAEx(ATPA, X, Y); HumanMMouse(x, y, 2, 2); Wait(RandomRange(50,150)); if WaitUpTextMulti(['Enter','door'], 600) then begin Mouse(x, y, 0, 0, false); if WaitOption('Mysterious', 500) then begin result := true; OutTheDoor := 1; exit; end; end; end; end; Function FindBox: Boolean; var // B: TBox; TPA: TPointArray; i,CTS,X,Y: Integer; ATPA: T2DPointArray; begin Result := False; if (not loggedin) then exit; CTS := GetColorToleranceSpeed; ColorToleranceSpeed(2); SetColorSpeed2Modifiers(0.04, 0.30); FindColorsTolerance(TPA,803678, MSX1, MSY1, MSX2, MSY2, 15); SetColorSpeed2Modifiers(0.02, 0.02); ColorToleranceSpeed(CTS); if (Length(TPA) < 1) then Exit; ATPA := TPAToATPAEx(TPA, 32, 50); filterTPAsBetween(ATPA, 50, 300) SortATPAFromFirstpoint(ATPA, Point(MSCX, MSCY)); //smart_debugATPA(true,ATPA); for i := 0 to High(ATPA) do begin MiddleTPAEx(ATPA, X, Y); HumanMMouse(x, y, 2, 2); Wait(RandomRange(200,400)); if WaitUpTextMulti(['ox','eposit'], 600) then begin Mouse(x, y, 0, 0, False); WaitOption('Deposit', 500); result := true; exit; end; end; end; Function FindUpLadder: Boolean; var TPA: TPointArray; i,CTS,X,Y: Integer; ATPA: T2DPointArray; begin Result := False; if not LoggedIn then exit; CTS := GetColorToleranceSpeed; ColorToleranceSpeed(2); SetColorSpeed2Modifiers(0.14, 0.56); FindColorsTolerance(TPA, 4015947, MSX1, MSY1, MSX2, MSY2, 6); SetColorSpeed2Modifiers(0.02, 0.02); ColorToleranceSpeed(CTS); if (Length(TPA) < 1) then Exit; ATPA := TPAToATPAEx(TPA, 40, 45); filterTPAsBetween(ATPA, 350, 500) SortATPAFromFirstpoint(ATPA, Point(MSCX, MSCY)); for i := 0 to High(ATPA) do begin MiddleTPAEx(ATPA, X, Y); HumanMMouse(x, y, 2, 2); Wait(RandomRange(200,300)); if WaitUpTextMulti(['limb','adder'], 600) then begin ClickMouse2(True); result := true; exit; end; end; end; Function FindLadder: Boolean; var TPA: TPointArray; i,CTS,X,Y: Integer; ATPA: T2DPointArray; begin Result := False; if not LoggedIn then exit; CTS := GetColorToleranceSpeed; ColorToleranceSpeed(2); SetColorSpeed2Modifiers(0.08, 0.51); FindColorsSpiralTolerance(MSCX, MSCY, TPA, 3032670, MSX1, MSY1, MSX2, MSY2, 12); SetColorSpeed2Modifiers(0.02, 0.02); ColorToleranceSpeed(CTS); if (Length(TPA) < 1) then Exit; ATPA := TPAToATPAEx(TPA, 85, 95); filterTPAsBetween(ATPA, 200, 1000) SortATPAFromFirstpoint(ATPA, Point(MSCX, MSCY)); for i := 0 to High(ATPA) do begin MiddleTPAEx(ATPA, X, Y); HumanMMouse(x, y, 6, 6); Wait(RandomRange(150,250)); if WaitUpTextMulti(['limb','adder'], 500) then begin Mouse(x, y, 0, 0, False); if WaitOption('Ladder', 1500) then result := true; exit; end; end; end; procedure CountStuff; var AdamCnt: Integer; RuneCnt: Integer; begin if not LoggedIn then exit; loadTheDTMS; AdamCnt := CountItems('dtm', AddyOreDTM, []); if (AdamCnt > 0) then IncEx(Addy_count123, AdamCnt); RuneCnt := CountItems('dtm', RuneOreDTM, []); if (RuneCnt > 0) then IncEx(Rune_Count123, RuneCnt); FreeTheDTMS; end; procedure CountGems; var SapphireCnt: Integer; EmeraldCnt: Integer; RubyCnt: Integer; DiamondCnt: Integer; begin SapphireCnt := CountItems('dtm', SapphireDTM, []); if (SapphireCnt > 0) then IncEx(Sapphire_count, SapphireCnt); EmeraldCnt := CountItems('dtm', EmeraldDTM, []); if (EmeraldCnt > 0) then IncEx(Emerald_count, EmeraldCnt); RubyCnt := CountItems('dtm', RubyDTM, []); if (RubyCnt > 0) then IncEx(Ruby_count, RubyCnt); DiamondCnt := CountItems('dtm', DiamondDTM, []); if (DiamondCnt > 0) then IncEx(Diamond_count, DiamondCnt); end; Procedure BagGems; begin if not LoggedIn then Exit; StatsGuise('Bagging Gems'); loadTheDTMS; CountGems; if ExistsItemDTM(SapphireDtm, Qx, Qy) then begin HumanMmouse(qx, qy, 4, 4); if Waituptext('raft', 2500)then begin ClickMouse2(false); WaitOption('Use', 1500); InvMouse(28, 1); end; end; if ExistsItemDTM(EmeraldDtm, Qx, Qy) then begin HumanMmouse(qx, qy, 4, 4); if Waituptext('raft', 2500)then begin ClickMouse2(false); WaitOption('Use', 1500); InvMouse(28, 1); end; end; if ExistsItemDTM(RubyDtm, Qx, Qy) then begin HumanMmouse(qx, qy, 4, 4); if Waituptext('raft', 2500)then begin ClickMouse2(false); WaitOption('Use', 1500); InvMouse(28, 1); end; end; if ExistsItemDTM(DiamondDtm, Qx, Qy) then begin HumanMmouse(qx, qy, 4, 4); if Waituptext('raft', 2500)then begin ClickMouse2(false); WaitOption('Use', 1500); InvMouse(28, 1); end; end; FreeTheDTMS; end; procedure Bank; var x, y: Integer; begin if not LoggedIn then exit; loadTheDTMS(); repeat wait(50) until(DepositScreen) StatsGuise('waitindeposit box Founddddddd'); if finddtm(runeoreDTM, x, y, MSX1, MSY1, MSX2, MSY2) then begin HumanMmouse(x,y, 4, 4); wait(50 + random(50)); Mouse(x, y, 0, 0, false); ChooseOption('Deposit-All'); Wait(RandomRange(150,500)); end; if finddtm(addyoreDTM, x, y, MSX1, MSY1, MSX2, MSY2) then begin HumanMmouse(x, y, 4, 4); wait(50 + random(50)); Mouse(x, y, 0, 0, false); Wait(50 +Random(50)); ChooseOption('Deposit-All'); end; FreeTheDTMS; Result12 := 3; end; procedure GoToDungeon; var DownTheLadder, RepeatsLadder, RepeatsEnter, InTheDoor: integer; begin StatsGuise('Walking To Ladder'); SPS_WalkPath(MyPath2); fflag(0); Wait(1500); //change StatsGuise('Finding Ladder'); repeat begin if FindLadder then begin DownTheLadder := 2; Wait(RandomRange(900,1100)); end else begin SPS_WalkPath(MyPath2); RepeatsLadder := RepeatsLadder + 1; Wait(RandomRange(4500,6000)); end; if RepeatsLadder = 3 then begin Writeln('ERROR: NO LADDER EXISTS'); Errors := Errors + 1; TerminateTheScript; end; end; until(DownTheLadder > 1); StatsGuise('Finding Mysterious Entrance In'); Wait(1300 + RandomRange(200,500)); repeat begin if FindEnterDoor then begin InTheDoor := 2; Wait(RandomRange(400,500)); end else begin Wait(1500); RepeatsEnter := RepeatsEnter + 1; end; if RepeatsEnter = 3 then begin Writeln('ERROR: NO ENTRY DOOR EXISTS'); Errors := Errors + 1; TerminateTheScript; end; end; until(InTheDoor > 1); SPS_Setup(RUNESCAPE_OTHER, ['dwarven_mine']); SPS_WalkPath(MyPath3); Fflag(0); Wait(RandomRange(800,1000)); end; procedure GoToBank; var UpTheLadder, RepeatsExit, bankfailsafe, OutTheDoor, RepeatsUpLadder: Integer; begin StatsGuise('Time To Bank'); SPS_WalkPath(MyPath4); FFlag(3); MakeCompass('n'); CountStuff; StatsGuise('Finding Mysterious Entrance Out'); Wait(RandomRange(900,905)); repeat begin if FindExitDoor then begin OutTheDoor := 2; end else begin RepeatsExit := RepeatsExit + 1; end; if RepeatsExit > 3 then begin Writeln('ERROR: NO EXIT DOOR EXISTS') Errors := Errors + 1; TerminateTheScript; end; end; until(OutTheDoor > 1); Wait(RandomRange(1000,2000)); StatsGuise('Finding Up Ladder'); repeat begin if FindUpLadder then begin UpTheLadder := 3; Wait(RandomRange(600,800)); end else begin Wait(250); RepeatsUpLadder := RepeatsUpLadder + 1; end; if RepeatsUpLadder > 3 then begin Writeln('ERROR: NO UP LADDER EXISTS') Errors := Errors + 1; TerminateTheScript; end; end; until(UpTheLadder > 1); SPS_Setup(RUNESCAPE_SURFACE, ['9_8','9_7','10_7','10_8']); StatsGuise('Walking To Bank'); SPS_WalkPath(MyPath3444); Wait(2000);//change marktime(bankfailsafe); repeat if FindBox then begin Bank; end else begin Writeln('repeating bank :( oooh'); SPS_WalkPath(MyPath3444); Wait(5000); end; until(Result12 > 1) or (TimeFromMark(BankFailSafe) > 35000) Result12 := 0; end; Procedure MainLoop; var WalkDTM, wejustmined, i, o, ai: Integer; begin WeJustMined := 1; ai := Random(101); if TimeFromMark(FAILSAFED) > 500000 then begin writeln('FAILSAFED'); TerminateScript; end; MarkTime(o); MarkTime(i); repeat repeat FindRune; until(NoRuneLeft = 1) or (InvFull) NoRuneLeft := 0; FindAddy; if NoAddy < 2 then begin WalkDTM := LoadDTMWalk(1); StatsGuise('Repositioning..'); if invfull then Exit; if FindDTM(WalkDTM, X, Y, MMx1,MMy1,MMx2,MMy2) then begin Mouse(X, Y, 8, 8, True); wait(550); end else SPS_WalkPAth(MyPath3); wait(RandomRange(1100,1550)); NoAddy := 5; end; If InvFull then BagGems; until(MoveOnAddy > 1) or (InvFull) if Hoppable > 1 then begin ChangeWorld(RandomWorld(True,False)); Wait(RandomRange(500,1000)); SetAngle(SRL_ANGLE_HIGH); moveonaddy := 0; hoppable := 0; NoAddy := 0; end; end; procedure Setup; begin {$IFDEF SIMBAMAJOR980} SMART_SERVER := 10; SMART_MEMBERS := TRUE; SMART_SIGNED := TRUE; SMART_SUPERDETAIL := FALSE; {$ELSE} SRL_SIXHOURFIX := TRUE; SMART_FIXSPEED := TRUE; {$ENDIF} SetupSRL; cleardebug; SMART_ClearCanvas; VersionNumber := 1; Writeln('Peanuts Rune & Addy Miner - Version 1.00'); runeValue := GetGEPrice('runite ore'); // RuneValue := 10400; Writeln(' '); AddyValue := GetGEPrice('adamantite ore'); //AddyValue := 1430; ; SapValue := GetGePrice('uncut sapphire'); //SapValue := 500; Writeln('Starting In 3… '); EmValue := GetGePrice('uncut emerald'); //EmValue := 1000; Writeln('Starting In 2… '); RubValue := GetGEPrice('uncut ruby'); // RubValue := 2000; Writeln('Starting In 1… '); DiValue := GetGePRice('uncut diamond'); // DiValue := 2000; Writeln(' '); Writeln('Please give feedback at: http://villavu.com/forum/showthread.php?t=104052!'); Writeln(' '); SPS_Setup(RUNESCAPE_OTHER, ['dwarven_mine']); myPath1 := [Point(3873, 3242), Point(3892, 3250), Point(3911, 3252), Point(3920, 3226), Point(3920, 3207), Point(3884, 3194), Point(3891, 3174), Point(3865, 3165), Point(3860, 3167), Point(3856, 3172), Point(3850, 3179)];myPath2 := [Point(3859, 3175), Point(3876, 3168), Point(3888, 3182), Point(3909, 3199), Point(3921, 3217), Point(3919, 3242), Point(3917, 3255), Point(3888, 3251), Point(3870, 3249)]; myPath5 := [Point(3666, 2979), Point(3658, 3004), Point(3659, 3027), Point(3664, 3039), Point(3658, 3055), Point(3665, 3071), Point(3679, 3080), Point(3695, 3087), Point(3707, 3089), Point(3726, 3098), Point(3740, 3109), Point(3756, 3120), Point(3773, 3131), Point(3787, 3143), Point(3803, 3155), Point(3813, 3171), Point(3821, 3189), Point(3833, 3198), Point(3847, 3210), Point(3860, 3195), Point(3885, 3201), Point(3906, 3208), Point(3914, 3224), Point(3914, 3240), Point(3934, 3232), Point(3938, 3218), Point(3922, 3214), Point(3924, 3224)]; myPath3 := [Point(140, 769)]; mypath4 := [Point(126, 738)]; myPath3444 := [Point(3870, 3246), Point(3892, 3254), Point(3908, 3254), Point(3917, 3247), Point(3918, 3231), Point(3915, 3219), Point(3906, 3204), Point(3890, 3194), Point(3879, 3185), Point(3859, 3180)]; BitmapForProggy := BitmapFromString(519, 23, 'meJzt20FqwzAQBdATdFMSsGghLc2i9z9hQ0SHQbJscAMq5MFb2Mp4JDuLjyOyfF4XALgr128AyKQDAOUeB14ZAKiEAgBBKAAQhAIADaEAQPGmAEBHKAAQhAIAxc9HACRCAYAgFAAIQgGAUBPhfPmavhIAprvFQTV9JQBMJxQACDUR7CkAUH73FKYvA4D/wEYzAEEoAJCN/qoQ2w01NeI0j4/kyr6+mfeAUecDfVZ7Np03Ptpez27P3eb9eF+/q/kGV+999fmc3j/CRv9cVq2uP8abyv7yXa/l7ebAhX9RJ22mziO5oBnc7pwfS38waj7yqHt8lLmzP5uX0xIH1cZxPg0/xiIqSw=='); end; begin StatsGuise('Starting Script'); DeclarePlayers; SetUp; if not LoggedIn then LoginPlayer; StartingExperience:=GetXPBarTotal; StartTime:=GetSystemTime; FindNormalRandoms; ToggleActionBar(false); SetRun(true); ClickNorth(SRL_ANGLE_HIGH); MarkTime(FAILSAFED); repeat Mainloop; If InvFull then begin BagGems; FindSpinTicket; Wait(RandomRange(850,950)); if InvFull then begin GoToBank; GoToDungeon; Proggy; end; end; until(OresMined = OresToMine) Proggy; Writeln('Finished'); TerminateTheScript; end.]