PDA

View Full Version : StreX's PowerMiner.



strex
09-03-2007, 04:12 PM
It's a very simple script.. Made by using tutorials ><
Tried to mine irons in gnome tree mining place. Worked good ^^

If anyone got time and want to teach me how to add randoms and other stuff i would appreciate it ^^ tell me your msn if you got free time :P

ANTI RANDOMS ARE FROM WT-Fakawi. All cretits for it goes for him!

For those who are lazy to download :P :


//////////////////////////////////////////////////////////////////////////////////////////////////////
// //
// This is first script by StreX :) //
// Its a Power Miner for "Old style" ores in Gnome Tree mining place //
// I will update him as soon as i learn a bit more about scar scripting :P //
// ANTI RANDOMS ARE FROM WT-Fakawi. All cretits for it goes for him! //
// //
// CREDITS: //
// WhoCares357 - for teaching for to script :P //
// WT-Fakawi - for anti randoms :P //
// NocKme - for helping creating the script and being a good friend :D //
// Me - for creating the script :D //
// mat_de_b - for helping to fix the script :) //
//////////////////////////////////////////////////////////////////////////////////////////////////////

// SETUP!
// Log in.
// Have a pickaxe equiped.
// Pick ore color. [27th line]
// Write how many loads you want. [26th line]
// Set RS window.
// Hit Run Script!
//
//
program StreXPowerIronMiner;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Mining.scar}

var Clicks: Integer;
i: Integer;
x,y: Integer;
Loads: Integer;
Thank: Integer;
const
c = 1; // How many loads you want.
color1 = 2503250; // color of the ore.

function FindFastRandoms: Boolean; // By WT-Fakawi.
var
i: Integer;
begin
for I := 1 to 11 do
begin
case I of
1: if FindDead then
begin
Result := True;
wait(200);
end;

2: if FindMod then
Result := True;

3: if FindMime then
begin
Result := True;
wait(200);
end;

4: if FindMaze then
begin
Result := True;
wait(200);
end;

5: if FindQuiz then
Result := True;

6: if FindDemon then
Result := True;

7: begin
if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
writeln('No GameTab');
wait(200);
end;
end;

8: begin
if InBlack then
begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
writeln('InBlack');
wait(200);
end;
end;

9 : if RC then
Result := True;

10 : if clicktocontinue then
result := true;

11 : if FindFight then
begin
Result := True;
RunTo('N', True);
Wait(15000 + random(5000));
Runback;
end;

12: if FindTalk then
Result := True;
end;
Wait(1);
end;
end;

procedure thanks;
begin
Writeln('Thanks for using StreX Power Miner 0.01 :) Hope you like it')
end;


procedure Proggy;
begin
ClearDebug;
Writeln(' StreX Auto Miner 0.01 ^^');
Writeln(' Progress Report: ');
Writeln(' Have done ' + IntToStr(Loads) + ' Loads' + ' ');
Writeln('---------------------------------------------');
Writeln(' Made ' + IntToStr(Clicks) + ' Clicks' + ' ');
Writeln(' Please post proggy in my thread. Thank you.');

end;

procedure mining;
begin
ClearDebug;
Findfastrandoms;
thanks;

repeat
if(FindColor(x,y,color1,168,114,414, 316))then
begin
Mouse(x,y,5,5,true);


wait(5000+random(250));
Clicks:=Clicks+1;
end;

until(InvFull);
end;
procedure drop;
Begin
DropAll;
Findfastrandoms;
Loads:=Loads+1;
end;
begin
SetupSRL;
i:= 0;
repeat
i:= i + 1;
mining;
drop;
Proggy;
until(i >= c);
end.

tomd741
09-03-2007, 04:50 PM
awesome!

worked 4 me

strex
09-03-2007, 06:31 PM
Thanks for testing tomd741 :P
Added antirandoms. From WT-Fakawi. Saw in one post somebody posted that i can use them as long as i give him credits ><. I hope he won't get angry ><
Anyone want to post a proggy? ^^ or correct someting? :D

strex
09-03-2007, 09:03 PM
Anyone else tested it? :P:spot:

Camaro
09-03-2007, 09:16 PM
I'm testing right now, ill post results in like 5 minutes.


EDIT:
Line 26: [Error] (15355:1): Duplicate identifier 'x' in script

Any help?

HighRoller21
09-04-2007, 12:48 PM
gained 4 mining lvls :)

strex
09-04-2007, 01:11 PM
Any problems using it? :P Post progress please ^^

HighRoller21
09-04-2007, 01:15 PM
sometimes it picks ores up off the ground and no antiban :(

mat_de_b
09-04-2007, 03:14 PM
repeat
if(FindColor(x,y,color1,168,114,414, 316))then
MMouse(x,y,0,0);
wait(100+random(50));
Mouse(x,y,0,0,true);
wait(5000+random(250));
Clicks:=Clicks+1;
until(InvFull);
end;


This must be changed to


repeat
if(FindColor(x,y,color1,168,114,414, 316))then
begin // a begin is needed here, because more than one line is after the if
Mouse(x,y,5,5,true); // Mouse will move to it and Click so MM isn't
// needed, the randoms of 5,5 make it less likely
// to be banned
wait(5000+random(250));
Clicks:=Clicks+1;
end; // This end means that everythign inbetween is done only
// if the if is true
until(InvFull);
end;


hope this helped, and look up a tutorial on standards, just makes scripting a bit easier

strex
09-04-2007, 06:37 PM
K, fixed :P thanks for help ^^

musicguy
09-04-2007, 06:56 PM
looks good might try it in a while

bob_the_noob
09-05-2007, 10:51 AM
awsome script gained 6 mining lvls:f:

strex
09-05-2007, 11:12 AM
Progress please? :P ^^ No problems running it?

440SixPak
09-07-2007, 12:16 PM
After a bit of smacking Scar around I got this to run.... properly. I only ran it for a few minutes and noticed it was way too fast in clicking from one rock to the next. Also, it missed dropping the whole left side of the inventory :/

Looks like a pretty good start though. Just needs some minor tweaking :D

Destrukt
09-07-2007, 02:44 PM
Yeah true, clicks a bit too fast. Maybe an option to set how many times it clicks? Good job though and keep it up

owned1112
09-07-2007, 04:00 PM
Thanks.

IEatJ00erBaybees
09-07-2007, 08:05 PM
sometimes it picks ores up off the ground and no antiban :(

Oh come on, it's his first script.

Well done StreX. :)

A very good first script..my first script never worked =[

Yami Tim
09-07-2007, 10:00 PM
Nice script im gonna test it :)

Qball
09-14-2007, 03:48 AM
testing now!