macromacro123
2007-10-07 15:17:31
<!– BEGIN TEMPLATE: formanswers –>
macromacro123 - SRL Member Application Form
macromacro123
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
Other Communitys
How Long have You Played Runescape
3 years
Are you affilated in anyway with Jagex LTD?
No Comment
—————————————————–
Please write down a paragraph about Yourself.
Hi, I started to know about Scar ans Srl november 2006(almost 1 year). Started with simple scripts such as willow cutter from ChArMz and power cutters. Then I started working on a East Varrok yew cutter since now 8 months or so. I am able to run it for 24 hours and + with 8-10 players.
I have enought experience in Scar and SRL scripting to create my own scripts and to improve other's scripts.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
This script is a powercutter and was made in about 30 mins of work. I did this one to train my army of workers so they can work on yews using the script I was talking about earlier which is my East Varrok yew cutter and that I will post on members forums because I really don't feel like getting lvls 3 leechers cutting yews at where I do. This is a very simple script but can be run for a long time and get lvls up.:D
——————————————————
<!– END TEMPLATE: formanswers –>
macromacro123 - SRL Member Application Form
macromacro123
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
Other Communitys
How Long have You Played Runescape
3 years
Are you affilated in anyway with Jagex LTD?
No Comment
—————————————————–
Please write down a paragraph about Yourself.
Hi, I started to know about Scar ans Srl november 2006(almost 1 year). Started with simple scripts such as willow cutter from ChArMz and power cutters. Then I started working on a East Varrok yew cutter since now 8 months or so. I am able to run it for 24 hours and + with 8-10 players.
I have enought experience in Scar and SRL scripting to create my own scripts and to improve other's scripts.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
This script is a powercutter and was made in about 30 mins of work. I did this one to train my army of workers so they can work on yews using the script I was talking about earlier which is my East Varrok yew cutter and that I will post on members forums because I really don't feel like getting lvls 3 leechers cutting yews at where I do. This is a very simple script but can be run for a long time and get lvls up.:D
program treecutter;
{.include srl/srl.scar}
{------------------------------------------------------------------------------}
const
treecolor1 = 6134416; // no need to change this.
treecolor2 = 3963502;
treecolor3 = 4683631;
treecolor4 = 4551573;
treecolor5 = 4027501;
treecolor6 = 5672838;
{------------------------------------------------------------------------------}
var
x,y: integer;
tol: integer;
loads: integer;
{------------------------------------------------------------------------------}
procedure declareplayers;
begin
numberofplayers(1); // add more players if you want.
players[0].name :='';
players[0].pass :='';
players[0].nick :='';
players[0].active:=true;
players[0].integers[0]:=3; // trips to do.
nicknamebmp:=createbitmapmaskfromtext(players[currentplayer].nick,upchars);
end;
{------------------------------------------------------------------------------}
procedure setupscript;
begin
status('setup');
cleardebug;
setupsrl;
declareplayers;
symbolaccuracy:=0.8;
end;
{------------------------------------------------------------------------------}
procedure findbrokenaxe;
var
dtmbrokenaxe: integer;
begin
dtmbrokenaxe := dtmfromstring('78DA63F4656260B8C580021C1CE218FE03694' +
'620FE0F048C7E40353718D000231209A48330CDC1501300547387' +
'08350F09A8F106AAB94B408D2B50CD4D026ADC816AAEE3570300B' +
'6A30F3B');
if finddtm(dtmbrokenaxe,x,y,mix1,miy1,mix2,miy2)then
begin
writeln('your axe is broken');
logout;
exit;
end;
freedtm(dtmbrokenaxe);
end;
{------------------------------------------------------------------------------}
procedure mmfindent;
begin
if not(loggedin)then exit;
if(findcolortolerance(x,y,55769,85,15,115,15,20))then
begin
writeln('ent found');
mousefindnoflag(mmcx,mmcy,-1,1);
wait(35000);
flag;
entsavoided:=entsavoided+1;
end;
end;
{------------------------------------------------------------------------------}
procedure antirandoms;
begin
status('random check');
mmfindent;
wait(10);
findnormalrandoms;
wait(10);
findbrokenaxe;
wait(10);
findtalk;
wait(10);
if(findfight)then
begin
status('running from a fight');
runawaydirection('s');
wait(8500+random(500));
runback;
end;
wait(10);
findtalk;
wait(10);
end;
{------------------------------------------------------------------------------}
procedure mmwait(time:integer);
var
t:integer;
begin
for t:= 1 to time do
begin
wait(250 + random(100));
antirandoms;
end;
end;
{------------------------------------------------------------------------------}
procedure findtree;
var
waittime: integer;
begin
if(findobj(x,y,'ree',treecolor1,tol))or
(findobj(x,y,'ree',treecolor2,tol))or
(findobj(x,y,'ree',treecolor3,tol))or
(findobj(x,y,'ree',treecolor4,tol))or
(findobj(x,y,'ree',treecolor5,tol))or
(findobj(x,y,'ree',treecolor6,tol))then
begin
mouse(x,y,0,0,true);
mmfindent;
mmwait(9+random(2));
end else
if(not(findobj(x,y,'ree',treecolor1,tol)))or
(not(findobj(x,y,'ree',treecolor2,tol)))or
(not(findobj(x,y,'ree',treecolor3,tol)))or
(not(findobj(x,y,'ree',treecolor4,tol)))or
(not(findobj(x,y,'ree',treecolor5,tol)))or
(not(findobj(x,y,'ree',treecolor6,tol)))then
begin
marktime(waittime);
repeat
boredhuman;
until(findobj(x,y,'ree',treecolor1,tol))or
(findobj(x,y,'ree',treecolor2,tol))or
(findobj(x,y,'ree',treecolor3,tol))or
(findobj(x,y,'ree',treecolor4,tol))or
(findobj(x,y,'ree',treecolor5,tol))or
(findobj(x,y,'ree',treecolor6,tol))or
(timefrommark(waittime)>=(100000));
if(timefrommark(waittime)>=(100000))then
begin
nextplayer(false);
loads:=0;
end;
end;
end;
{------------------------------------------------------------------------------}
procedure choptreesdown;
begin
repeat
begin
if(not(loggedin))then exit;
findtree;
if(findbox)then
solvebox;
end;
until(invfull);
end;
{------------------------------------------------------------------------------}
procedure droptreelogs;
var
lx,ly: integer;
logdtm: integer;
droptime: integer;
begin
logdtm:= dtmfromstring('78DA632C666260E0646440067921460CFF813' +
'448F43F103066314179C880118904D2354035FF19F0AB2905AA11' +
'22604E23500D0F0135C94035DCF8D50000507909F5');
if(invfull)then
begin
marktime(droptime);
repeat
gametab(4);
if(finddtm(logdtm,lx,ly,mix1,miy1,mix2,miy2))then
begin
mouse(lx,ly,4,4,false);
clickoption('Drop',2);
end;
until(not(finddtm(logdtm,lx,ly,mix1,miy1,mix2,miy2)))or(timefrommark(droptime)>=45000);
end;
freedtm(logdtm);
end;
{------------------------------------------------------------------------------}
procedure mmtimerunning;
begin
writeln('worked: '+(timerunning)+'.');
end;
{------------------------------------------------------------------------------}
begin
setupscript;
findrs;
begin
if(not(loggedin))then
begin
status('logging in');
loginplayer;
end;
end;
repeat
repeat
setrun(true);
highestangle;
choptreesdown;
droptreelogs;
loads:=loads+1;
srlrandomsreport;
mmtimerunning;
until(players[currentplayer].integers[0]=loads)or(not(loggedin));
if(players[currentplayer].integers[0]=loads)then
begin
logout;
nextplayer(true);
loads:=0;
end else
if(not(loggedin))then
begin
nextplayer(false);
loads:=0;
end;
until(false);
end.
——————————————————
<!– END TEMPLATE: formanswers –>