poolikemax
01-23-2008, 08:26 PM
PLM's simple power miner tut!
today im going to show you how to make a simple power miner with SRL, anti randoms and antiban. PLEASE REP++ ME IF YOU LIKE IT
well start off with scar open and the first step is to include SRL
program powerminer;
{.include SRL/SRL.scar}
begin
end.
now let declair vairables VAR and we want to declair "X, Y" as varables and the two colors of the rock were going to mine but were going to declair the colors as a const
so here goes
program powerminer;
{.include SRL/SRL.scar}
const
rockcolor1= 472123;//set the color of the rock
rockcolor2= 567243;//set color of rock (these aren't the real colors)
var x,y: integer;
begin
end.
Step 1:
makeing our first procedure. our first procedure is going to be a SRL one:
declair players(you should know what it means as its in almost every script)
Procedure DeclarePlayers; // this procedure is used to logg players in
begin
HowManyPlayers :=1; // Set Number of Players here.
NumberOfPlayers(HowManyPlayers); // Sets the Players Array Length;
CurrentPlayer:=0; // CurrentPlayer = Array Index
Players[0].Name :='username';//USERNAME
Players[0].Pass :='pass';//PASS
Players[0].Nick :='ser';//3 LETTERS OF YOUR USERNAME NOT THE FIRST ONE
Players[0].Active:=True;//PLAYER IN USE OR NOT
end;
now we want to put it in the main loop but we also want to setupSRL so we have to write these commands in the main loop:
SetupSRL; -so the script knows that we are useing SRL
DeclarePlayers; -used to tell the script the name of the player to loggin
LoginPlayer; -Simple loginplayer
so lets do that
begin
SetupSRL;
DeclarePlayers;
LoginPlayer;
end.
Step 2
adding anti randoms
this is one of the most important things your script needs to have a good working script this is the procedure i use:
Procedure Randoms;
Begin
FindTalk; //finds talkin randoms
FindNormalRandoms; //finds normal randoms
SolveChatRandom; //sloves chat randoms
FindLamp('Woodcutting'); //solves lamp and then choses a skill to update
SolvePinball; //solves pinball random
DwarfItem; //dropes dawalf items
If(FindFight)Then //runs away from fight
Begin
MakeCompass('N');
RunTo('E', True);
Wait(7000 +Random(3000));
RunTo('W', True);
End;
End;
Step 3
adding a antiban
we need this to stop the user getting there account baned. the antiban makes it look like its a real person playing. So here goes
we need a few different antiban procedures you will see what i mean.
before we make the procedure we need to declare randomm as a varable so your varables should now look like this:
var x,y,randomm: integer;
now the anti ban:
procedure antiban;
begin
randomm := Random(4)
case randomm of
0: begin
Wait(3591+(random(287)));
RandomRClick;
Wait(3591+(random(287)));
HighestAngle;
RandomlyChosenSkill;
Randoms
end;
1: begin
Wait(3694+(random(791)));
GameTab(random(13)+1);
Randoms;
Wait(3694+(random(791)));
GameTab(4);
end;
2: begin
Wait(3294+(random(873)));
Randoms;
HoverSkill('Woodcutting' ,false);
Wait(3294+(random(873)));
end;
3: begin
Wait(3694+(random(791)));
GameTab(random(13)+1);
Randoms;
Wait(3694+(random(791)));
GameTab(4);
end;
end;
end;
Step 4
now we have done antiban and anti randoms we can now do the part of the script that makes the player mine a rock. for this we use a fuction called findobject. what it dose is it looks for the given color(the colors we gave as const) and moves the mouse there and checks up the top to see if its the object were looking for!
Procedure minerock;
begin
if not LoggedIn then
Exit;
repeat
if FindObjCustom(x, y, ['Min', 'ine'], [rockcolor1, rockcolor2], 7) then
begin
Mouse(x,y,0,0,false);
Wait(500+(random(150)));
ChooseOption('ine')
randoms
antiban;
writeln('found rock');
end else
writeln('couldnt find rock');
randoms;
antiban;
antiban;
antiban;
until( InvFull )
end;
that loop will keep mineing till the inventery is full
Step 5
dropping the ore
we need to drop the ore so we need to drop everything from iventory spot no2 - spot 28 so here goes
procedure drop;
begin
antiban;
DropToPosition(2,28);;
antiban;
end;
Step 6
adding every thing to the main loop and finnishing things off
so we need to add the following procedure to the main loop:
minerock;
drop;
also we need to make it repeat but we only want to repeat the mine rock and drop procedures. So heres what your main loop should look like
begin
SetupSRL;
DeclarePlayers;
LoginPlayer;
repeat
minerock;
drop;
until (IsFKeyDown(3));
end.
now you should have made a working powerminer now all you need is to add your own sig and instructions. oh finnished script should look somthing like this:
program powerminer;
{.include SRL/SRL.scar}
const
rockcolor1= 472123;//set the color of the rock
rockcolor2= 567243;//set color of rock (these aren't the real colors)
var x,y,randomm: integer;
Procedure DeclarePlayers; // this procedure is used to logg players in
begin
HowManyPlayers :=1; // Set Number of Players here.
NumberOfPlayers(HowManyPlayers); // Sets the Players Array Length;
CurrentPlayer:=0; // CurrentPlayer = Array Index
Players[0].Name :='username';//USERNAME
Players[0].Pass :='pass';//PASS
Players[0].Nick :='ser';//3 LETTERS OF YOUR USERNAME NOT THE FIRST ONE
Players[0].Active:=True;//PLAYER IN USE OR NOT
end;
Procedure Randoms;
Begin
FindTalk; //finds talkin randoms
FindNormalRandoms; //finds normal randoms
SolveChatRandom; //sloves chat randoms
FindLamp('Woodcutting'); //solves lamp and then choses a skill to update
SolvePinball; //solves pinball random
DwarfItem; //dropes dawalf items
If(FindFight)Then //runs away from fight
Begin
MakeCompass('N');
RunTo('E', True);
Wait(7000 +Random(3000));
RunTo('W', True);
End;
End;
procedure antiban;
begin
randomm := Random(4)
case randomm of
0: begin
Wait(3591+(random(287)));
RandomRClick;
Wait(3591+(random(287)));
HighestAngle;
Randoms;
end;
1: begin
Wait(3694+(random(791)));
GameTab(random(13)+1);
Randoms;
Wait(3694+(random(791)));
GameTab(4);
end;
2: begin
Wait(3294+(random(873)));
Randoms;
HoverSkill('Woodcutting' ,false);
Wait(3294+(random(873)));
end;
3: begin
Wait(3694+(random(791)));
GameTab(random(13)+1);
Randoms;
Wait(3694+(random(791)));
GameTab(4);
end;
end;
end;
Procedure minerock;
begin
if not LoggedIn then
Exit;
repeat
if FindObjCustom(x, y, ['Min', 'ine'], [rockcolor1, rockcolor2], 7) then
begin
MoveMouseSmoothEx(x,y, 20,40,45,25,20);
FTWait(1);
clickmouse(x,y,false);
Wait(500+(random(150)));
ChooseOption('ine')
randoms
antiban;
writeln('found rock');
end else
writeln('couldnt find rock');
randoms;
antiban;
antiban;
antiban;
until( InvFull )
end;
procedure drop;
begin
antiban;
DropToPosition(2,28);;
antiban;
end;
begin
SetupSRL;
DeclarePlayers;
LoginPlayer;
repeat
minerock;
drop;
until(IsFKeyDown(3));
I hope you liked my tut and i wish you happy scripting
Im sorry for the poor spelling im crap at spelling lol
today im going to show you how to make a simple power miner with SRL, anti randoms and antiban. PLEASE REP++ ME IF YOU LIKE IT
well start off with scar open and the first step is to include SRL
program powerminer;
{.include SRL/SRL.scar}
begin
end.
now let declair vairables VAR and we want to declair "X, Y" as varables and the two colors of the rock were going to mine but were going to declair the colors as a const
so here goes
program powerminer;
{.include SRL/SRL.scar}
const
rockcolor1= 472123;//set the color of the rock
rockcolor2= 567243;//set color of rock (these aren't the real colors)
var x,y: integer;
begin
end.
Step 1:
makeing our first procedure. our first procedure is going to be a SRL one:
declair players(you should know what it means as its in almost every script)
Procedure DeclarePlayers; // this procedure is used to logg players in
begin
HowManyPlayers :=1; // Set Number of Players here.
NumberOfPlayers(HowManyPlayers); // Sets the Players Array Length;
CurrentPlayer:=0; // CurrentPlayer = Array Index
Players[0].Name :='username';//USERNAME
Players[0].Pass :='pass';//PASS
Players[0].Nick :='ser';//3 LETTERS OF YOUR USERNAME NOT THE FIRST ONE
Players[0].Active:=True;//PLAYER IN USE OR NOT
end;
now we want to put it in the main loop but we also want to setupSRL so we have to write these commands in the main loop:
SetupSRL; -so the script knows that we are useing SRL
DeclarePlayers; -used to tell the script the name of the player to loggin
LoginPlayer; -Simple loginplayer
so lets do that
begin
SetupSRL;
DeclarePlayers;
LoginPlayer;
end.
Step 2
adding anti randoms
this is one of the most important things your script needs to have a good working script this is the procedure i use:
Procedure Randoms;
Begin
FindTalk; //finds talkin randoms
FindNormalRandoms; //finds normal randoms
SolveChatRandom; //sloves chat randoms
FindLamp('Woodcutting'); //solves lamp and then choses a skill to update
SolvePinball; //solves pinball random
DwarfItem; //dropes dawalf items
If(FindFight)Then //runs away from fight
Begin
MakeCompass('N');
RunTo('E', True);
Wait(7000 +Random(3000));
RunTo('W', True);
End;
End;
Step 3
adding a antiban
we need this to stop the user getting there account baned. the antiban makes it look like its a real person playing. So here goes
we need a few different antiban procedures you will see what i mean.
before we make the procedure we need to declare randomm as a varable so your varables should now look like this:
var x,y,randomm: integer;
now the anti ban:
procedure antiban;
begin
randomm := Random(4)
case randomm of
0: begin
Wait(3591+(random(287)));
RandomRClick;
Wait(3591+(random(287)));
HighestAngle;
RandomlyChosenSkill;
Randoms
end;
1: begin
Wait(3694+(random(791)));
GameTab(random(13)+1);
Randoms;
Wait(3694+(random(791)));
GameTab(4);
end;
2: begin
Wait(3294+(random(873)));
Randoms;
HoverSkill('Woodcutting' ,false);
Wait(3294+(random(873)));
end;
3: begin
Wait(3694+(random(791)));
GameTab(random(13)+1);
Randoms;
Wait(3694+(random(791)));
GameTab(4);
end;
end;
end;
Step 4
now we have done antiban and anti randoms we can now do the part of the script that makes the player mine a rock. for this we use a fuction called findobject. what it dose is it looks for the given color(the colors we gave as const) and moves the mouse there and checks up the top to see if its the object were looking for!
Procedure minerock;
begin
if not LoggedIn then
Exit;
repeat
if FindObjCustom(x, y, ['Min', 'ine'], [rockcolor1, rockcolor2], 7) then
begin
Mouse(x,y,0,0,false);
Wait(500+(random(150)));
ChooseOption('ine')
randoms
antiban;
writeln('found rock');
end else
writeln('couldnt find rock');
randoms;
antiban;
antiban;
antiban;
until( InvFull )
end;
that loop will keep mineing till the inventery is full
Step 5
dropping the ore
we need to drop the ore so we need to drop everything from iventory spot no2 - spot 28 so here goes
procedure drop;
begin
antiban;
DropToPosition(2,28);;
antiban;
end;
Step 6
adding every thing to the main loop and finnishing things off
so we need to add the following procedure to the main loop:
minerock;
drop;
also we need to make it repeat but we only want to repeat the mine rock and drop procedures. So heres what your main loop should look like
begin
SetupSRL;
DeclarePlayers;
LoginPlayer;
repeat
minerock;
drop;
until (IsFKeyDown(3));
end.
now you should have made a working powerminer now all you need is to add your own sig and instructions. oh finnished script should look somthing like this:
program powerminer;
{.include SRL/SRL.scar}
const
rockcolor1= 472123;//set the color of the rock
rockcolor2= 567243;//set color of rock (these aren't the real colors)
var x,y,randomm: integer;
Procedure DeclarePlayers; // this procedure is used to logg players in
begin
HowManyPlayers :=1; // Set Number of Players here.
NumberOfPlayers(HowManyPlayers); // Sets the Players Array Length;
CurrentPlayer:=0; // CurrentPlayer = Array Index
Players[0].Name :='username';//USERNAME
Players[0].Pass :='pass';//PASS
Players[0].Nick :='ser';//3 LETTERS OF YOUR USERNAME NOT THE FIRST ONE
Players[0].Active:=True;//PLAYER IN USE OR NOT
end;
Procedure Randoms;
Begin
FindTalk; //finds talkin randoms
FindNormalRandoms; //finds normal randoms
SolveChatRandom; //sloves chat randoms
FindLamp('Woodcutting'); //solves lamp and then choses a skill to update
SolvePinball; //solves pinball random
DwarfItem; //dropes dawalf items
If(FindFight)Then //runs away from fight
Begin
MakeCompass('N');
RunTo('E', True);
Wait(7000 +Random(3000));
RunTo('W', True);
End;
End;
procedure antiban;
begin
randomm := Random(4)
case randomm of
0: begin
Wait(3591+(random(287)));
RandomRClick;
Wait(3591+(random(287)));
HighestAngle;
Randoms;
end;
1: begin
Wait(3694+(random(791)));
GameTab(random(13)+1);
Randoms;
Wait(3694+(random(791)));
GameTab(4);
end;
2: begin
Wait(3294+(random(873)));
Randoms;
HoverSkill('Woodcutting' ,false);
Wait(3294+(random(873)));
end;
3: begin
Wait(3694+(random(791)));
GameTab(random(13)+1);
Randoms;
Wait(3694+(random(791)));
GameTab(4);
end;
end;
end;
Procedure minerock;
begin
if not LoggedIn then
Exit;
repeat
if FindObjCustom(x, y, ['Min', 'ine'], [rockcolor1, rockcolor2], 7) then
begin
MoveMouseSmoothEx(x,y, 20,40,45,25,20);
FTWait(1);
clickmouse(x,y,false);
Wait(500+(random(150)));
ChooseOption('ine')
randoms
antiban;
writeln('found rock');
end else
writeln('couldnt find rock');
randoms;
antiban;
antiban;
antiban;
until( InvFull )
end;
procedure drop;
begin
antiban;
DropToPosition(2,28);;
antiban;
end;
begin
SetupSRL;
DeclarePlayers;
LoginPlayer;
repeat
minerock;
drop;
until(IsFKeyDown(3));
I hope you liked my tut and i wish you happy scripting
Im sorry for the poor spelling im crap at spelling lol