TViYH
2007-10-07 23:42:12
<!– BEGIN TEMPLATE: formanswers –>
Elkins121 - SRL Member Application Form
Elkins121
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
VB6
Other Communitys
Freddy1990, Sythe
How Long have You Played Runescape
1.5 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I am a kind person, and hope you will accept me in!
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
——————————————————
<!– END TEMPLATE: formanswers –>
Elkins121 - SRL Member Application Form
Elkins121
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
VB6
Other Communitys
Freddy1990, Sythe
How Long have You Played Runescape
1.5 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I am a kind person, and hope you will accept me in!
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
{.Script Info:
# ScriptName = Elkins121's Simple Feather Buyer 2.0
# Author = Elkins121
# Description = Buys Feathers At Port Sarim
# Version = 2.0
# Date = October 7, 2007
# Comments = Start In The Middle Of The Shop
/Script Info}
//Thanks TGWGO for FindGerrant Help
//Thanks Sebo for Gerrant Colors and Gerrant Finder (Partially)
program New;
{.include SRL\SRL.scar}
var
BuyXFeather, Trade, InfiniteFeather : Integer;
BuyAmount1 : string;
const
BuyAmount = '1';
Gerrant1 = 7181218;
Gerrant2 = 5797786;
Gerrant3 = 2305578;
Gerrant4 = 7635370; //Lol, so many colors, because he moves to much
Gerrant5 = 2308173; //I will make flawless gerrant finder next ver.
Gerrant6 = 12893381;
Gerrant7 = 4346701;
Gerrant8 = 14077910;
Gerrant9 = 6654101;
procedure SetUp;
begin
SetUpSRL;
MouseSpeed:=18;
Trade := BitmapFromString(89, 6, 'beNqtU8kRgDAI3O5swK/9l+GR' +
'KIPLEeLI8CAECLsEYG8CYFuXU/dH0EQ8/djtHqmvdJEkXiWih5x2C' +
'7uUrly/XCWePDd6i1AQEIKsWXIhk5/siAo6Dm2b9W4VWiOKbH3brW' +
'1+FrLl7QMVycSjIkXIv1Axa4vYBZE2kl9B6VNUfLArVEQLUve7VNA' +
'HsKhF61QMFyT6kPIKzc4dJQB30LP+pOzwuSis0mpS5447AIHQm0M=' +
'');
BuyXFeather := BitmapFromString(86, 3, 'beNoLcY8Ncf8PBgwMDG' +
'Sw0dB/JIBdwQx5IEKTQhZEUwDhwhFWNcgiQIBLJVY2eb7G5UG4OMg' +
'ZYEBSCCB7E9OdRIYAVjYek9Fcjt+n/1EBnhDAF0p40wAcEOMv4kMA' +
'n8kAXR1I5Q==');
InfiniteFeather := BitmapFromString(23, 25, 'beNqNlN1OwkAQh' +
'evbcG29lXhl9EEJQfGnsSkWSJsWC6Q0No0xPg4eHDiOu9tactJsl5' +
'mvZ2Z/hr7nnUH7vXd7dSFPPXMz9Knry3MtCcvjuFguECkiga8YdxD' +
'WSVLm+TbLIE3Ak1kdEMwjnVot5gimB8kVYSwzzip2byuRN/DSKJJJ' +
'qUI+yhkn4atpPusag6ooQEjCcBEE7InRRifho6qa3a4py3q7fd+sA' +
'aGBngRIcuFBCpk/P82m0zaITUAWevg7OBGi+7uX8diGtBGwlJs0hQ' +
'5VDDwSbIhB4IIKAXsDW4sE6l8CZBDYT72ybRD8ezD/8xQC9pXY0E7' +
'09rC3pXQA6dpG/PigIQjzfd9pQxMgvIoNEiiB2DYMAtJJsNUNMQja' +
'hhQSTiYQy7ErkpPek0CI0V5ZOBKMfrYRNIQ9wcAmtBVicFgLbfQpx' +
'PYjHnB/OvdnN4EchGWvM33QdK7dTKeT4/12IsA/jmowGumrQ8d3EO' +
'xC2pbDea0dIX/9y8+R9Q2MV2Fd');
end;
{Finds Gerrant in the Port Sarim Fishing Shop}
{Thanks to TGWGO for the Help}
function FindGerrant : boolean;
begin
If(FindColorTolerance(x, y, Gerrant1, MSX1,MSY1,MSX2,MSY2, 1))
Or(FindColorTolerance(x, y, Gerrant2, MSX1,MSY1,MSX2,MSY2, 1))
Or(FindColorTolerance(x, y, Gerrant3, MSX1,MSY1,MSX2,MSY2, 1))
Or(FindColorTolerance(x, y, Gerrant4, MSX1,MSY1,MSX2,MSY2, 1))
Or(FindColorTolerance(x, y, Gerrant5, MSX1,MSY1,MSX2,MSY2, 1))
Or(FindColorTolerance(x, y, Gerrant6, MSX1,MSY1,MSX2,MSY2, 1))
Or(FindColorTolerance(x, y, Gerrant7, MSX1,MSY1,MSX2,MSY2, 1))
Or(FindColorTolerance(x, y, Gerrant8, MSX1,MSY1,MSX2,MSY2, 1))
Or(FindColorTolerance(x, y, Gerrant9, MSX1,MSY1,MSX2,MSY2, 1))Then
begin
Mouse(x, y, 0, 0, False);
Result := True;
end else result:= false
if(FindBitmap(Trade,x,y))then Mouse(x,y,1,1,true);
Wait(2000);
end;
begin
Setup;
repeat
FindGerrant;
until(FindGerrant)
Wait(2000);
Mouse(84,74,1,1,true);
Wait(2000);
if(FindBitmap(InfiniteFeather,x,y))then Mouse(x,y,1,1,False);
if(FindBitmap(BuyXFeather,x,y))then
begin
Mouse(x,y,1,1,true);
Wait(1000);
TypeSend(BuyAmount);
BuyAmount1 := BuyAmount;
ClearDebug;
WriteLn('Feathers Bought: ' + BuyAmount1);
end;
if(Not(FindBitmap(BuyXFeather,x,y)))then
begin
WriteLn('Couldn''t find Buy X Feathers...');
TerminateScript;
end;
end.——————————————————
<!– END TEMPLATE: formanswers –>
