mining SimplePowerMiner!

[slacky]

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 July 9, 2016 by slacky

[BryceTheCoder]

First script right? Its good for a first script:)

[rsutton]

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....

[BryceTheCoder]

haha leeeeechherrrr;) GOT Err!

[slacky]

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 January 21, 2012 by slacky

[moose hunterz]

new here, how do i make this work

[shadowrecon]

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