Well, I've taken it upon myself to learn some SCAR (go figure) so I decided to write myself a little powermining script to start things off. The script is below:
SCAR Code:{BT's wonderfully simple first script.
A Small Warning: Using this at this stage in development will certainly be grounds for a ban. :)
As I develop this a little further, you might have a better shot at sticking
it to Fagex.}
program BTminer;
{.include SRL/SRL.scar}
{.include SRL/SRL/skill/Mining.scar}
const
Color1 = 7754064;//A color from the rock you want mine.
Color2 = 7490893;//Another color from the rock.
Color3 = 7688015;//Yet another color on the rock.
Loads = 1;//Loads to mine?
MineTime = 5000;//Average time to mine an ore?
OreType = 'mith';//Type of ore you're mining?
//(iron, copper, tin, gold, mith, addy, rune)
var
x,y,ores,xp,perore,loadsleft :integer;
procedure OreXp;//Specificies the xp per ore for the proggy.
begin
case(OreType)of
'iron': perore:= 35;
'copper': perore:= 17;
'tin': perore:= 17;
'gold': perore:= 65;
'mith': perore:= 80;
'addy': perore:= 95;
'rune': perore:= 125;
else
exit;
end;
end;
procedure SendProggy; //Blatantly simple progress report.
begin
xp := ores * perore;
Writeln('/----------------------------\');
Writeln(' BTs No-Frills Proggy! ');
Writeln(' Ore Type:' + OreType);
Writeln(' Ores Mined: ' + inttostr(ores));
Writeln(' Xp Gained: ' + inttostr(xp));
Writeln('\----------------------------/');
end;
procedure MineOre;
begin
if not(loggedin) then Exit;
MakeCompass('N');
repeat
if(FindObjCustom(x,y,['ine'],[Color1,Color2,Color3],7)) then
MMouse(x,y,4,4);
repeat
Wait(100 + Random(100));
Mouse(x,y,0,0,true);
Wait(MineTime + Random(500));
until(IsBlackText('anage',8) = true);
until(InvFull);
end;
procedure DropOre;
var x:integer;
begin
if not(InvFull) then Exit;
x := 2;
repeat
DropItem(x);
x := x+1;
until(x = 29);
loadsleft := loadsleft - 1;
SendProggy;
end;
procedure SetupScript;
begin
ClearDebug;
SetupSRL;
SetupMining;
loadsleft := Loads;
end;
begin
SetupScript;
OreXp;
ActivateClient;
Repeat
MineOre;
DropOre;
Until(loadsleft = 0);
end.
Now, it works. Sorta. And that is a big "Sorta". Why, sure it mines, however, if you don't quite make it to the rock, it'll stash those coords and just walk off into the sunset while clicking on the X,Y cords it stored for the rock. You see, its on the wrong place on the screen, etc.
As you can see, I have made a good faith effort to integrate some SRL elements into the script, but as I said earlier, this is barely equatable to a first script. Once I get my "Scripting Legs" I'll crank out something a little more worthwhile for you all to drool at.![]()
Anyway, I could use some constructive criticism. Please none of these:
-LAWL N0oB.
-That script sux0rs.
Please, do include some of these:
-Well, you could save yourself some time by: etc.
-This feature would be nice:
Thanks everyone, I hope I entertained you a bit. Now go look at the script damnit!


Reply With Quote






, didnt really look farther than that, but i hope it gives you some ideas


