Hi im currently working on a mining script for gem rocks to try and become a srl member and im trying to figure out the best way to have it detect you are mining if anyone could help any it would mean a lot thank u
Hi im currently working on a mining script for gem rocks to try and become a srl member and im trying to figure out the best way to have it detect you are mining if anyone could help any it would mean a lot thank u
pixelshift would be a good way, srl also build in animation detection.
Finished B.S. Program in Radiology!!
Projects: A big one! Total secret! hehe
do u know where a tut on how to use pixelshift is im trying to learn and im having trouble doing so
I know using the Search Button can help at times:
http://villavu.com/forum/search.php?searchid=2028161
Simply a GOD beast...
My Tutorials
used it and couldnt find a tut on pixel shifting
Check beginner tuts, flight have a tut in there on that.
Finished B.S. Program in Radiology!!
Projects: A big one! Total secret! hehe
thank u![]()
XP gain + inventory change + timeout. Will not be perfect but quite to the point.
This will check for shifting pixels right near the centre of the screen, its part of what i am using along with the points Er1k mentioned for my coal miner. It's just a really simple edit of the 'IsMoving' function in the SRL include -
Simba Code:function IsMining: Boolean;
begin
Result := PixelShift(IntToBox(MSCX-30, MSCY-30, MSCX+30, MSCY+30), 500) > 200;
end;
Then in my mining procedure it has -
Simba Code:While IsMining do
Wait(RandomRange(500,1000));
working quite effectively so far.
Simply a GOD beast...
My Tutorials
umm when i clicked it it said not found and right now im having problems even getting my script to free the dtms and place gems in the bag i figured id tackel that first and cant get it to work
Simba Code:program new;
{$DEFINE SMART}
{$i srl/srl.simba}
{$i sps/sps.simba}
var
GemBag:integer;
Sapphire:integer;
x,y,x1,y2:integer;
procedure freed;
begin
GemBag := DTMFromString('mrAAAAHic42BgYJjGxMAwGYhnA/ECJgi/F4j7gHgeEBswMjBoArEiEBsDsRUQmwKxLhBbAnHb7GlAU5jwYNyAH4gZCWAYAABW6Qgy');
sapphire := DTMFromString('mwQAAAHic42RgYMhnYmBIAuISIE4D4iIgzgHiFKhYNhA/B6q7B8TvgfgtED+A8p8A8QsgfgfEfAIpDCLifQzcvMEM/EI5DDz80Qy8/MkMwuI9DNw8AWAxYgAjERgOANqzENw=');
end;
procedure freeddtmz;
begin
FreeDtm(GemBag);
FreeDTM(sapphire);
end;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
with Players[0] do
begin
Name := ''; // Username
Pass := ''; // Password
Pin := ''; // Pin
Active := True; // Set to true if you want to use Player 0
BoxRewards := ['XP','xp','lamp'];
LampSkill := Skill_Mining;
end;
end;
procedure BagGem;
var
x, y : Integer;
begin
if FindDTM(GemBag, x, y, MIX1, MIY1, MIX2, MIY2) then
begin
Writeln('Hello world!')
if FindDTm(sapphire,x,y,MIX1,MIY1,MIX2,MIY2) then
Mouse(x, y, 0, 0, False);//Remeber that "False" means it will right click.
if ChooseOption('use') then
if FindDTM(GemBag, x, y, MIX1, MIY1, MIX2, MIY2) then
Mouse(x,y,0,0 ,true);
end;
end;
begin
Smart_Server := 86;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
SetupSRL();
ClearDebug();
DeclarePlayers();
if not LoggedIn then
begin
LoginPlayer();
end;
if LoggedIn then
begin
freed;
freeddtmz;
BagGem;
ClickNorth(SRL_ANGLE_HIGH);
BagGem;
end;
end.
thats what i have so far if someone has skype that would help me please pm me your skype im really trying to learn and could use a little guidance
Last edited by dc686; 05-14-2012 at 05:03 AM.
take down your post with the simba script in it, you didnt remove your username and pass
opps thanks bro at least i have a pin that wasnt there :P
Firstly, your 'freed' procedure should be called 'load', as your not freeing anything.
Secondly, you want to free your DTM's after doing what you want to do not before, it should be in this order:
Simba Code:freed; //rename to Load
BagGem;
ClickNorth(SRL_ANGLE_HIGH);
BagGem;
freeddtmz;
Simply a GOD beast...
My Tutorials
if anyone has a gem bag and sapphire could u try this script out and see if you can get it to work i cant get it to do anything and idk why even with the freeing dtm correctly now its still not placing the gem in the bag which means it is not finding the bag dtm because its also not doing the writeln unless if i messed something else up
Last edited by dc686; 05-14-2012 at 05:47 AM.
got it to bag the sapphirehad to remake my dtms i messed them up the first time and after reading a few more tuts i figured out my problem was finding the dtms
There are currently 1 users browsing this thread. (0 members and 1 guests)