I am currently working on my first true no work power miner and I would just like some help
I will post sections of code when I get them completed I would like some help
SCAR Code:
program MiningTrainer;
{////////////////////////////
Created by Harkonnen for training your army up to around level 30
Please do not use past this or else you might raise the suspisions of our
benevolent Jagex leaders. =) Mainly used for Copper or Tin depending on if you
want to alter the code yourself. If you do feel free to change rocks too in
theory this could be used for any rocks I suggest Copper or tin though.
////////////////////////////}
{////////////////////////////
Personal set up for mining, make sure to imput all username passwords nicks ect...
In your runescape settings please make sure that you turn off all visual settings
make all settings as basic a possible. Then turn your brightness into very bright.
Other than that there should be nothing that you need to do.
////////////////////////////}
var Rocky1, Rocky2, Rockcolor1: RockColor2: Integer; // Declares variables for rocks
procedure DeclarePlayers
begin
HowManyPlayers := 5;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:= 0;
//
Players[0] .Name := 'Username'; //Players Username
Players[0] .Pass := 'Password'; //Players Password
Players[0] .Nick := '3-4 Lw Case letters of Username'; //Players nick for randoms
Players[0] .Active := True; // If you do not want to use this player make active = false
//
Players[1] .Name := 'Username'; //Players Username
Players[1] .Pass := 'Password'; //Players Password
Players[1] .Nick := '3-4 Lw Case letters of Username'; //Players nick for randoms
Players[1] .Active := True; // If you do not want to use this player make active = false
//
Players[2] .Name := 'Username'; //Players Username
Players[2] .Pass := 'Password'; //Players Password
Players[2] .Nick := '3-4 Lw Case letters of Username'; //Players nick for randoms
Players[2] .Active := True; // If you do not want to use this player make active = false
//
Players[3] .Name := 'Username'; //Players Username
Players[3] .Pass := 'Password'; //Players Password
Players[3] .Nick := '3-4 Lw Case letters of Username'; //Players nick for randoms
Players[3] .Active := True; // If you do not want to use this player make active = false
//
Players[4] .Name := 'Username'; //Players Username
Players[4] .Pass := 'Password'; //Players Password
Players[4] .Nick := '3-4 Lw Case letters of Username'; //Players nick for randoms
Players[4] .Active := True; // If you do not want to use this player make active = false
{////////////////////////
If you want to add another another plyer make wure to change the proper numbers.
Also use this form to add players.
Players[#] .Name := 'Username'; //Players Username
Players[#] .Pass := 'Password'; //Players Password
Players[#] .Nick := '3-4 Lw Case letters of Username'; //Players nick for randoms
PLayers[#] .Active := True; // If you do not want to use this player make active = false
////////////////////////}
procedure AutoColorRocks; // Auto coloring the rocks
begin
Rocky2 := DTMFromString('78DA634C676260E86264000166060868CEF66' +
'69003D220D1FF40C0580254D38DAAE658B1315C0D08301601D534' +
'A0AAD9936B88AA2617534D45922BAA9A2AA09A7654359DF97EA86' +
'ACA816AFA51D55CA83443559303543389805DC998FE4A0EB04451' +
'03001CEA16DD');
if(FindDTM(Rocky2, x, y, MIX1, MIY1, MIX2, MIY2))then
begin
Mouse(x,y,2,2,true);
Writeln(IntToStr(RockColor2));
end;
end;
//
procedure RockMining;
begin
if not LoggedIn then
Exit;
if (not (FindObjCustom(x,y, ['Mi', 'ne'], [RockColor1], 7))) then
wait(100+random(100))
if RockColor1 := false then
make Compass := 'N' else
Tries := Tries + 1;
if(Tries+random(25) = 40)then
begin
Logout;
Exit;
end else
if RockColor1 := false then
make Compass := 'E' else
Tries := Tries + 1;
if(Tries+random(25) = 40)then
begin
Logout;
Exit;
end else
if RockColor1 := false then
make Compass := 'S' else
Tries := Tries + 1;
if(Tries+random(25) = 40)then
begin
Logout;
Exit;
end else
if RockColor1 := false then
make Compass := 'W' else
Tries := Tries + 1;
if(Tries+random(25) = 40)then
begin
Logout;
Exit;
end else
repeat until RockColor1 := true
end;
end;
end;
end;
end;
if FindObjCustom(x, y, ['Min', 'ine'], [RockCOlor1, ], 7) then
repeat
case (random)2)) of
1: Mouse(x, y, 4, 4, false);
ChooseOption('ine');
2: Mouse(x, y, 4, 4, True);
end;
until (InvFull)
end;
end.