fuzzball109
2007-06-27 20:16:51
<!– BEGIN TEMPLATE: formanswers –>
fuzzball109 - SRL Member Application Form
fuzzball109
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
No
Other Communitys
How Long have You Played Runescape
like 3 years lol
Are you affilated in anyway with Jagex LTD?
No Comment
—————————————————–
Please write down a paragraph about Yourself.
well i have been reading tuts and i am not that good but wish to get better and have created like 3 scripts includin this powerminer i put below.
well here is the powerminer not that good yet…….
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
program powerminer;
var rocksmined,x,y,mine:integer;
const
rock1color=3497361;
procedure minethatore;
begin
if(FindColorSpiralTolerance(x,y,Rock1Color,5,5,514 ,337,2))then
movemousesmooth(x,y)
wait(1000+500)
if(FindBitmapToleranceIn(mine,x,y,6,6,126,23,1))then
begin
getmousepos(x,y)
clickmouse(x,y,true)
wait(3000+1000)
end;
end;
procedure loadbitmaps;
begin
mine := BitmapFromString(17, 17, 'z78DADD94DB0' +
'A80200C407F69B38BFAA8ADFFFFA5861B44880F6952B60303 D9F4' +
'A0E000AA2282874573EF18C4B2DB7D65522EF590671C6D142 9B45' +
'8783F831E2DDAA225810601428B45B8545DAA76B00872BE5A DC09' +
'CC8C69B1E8FB64F7D2D5A396628F5826E62F16C3E0F016E9A 9B2D' +
'C0EB16433A7EE1FBD3CA53F603900F40458C2');
end;
begin
end.
begin
end.
const
rock1color=3497361;
if(FindColorSpiralTolerance(x,y,Rock1Color,5,5,514 ,337,5))
begin
loadbitmaps;
end.
begin
loadbitmaps;
repeat
minethatore
until(false)
end.
procedure minethatore;
begin
if(FindColorSpiralTolerance(x,y,Rock1Color,5,5,514 ,337,2))then
movemousesmooth(x,y)
wait(1000+500)
if(FindBitmapToleranceIn(mine,x,y,6,6,126,23,1))th en
begin
getmousepos(x,y)
clickmouse(x,y,true)
wait(3000+1000)
///////////////////////////////////////
rocksmined:=rocksmined+1;
///////////////////////////////////////
end;
end;
begin
loadbitmaps;
repeat
writelnr
until(false)
end.
——————————————————
<!– END TEMPLATE: formanswers –>
fuzzball109 - SRL Member Application Form
fuzzball109
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
No
Other Communitys
How Long have You Played Runescape
like 3 years lol
Are you affilated in anyway with Jagex LTD?
No Comment
—————————————————–
Please write down a paragraph about Yourself.
well i have been reading tuts and i am not that good but wish to get better and have created like 3 scripts includin this powerminer i put below.
well here is the powerminer not that good yet…….
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
program powerminer;
var rocksmined,x,y,mine:integer;
const
rock1color=3497361;
procedure minethatore;
begin
if(FindColorSpiralTolerance(x,y,Rock1Color,5,5,514 ,337,2))then
movemousesmooth(x,y)
wait(1000+500)
if(FindBitmapToleranceIn(mine,x,y,6,6,126,23,1))then
begin
getmousepos(x,y)
clickmouse(x,y,true)
wait(3000+1000)
end;
end;
procedure loadbitmaps;
begin
mine := BitmapFromString(17, 17, 'z78DADD94DB0' +
'A80200C407F69B38BFAA8ADFFFFA5861B44880F6952B60303 D9F4' +
'A0E000AA2282874573EF18C4B2DB7D65522EF590671C6D142 9B45' +
'8783F831E2DDAA225810601428B45B8545DAA76B00872BE5A DC09' +
'CC8C69B1E8FB64F7D2D5A396628F5826E62F16C3E0F016E9A 9B2D' +
'C0EB16433A7EE1FBD3CA53F603900F40458C2');
end;
begin
end.
begin
end.
const
rock1color=3497361;
if(FindColorSpiralTolerance(x,y,Rock1Color,5,5,514 ,337,5))
begin
loadbitmaps;
end.
begin
loadbitmaps;
repeat
minethatore
until(false)
end.
procedure minethatore;
begin
if(FindColorSpiralTolerance(x,y,Rock1Color,5,5,514 ,337,2))then
movemousesmooth(x,y)
wait(1000+500)
if(FindBitmapToleranceIn(mine,x,y,6,6,126,23,1))th en
begin
getmousepos(x,y)
clickmouse(x,y,true)
wait(3000+1000)
///////////////////////////////////////
rocksmined:=rocksmined+1;
///////////////////////////////////////
end;
end;
begin
loadbitmaps;
repeat
writelnr
until(false)
end.
——————————————————
<!– END TEMPLATE: formanswers –>