Jump to content
  • Sky
  • Blueberry
  • Slate
  • Blackcurrant
  • Watermelon
  • Strawberry
  • Orange
  • Banana
  • Apple
  • Emerald
  • Chocolate
  • Charcoal
slacky

SimplePowerMiner!

Recommended Posts

SimplePowerMiner - Test Stage

 

It's a SimplePowerMiner that will theoreticaly work wherever there is ORE spesefied by the color you set. I've only tested it 3-4 places but should work just fine.

Never been tested using OSI, but should work fine

 

There might come some updates to this script, but it's hard to develop for OSI, without getting OSI to work properly for me.

{=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
|| Note: Ive never had it running more than 5-6 hours. Reason: No AntiRandom. So 
|| you need to do that part you'r self. The bot is VERY basic.
|| =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
|| Note 2: I do NOT use OSI in my script, i used my own include, because
|| OSI does NOT work (perfectly) for me. But with implemented OSI for you guys.
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=}

program SimplePowerMiner;


{$DEFINE RS2}
//{$DEFINE SMART} //Remove "//" to use SMART, if you'r smart.
{$DEFINE OSI_Color_Anti_Randoms}
{$I OSI\OSI.scar}
{$I OSI\RS2\Misc\Anti-Ban.scar}

procedure ScriptTerminate;
begin FreeOSI; end;

procedure print(text:string);
begin WriteLn('>>> ' + text); end;

var 
 x,y:Integer;
const
 color = 2570337; //This is a perfect IRON-color.
 timer = 3000; //Works from 40-80 mining at Al Kharid - Iron.

{=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
|| procedure InitPlayer;
|| Description: Startup fixes: Face North .::. Angle MAX .::. Set InventoryTab.
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=}
procedure InitPlayer;
begin
 SetGameTab(Tab_Inv);
 SetAngle(True);
 MakeCompass(Dir_North);
end;


{=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
|| procedure AntiBan;
|| doesn't do shit atm
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=}
procedure AntiBan;
begin
 (* nothing *)
end;


{=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
|| procedure ClickTarget;
|| Description: Click The target, found by FindTarget.
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=}
procedure ClickTarget;
begin
 if InvFull Then DropAll;
 if IsUpTextMulti(['Mine', 'ine','Min']) then
 begin
   GetMousePos(x, y);
   Mouse(x, y, 1, 1, True);
   Wait(timer + Random(1200));
 end;
end;


{=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
|| procedure FindTarget;
|| Description: Find a target color: Eg. a rock. Spesefied by color.
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=}
procedure FindTarget;
var
 TPA: TPointArray;
 TP: TPoint;
begin
 ColorToleranceSpeed(2);
 SetColorspeed2Modifiers(0.14, 0.70);
 if FindColorsTolerance(TPA, color, MSX1, MSY1, MSX2, MSY2, 6) then
 begin
   TP := TPA[Random(Length(TPA))];
   MMouse(TP.x, TP.y,1,1);
   Wait(100 + Random(200));
 end;
end;


{=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
|| MainLoop
|| Description: Runs the script, until stopped.
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=}
begin
 SetupOSI;
 InitPlayer;
 repeat
   FindTarget;
   ClickTarget;
   if Random(15) = 1 Then AntiBan;
 until False;
end.

Edited by slacky

Share this post


Link to post
Share on other sites

not horrible. My corncern is that you didnt declare credits. I actually think ive seen that findtarget code exactly before at some point. exactly same words and letters....

Share this post


Link to post
Share on other sites

If u got an error, you could atleast spesify the line... I do not see any line that should give you an error.. But what do I know, I'm a "leeeeechherrrr".

And it's still untested using OSI. But not much change is made. The dropfunction was replaced by OSI,the mousemovement, and some minor changes was made to simplify it.

Edited by slacky

Share this post


Link to post
Share on other sites
new here, how do i make this work

 

i believe you just need to pic the color of the ore using the color tool on scar then input that color in the script. and press play

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.


×
×
  • Create New...