SCAR Code:
{So here my first script it runs pretty well
only bugs so far is thta sumtimes it clicks sumwhere else and doesnt drop allt he ore
(ong thts not to bad)
ty tickyy i looked on to your miner for proggy help and antibans and more
____________________setup__________________________
1. set up declareplayers
2. set ore type in line 38
3. setup player by rock you want to mine
3. save
4. run
5. post proggies and any bugs
btw it posts proggies all the way though so only post them t the end ty
and enjoy :0
______________________________________________________}
program SimplePowerMiner;
{.Include SRL\SRL\Misc\SMART.SCAR}
{.include SRL\SRL.scar}
{.include SRL\SRL\skill\Mining.scar}
{agenda
0. fix DTMs
3. anti randoms
4. multi ores???
5. release it}
var
j,x,y,g,i,y,z,TinDTM,MithDTM,AddyDTM,IronDTM,CoalDTM,CopperDTM,triestomine,drops: Integer;
const
NumOfPlayers = 1;
StartPlayer = 0;
WhichOre = old_Iron;//which ore youd like to mine primarily
WhichOre2 = old_Copper;//if other ore isnt available then mine this one
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Active := True; // Use this account?
Players[0].Integers[1] := 1000; // How many Loads
writeLn('logging in '+ Players[CurrentPlayer].Name);
end;
procedure AntiBanz;//ty tickyy
begin
If(not LoggedIn)then Exit;
Case Random(12) of
0: MMouse(Random(MSX2),Random(MSY2),0,0);
1: HoverSkill('random',false);
2: PickupMouse;
3: GameTab(1+Random(12));
4: SleepAndMoveMouse(400+Random(1500));
5: if Random(2) = 1 then MMouse(1, 338, 515, 165);
6: if Random(2) = 1 then MMouse(515, 1, 250, 503);
7: RandomMovement;
8..11:
begin
case Random(3) of
0:
begin
KeyDown(VK_RIGHT);
Wait(500+Random(2000));
KeyUp(VK_RIGHT);
end;
1:
begin
KeyDown(VK_Left);
Wait(500+Random(2000));
KeyUp(VK_Left);
end;
2:
begin
case Random(2) of
0:
begin
KeyDown(VK_RIGHT);
Wait(500+Random(1400));
KeyUp(VK_RIGHT);
end;
1:
begin
KeyDown(VK_Left);
Wait(500+Random(1400));
KeyUp(VK_Left);
z:=z + 1;
end;
end;
end;
end;
end;
end;
end;
procedure Setup;
begin
ClearDebug;
SMARTSetupEx(149, False, True, False);
Wait(5000);
SetTargetDC(SmartGetDC);
repeat
wait(100);
until(SmartGetColor(253, 233)<>1118604);
SetupSRL
SetupMining;
end;
procedure MineTheStuff;
begin
repeat
if FindObjRock(x, y, WhichOre)then
begin
Disguise('Found primary rock... mining');
Case (Random(3)) of
0, 2 :
begin
Mouse(x, y, 2, 2, False);
Wait(Random(100));
ChooseOption('Mine');//otherwise it may Examine
end;
1 : Mouse(x, y, 2, 2, True);
end;
triestomine := triestomine+1;
wait(5000 + random(300));
end else
if FindObjRock(x, y, WhichOre2) then
begin
Disguise('Found secondary rock... mining');
Case (Random(3)) of
0, 2:
begin
Mouse(x, y, 2, 2, False);
Wait(Random(100));
ChooseOption('Mine');//otherwise it may Examine
end;
1: Mouse(x, y, 2, 2, True);
end;
triestomine:= triestomine+1;
wait(5000 + random(300));
end;
AntiBanz;
until invfull or (triestomine > 30)
end;
procedure DropTheStuff;
begin
repeat
Disguise('dropping');
//MithDTM:= DTMFromString('78DA637461606038C780021C1CE3184480342' +
{ '310FF0702C62020E318031A60442281B427903844408D13903848' +
'408D29A67BB0AAB946845D7708A8F123C21C90DFCFE057030046A' +
'30EB0');
//AddyDTM:= DTMFromString('78DA6374656060D0646440069E315E0C22401' +
'A24FA1F081803810C05543510591809A40380840101354E40C29C' +
'801A3320A14E408D03909025A0C693B01A0010E60813');
}
IronDTM:= DTMFromString('78DA637461626078C28002BC7495181E02694' +
'620FE0F048C0140357718D000231209A43D806ADE12506346841A' +
'13A09A4704D45801D5DC23A0C61EA8E63A0135AE40353708A8F10' +
'2AAB9895F0D0074680FD3');
{
//CoalDTM:= DTMFromString('78DA639CC6C4C0F08C01059899A9328800694' +
'620FE0F048C8B816A6E33A001462412482F02AA794D40CD64A09A' +
'4F04D4B403D5BC2042CD13026A2601D5DC20A0A61BA8E61E7E350' +
'0164F1082');}
CopperDTM:= DTMFromString('78DA637462626078C28002B6A6EB313C04D28' +
'C40FC1F0818BD806A6E33A00146241248BB02D5DC20A0C604A8E6' +
'310135C640356F08A87100AAF944408D2F50CD4B026AEC08BB190' +
'0EA3E0F6B');
TinDTM:= DTMFromString('78DA63CC63626078C28002DAEB6A191E02694' +
'620FE0F048C5540357718D000231209A4F3816A6E10509341849A' +
'58A09A674498F389809A0AA09A37A82A0C141450D580FCF508BF3' +
'90016F91182');
//If FindDTM(MithDTM,x,y,MIX1,MIY1,MIX2,MIY2) then
//If FindDTM(AddyDTM,x,y,MIX1,MIY1,MIX2,MIY2) then }
If FindDTM(IronDTM,x,y,MIX1,MIY1,MIX2,MIY2)
or FindDTM(CopperDTM,x,y,MIX1,MIY1,MIX2,MIY2)
or FindDTM(TinDTM,x,y,MIX1,MIY1,MIX2,MIY2) then
// If FindDTM(CoalDTM,x,y,MIX1,MIY1,MIX2,MIY2) then
Begin
Mouse(x,y,2,2,False);
wait(random(200));
ChooseOption('Drop');
wait(1000 + random(100));
Drops:= drops+1;
end;
Until InvEmpty or (drops > 29);
end;
procedure Proggy;
begin
WriteLn(' _____ ______')
WriteLn(' | || \')
WriteLn(' | || |')
WriteLn(' | || ___/')
WriteLn('/_____/ |__ | ')
WriteLn('Player '+ Players[CurrentPlayer].Name);
WriteLn('loads done '+ IntToStr(g))
writeLn('post the proggy or no more updates!!!!!!!!!!!!!!')
end;
procedure SkillCheck;
begin
disguise('checking stats')
HoverSkill('mining',false);
wait(2000+(300));
end;
begin
g:= 0;
triestomine:=0;
drops:=0;
j:=0;
Setup;
DeclarePlayers;
LoginPlayer;
repeat
repeat
ClearDebug;
Proggy;
//FindPickHeadColor;
SkillCheck;
MineTheStuff;
DropTheStuff;
g:= g+ 1;
//antirandoms;
until (g= (Players[CurrentPlayer].Integers[1])) or (not LoggedIn);
NextPlayer(Players[CurrentPlayer].Active);
until(AllPlayersInactive);
end.
{rimmington_Clay
rimmington_Copper
rimmington_Tin
rimmington_Iron
rimmington_Gold
old_Clay
old_Copper
old_Tin
old_Iron
old_Coal
old_Mithril
old_Adamant
varrock_Clay
varrock_Copper
varrock_Tin
varrock_Iron
varrock_Silver
lumbridge_Copper
lumbridge_Tin
lumbridge_Coal
lumbridge_Mithril
lumbridge_Adamant
falador_Clay
falador_Copper
falador_Tin
falador_Iron
falador_Coal
falador_Mithril
falador_Adamant}