Powerchopper
2007-04-01 09:19:48
<!– BEGIN TEMPLATE: formanswers –>
Powerchopper - SRL Member Application Form
Powerchopper
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
Javascripting, HTMLing
Other Communitys
RuneHQ, MMorpguides
How Long have You Played Runescape
6 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I would like to become a member because I have had a try at SCAR scripting myself, and would like to do more.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
//—>Instructions:
//Start with the axe you have equipped on to you
//go to the tree(s) that you want to cut down
//drag the crosshair over the rs2 screen
//click play and your ready to go
//——————————————————————————
program SmWoodcutter;
{.include si.txt}
const treecolor=1919040;
const logcolor=3892098;
procedure FindMiscRandoms;
var ax,ay:integer;
begin
if(FindColorSpiral(ax,ay,786423,10,350,150,433))or
(FindColorSpiral(ax,ay,10658466,10,350,150,433))then
begin
logout;
Writeln('Mod')
end;
if(FindColor(ax,ay,11503238,10,350,479,433))then
begin
logout;
Writeln('Mime')
end;
if(GetColor(460,426)=0)and(GetColor(277,416)=0)and(GetColor(220,425)=0)or
(GetColor(502,305)=0)and(GetColor(379,43)=0)then
begin
TakeScreen('Maze',1);
logout;
end;
end;
procedure TalkToRand1;
var c:integer;
begin
repeat
c:=c+1;
if(FindColorSpiral(x,y,16711680,5,345,510,465))and(not(GetColor(20,434)=0))then
begin
Mouse(x,y,50,2,true);
wait(2500+Random(500));
end;
if(FindColorSpiral(x,y,16777215,5,345,510,465))and(not(GetColor(20,434)=0))then
begin
GetMousePos(x,y);
Mouse(x,y,50,2,true);
wait(2500+Random(500));
end;
until(GetColor(20,434)=0)or(c>=20)
end;
procedure FindText;
var mx,my:integer;
begin
if(FindColorSpiral(mx,my,65535,3,3,515,338))then//Find close
begin
MMouse(mx,my+15,1,1);
repeat
if(IsTextAt2(9,9,'Talk',100))then
begin
Mouse(mx,my+15,1,1,false);
ClickText('Talk',5,5,515,338);
begin
Flag;
wait(2500+Random(500));
TalkToRand1;
end;
end;
MMouse(mx,my+15,1,1);
mx:=mx+5;
wait(random(10)+10+random(10));
until(mx>=515);
if(mx>=515)then MMouse(mx+random(5),my+15,1,1);
end;
end;
Procedure Randoms;
begin
FindText;
FindStrangeBox;
FindMiscRandoms;
Uselamp('mining')
end;
procedure DropColor(color:integer);
var
x, y, Drop:Integer;
begin
Drop:= DTMFromString('78DA63B4636260E064644006FFFFFF07D3305' +
'1465BA01A5E5435300057E30A542344408D07500D0F01BBF48854' +
'C346408D19A69B31D480FCCE875F0D00B9181450');
while(FindColor(x,y,Color,548,168,761,496))do
begin
Mouse(x+5,y,1,1,false);
Wait(450);
if(FindDtm(Drop,x,y,548,168,761,496))then
begin
Mouse(x,y,1,1,true)
Wait(450);
end;
end;
FreeDtm(Drop);
end;
procedure cut;
begin
findcolorspiral(x,y,treecolor,3,3,515,336)
mouse(x,y,0,0,true)
wait(300+random(300))
end;
begin
loadinclude('iTunes')
repeat
cut;
if(invincount=28)
then dropcolor(3892098)
until(false)
end.
——————————————————
<!– END TEMPLATE: formanswers –>
Powerchopper - SRL Member Application Form
Powerchopper
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
Javascripting, HTMLing
Other Communitys
RuneHQ, MMorpguides
How Long have You Played Runescape
6 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I would like to become a member because I have had a try at SCAR scripting myself, and would like to do more.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
//—>Instructions:
//Start with the axe you have equipped on to you
//go to the tree(s) that you want to cut down
//drag the crosshair over the rs2 screen
//click play and your ready to go
//——————————————————————————
program SmWoodcutter;
{.include si.txt}
const treecolor=1919040;
const logcolor=3892098;
procedure FindMiscRandoms;
var ax,ay:integer;
begin
if(FindColorSpiral(ax,ay,786423,10,350,150,433))or
(FindColorSpiral(ax,ay,10658466,10,350,150,433))then
begin
logout;
Writeln('Mod')
end;
if(FindColor(ax,ay,11503238,10,350,479,433))then
begin
logout;
Writeln('Mime')
end;
if(GetColor(460,426)=0)and(GetColor(277,416)=0)and(GetColor(220,425)=0)or
(GetColor(502,305)=0)and(GetColor(379,43)=0)then
begin
TakeScreen('Maze',1);
logout;
end;
end;
procedure TalkToRand1;
var c:integer;
begin
repeat
c:=c+1;
if(FindColorSpiral(x,y,16711680,5,345,510,465))and(not(GetColor(20,434)=0))then
begin
Mouse(x,y,50,2,true);
wait(2500+Random(500));
end;
if(FindColorSpiral(x,y,16777215,5,345,510,465))and(not(GetColor(20,434)=0))then
begin
GetMousePos(x,y);
Mouse(x,y,50,2,true);
wait(2500+Random(500));
end;
until(GetColor(20,434)=0)or(c>=20)
end;
procedure FindText;
var mx,my:integer;
begin
if(FindColorSpiral(mx,my,65535,3,3,515,338))then//Find close
begin
MMouse(mx,my+15,1,1);
repeat
if(IsTextAt2(9,9,'Talk',100))then
begin
Mouse(mx,my+15,1,1,false);
ClickText('Talk',5,5,515,338);
begin
Flag;
wait(2500+Random(500));
TalkToRand1;
end;
end;
MMouse(mx,my+15,1,1);
mx:=mx+5;
wait(random(10)+10+random(10));
until(mx>=515);
if(mx>=515)then MMouse(mx+random(5),my+15,1,1);
end;
end;
Procedure Randoms;
begin
FindText;
FindStrangeBox;
FindMiscRandoms;
Uselamp('mining')
end;
procedure DropColor(color:integer);
var
x, y, Drop:Integer;
begin
Drop:= DTMFromString('78DA63B4636260E064644006FFFFFF07D3305' +
'1465BA01A5E5435300057E30A542344408D07500D0F01BBF48854' +
'C346408D19A69B31D480FCCE875F0D00B9181450');
while(FindColor(x,y,Color,548,168,761,496))do
begin
Mouse(x+5,y,1,1,false);
Wait(450);
if(FindDtm(Drop,x,y,548,168,761,496))then
begin
Mouse(x,y,1,1,true)
Wait(450);
end;
end;
FreeDtm(Drop);
end;
procedure cut;
begin
findcolorspiral(x,y,treecolor,3,3,515,336)
mouse(x,y,0,0,true)
wait(300+random(300))
end;
begin
loadinclude('iTunes')
repeat
cut;
if(invincount=28)
then dropcolor(3892098)
until(false)
end.
——————————————————
<!– END TEMPLATE: formanswers –>
