Exppo, SRL Members, Hello? No one noticed?

[Timer]

what the God Damn Fuck1!! did no one notice!!!!

(half way threw, he edited mine just a little and Fucking posted it on his SRL-Member application!!!!)

Mine ---> http://www.villavu.com/forum/showthread.php?t=
Mine, Framed as His ---> http://www.villavu.com/forum/showthread.php?t=26889

This makes me feel bad about that no one looks at my script. although it is pretty shitty... ;)

Incase exppo edits his post...
Here's my script edited a lil that he posted half way threw the votes...
program DraynorNetBank;
{.include SRL\SRL.scar}
{.include SRL\SRL\Misc\Smart.scar}
{.include SRL\SRL\Misc\Users.scar}

{===============================INSTRUCTIONS====== ============================}
{ Runescape Low Detail. }
{ Runescape In Highest Brightness. }
{ Complete What You Need For Script To Run Efficeiently. }
{ Drag CrossHairs To RS Window }
{ Hit Play }
{=================================CREDITS========= ============================}
{=======================CREDITS ARE GIVEN ACCORDINGLY=========================}
{ Dude_Richard }
{ YoHoJo }
{ Jad }
{ ShadowMinon }
{ Wizzup? }
{ Wt-Fakawi }
{ }
{ }
{================================================= ============================}

// Script Created On: 21st February 2008
// Script Created By: Exppo (With The Help Of The Above)
// Script CopyRighted 2007-2010 (c)

PauseScript_At = 20;
ResumeScript_At = 12;
Sleep_Random_Time = 12;

Var
TestNetBuyer, GrabANewNet, TryWalkBackLost,
PickUpNet: Boolean;
Loads, TLoads, FishingNet, AnchovieMask,
FishingNetColor, ShrimpMask, x, y,
PornPopups, BuyNet, BankNet, AR,
Lost_and_DeathWalks, WhirlPool: Integer;
FishingNetColors: TIntegerArray;
WhirlPoolAcc: Extended;

function AmPm: string;
Var
Hour, Mins, Sec, Msec: Word;
begin
DecodeTime(Now, Hour, Mins, Sec, MSec);
if Hour >= 12 then
begin
Result := 'Pm';
end else
Result := 'Am';
end;

Procedure Sleeping;
Var
Hour, Mins, Sec, Msec: Word;
begin
DecodeTime(Now, Hour, Mins, Sec, MSec);
if Hour = PauseScript_At then
begin
LogOut;
Writeln('SleptUntil ' + IntToStr(ResumeScript_At) + ampm);
repeat
Sleep(1000);
DecodeTime(Now, Hour, Mins, Sec, MSec);
until(Hour = ResumeScript_At);
Writeln('SleptWhileRandom ' + IntToStr(Sleep_Random_Time) + 'Mins');
Sleep(Random(Sleep_Random_Time * 1000 * 60));
Writeln('ResumedScript');
LogInPlayer;
end;
end;

procedure DeclarePlayers;
begin
SRLID := 'Insert SRL ID Here';
SRLPassword := 'Insert SRL PassWord Here';
SRLPlayerForm(True, [], ['LoadsBeforeTrueSwitching'], [], []);
end;

Procedure LoadBMPs;
Begin
FishingNet := BitmapFromString(9, 8, 'beNoljd0KgjAYhu0eOgiiTgplhWj' +
'pTCfqmtvC/CtpHRRF938VvSK8PDy8fD9k+ZS+Zc3OiV+Lk9Hpp0tN' +
'K4xOUD6Eh36Sd8MgE73twqgUglzY/lYGmJfURtD8el7xSMc7sCrHO' +
'yoa+ysj364YuAtn3gbMqItgHQ7iF2ZafkDGy7EDOut5nYXTr7 sM86' +
'ONMQglKzSvnoNNTovAwS58UBSkf1ehJLI=');// <3 Wizzup
AnchovieMask := BitmapFromString(1, 4, 'beNrLKioq6svKas3JKc' +
'0CACMTBV8=');
ShrimpMask := BitmapFromString(4, 2, 'beNoL9984s3dOe21rSVZ2' +
'bCiEkRkVkgIAkMMLHA==');
end;

procedure ScriptTerminated;
begin
Writeln('ScriptTerminated');
Writeln('RestartScript');
Writeln('CompleteSRL/ID/Password');
end;

procedure WalkBack; forward;
function FindNormalRandomsEx: Boolean;
var
i: Integer;
begin
if not LoggedIn then exit;
Players[CurrentPlayer].Loc := 'Normal Randoms';
w_UpdateLastLine;
for i := 1 to 8 do
begin
case I of
1: SolveNonTalkingRandoms;
2: Respond;
3: Result := FindTalk;
4: if Reincarnate then begin if FindDead then WalkBack; end else Result := FindDead;
5: Result := FindLamp(LampSkill);
6: if FindBox then
Result := SolveBox;
7: Result := RC;
8: Result := FindMod;
end;
if Result then
Break;
Wait(1);
end;
end;

Procedure ProgressReport;
var
I: Integer;
Begin
Writeln('{======================================== ====}');
Writeln('DraynorNetBank V2.0 HasRanFor: ' + TimeRunning);
Writeln('HasCompleted: ' + IntToStr(TLoads) + ' Loads');
Writeln('HasFishedSuccesfully: '+IntToStr(TLoads * 27)+' Fish');
if BankNet > 0 then
Writeln('HasRetrieved: ' + IntToStr(BankNet) + ' NetsOutOfTheBank');
if BuyNet > 0 then
Writeln('HasPurchased ' + IntToStr(BuyNet) + ' NetsWith ' + IntToStr((BuyNet * 5)) + 'Gp');
if WhirlPool > 0 then
Writeln('Noticed ' + IntToStr(WhirlPool) + ' WhirlPools');
if AR > 0 then
Writeln('AutoResponded ' + IntToStr(AR) + ' Times');
if Lost_and_DeathWalks > 0 then
Writeln('HasWalkedFromLumbridge ' + IntToStr(Lost_and_DeathWalks) + ' Times.');
Writeln('========================================= ===');
Writeln('Please Use This Script Again');
Writeln('Remember To Post Progress Reported');
Writeln('--------------------------------------------');
Writeln('');
Writeln('<Character Progress Report>');
for I := 0 to HowManyPlayers - 1 do
Writeln(Players[i].Name + ' Loc = ' + Players[i].Loc + ' Active = ' + BoolToStr(Players[i].Active));
SRLRandomsReport;
MarkTime(PornPopups);
end;

function AutoResponder(FindText, SayText: TStringArray; LookInLastIntegerLines: integer): Boolean;
var
textx, texty, Ymod, GetNameTrys, Coordspace, SRT, R: Integer;
TextSayd, TextFound, PlayerName: String;
begin
if not loggedin then exit;
If (LookInLastIntegerLines > 8) then
begin
WriteLn('AutoResponder Found An Error');
WriteLn('[Error] In AutoResponder' + FindText[0]);
exit;
end;
case LookInLastIntegerLines of
1: Ymod := 441;
2: Ymod := 428;
3: Ymod := 414;
4: Ymod := 400;
5: Ymod := 386;
6: Ymod := 372;
7: Ymod := 358;
8: Ymod := 344;
end;
For R := 0 To (GetArrayLength(findtext)-1) Do
begin
if IsTextInAreaEx(8, Ymod, 291, 461, textx, texty, FindText[R], 12, smallchars, False, False, 0, 1, 16711680) then
begin
Coordspace := Texty;
PlayerName := '';
repeat
PlayerName := GetTextAtEx(12, (Coordspace), 0, SmallChars, False, False, 0, 5, 0, 40, False, tr_AllChars)
if (playerName = '') then Break;
GetNameTrys := GetNameTrys + 1;
until not (PlayerName = '') or (GetNameTrys > 5)
Wait(2000);
if (Pos(Players[CurrentPlayer].Nick, PlayerName) > 0) then exit;
Result := True;
SRT := Random(GetArrayLength(SayText));
TypeSend(SayText[SRT]);
TextSayd := SayText[SRT];
TextFound := FindText[R];
WriteLn('AutoRespond');
if (Trim(PlayerName) = '') then
begin
PlayerName := 'Username:';
WriteLn(' Could Not Find Username');
end;
WriteLn(' ' + Trim(PlayerName) +' ' + TextFound);
WriteLn(' ' + Players[CurrentPlayer].Name + ': '+ TextSayd);
WriteLn(' AutoRespond');
if (PlayerName = 'Username:') then
begin
case Random(3) of
0: PlayerName := 'Username';
1: PlayerName := 'Username1';
2: PlayerName := 'Username2';
end;
end;
end;
if (Result = True) then exit;
end;
end;

procedure AutoRespond;
begin
if not loggedin then exit;
Players[CurrentPlayer].Loc := 'AutoResoponding';
if AutoResponder(['Hey', 'hey', 'hi', 'Hi'], ['Hello'], 1) then begin ReportVars[5] := ReportVars[5] + 1; AR := AR + 1; end;
if AutoResponder(['Wasup', 'heyas', 'whatup buddy', 'sup'], ['nothin much'], 1) then begin ReportVars[5] := ReportVars[5] + 1; AR := AR + 1; end;
if AutoResponder(['ishing'], [IntToStr(GetSkillInfo('fishing', False))], 1) then begin ReportVars[5] := ReportVars[5] + 1; AR := AR + 1; end;
if AutoResponder([Players[CurrentPlayer].Nick], ['no', 'im busy', 'go away', 'nope', '=.=', '>.<', 'go away plz', 'leave me alone'], 1) then begin ReportVars[5] := ReportVars[5] + 1; AR := AR + 1; end
end;

procedure AntiBan;
begin
if not LoggedIn then Exit;
AutoRespond;
Players[CurrentPlayer].Loc := 'Anti-BanningNow';
case Random(30) of
0: TypeSend('Bored, notice how bored I am..');
1: MMouse(0, 0, 762, 499);
2: MMouse(0, 0, 762, 499);
3: MMouse(0, 0, 762, 499);
4: MMouse(0, 0, 762, 499);
5: MMouse(0, 0, 762, 499);
6: MMouse(0, 0, 762, 499);
7: MMouse(0, 0, 762, 499);
8: MMouse(0, 0, 762, 499);
9: MMouse(0, 0, 762, 499);
10: MMouse(0, 0, 762, 499);
11: TypeSend('Atlast a Fish..');
end;
end;

function GetFishCoords: TPointArray;
var
Fisheys: array of TPointArray;
FishPoints: TPointArray;
avar, ccts: Integer;
begin
if not LoggedIn then Exit;
SetLength(Result, 0);
ccts := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
FindColorsSpiralTolerance(MSCX, MSCY, FishPoints, 15459804, MSX1, MSY1, MSX2, MSY2, 50);
Fisheys := TPAToATPA(FishPoints, 25);
SetLength(Result, Length(Fisheys) + 1);
for avar := 0 To Length(Fisheys) - 1 do
Result[avar] := MiddleTPA(Fisheys[avar]);
SetLength(Fisheys, 0);
ColorToleranceSpeed(ccts);
end;

Function FindWhirlPool(x, y: integer): Boolean; forward;
function LocateFishingSpot(var x, y: Integer): Boolean;
var
FishPoints: TPointArray;
FirstPointToLastPoint: Integer;
begin
if not LoggedIn then Exit;
Result := False;
FishPoints := GetFishCoords;
Writeln(IntToStr(Length(FishPoints)) + ' Colors Have Been Found For Fishing Spot');
for FirstPointToLastPoint := 0 to Length(FishPoints) - 1 do
begin
MMouse(FishPoints[FirstPointToLastPoint].X, FishPoints[FirstPointToLastPoint].Y, 0, 0);
Wait(150 + Random(50));
if IsUpText('ishi') and not FindWhirlPool(FishPoints[FirstPointToLastPoint].X, FishPoints[FirstPointToLastPoint].Y) then
begin
Result := True;
x := FishPoints[FirstPointToLastPoint].X;
y := FishPoints[FirstPointToLastPoint].Y;
Exit;
end;
end;
end;

procedure SetUpSmart;
begin
SmartSetupEx(1, False, True);
while not SmartReady do wait(100);
SetTargetDC(SmartGetDC);
end;

procedure SetUpScript;
begin
ScriptID := '1086';
Reincarnate := UseDeathWalkBack;
DeclarePlayers;
WhirlPoolAcc := 1.0;
if (SRLID = '') or (SRLPassword = '') then
begin
Writeln('If You Consider Yourself A Leecher - This Script Will Be Removed');
OpenWebPage('http://www.stats.srl-forums.com/?action=register');
TerminateScript;
end;

MarkTime(PornPopups);
TestNetBuyer := BuyNets;
if TestNetBuyer then
begin
Writeln('(!) You Have Chosen To Test The Net Buyer');
Writeln(' No Nets - Script Will Buy');
Writeln(' Will Purchase Net From PortSarim');
end;
GrabANewNet := GrabNetsBank;
if GrabANewNet then
Writeln('(!) You Have Chosen To Use The NetCollector');
if Reincarnate then
Writeln('(!) Walking Back From Lumbridge');
TryWalkBackLost := TryLostWalkBack;
end;

procedure StartScript;
var
i: Integer;
begin
LogInPlayer;
SetAngle(True);
Wait(5000);
for i := 0 to howmanyplayers - 1 do
players[i].loc := 'fish';
end;

procedure WaitForFishing; forward;

var
Fsx, Fsy, FishingSpotFollowColor: Integer;

procedure CatchFish;
begin
repeat
if not loggedin then exit;
Players[CurrentPlayer].Loc := 'Locating Fishing Spot - Please Wait';
if not LoggedIn then Exit;
if LocateFishingSpot(Fsx, Fsy) then
begin
Mouse(Fsx, Fsy, 5, 5, True);
FishingSpotFollowColor := GetColor(x, y);
if FindColorSpiral(Fsx, Fsy, FishingSpotFollowColor, x - 20, y - 20, x + 20, y + 20) then
GetMousePos(Fsx, Fsy);
WaitForFishing;
if not LoggedIn then Exit;
end else
begin
if LocateFishingSpot(Fsx, Fsy) then
begin
Mouse(Fsx, Fsy, 5, 5, True);
WaitForFishing;
if not LoggedIn then Exit;
end else
begin
if trywalkbacklost then
begin
WalkBack;
CatchFish;
end else
begin
Writeln('(!)(?) Script Could Not Find FishingSpot');
LogOut;
Players[CurrentPlayer].Loc := 'No Fishing Spots Available';
if not LoggedIn then Exit;
end;
end;
end;
ClickToContinue;
until(InvFull) or (not LoggedIn);
end;

procedure ShrinkArray(var a: array of Integer);
var
I, C, J, MyC: Integer;
cCond: Boolean;
begin
MyC := 0;
for I := 0 to Length(a) - 1 do
Begin
cCond := False;
for C := 0 to MyC - 1 do
begin
if a[i] = a[c] then
begin
cCond := True;
Break;
end;
end;
if not cCond then
begin
for J := I downto 1 do
begin
Swap(A[J], A[J - 1]);
end;
MyC := MyC + 1;
end;
end;
SetArrayLength(a, MyC);
end;

function GotNet: Boolean;
var
x, y: Integer;
Ar: TPointArray;
begin
try
if not loggedin then exit;
Result := FindColor(x, y, FishingNetColor, MIX1, MIY1, MIX2, MIY2);
if Result then
Exit;
Result := FindBitmapToleranceIn(FishingNet, x, y, MIX1, MIY1, MIX2, MIY2, 45);
if Result then
begin
FishingNetColor := GetColor(x, y);
FindColorsTolerance(Ar, FishingNetColor, x - 20, y - 20, x + 20, y + 20, 45);
FishingNetColors := GetColors(Ar);
ShrinkArray(FishingNetColors);
WriteLn('FishingNetColor: ' +IntToStr(FishingNetColor));
end else
Result := False;
except
Writeln('(=]) Found Error And Saved');
end;
end;

procedure GetANet;
var
BankDTM: integer;
begin
try
if not LoggedIn then Exit;
Players[CurrentPlayer].Loc := 'Getting A Net';
BankDTM := DTMFromString('78DA63EC60626008614001FFFFFF6760600 42' +
'310FB3F6303508D37448E09AAE6ED5B08CD08E583D50413A1 269C' +
'809A0AC26A00E665129F');
MakeCompass('n')
Mouse(621, 43, 20, 20, True);
Wait(5000);
FFlag(0);
if not loggedin then exit;
If DTMRotated(BankDTM, x, y, MMX1, MMY1, MMX2, MMY2) Then
Begin
Mouse(x, y, 5, 5, true);
FFlag(0);
if not loggedin then exit;
Players[CurrentPlayer].Loc := 'bank';
FreeDTM(BankDTM);
end else
begin
Writeln('Uh-Oh');
LogOut;
FreeDTM(BankDTM);
if not loggedin then exit;
end;
if not LoggedIn then Exit;
FFlag(0);
if not loggedin then exit;
repeat
OpenBankFast('db');
if not loggedin then exit;
until(BankScreen or PinScreen or not LoggedIn);
if PinScreen then
begin
CloseBank;
LogOut;
Writeln('(!) No Pins!');
Exit;
end;
FixBank;
if not LoggedIn then Exit;
if FindBitmapToleranceIn(FishingNet, x, y, MSX1, MSY1, MSX2, MSY2, 45) then
begin
Mouse(x, y, 5, 5, True);
Wait(500 + Random(500));
CloseBank;
BankNet := BankNet + 1;
MakeCompass('n');
if Players[CurrentPlayer].Loc = 'bank' then
begin
RadialRoadWalk(FindRoadColor, 290, 308, 44, 2, 2);
FFlag(0);
if not loggedin then exit;
RadialWalk(FindWaterColor, 168, 210, 60, 0, 0);
Sleep(2564 + random(424));
FFlag(0);
if not loggedin then exit;
if FindSymbol(x, y, 'fish') then
begin
Mouse(x, y, 5, 5, True);
Players[CurrentPlayer].Loc := 'fish';
Wait(2000)
FFlag(0);
if not loggedin then exit;
Exit;
end;
end;
end else
Writeln('No Nets...');
Closebank;
except
Writeln('(=]) Found Error And Saved');
end;
end;

function GetInShop: Integer;
var
c: Integer;
begin
repeat
if not LoggedIn then exit;
c := c + 5;
if (FindColorTolerance(x, y, 13807130, MMX1, MMY1, MMX2, MMY2, c)) then
Result := GetColor(x, y);
until (Result > 0) or (c > 70);
if c <= 70 then
begin
Mouse(x, y, 5, 5, True);
FFlag(0);
end else
begin
Writeln('(!) Script Could Not Find Fishing Shop Symbol');
Writeln('(?) Please Login ' + Players[CurrentPlayer].Name + 'Please PM Me');
Writeln('(*SaD*) Thanks For Testing My Net Buyer - FAILED');
LogOut;
end;
end;

procedure BuyTehNet;
var
Traded: Boolean;
Triesss: LongInt;
begin
repeat
if (FindObjCustom(x, y, ['err', 'ant'], [267551, 6911642, 7642283, 2370858, 2571605], 20)) then
begin
if not loggedin then exit;
Mouse(x, y, 5, 5, False);
Wait(500);
if ChooseOption('rade') then Traded := True;
Wait(5000 + Random(500));
Mouse(35, 65, 100, 16, True);
Wait(500);
Mouse(78, 108, 6, 7, False);
Wait(500);
ChooseOption('y 1');
Wait(2000 + Random(500));
BuyNet := BuyNet + 1;
Mouse(481, 36, 7, 6, True);
end;
Triesss := Triesss + 1;
if Traded then Break;
if (Triesss >= 10) then
begin
LogOut;
Writeln('Couldn''t Find Gerrant');
end;
until(false);
end;

procedure WalkToDraynorBank;
var
BankDTM, Total, Color: Integer;
begin
Players[CurrentPlayer].Loc := 'Shop To Bank';
Color := 0;
Color := FindRockColor;
if Color = 0 then
begin
Mouse(636, 108, 5, 5, True);
FFlag(0);
if not loggedin then exit;
FindNormalRandomsEx;
Wait(1000 + Random(100));
Color := FindRoadColor;
end;
if FindColor(x, y, Color, MMX1, MMY1, MMX2, MMY2) then
begin
Mouse(x - 11, y - 25, 5, 5, True);
FFlag(0);
if not loggedin then exit;
FindNormalRandomsEx;
if FindSymbol(x, y, 'transportation') then
begin
Mouse(x, y, 5, 5, True);
FFlag(0);
if not loggedin then exit;
FindNormalRandomsEx;
Mouse(656, 35, 5, 5, True);
Wait(6000);
FFlag(0);
if not loggedin then exit;
FindNormalRandomsEx;
Mouse(687, 78, 5, 5, True);
FFlag(0);
if not loggedin then exit;
FindNormalRandomsEx;
repeat
Total := Total + 1;
Wait(1000);
if not loggedin then exit;
FindNormalRandomsEx;
until(FindSymbol(x, y, 'quest')) or (Total >= 10);
if Total >= 20 then
begin
Mouse(655, 45, 5, 5, True);
FFlag(0);
if not loggedin then exit;
FindNormalRandomsEx;
end;
Total := 0;
repeat
Total := Total + 1;
Wait(1000);
if not loggedin then exit;
FindNormalRandomsEx;
until(FindSymbol(x, y, 'quest')) or (Total >= 10);
Mouse(x, y, 5, 5, True);
FFlag(0);
if not loggedin then exit;
FindNormalRandomsEx;
if FindSymbol(x, y, 'farming spot') then
begin
Mouse(x, y, 5, 5, True);
FFlag(0);
if not loggedin then exit;
FindNormalRandomsEx;
end else
begin
Mouse(650, 56, 5, 5, True);
FFlag(0);
if not loggedin then exit;
FindNormalRandomsEx;
if FindSymbol(x, y, 'farming spot') then
begin
Mouse(x, y, 5, 5, True);
FFlag(0);
if not loggedin then exit;
FindNormalRandomsEx;
end else
begin
LogOut;
Exit;
end;
end;
if FindColor(x, y, FindRockColor, MMX1, MMY1, MMX2, MMY2) then
begin
Mouse(x, y, 5, 5, True);
Wait(6000);
FFlag(0);
if not loggedin then exit;
FindNormalRandomsEx;
Mouse(656, 114, 5, 5, True);
FFlag(0);
if not loggedin then exit;
FindNormalRandomsEx;
repeat
Wait(1000);
until(FindSymbol(x, y, 'quest') or not LoggedIn);
Mouse(x, y, 6, 6, True);
FFlag(0);
if not loggedin then exit;
FindNormalRandomsEx;
Mouse(650, 121, 5, 5, True);
FFlag(0);
if not loggedin then exit;
FindNormalRandomsEx;
BankDTM := DTMFromString('78DA63EC60626008614001FFFFFF6760600 42' +
'310FB3F6303508D37448E09AAE6ED5B08CD08E583D50413A1 269C' +
'809A0AC26A00E665129F');
if DTMRotated(BankDTM, x, y, MMX1, MMY1, MMX2, MMY2) then
begin
Mouse(x, y, 5, 5, true);
FFlag(0);
if not loggedin then exit;
FindNormalRandomsEx;
Players[CurrentPlayer].Loc := 'bank';
FreeDTM(BankDTM);
end else
begin
FindNormalRandomsEx;
Writeln('Uh-Oh');
LogOut;
FreeDTM(BankDTM);
Exit;
end;
FFlag(0);
if not loggedin then exit;
FindNormalRandomsEx;
end;
end;
end;
end;

procedure BuyNewNet;
var
BankDTM, T: Integer;
begin
Players[CurrentPlayer].Loc := 'Walking To Net Shop';
if not LoggedIn then Exit;
if Players[CurrentPlayer].Loc = 'fish' then
begin
BankDTM := DTMFromString('78DA63EC60626008614001FFFFFF6760600 42' +
'310FB3F6303508D37448E09AAE6ED5B08CD08E583D50413A1 269C' +
'809A0AC26A00E665129F');
MakeCompass('n')
Mouse(621, 43, 20, 20, True);
Wait(5000);
FFlag(0);
if not loggedin then exit;
FindNormalRandomsEx;
if not LoggedIn then Exit;
If DTMRotated(BankDTM, x, y, MMX1, MMY1, MMX2, MMY2) Then
Begin
Mouse(x, y, 5, 5, true);
FFlag(0);
if not loggedin then exit;
Players[CurrentPlayer].Loc := 'bank';
FreeDTM(BankDTM);
end else
begin
Writeln('Fucked...');
LogOut;
FreeDTM(BankDTM);
Exit;
end;
FFlag(0);
if not loggedin then exit;
FindNormalRandomsEx;
end;
if not LoggedIn then Exit;
begin
if not LoggedIn then Exit;
repeat
OpenBankFast('db');
FindNormalRandomsEx;
until(BankScreen or PinScreen or Not LoggedIn);
Wait(1000);
FixBank;
DepositAll;
Mouse(94, 76, 5, 5, False);
Wait(500);
if not loggedin then exit;
ChooseOption('aw 5');
Wait(2000);
CloseBank;
Mouse(578, 57, 5, 5, True);
FFlag(0);
if not loggedin then exit;
if FindSymbol(x, y, 'quest') then
begin
Mouse(x, y, 5, 5, True);
FFlag(0);
if not loggedin then exit;
FindNormalRandomsEx;
Mouse(606, 38, 5, 5, True);
FFlag(0);
if not loggedin then exit;
FindNormalRandomsEx;
if FindColorSpiral(x, y, FindRockColor, MMX1, MMY1, MMX2, MMY2) then
begin
Mouse(x, y, 5, 5, True);
FFlag(0);
if not loggedin then exit;
FindNormalRandomsEx;
if FindSymbol(x, y, 'farming spot') then
begin
Mouse(x, y, 5, 5, True);
FFlag(0);
if not loggedin then exit;
FindNormalRandomsEx;
Mouse(620, 118, 5, 5, True);
FFlag(0);
repeat
Wait(1000);
T := T + 1;
if not loggedin then exit;
until(FindSymbol(x, y, 'quest')) or (T >= 20);
if T >= 20 then
begin
FindNormalRandomsEx;
LogOut;
Exit;
end;
Mouse(x, y, 5, 5, True);
FFlag(0);
if not loggedin then exit;
FindNormalRandomsEx;
Mouse(572, 130, 5, 5, True);
FFlag(0);
if not loggedin then exit;
FindNormalRandomsEx;
Mouse(564, 118, 5, 5, True);
FFlag(0);
if not loggedin then exit;
FindNormalRandomsEx;
if FindColor(x, y, FindRockColor, MMX1, MMY1, MMX2, MMY2) then
begin
Mouse(x - 20, y - 30, 5, 5, True);
FFlag(0);
if not loggedin then exit;
FindNormalRandomsEx;
players[currentplayer].Loc := 'PortSarim';
end;
end;
end;
end;
end;
if players[currentplayer].Loc = 'PortSarim' then
begin
GetInShop;
BuyTehNet;
WalkToDraynorBank;
end;
if Players[Currentplayer].Loc = 'bank' then
begin
RadialRoadWalk(FindRoadColor, 290, 308, 44, 2, 2);
FFlag(0);
if not loggedin then exit;
FindNormalRandomsEx;
RadialWalk(FindWaterColor, 168, 210, 60, 0, 0);
Sleep(2564 + random(424));
FFlag(0);
if not loggedin then exit;
FindNormalRandomsEx;
if FindSymbol(x, y, 'fish') then
begin
Mouse(x, y, 5, 5, True);
Players[CurrentPlayer].Loc := 'fish';
Wait(2000)
FFlag(0);
if not loggedin then exit;
FindNormalRandomsEx;
Exit;
end;
end;
end;

procedure WalkToFish;
var
Color: Integer;
begin
MakeCompass('N');
SetAngle(True);
Mouse(667, 88, 5, 5, True);
FFlag(0);
FindNormalRandomsEx;
if not RadialRoadWalk(FindRoadColor, 332, 355, 62, 5, 5) then
begin
Writeln('Uh-Oh');
LogOut;
Exit;
end else
FFlag(0);
FindNormalRandomsEx;
if not RadialRoadWalk(FindRoadColor, 306, 323, 55, 5, 5) then
begin
if not RadialRoadWalk(FindRoadColor, 282, 335, 55, 5, 5) then
begin
Writeln('Uh-Oh');
LogOut;
EXIT;
end else
FFlag(0);
FindNormalRandomsEx;
end else
FFlag(0);
FindNormalRandomsEx;
Mouse(566, 76, 5, 5, True);
FFlag(0);
FindNormalRandomsEx;
if not RadialRoadWalk(FindDirtRoadColor, 223, 290, 63, 5, 5) then
begin
Mouse(MMCX - 30, MMCY, 5, 5, True);
FFlag(0);
FindNormalRandomsEx;
if not RadialRoadWalk(FindDirtRoadColor, 223, 290, 63, 5, 5) then
begin
Writeln('Uh-Oh');
LogOut;
Exit;
end;
end else
FFlag(0);
FindNormalRandomsEx;
repeat
Mouse(568, 83, 5, 5, True);
FFlag(0);
FindNormalRandomsEx;
until(FindSymbol(x, y, 'dungeon'));
Mouse(x, y, 5, 5, True);
FFlag(0);
FindNormalRandomsEx;
Mouse(568, 83, 5, 5, True);
FFlag(0);
FindNormalRandomsEx;
Mouse(568, 83, 5, 5, True);
FFlag(0);
FindNormalRandomsEx;
repeat
Mouse(568, 83, 5, 5, True);
FFlag(0);
FindNormalRandomsEx;
until(FindSymbol(x, y, 'dungeon'));
setrun(true);
Mouse(x, y, 5, 5, True);
FFlag(0);
FindNormalRandomsEx;
Mouse(565, 98, 5, 5, True);
FFlag(0);
FindNormalRandomsEx;
SetRun(False);
GameTab(4);
Color := FindRockColor;
if Color <> 0 then
begin
if FindColor(x, y, Color, MMX1, MMY1, MMX2, MMY2) then
begin
if FindColor(x, y, Color, MMX1, MMY1, MMX2, MMY2) then
begin
Mouse(x, y, 5, 5, True);
Wait(5000);
FFlag(0);
FindNormalRandomsEx;
if FindSymbol(x, y, 'fish') then
begin
Mouse(x, y, 5, 5, True);
Wait(6000);
FFlag(0);
FindNormalRandomsEx;
Wait(5000 + Random(1000));
Players[CurrentPlayer].Loc := 'fish';
Lost_and_DeathWalks := Lost_and_DeathWalks + 1;
ReportVars[6] := ReportVars[6] + 1;
Exit;
end else
begin
Writeln('Uh-Oh');
LogOut;
Exit;
end;
end else
begin
Writeln('Uh-Oh');
LogOut;
Exit;
end;
end else
end else
begin
Writeln('no rock color');
Writeln('Using Coords');
Mouse(557, 108, 5, 5, True);
Wait(6000);
FindNormalRandomsEx;
FFlag(0);
FindNormalRandomsEx;
if FindSymbol(x, y, 'fish') then
begin
Mouse(x, y, 5, 5, True);
Wait(6000);
FFlag(0);
FindNormalRandomsEx;
Wait(2000);
Players[CurrentPlayer].Loc := 'fish';
Lost_and_DeathWalks := Lost_and_DeathWalks + 1;
ReportVars[6] := ReportVars[6] + 1;
Exit;
end else
begin
Writeln('Uh-Oh');
LogOut;
Exit;
end;
end;
begin
Writeln('Uh-Oh');
LogOut;
Exit;
end;
end;

procedure WalkBack;
begin
Mouse(741, 183, 5, 5, True);
Mouse(570, 239, 5, 5, True);
Wait(20000);
repeat
LogOut;
until(not LoggedIn);
LogInPlayer;
WalkToFish;
end;

Function FindWhirlPool(x, y: integer): Boolean;

Var
FishPoints: TPointArray;

Begin
If Not LoggedIn Then Exit;
ColorToleranceSpeed(2);
FindColorsSpiralTolerance(x, y, FishPoints, 13947343, x - 20, y - 20, x + 20, y + 20, 40)
If GetArrayLength(FishPoints) > Round(230 * WhirlPoolAcc) Then
Begin
WhirlPools := Whirlpools + 1;
WriteLn(IntToStr(Round(GetArrayLength(FishPoints) / 1600))+ '% Change');
Result := True;
End;
ColorToleranceSpeed(1);
End;

procedure GetNetOffTehGround;
var
Tries: Integer;
begin
try
MakeCompass('W');
SetAngle(True);
repeat
Wait(1000);
Tries := Tries + 1;
Writeln(IntToStr(Tries));
until(FindObjCustom(x, y, ['mall'], [FishingNetColor], 5)) or (not LoggedIn) or (Tries = 3);
if not Tries >= 3 then
begin
Mouse(x, y, 5, 5, True);
FFlag(0);
Writeln('***** SOLVED PARRANA RANDOM *****');
ReportVars[2] := ReportVars[2] + 1;
end;
MakeCompass('N');
if FindSymbol(x, y, 'fish') then
Mouse(x, y, 5, 5, True);
FFlag(0);
except end;
end;

procedure WaitForFishing;
var
InvLevel, Time: Integer;
begin
if not LoggedIn then Exit;
repeat
NapNapTime;
if FindWhirlPool(fsx, fsy) then
begin
WhirlPools := WhirlPools + 1;
WhirlPool := WhirlPool + 1;
end;
if FindFight then
RunAway('E', True, 1, 10000 + Random(2000));
GameTab(4);
Players[CurrentPlayer].Loc := 'Waiting For Fish';
if TimeFromMark(PornPopups) >= 300000 then
ProRep;
FindNormalRandomsEx;
if not LoggedIn then Exit;
InvLevel := InvCount;
FTWait((4 * 5));
if InvLevel = InvCount then
Time := Time + 1;
if InvLevel < InvCount then
Time := 0;
AntiBan;
FindNormalRandomsEx;
if not GotNet then
begin
Writeln('(!) Lost Net!');
if PickUpNet then
begin
Writeln('(!) Getting Net!');
Players[CurrentPlayer].Loc := 'fish';
GetNetOffTehGround;
GameTab(4);
if FindBitmapToleranceIn(FishingNet, x, y, MIX1, MIY1, MIX2, MIY2, 45) then
begin
ReportVars[3] := ReportVars[3] + 1;
Writeln('(!) Got Net!');
Exit;
end;
end;
if GrabANewNet then
begin
Writeln('(!) Getting Net!');
Players[CurrentPlayer].Loc := 'fish';
GetANet;
GameTab(4);
if FindBitmapToleranceIn(FishingNet, x, y, MIX1, MIY1, MIX2, MIY2, 45) then
begin
ReportVars[3] := ReportVars[3] + 1;
Writeln('(!) Got Net!');
Exit;
end;
end;
if TestNetBuyer then
begin
Writeln('(!) Trying Buy New Net!');
Players[CurrentPlayer].Loc := 'fish';
BuyNewNet;
GameTab(4);
if FindBitmapToleranceIn(FishingNet, x, y, MIX1, MIY1, MIX2, MIY2, 45) then
begin
ReportVars[4] := ReportVars[4] + 1;
Writeln('(!) Got Net!');
Exit;
end;
end;
GameTab(4);
if not FindBitmapToleranceIn(FishingNet, x, y, MIX1, MIY1, MIX2, MIY2, 45) then
LogOut;
end;
until(Time = 2) or (InvFull);
ClickToContinue;
end;

function FishCount: Integer;
var
q: Integer;
w: TBox;
begin
for q := 1 to 28 do
begin
w := InvBox(q);
if FindBitmapToleranceIn(ShrimpMask, x, y, w.x1, w.y1, w.x2, w.y2, 45) or FindBitmapToleranceIn(AnchovieMask, x, y, w.x1, w.y1, w.x2, w.y2, 45) then
Result := Result + 1;
end;
end;

procedure DropFish;
var
i: Integer;
begin
ReportVars[1] := ReportVars[1] + FishCount;
Players[CurrentPlayer].Loc := 'Dropping Fish';
GameTab(4);
for i := 1 to 28 do
begin
if not LoggedIn then Exit;
if ExistsItem(i) then
begin
if FindFight then
RunAway('E', True, 1, 10000 + Random(2000));
MMouseItem(i);
Wait(150 + Random(50));
if not IsUpText('mall') and IsUpText('aw') then
begin
GetMousePos(x, y);
HoldMouse(x, y, False);
Wait(50 + Random(15));
ReleaseMouse(x, y, False);
Wait(150 + Random(500));
ChooseOption('rop');
Wait(999 + Random(111));
end;
end;
end;
TLoads := TLoads + 1;
Loads := Loads + 1;
ReportVars[0] := ReportVars[0] + 1;
ArrangeInv;
end;

begin
LoadBMPs;
SetupSmart;
SetupSRL;
SetupScript;
StartScript;
repeat
repeat
if not LoggedIn then
begin
Writeln('(!) Logged Out For Some Weird Reason.');
Writeln('(=[) NextPlayer(False);');
NextPlayer(False);
Break;
end;
CatchFish;
DropFish;
until(Loads = Players[CurrentPlayer].Integers[0]);
if Players[CurrentPlayer].Active then
begin Players[CurrentPlayer].Loc := 'Waiting My Turn!'; end else Players[CurrentPlayer].Loc := 'Lost!';
FreeBitMap(FishingNet);
FreeBitMap(AnchovieMask);
FreeBitMap(ShrimpMask);
Loads := 0;
NextPlayer(True);
SetAngle(True);
GameTab(4);
LoadBMPs;
until(False);
end.

[Harry]

ROFL, what the hax :p He can;t edit his post, it is closed ;)

[[S]paz]

lol nicely caught, there more or less the same. and he didn't get in anyways heh

~Spaz

[Timer]

I know but still, it pisses me off.
same with no one else noticed becasue they never LOOK AT MY SCRIPTS!!! lol

atleast we can swear in this section.

[[S]paz]

i get ur point, but i never remember scripts any who, so i might have seen ur as before but i wont recognize it if i saw it again, just my memory im afraid

~Spaz

[Timer]

I wasn't 'Directing' that comment to you, ;) I was just saying in general....

[RAM]

You really think that noone noticed, ehh mm...this was simply a test, and you passed with flying colors !!!!

Good copy bust, I think I smell a new Looser of the Day (http://www.villavu.com/forum/showthread.php?t=16284?t=17875&highlight=looser).....

Sorry that noone seems to use your scripts, now you know you have at least one fan ;)

~RAM

[[S]paz]

we i think he just got ownt. but now looking through he script, its very good well done ex.... well done TIMER!!! :)

~Spaz

[ShowerThoughts]

You really think that noone noticed, ehh mm...this was simply a test, and you passed with flying colors !!!!

Good copy bust, I think I smell a new Looser of the Day (http://www.villavu.com/forum/showthread.php?t=16284?t=17875&highlight=looser).....

Sorry that noone seems to use your scripts, now you know you have at least one fan ;)

~RAM

i think he doesn't believes you give him the 'Copy Bust Cup' ;) fast!

[malotthouse]

just wondering... did he really copyright it?

and wasn't he already banned once?

and by the way, i like your scripts timer. I used to use your herb identifier when it worked, and i use teh coal truckz. which is partly yours. just i never tried this script. maybe ill feel pity and try it.

or not.

[kelly slater pro surfer]

lol you can tell its copyed and eted because look at the cig one writenlin is empty....... get rid of him....

[Timer]

exppo should go to jail.
I copy writed my script... =/


I do have the Private Version Of my draynor netter 'Draynor Netter Pro', I'm thinking to releace, to SRL-Junior....

[P1nky]

lmao :) BANNZOR?

[Timer]

H E L L .... Y E A!!!

:p :p

[GoF]

Wow... I feel stupid now :p ... Well, I have to admit I didn't really look at it (your script).

[ShowerThoughts]

H E L L .... Y E A!!!

:p :p

just release the script for Srl members only

[Harry]

@hermpie: Then no one would use it :p Most of the SRL member scripts no one uses, besides work from Tarajunky.

[Wizzup?]

@hermpie: Then no one would use it :p Most of the SRL member scripts no one uses, besides work from Tarajunky.

Wizzup Varrock East Miner 597115 mins

[Harry]

Sorry... I mean ones that I personally use a lot ;) Forgot about you, sorry dear :(

[Markus]

Another one bites the bust!

edit: He got banned?