Tom_Gower
2008-11-03 22:27:16
<!– BEGIN TEMPLATE: formanswers –>
Tom_Gower - SRL Member Application Form
Tom_Gower
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
around 3 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Well, im tom as you would have guessed, I have tested scripts for p1nky and Shuttleu thow im not much of a scripter myself.
As you can see below I epically failed at my fist script. Thought id try to become a member.
Shuttleu and P1nky reccomend me.
Cheers Tomo.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
Helped test.
My attempt::
——————————————————
<!– END TEMPLATE: formanswers –>
Tom_Gower - SRL Member Application Form
Tom_Gower
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
around 3 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Well, im tom as you would have guessed, I have tested scripts for p1nky and Shuttleu thow im not much of a scripter myself.
As you can see below I epically failed at my fist script. Thought id try to become a member.
Shuttleu and P1nky reccomend me.
Cheers Tomo.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
Helped test.
My attempt::
///////////////////////Tom_Gower first script helped by p1nky////////////////
program PieceOfShit;
{.include SRL/SRL/misc/Smart.scar }
{.include srl/srl.scar}
var
x,y :integer;
const
SmartWorld=17;//World you want smart to load in
MineCoppers=True;
MineTins=False;
CopperColour=34324; //These Color Works for me, if it doesnt for you please change
CopperColour1=43435;
TinColour= 56464;
TinColour1= 544353;
procedure DeclarePlayers;
begin
CurrentPlayer := 0;//Number of the player who's autoing first.
HowManyPlayers := 1;//How many players in total are you using.
NumberOfPlayers( HowManyPlayers );//Just dont touch here.
Players[0].Name := 'blademaser 2';//UserName.
Players[0].Pass := 'dh4life';//PassWord.
Players[0].Nick := 'mase';//NickName. SEE NOTE 2.
Players[0].Pin := '0000';//Bank pin
Players[0].Active:= True;//LEAVE THIS.
end;
Procedure Randoms;
Begin
FindNormalRandoms;
End;
Procedure MineCopper;
begin
repeat
If (FindColorSpiralTolerance(x, y, CopperColour, MSX1, MSY1,MSX2, MSY2, 3)) or
(FindColorSpiralTolerance(x, y, CopperColour1, MSX1, MSY1,MSX2, MSY2, 3)) Then
mmouse(x,y,0,0);
wait(300);
Mouse(x,y,2,2,true);
writeln('Found Rock');
Randoms;
until(invfull)
end;
Procedure MineTin;
begin
repeat
If (FindColorSpiralTolerance(x, y, TinColour, MSX1, MSY1,MSX2, MSY2, 3)) or
(FindColorSpiralTolerance(x, y, TinColour1, MSX1, MSY1,MSX2, MSY2, 3)) Then
mmouse(x,y,0,0);
wait(300);
Mouse(x,y,2,2,true);
writeln('Found Rock');
Randoms;
until(invfull)
end;
Procedure FastDrop;
Var
i: Integer;
Begin
If Not (LoggedIn) Then Exit;
GameTab(4);
For i := 2 To 28 Do
Begin
If ExistsItem(i) Then
DropItem(i);
writeln('success in dropping the ores');
End;
End;
begin// this is the main loop.
Disguise('First Script Helped By Joker');
cleardebug;
Writeln('Waiting For SMART to Start...');
SmartSetupEx(SmartWorld, True, True, False);
Wait(100);
SetTargetDC(SmartGetDC);
SetupSRL;
declareplayers;
ActivateClient;
loginplayer;
if MineCoppers then
Begin
MineCopper;
if MineTins then
begin
MineTin;
end;
end;
end.——————————————————
<!– END TEMPLATE: formanswers –>