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