It's my first script :P It's simple but working..
Tried to mine irons in gnome tree mining place. Worked good ^^
++++++++++++++++++++++++++++++++++++++++++++++++++ +
CREDITS :
WT-Fakawi - For anti randoms.. All credits for anti randoms goes for him!
NocKme - For helping to create the script and being a good friend ^^.
Me - For creating the script.
WhoCares357 - for teaching for to script :P
mat_de_b - for helping to fix the script 
++++++++++++++++++++++++++++++++++++++++++++++++++ +
FUTURE UPDATES ~~ (will update as soon as I get some time ^^
Gonna add logining in;
Will add Form aswell.. But when i will learn a bit more about scripting
;
Anti bad;
Some other srl procedures.
++++++++++++++++++++++++++++++++++++++++++++++++++ +
If you got any problems, suggestions, how to fix something, please tell me here on PM me ^^ (as I said, I'm still an amateur on scripting)
Post progress if not hard!
++++++++++++++++++++++++++++++++++++++++++++++++++ +
For those who are lazy to download :P
Script:
SCAR Code:
//////////////////////////////////////////////////////////////////////////////////////////////////////
// //
// 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(' did ' + IntToStr(Loads) + ' Loads' + ' ');
Writeln('---------------------------------------------');
Writeln(' Did ' + 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.
P.S. If anyone got time and want to teach me how to add srl procedures and other stuff i would appreciate it ^^ tell me your msn if you got free time :P
Thank you, StreX ^^