anth_
2012-02-27 16:19:39
Hey, may a mod delete this thread please?
SRL Archive - First Scripts
Granite Chiseller! ~500k/h
Gucci
2012-02-27 16:28:53
You might wanna add direct download for the script.
anth_
2012-02-27 16:31:23
From: mega284
You might wanna add direct download for the script.
Thanks mate, done.
Gucci
2012-02-27 16:34:38
From: divina commedia
Thanks mate, done.
Just makes it easier, looks like a nice script I'll test it when I get a chance.
anth_
2012-02-27 16:38:06
From: mega284
Just makes it easier, looks like a nice script I'll test it when I get a chance.
Do so! I've run it for around Four hours today.
Gucci
2012-02-27 16:41:19
From: divina commedia
Do so! I've run it for around Four hours today.
Then that's a pretty stable script. Does chiselling granite get crafting exp?
anth_
2012-02-27 16:42:59
From: mega284
Then that's a pretty stable script. Does chiselling granite get crafting exp?
Nope, but it's good money for low levels/throwaway accounts.
Mat
2012-02-27 16:45:23
You could make a anti lech :)
E:Also Brit FTW!
E:Also Brit FTW!
anth_
2012-02-27 16:48:52
From: Mat
You could make a anti lech :)
E:Also Brit FTW!
Wooo Brits :) :spot:
You think so? I'm not sure what I should do, don't want to make it too hard :)
exilednoob
2012-02-27 16:49:02
we talking about 500k cash per hour? right? lol
anth_
2012-02-27 16:52:42
From: exilednoob
we talking about 500k cash per hour? right? lol
Yes, we are. Antileech?
begginer
2012-02-27 17:05:50
Will try this. Thanks for posting. Add an antileech plz
exilednoob
2012-02-27 17:07:36
From: divina commedia
Yes, we are. Antileech?
yeah just dont make it too hard please.
anth_
2012-02-27 17:17:08
Added an anti-leech.
Gucci
2012-02-27 17:18:38
An antileech is a great idea pm me if you want some ideas, or something :)
E: Nvm while i was writing you added one
E: Nvm while i was writing you added one
footballjds
2012-02-27 17:18:50
no use for an anti leach. I mean, this script could be made by anyone in 20 minutes or less…
Gucci
2012-02-27 17:20:30
From: footballjds
no use for an anti leach. I mean, this script could be made by anyone in 20 minutes or less…
Except by the leeches.
anth_
2012-02-27 17:21:12
From: footballjds
no use for an anti leach. I mean, this script could be made by anyone in 20 minutes or less…
I thought simplicity was a defining factor :spot:
E: Although it did take me longer than 20mins, more like 6 hours. But now I know how to use bitmaps, DTMs, walking and so forth. I think it's okay for a first script, albeit the fact that it's a low req good moneymaker.
footballjds
2012-02-27 17:25:20
From: divina commedia
I thought simplicity was a defining factor :spot:
E: Although it did take me longer than 20mins, more like 6 hours. But now I know how to use bitmaps, DTMs, walking and so forth. I think it's okay for a first script, albeit the fact that it's a low req good moneymaker.
okay, i guess i should have said any advanced scripter could do it in 20 mins.
you learned how to walk to chisel something? I thought you just took them outta the bank, chisel, bank, chisel, bank etc…
def awesome money maker, although it will crash prices if abused. (:
anth_
2012-02-27 17:28:30
From: footballjds
okay, i guess i should have said any advanced scripter could do it in 20 mins.
you learned how to walk to chisel something? I thought you just took them outta the bank, chisel, bank, chisel, bank etc…
def awesome money maker, although it will crash prices if abused. (:
Haha, no I decided I should learn a few things, mostly with DTMs. They're awesome.
You think I should take it off? I don't know…
footballjds
2012-02-27 17:30:20
From: divina commedia
Haha, no I decided I should learn a few things, mostly with DTMs. They're awesome.
You think I should take it off? I don't know…
i think it's fine. but thats up to you (:
i wouldn't worry dude, it's a pixel game. it's not life…
Yes, DTM's are awesome! however, for main screen they're not as good as TPA's
IDC what tut you read saying otherwise :P
anth_
2012-02-27 17:32:52
From: footballjds
i think it's fine. but thats up to you (:
i wouldn't worry dude, it's a pixel game. it's not life…
Yes, DTM's are awesome! however, for main screen they're not as good as TPA's
IDC what tut you read saying otherwise :P
Okay, well thank you very much.
just a load of old ones ;)
footballjds
2012-02-27 17:34:22
From: divina commedia
Okay, well thank you very much.
just a load of old ones ;)
and i think your anti-leach is very easy. if anyone complains about it, then it's proof they're a leach…
:P
anyone knows we start somewhere and end somewhere ;)
anth_
2012-02-27 17:35:30
From: footballjds
and i think your anti-leach is very easy. if anyone complains about it, then it's proof they're a leach…
:P
anyone knows we start somewhere and end somewhere ;)
Ikr, I made it really easy to only keep the hardcore leechers out :)
blazingrobin
2012-02-27 18:21:22
i feel so stupid now lol…..took me a while to find the anti leech fix (did myself no help) but finally did it. running it now and will have a proggy up soon
edit:also added bank pin support when i got anti leech out
edit:also added bank pin support when i got anti leech out
Nebula
2012-02-27 18:38:48
Here, I fixed your standards for you. (But I didn't fix the part that was anti-leech)
Anyways, looks nice
Anyways, looks nice
program GraniteChiseller; //By Divina Commedia!
////////////////////////////////////////////////////////////////////////////////
{$DEFINE SMART}
{$Define CRASHSMART}
{$include srl/srl/misc/smart.simba}
{$include srl/srl.simba}
////////////////////////////////////////////////////////////////////////////////
Const
Version = '1.2'; //Now with SMART
////////////////////////////////////////////////////////////////////////////////
var
x, y, GraniteDTM,Granite2DTM,CraftDTM,Craft2DTM : Integer;
////////////////////////////////////////////////////////////////////////////////
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Active:=True;
end;
////////////////////////////////////////////////////////////////////////////////
procedure SetDTM;
begin
GraniteDTM := DTMFromString('mbQAAAHicY2VgYFjEyMAwDYjnAPFSIF4PxO1A3APEE4G4H4i7gHhWaRhQNRMK5mfADhiRMBwAAGhDB3Q=');
Granite2DTM := DTMFromString('mlwAAAHicY2dgYFjHysCwFoiXAfE2IN4ExSuBuJaRgaENiBuAuA6IK4G4BYgrgHhyfhBQNxMG7sr0ZeBnwA5g4ow4MBQAAOQmCy4=');
CraftDTM := DTMFromString('mggAAAHicY2NgYJAEYjMg1gRiWSAWYkAAEF8aDS+simL4P0MeA/MzYAeMSDQyhgAAJfkLTg==');
Craft2DTM := DTMFromString('mggAAAHicY2MAAkYGhqdA6hsQswDZ/EAsC8SLgHgfEO9HwoeAuD83gOH/DHkMzA/Ujw0z4sAQAAAv2BC1');
end;
////////////////////////////////////////////////////////////////////////////////
procedure WithdrawGranite;
begin
begin
OpenBankChestEdge(SRL_BANK_SW);
if BankScreen then
wait(1000 + random(200));
if InvFull then
DepositAll;
end;
begin
if FindDTM(GraniteDTM,x,y,MBX1,MBY1,MBX2,MBY2) then
begin
Mouse(x,y, 4, 4,False);
WaitOption('Withdraw-7',5000);
else
begin
FindDTM(Granite2DTM,x,y,MBX1,MBY1,MBX2,MBY2);
Mouse(x,y, 4, 4,False);
WaitOption('Withdraw-7',5000);
end;
end;
begin
CloseBank;
wait(1000 + random(200));
end;
end;
////////////////////////////////////////////////////////////////////////////////
procedure CraftGranite;
begin
if FindDTM(GraniteDTM,x,y,MIX1,MIY1,MIX2,MIY2) then
begin
MouseItem(RandomRange(1,7),mouse_Left);
wait(1500 + random(200));
FindDTM(CraftDTM,x,y,MCX1,MCY1,MCX2,MCY2);
Mouse(x,y,30,30,True);
else
begin
FindDTM(Granite2DTM,x,y,MIX1,MIY1,MIX2,MIY2);
MouseItem(RandomRange(1,7),mouse_Left);
wait(1500 + random(200));
findDTM(Craft2DTM,x,y,MCX1,MCY1,MCX2,MCY2);
Mouse(x,y,30,30,True);
end;
repeat
wait(3000);
case random(100) of
1: SetAngle(SRL_ANGLE_LOW);
2: SetAngle(SRL_ANGLE_HIGH);
end;
until InvFull;
end;
////////////////////////////////////////////////////////////////////////////////
procedure FreeDTMs;
begin
FreeDTM(GraniteDTM);
FreeDTM(CraftDTM);
FreeDTM(Granite2DTM);
FreeDTM(Craft2DTM);
end;
////////////////////////////////////////////////////////////////////////////////
begin
Smart_Server := 86;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
ClearDebug;
SetupSRL;
DeclarePlayers;
LoginPlayer;
ActivateClient;
SetDTM;
MouseSpeed := 20;
Repeat
WithdrawGranite;
CraftGranite;
until(false);
writeln('Freeing DTMs')
FreeDTMs;
end.
//////////////////////////////////////////////////////////////////////////////// anth_
2012-02-27 19:15:43
From: Nebula
Here, I fixed your standards for you. (But I didn't fix the part that was anti-leech)
Anyways, looks nice
program GraniteChiseller; //By Divina Commedia!
////////////////////////////////////////////////////////////////////////////////
{$DEFINE SMART}
{$Define CRASHSMART}
{$include srl/srl/misc/smart.simba}
{$include srl/srl.simba}
////////////////////////////////////////////////////////////////////////////////
Const
Version = '1.2'; //Now with SMART
////////////////////////////////////////////////////////////////////////////////
var
x, y, GraniteDTM,Granite2DTM,CraftDTM,Craft2DTM : Integer;
////////////////////////////////////////////////////////////////////////////////
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Active:=True;
end;
////////////////////////////////////////////////////////////////////////////////
procedure SetDTM;
begin
GraniteDTM := DTMFromString('mbQAAAHicY2VgYFjEyMAwDYjnAPFSIF4PxO1A3APEE4G4H4i7gHhWaRhQNRMK5mfADhiRMBwAAGhDB3Q=');
Granite2DTM := DTMFromString('mlwAAAHicY2dgYFjHysCwFoiXAfE2IN4ExSuBuJaRgaENiBuAuA6IK4G4BYgrgHhyfhBQNxMG7sr0ZeBnwA5g4ow4MBQAAOQmCy4=');
CraftDTM := DTMFromString('mggAAAHicY2NgYJAEYjMg1gRiWSAWYkAAEF8aDS+simL4P0MeA/MzYAeMSDQyhgAAJfkLTg==');
Craft2DTM := DTMFromString('mggAAAHicY2MAAkYGhqdA6hsQswDZ/EAsC8SLgHgfEO9HwoeAuD83gOH/DHkMzA/Ujw0z4sAQAAAv2BC1');
end;
////////////////////////////////////////////////////////////////////////////////
procedure WithdrawGranite;
begin
begin
OpenBankChestEdge(SRL_BANK_SW);
if BankScreen then
wait(1000 + random(200));
if InvFull then
DepositAll;
end;
begin
if FindDTM(GraniteDTM,x,y,MBX1,MBY1,MBX2,MBY2) then
begin
Mouse(x,y, 4, 4,False);
WaitOption('Withdraw-7',5000);
else
begin
FindDTM(Granite2DTM,x,y,MBX1,MBY1,MBX2,MBY2);
Mouse(x,y, 4, 4,False);
WaitOption('Withdraw-7',5000);
end;
end;
begin
CloseBank;
wait(1000 + random(200));
end;
end;
////////////////////////////////////////////////////////////////////////////////
procedure CraftGranite;
begin
if FindDTM(GraniteDTM,x,y,MIX1,MIY1,MIX2,MIY2) then
begin
MouseItem(RandomRange(1,7),mouse_Left);
wait(1500 + random(200));
FindDTM(CraftDTM,x,y,MCX1,MCY1,MCX2,MCY2);
Mouse(x,y,30,30,True);
else
begin
FindDTM(Granite2DTM,x,y,MIX1,MIY1,MIX2,MIY2);
MouseItem(RandomRange(1,7),mouse_Left);
wait(1500 + random(200));
findDTM(Craft2DTM,x,y,MCX1,MCY1,MCX2,MCY2);
Mouse(x,y,30,30,True);
end;
repeat
wait(3000);
case random(100) of
1: SetAngle(SRL_ANGLE_LOW);
2: SetAngle(SRL_ANGLE_HIGH);
end;
until InvFull;
end;
////////////////////////////////////////////////////////////////////////////////
procedure FreeDTMs;
begin
FreeDTM(GraniteDTM);
FreeDTM(CraftDTM);
FreeDTM(Granite2DTM);
FreeDTM(Craft2DTM);
end;
////////////////////////////////////////////////////////////////////////////////
begin
Smart_Server := 86;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
ClearDebug;
SetupSRL;
DeclarePlayers;
LoginPlayer;
ActivateClient;
SetDTM;
MouseSpeed := 20;
Repeat
WithdrawGranite;
CraftGranite;
until(false);
writeln('Freeing DTMs')
FreeDTMs;
end.
////////////////////////////////////////////////////////////////////////////////
Cheers mate, looking better ;)
blazingrobin
2012-02-27 19:53:18
program GraniteChiseller; //By Divina Commedia!
////////////////////////////////////////////////////////////////////////////////
{$DEFINE SMART}
{$Define CRASHSMART}
{$include srl/srl/misc/smart.simba}
{$include srl/srl.simba}
////////////////////////////////////////////////////////////////////////////////
Const
Version = '1.2'; //Now with SMART
////////////////////////////////////////////////////////////////////////////////
var
x, y, GraniteDTM,Granite2DTM,CraftDTM,Craft2DTM : Integer;
////////////////////////////////////////////////////////////////////////////////
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Pin := ''; //bank pin
Players[0].Active:=True;
end;
////////////////////////////////////////////////////////////////////////////////
procedure SetDTM;
begin
GraniteDTM := DTMFromString('mbQAAAHicY2VgYFjEyMAwDYjnAPFSIF4PxO1A3APEE4G4H4i7gHhWaRhQNRMK5mfADhiRMBwAAGhDB3Q=');
Granite2DTM := DTMFromString('mlwAAAHicY2dgYFjHysCwFoiXAfE2IN4ExSuBuJaRgaENiBuAuA6IK4G4BYgrgHhyfhBQNxMG7sr0ZeBnwA5g4ow4MBQAAOQmCy4=');
CraftDTM := DTMFromString('mggAAAHicY2NgYJAEYjMg1gRiWSAWYkAAEF8aDS+simL4P0MeA/MzYAeMSDQyhgAAJfkLTg==');
Craft2DTM := DTMFromString('mggAAAHicY2MAAkYGhqdA6hsQswDZ/EAsC8SLgHgfEO9HwoeAuD83gOH/DHkMzA/Ujw0z4sAQAAAv2BC1');
end;
////////////////////////////////////////////////////////////////////////////////
procedure WithdrawGranite;
begin
begin
OpenBankChestEdge(SRL_BANK_SW);
if (PinScreen) then
InPin(Players[CurrentPlayer].Pin);
if BankScreen then
wait(1000 + random(200));
if InvFull then
DepositAll;
end;
begin
if FindDTM(GraniteDTM,x,y,MBX1,MBY1,MBX2,MBY2) then
begin
Mouse(x,y, 4, 4,False);
WaitOption('Withdraw-7',5000);
else
begin
FindDTM(Granite2DTM,x,y,MBX1,MBY1,MBX2,MBY2);
Mouse(x,y, 4, 4,False);
WaitOption('Withdraw-7',5000);
end;
end;
begin
CloseBank;
wait(1000 + random(200));
end;
end;
////////////////////////////////////////////////////////////////////////////////
procedure CraftGranite;
begin
if FindDTM(GraniteDTM,x,y,MIX1,MIY1,MIX2,MIY2) then
begin
MouseItem(RandomRange(1,7),mouse_Left);
wait(1500 + random(200));
FindDTM(CraftDTM,x,y,MCX1,MCY1,MCX2,MCY2);
Mouse(x,y,30,30,True);
else
begin
FindDTM(Granite2DTM,x,y,MIX1,MIY1,MIX2,MIY2);
MouseItem(RandomRange(1,7),mouse_Left);
wait(1500 + random(200));
findDTM(Craft2DTM,x,y,MCX1,MCY1,MCX2,MCY2);
Mouse(x,y,30,30,True);
end;
repeat
wait(3000);
case random(100) of
1: SetAngle(SRL_ANGLE_LOW);
2: SetAngle(SRL_ANGLE_HIGH);
end;
until InvFull;
end;
////////////////////////////////////////////////////////////////////////////////
procedure FreeDTMs;
begin
FreeDTM(GraniteDTM);
FreeDTM(CraftDTM);
FreeDTM(Granite2DTM);
FreeDTM(Craft2DTM);
end;
////////////////////////////////////////////////////////////////////////////////
begin
Smart_Server := 86;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
ClearDebug;
SetupSRL;
DeclarePlayers;
LoginPlayer;
ActivateClient;
SetDTM;
MouseSpeed := 20;
Repeat
WithdrawGranite;
CraftGranite;
until(false);
writeln('Freeing DTMs')
FreeDTMs;
end.
////////////////////////////////////////////////////////////////////////////////
added bank pin code so it now supports bank pins :)
anth_
2012-02-27 20:01:46
From: blazingrobin
program GraniteChiseller; //By Divina Commedia!
////////////////////////////////////////////////////////////////////////////////
{$DEFINE SMART}
{$Define CRASHSMART}
{$include srl/srl/misc/smart.simba}
{$include srl/srl.simba}
////////////////////////////////////////////////////////////////////////////////
Const
Version = '1.2'; //Now with SMART
////////////////////////////////////////////////////////////////////////////////
var
x, y, GraniteDTM,Granite2DTM,CraftDTM,Craft2DTM : Integer;
////////////////////////////////////////////////////////////////////////////////
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Pin := ''; //bank pin
Players[0].Active:=True;
end;
////////////////////////////////////////////////////////////////////////////////
procedure SetDTM;
begin
GraniteDTM := DTMFromString('mbQAAAHicY2VgYFjEyMAwDYjnAPFSIF4PxO1A3APEE4G4H4i7gHhWaRhQNRMK5mfADhiRMBwAAGhDB3Q=');
Granite2DTM := DTMFromString('mlwAAAHicY2dgYFjHysCwFoiXAfE2IN4ExSuBuJaRgaENiBuAuA6IK4G4BYgrgHhyfhBQNxMG7sr0ZeBnwA5g4ow4MBQAAOQmCy4=');
CraftDTM := DTMFromString('mggAAAHicY2NgYJAEYjMg1gRiWSAWYkAAEF8aDS+simL4P0MeA/MzYAeMSDQyhgAAJfkLTg==');
Craft2DTM := DTMFromString('mggAAAHicY2MAAkYGhqdA6hsQswDZ/EAsC8SLgHgfEO9HwoeAuD83gOH/DHkMzA/Ujw0z4sAQAAAv2BC1');
end;
////////////////////////////////////////////////////////////////////////////////
procedure WithdrawGranite;
begin
begin
OpenBankChestEdge(SRL_BANK_SW);
if (PinScreen) then
InPin(Players[CurrentPlayer].Pin);
if BankScreen then
wait(1000 + random(200));
if InvFull then
DepositAll;
end;
begin
if FindDTM(GraniteDTM,x,y,MBX1,MBY1,MBX2,MBY2) then
begin
Mouse(x,y, 4, 4,False);
WaitOption('Withdraw-7',5000);
else
begin
FindDTM(Granite2DTM,x,y,MBX1,MBY1,MBX2,MBY2);
Mouse(x,y, 4, 4,False);
WaitOption('Withdraw-7',5000);
end;
end;
begin
CloseBank;
wait(1000 + random(200));
end;
end;
////////////////////////////////////////////////////////////////////////////////
procedure CraftGranite;
begin
if FindDTM(GraniteDTM,x,y,MIX1,MIY1,MIX2,MIY2) then
begin
MouseItem(RandomRange(1,7),mouse_Left);
wait(1500 + random(200));
FindDTM(CraftDTM,x,y,MCX1,MCY1,MCX2,MCY2);
Mouse(x,y,30,30,True);
else
begin
FindDTM(Granite2DTM,x,y,MIX1,MIY1,MIX2,MIY2);
MouseItem(RandomRange(1,7),mouse_Left);
wait(1500 + random(200));
findDTM(Craft2DTM,x,y,MCX1,MCY1,MCX2,MCY2);
Mouse(x,y,30,30,True);
end;
repeat
wait(3000);
case random(100) of
1: SetAngle(SRL_ANGLE_LOW);
2: SetAngle(SRL_ANGLE_HIGH);
end;
until InvFull;
end;
////////////////////////////////////////////////////////////////////////////////
procedure FreeDTMs;
begin
FreeDTM(GraniteDTM);
FreeDTM(CraftDTM);
FreeDTM(Granite2DTM);
FreeDTM(Craft2DTM);
end;
////////////////////////////////////////////////////////////////////////////////
begin
Smart_Server := 86;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
ClearDebug;
SetupSRL;
DeclarePlayers;
LoginPlayer;
ActivateClient;
SetDTM;
MouseSpeed := 20;
Repeat
WithdrawGranite;
CraftGranite;
until(false);
writeln('Freeing DTMs')
FreeDTMs;
end.
////////////////////////////////////////////////////////////////////////////////
added bank pin code so it now supports bank pins :)
Just did that, but cheers anyway. :)
blazingrobin
2012-02-27 20:09:36
got it working flawlessly now with a couple tweaks. congrats on a really good script!
edit:ran into a couple problems but i will pm you when i get it running for a while and get enough to test for a longish run
edit:ran into a couple problems but i will pm you when i get it running for a while and get enough to test for a longish run
anth_
2012-02-27 20:11:09
From: blazingrobin
got it working flawlessly now with a couple tweaks. congrats on a really good script!
Thank you. If you would like to share those tweaks please do ;) They would be a welcome addition.
anth_
2012-02-27 20:27:44
Mod please close thread.
YoHoJo
2012-02-27 20:34:35
Closed on request.