XabdullahX
2008-12-19 10:25:24
Hey.
This is my first script, it really sucks but it works !
Start off in Edgeville bank, with 14 buckets in inventory.
then Find the colors for the carpet in the bank (its dark red) and the color of the road in the minimap also (grey)
What this do is:
Open the bank, take 14 clay out, go to the well, make the clay to soft clay, return to bank, and deposit it then start over. it will never stop -.-'
Explaining picture:
The script if you want to have a look at it without downloading:
Any comments appreciated
Btw. I started with 20k, now i have 150k manually (not playing much). So i decided to make a script. :)
This is my first script, it really sucks but it works !
Start off in Edgeville bank, with 14 buckets in inventory.
then Find the colors for the carpet in the bank (its dark red) and the color of the road in the minimap also (grey)
What this do is:
Open the bank, take 14 clay out, go to the well, make the clay to soft clay, return to bank, and deposit it then start over. it will never stop -.-'
Explaining picture:
The script if you want to have a look at it without downloading:
//Created by Abdullah Gheith
//I would like to thank Trojan and I pro leechin'
//Version: 0.000001 -.-'
//If you are bored go visit: [url]http://www.arcadeskillz.com[/url]
program Autosofter;
{.include SRL/SRL.Scar}
const
roadcolour = 8093829; //Change this everytime! The road on the minimap
bankcolour = 2034523; //Change this everytime! This is the bank carpet, the red one
wellcolour = 3493726;
var x,y,clay,bucket,fullbucket,bank: integer;
lol : boolean;
procedure opendabank;
begin
OpenBankFast('eb');
end;
procedure setitallup;
begin
SetupSRL;
makecompass('n');
lol := true;
end;
procedure dtm;
begin
Clay := DTMFromString('78DA635CC0C0C0A0CC80021675C532FC07D28' +
'C40FC1F08186720D430C3553132F043D58079B381843C01358B80' +
'841A0135CB80842C11E6481150B394B09B01CEE30C4C');
bucket := DTMFromString('78DA6314626060906040015D85F60CFF81342' +
'310FF0702466920831F22C70C57C5C820005503E681CCE124A086' +
'0348881150C305241409A8910412F2F8D500001B900796');
fullbucket := DTMFromString('78DA636C666060F06440011D050E0CFF81342' +
'310FF0702C62A841A66B82A46067EA81A30AF1748381150D30924' +
'8209A8A901124104D4F400096FFC6A00FD6B0B7E');
bank := DTMFromString('78DA63CC606060086340016FEE2B806946289' +
'F311948C4A0AA61E46744559347849A5C201140400DC8AE40FC6A' +
'00D2D705F2');
end;
procedure withdrawclay;
begin
if(FindDtm(clay, x, y, 32, 88, 75, 128)) then
Withdraw(1,1,14);
closebank;
end;
procedure gotowell;
begin
RadialWalk(RoadColour, 270, 290, 35, 0, 5);
Flag;
RadialWalk(RoadColour, 359, 1, 35, 0, 0);
Flag;
end;
procedure fillbuckets;
begin
if finddtm(bucket, x, y, MIX1, MIY1, MIX2, MIY2) then
mouse(x, y, 1, 1, true);
wait(200+random(100));
if FindObjCustom(x, y, ['ell'], [WellColour], 5)then
mouse(x, y, 1, 1, true);
wait(10000);
end;
procedure makesoftclay;
begin
if finddtm(fullbucket, x, y, MIX1, MIY1, MIX2, MIY2) then
mouse(x, y, 1, 1, true);
wait(200+random(100));
if finddtm(clay, x, y, 562, 211, 725, 464) then
Mouse(662, 337, 3, 3, true);
end;
procedure optionmakeall;
begin
wait(500+random(500));
Mouse(256, 412, 3, 3, false);
ChooseOption('ll');
wait(17000+random(1000));
end;
procedure returntobank;
begin
RadialWalk(Bankcolour, 90, 180, 192, 1, 1);
Flag;
end;
procedure depositallsoft;
begin
OpenBankFast('eb');
Mouse(662, 337, 3, 3, false);
Mouse(652, 437, 3, 3, true);
closebank;
end;
begin
setitallup;
Repeat
opendabank;
dtm;
withdrawclay;
gotowell;
fillbuckets;
makesoftclay;
optionmakeall;
returntobank;
depositallsoft;
until (lol = false);
freedtm(clay);
freedtm(bucket);
freedtm(fullbucket);
freedtm(bank);
end.Any comments appreciated
Btw. I started with 20k, now i have 150k manually (not playing much). So i decided to make a script. :)