2pacfan
2008-05-05 11:43:16
<!– BEGIN TEMPLATE: formanswers –>
2pacfan - SRL Member Application Form
2pacfan
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
Nope
Other Communitys
How Long have You Played Runescape
4 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
——————————————————
<!– END TEMPLATE: formanswers –>
2pacfan - SRL Member Application Form
2pacfan
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
Nope
Other Communitys
How Long have You Played Runescape
4 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
//Start at the Bank in Draynor
//This script will cut Willows and Bank them!!
//Start at the most south bank slot thats easiest way...
//This Script Has:2 antirandom procedures and failsafes in much procedures.
//START!!!!!!!!!!
Program KillWill;
{.include SRL/SRL/Misc/Smart.scar}
{.include SRL/SRL.scar}
const
SmartWorld = 155;//What world to load smart in
Signed = True; //False = unsigned, slower and for multiplayer
//True = signed, faster and for 1 player only
procedure DeclarePlayers;
begin
HowManyPlayers := 5;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := 'username';
Players[0].Pass := 'password';
Players[0].Nick := 'nickname';
Players[0].Active := True;//Player active or not??
Players[1].Name := 'Username';
Players[1].Pass := 'Password';
Players[1].Nick := 'Nickname';
Players[1].Active := True;//Player active or not??
Players[2].Name := 'Username';
Players[2].Pass := 'Password';
Players[2].Nick := 'Nickname';
Players[2].Active := True;//Player active or not??
Players[3].Name := 'Username';
Players[3].Pass := 'Password';
Players[3].Nick := 'Nickname';
Players[3].Active := True;//Player active or not??
Players[4].Name := 'Username';
Players[4].Pass := 'Password';
Players[4].Nick := 'Nickname';
Players[4].Active := True;//Player active or not??
//add more players if u need them...
end;
Procedure SetUpSMART;
Begin
Begin
WriteLn('Making S.M.A.R.T Ready');
SmartSetupEx(108, false, true);
Repeat
wait(100);
Until(SmartReady);
If (SmartReady) then
wait(1000+Random(2000));
WriteLn('Loaded S.M.A.R.T');
SetTargetDC(SmartGetDC);
Exit;
end;
end;
Procedure WalkToWill;
var
x,y:integer;
begin
if (FindSymbol(x, y, 'fish')) then
begin
wait(7500+300)
Mouse(x, y, 2, 2, true);
FFlag(0);
Writeln('Got to Willows');
end;
end;
Procedure KillWill;
var
x,y:integer;
Begin
Makecompass('N');
Setangle(True);
if findcolorspiral(x,y,1989456,MSX1,MSY1,MSX2,MSY2)Then
begin
isuptext('willow')
Writeln('Found willow')
Mouse(x,y,0,0,true)
Wait(7500+500)
End else
if findcolorspiral(x,y,2651752,MSX1,MSY1,MSX2,MSY2)Then
begin
isuptext('willow')
Writeln('Found willow')
Mouse(x,y,0,0,true)
Wait(7500+333)
End else
if findcolorspiral(x,y,3367513,MSX1,MSY1,MSX2,MSY2)Then
begin
isuptext('willow')
Writeln('Found willow')
Mouse(x,y,0,0,true)
Wait(7500+750)
end else
if findcolorspiral(x,y,4219998,MSX1,MSY1,MSX2,MSY2)Then
begin
isuptext('willow')
Writeln('Found willow')
Mouse(x,y,0,0,true)
Wait(7500+750)
if findcolorspiral(x,y,4614242,MSX1,MSY1,MSX2,MSY2)Then
begin
isuptext('willow')
Writeln('Found willow')
Mouse(x,y,0,0,true)
Wait(7500+750)
End;
End;
End;
Procedure Randoms;
Begin
if not LoggedIn then exit;
FindTalk;
FindNormalRandoms;
solveChatRandom;
FindLamp ('Mining') //Uses lamp on that skill
DwarfItem;
If (FindFight)Then
Begin
MakeCompass ('N')
RunTo('E', True)
Wait(7000 +Random(3000));
RunTo('W', True);
End;
End;
procedure AntiBan;
begin
if not LoggedIn then exit;
case random(100) of //do a random number so it won't always perform the antiban
0: RandomRClick;
1: BoredHuman;
2: HoverSkill('Mining', False);
3: AlmostLogout;
end;
end;
Procedure BankWill;
var
x,y:integer;
Begin
if invfull
then
begin
if (FindSymbol(x, y, 'Bank')) then
begin
Mouse(x, y, 2, 2, true);
FFlag(0);
Writeln('In BANK');
Wait(10000+500)
if findcolorspiral(x,y,4937311,MSX1,MSY1,MSX2,MSY2)Then
begin
Writeln('We Found a Banker')
Mouse(x,y,0,0,false)
Chooseoption('quickly')
wait(2000+566)
if findcolor(x,y,1852749,MIX1,MIY1,MIX2,MIY2)Then
begin
Mouse(x,y,0,0,false)
Wait(1000+444)
Chooseoption('All')
Closebank;
end else
if findcolor(x,y,1786699,MIX1,MIY1,MIX2,MIY2)Then
begin
Mouse(x,y,0,0,false)
Wait(1500+444)
Chooseoption('All')
Closebank;
if (FindSymbol(x, y, 'fish')) then
begin
wait(7500+300)
Mouse(x, y, 2, 2, true);
FFlag(0);
Writeln('Walked Back To Willows');
End;
End;
End;
End;
End;
End;
procedure CheckEnt;
var
eex, eey : integer;
begin
if not LoggedIn then exit;
if FindColorTolerance(eex, eey, 388075, 85, 15, 115, 15, 30) then
begin
WriteLn('Ent Found! ~Advoiding~');
DoEmote(4);
wait(2500+Random(7000));
Inc(EntsAvoided);
Entsavoided:=entsavoided+1
SrlRandomsReport;
end;
end;
Procedure Talking;
Begin
if not LoggedIn then exit;
if inchat('hello') then begin typesend('hello 2 u 2')
if inchat('Wc lvl')then begin typesend('90:P')
if inchat('woodcutting')then begin typesend('90:P')
if inchat('woodcutting lvl')then begin typesend('99 lolz')
if inchat('n00b')then begin typesend('im not a noob..')
if inchat('ch00b')then begin typesend('you are a ch00bie')
if inchat('wanna fight me n00bie?')then begin typesend('no tnx not fighting a n00b:)')
End;
end;
end;
end;
end;
end;
end;
end;
procedure NoRandoms;
begin
if not LoggedIn then exit;
FindNormalRandoms;
if FindFight then
begin
RunAway('s', True, 1, (22000+Random(5000)));
NoRandoms;
end;
end;
begin
SetUpSmart;
SetupSRL;
DeclarePlayers;
ActivateClient;
if not loggedin then loginplayer;
Writeln('Logged your ass in')
Writeln('1 account logged in')
Wait(1000)
repeat
writeln( 'Killing Willows For:' + TimeRunning );
Randoms;
AntiBan;
CheckEnt;
Loginplayer;
Killwill;
BankWill;
Norandoms;
Until(false)
End.
End;
End.——————————————————
<!– END TEMPLATE: formanswers –>