SCAR Code:
{ REMEMBER TO CHANGE THE CONST ON LINE 92 IF YOU'VE DONE THE PIRATE
TREASURE QUEST OR NOT! }
{ REMEMBER TO CHANGE THE CONST ON LINE 92 IF YOU'VE DONE THE PIRATE
TREASURE QUEST OR NOT! }
{ REMEMBER TO CHANGE THE CONST ON LINE 92 IF YOU'VE DONE THE PIRATE
TREASURE QUEST OR NOT! }
{ REMEMBER TO CHANGE THE CONST ON LINE 92 IF YOU'VE DONE THE PIRATE
TREASURE QUEST OR NOT! }
{ REMEMBER TO CHANGE THE CONST ON LINE 92 IF YOU'VE DONE THE PIRATE
TREASURE QUEST OR NOT! }
{ I PRESENT! }
{ /-------------\ /---------| |
/ \ / \ |
/ \ / \ |
| | | | | | |
| | | | | | |
| | | | | | |
|________| | |______ | | |
/ / / / |
/ / / / |
/ / / / SCRIPT |
/ / UPER / /_____ |
/ / |/ |/ | |
/ / | | | |
/ / | | | |
/ / | | | |
/ /________ \ / |
| | | \ / |
| | | \------------/_ |
| | | Super Scripts..| |.. |
| | | ____________________________________|
\ / | _ ___ ___ |
\ / | / | | | |___ |
\ / | /__|_ | | | IS GAY!!! |
\---------/ | | |___| | |
____________________________________|_____________________________________|
This Version Is used in conjunction
with
S.M.A.R.T!!!!!
{
###########################################################################
_ _ #
__|\ | |\ | /\ | | /\ /\ /\ |\ | | /|__ #
__ |* < | \ | /__\ | | / \ / \ /__\ | \ | > *| __ #
|/ |_ | \| / \ |___| / \/ \ / \ | \| _| \| #
############################################################################
PLEASE DO NOT DISTRIBUTE THIS SCRIPT ANYWHERE WITHOUT THE AURTHOR'S PERMISSION
THANK-YOU!
}
program KaramjaFish0r;
{.include srl/srl/misc/smart.scar}
{.include srl/srl.scar}
{.include srl/srl/skill/fishing.scar}
Const
DoneQuest = False; //True if you have not done the quest
// False If you have done the Pirates Treasure Quest
{-------------------------------}
{ Form ( DO NOT TOUCH! ) }
{-------------------------------}
var
frmDesign : TForm;
GroupBox1 : TGroupBox;
Button1 : TButton;
CheckBox1 : TCheckBox;
Edit: Array [1..6] of TEdit;
{Edit[1] : TEdit;
Edit[2] : TEdit;
Edit[3] : TEdit;
Edit[4] : TEdit;
Edit[5] : TEdit;
Edit[6] : TEdit; }
Memo1 : TMemo;
StartTheScript: Boolean;
{procedure InitFormOnClose(Sender : TObject; var Action : TCloseAction);
begin
if(not(frmDesign.ModalResult = 1))then
EndInitForm := True;
end;}
function DefaultM(i: Integer): string;
begin
case i of
1: Result := 'Username';
2: Result := 'Password';
3: Result := 'Loads To Do';
4: Result := 'SRL Stats ID';
5: Result := 'SRL Stats Pass';
6: Result := 'Bank Pin';
end
end;
procedure SaveUserSettings;
var
i: Integer;
begin
for i := 1 to 6 do
WriteINI('Settings', IntToStr(i), Edit[i].Text, ScriptPath + 'Settings.ini');
WriteINI('Settings', '7', BoolToStr(CheckBox1.Checked), ScriptPath + 'Settings.ini');
end;
procedure LoadUserSettings;
var
i: Integer;
begin
for i := 1 to 6 do
begin
Edit[i].Text := ReadINI('Settings', IntToStr(i), ScriptPath + 'Settings.ini');
if (Edit[i].Text = '') then
Edit[i].Text := DefaultM(i);
end;
CheckBox1.Checked := (ReadINI('Settings', IntToStr(i), ScriptPath + 'Settings.ini') = 'True');
end;
function ProcessData: Boolean;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := Edit[1].text;
Players[0].Pass := Edit[2].text;
Players[0].Active := True;
try
Players[0].Integers[0] := StrToInt(Edit[3].Text);
except
Writeln('Please enter a valid number of loads to do');
Exit;
end;
try
StrToInt(Edit[6].Text);
except
Writeln('Please enter a valid PIN');
Exit;
end;
Players[0].Pin := Edit[6].text;
try
StrToInt(Edit[4].Text);
except
Writeln('Please enter a valid SRL Stats ID');
Exit;
end;
SRLID := Edit[4].text;
SRLPassword := Edit[5].text;
Result := True;
end;
Procedure StartClick(sender: TObject);
Begin
SaveUserSettings;
StartTheScript := ProcessData;
frmDesign.ModalResult:= mrOk;
end;
Procedure Form;
Begin
frmDesign := CreateForm;
{ frmDesign.BorderIcons := [biMinimize];
frmDesign.BorderStyle := bsNone; }
frmDesign.Left := 250;
frmDesign.Top := 175;
frmDesign.Width := 282;
frmDesign.Height := 323;
frmDesign.Caption := ' Karmja Fisher+ Banker';
frmDesign.Color := clCoral;
frmDesign.Font.Color := clMaroon;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'Comic Sans MS';
frmDesign.Font.Style := [fsBold];
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 96;
GroupBox1 := TGroupBox.Create(frmDesign);
GroupBox1.Parent := frmDesign;
GroupBox1.Left := 0;
GroupBox1.Top := 0;
GroupBox1.Width := 273;
GroupBox1.Height := 289;
GroupBox1.Caption := ' Player Setup ';
GroupBox1.Color := clBlack;
GroupBox1.ParentColor := False;
GroupBox1.TabOrder := 0;
Button1 := TButton.Create(GroupBox1);
Button1.Parent := GroupBox1;
Button1.onClick := @StartClick;
Button1.Left := 88;
Button1.Top := 248;
Button1.Width := 105;
Button1.Height := 33;
Button1.Caption := 'Start Fishing!!!';
Button1.TabOrder := 0;
CheckBox1 := TCheckBox.Create(GroupBox1);
CheckBox1.Parent := GroupBox1;
CheckBox1.Left := 136;
CheckBox1.Top := 224;
CheckBox1.Width := 137;
CheckBox1.Height := 17;
CheckBox1.Caption := 'Use Special Feature?';
CheckBox1.TabOrder := 1;
Edit[1] := TEdit.Create(GroupBox1);
Edit[1].Parent := GroupBox1;
Edit[1].Left := 24;
Edit[1].Top := 24;
Edit[1].Width := 97;
Edit[1].Height := 24;
Edit[1].TabOrder := 2;
Edit[2] := TEdit.Create(GroupBox1);
Edit[2].Parent := GroupBox1;
Edit[2].Left := 144;
Edit[2].Top := 24;
Edit[2].Width := 105;
Edit[2].Height := 24;
Edit[2].TabOrder := 3;
Edit[2].PasswordChar := '*';
Edit[3] := TEdit.Create(GroupBox1);
Edit[3].Parent := GroupBox1;
Edit[3].Left := 88;
Edit[3].Top := 64;
Edit[3].Width := 81;
Edit[3].Height := 24;
Edit[3].TabOrder := 4;
Edit[4] := TEdit.Create(GroupBox1);
Edit[4].Parent := GroupBox1;
Edit[4].Left := 24;
Edit[4].Top := 104;
Edit[4].Width := 97;
Edit[4].Height := 24;
Edit[4].TabOrder := 5;
Edit[5] := TEdit.Create(GroupBox1);
Edit[5].Parent := GroupBox1;
Edit[5].Left := 144;
Edit[5].Top := 104;
Edit[5].Width := 105;
Edit[5].Height := 24;
Edit[5].TabOrder := 6;
Memo1 := TMemo.Create(GroupBox1);
Memo1.Parent := GroupBox1;
Memo1.Left := 16;
Memo1.Top := 152;
Memo1.Width := 113;
Memo1.Height := 89;
Memo1.Lines.Add('Welcome To The');
Memo1.Lines.Add('Karamja Fisher +');
Memo1.Lines.Add('Banker Setup.');
Memo1.Lines.Add('Please enter your');
Memo1.Lines.Add('SRL STATS info!');
Memo1.TabOrder := 7;
Edit[6] := TEdit.Create(GroupBox1);
Edit[6].Parent := GroupBox1;
Edit[6].Left := 144;
Edit[6].Top := 160;
Edit[6].Width := 81;
Edit[6].Height := 24;
Edit[6].TabOrder := 8;
LoadUserSettings; //Loads the Edit texts.
end; // Zephy ~
procedure SafeInitForm;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('Form', v);
end;
procedure ShowFormModal;
begin
frmDesign.ShowModal;
end;
procedure SafeShowFormModal;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('ShowFormModal', v);
end;
{-------------------------------}
{ Script Variables }
{-------------------------------}
var
FishingSpotCol : Array [0..5] of Integer;
Loads, Fished, LobsterPot : Integer;
x, y, i, Banker: Integer;
LobbyMessage : Integer;
LobbyPot: Boolean;
Level : Integer;
{-------------------------------}
{ Forwards! }
{-------------------------------}
{Procedure RandomMovementX; Forward;
Procedure WalkAntiBan; Forward;
Procedure NaumanAR; Forward;
Procedure WaitWhileSail; Forward;
Procedure WalkToPortSarim; Forward;
Procedure TryAgain; Forward;
Procedure KaramjaToFishing; Forward;
Procedure Click; Forward;
Procedure AntiBan; Forward;
Procedure FishLobbies; Forward;
Procedure KaramjaToPortSarim; Forward;
Procedure PortSarimToDraynorBank; Forward;
Procedure BankLobbies; Forward;
Procedure SetUpScript; Forward; }
Procedure Proggie; Forward;
//Function SailorNotFound: Boolean; Forward; //Only use if Script Mucks up ;)
{-------------------------------}
{ Script DTM's/ Bitmaps! }
{-------------------------------}
Procedure LoadVarz;
Begin
LobsterPot := DTMFromString('78DA63DCCBC4C0B089910119A4C5C731FC07D' +
'220D1FF40C0B803A86611AA1A882C8C04D227816A961350B31FA8' +
'660F0135EB806AB613A1663511EED94040CD41A09A25F8D500005' +
'1E8119E');
LobbyMessage := BitmapFromString(115, 12, 'beNqNl01OwzAUhLn/Fah' +
'YQDdcAgmhShWskCrE34Kj4GaS6XjGzxBZlf38nNSfJ2Pncfd13P+8' +
'7D+PN++Hc/k43LVIlir+/XzP32rgsKCLD0XROnKQgHJ6uj097lppX' +
'VfLhXyOssed859uW1r7ZXMty33WwohWtgd5vibYwH44qAJsRa8q5G' +
'lgW5ORipgtGaZg2Fc+ywRRQU5jhQjwVmvHXp/1EOxW1vyID9bF7tN' +
'H2hQA9v9CzSBJtt9ElwKGFI3hsDdVnUKlPrOJZGS2CMW/LlPB5A+w' +
'pnOT8RbBfJtudfpszhFV0p2w1a6hOShYY0WwlXUoUgAk2DScJOm0h' +
'2968i8Kp0zRco5zsPOSAydWoBHjbHoG1bybylINHPmkejZqdU4hAy' +
'um2yCz8t7KV1OxsCPODvUJ1avisiEaRxeb+kQ2lRtfgUquKXV7nEY' +
'YpEXgwu6mF7e8tbkxZPMSX7q6gQEWU26i5f+BDBBJsC2Ov4p3n4hy' +
'dYZ1XTjoSnvTLlDXLX5IlRLS3a3d/20bazImjQuojZXyJDFDfRnII' +
'QXYVKxOMMHm2H+CtbeeQtXn4r8ZwASrDHl+MLC6kSl5a/Kl7oCbXY' + // Only 17 lines?
'SXDoME24SHSVGBdoJKwpbPIAeijmJvvZk5zWFosxMroPw6bstk9c6' +
'AZgfa5GwHj06cvT7NVNMZUrFDsPkV0I4N6qgGVm9i5AkwzWFIcgjW' +
'Tl9Kg4eB7M1PBnVU3pNw1v1LGNJjHXVfQb3aj+yMagIGWOVJXElMI' +
'5mTT+cE7TRVbZeZwIG2s0CimsaPAt25bEdTZdqLnzlcheEHqYHl7m' +
'zOoMwZmRxcJ+cu/e5jV36LXc720kVr1QjXhaw6Bc4/xOrT6dBOWXl' +
'9uF7rv605R7I=');
Banker := DTMFromString('78DA635CC8C4C010C78002DEBE6560F80FA41' +
'981F83F10302E02AA89455573F72E846684F2191700D5C4A0AAF9' +
'F74F1855CD7C4CBBFEFC61C2342781010D30A2A801000E6711A5');
end;
{********************************************************************************
function Function TreeWalk(WhatTree: String; x1, y1, x2, y2: Integer) : Boolean;
By: NaumanAkhlaQ
Description: Walks to a tree in a specified area, for use in the MiniMap
Direction: In the string 'WhatTree' the valid arguments are:
'RareTree',
'Tree'.
********************************************************************************}
Function TreeWalk(WhatTree: String; x1, y1, x2, y2: Integer) : Boolean;
Var
Tree : array [0..5] of Integer;
i : Integer;
// x,y : Integer;
begin
Tree[0] := 2662810;
Tree[1] := 1659002;
Tree[2] := 4225609;
Tree[3] := 1134376;
Tree[4] := 468785;
Tree[5] := 867603;
Case WhatTree of
'Tree': Begin
For i:= 0 to 5 do
If FindColorSpiralTolerance(x,y,Tree[i],x1,y1,x2,y2,100) then
Begin
Writeln('Tree Found!')
Result:= True;
Exit;
end else
Begin
Exit;
end;
end;
'RareTree' : Begin
If FindSymbolIn(x,y,'Tree',x1,y1,x2,y2) then
Begin
Writeln('Tree Found!')
Result:= True
Exit;
end else
Begin
Writeln('Tree Not Found, Exiting');
Exit;
end;
end;
end;
end;
{----------------------------}
{ Find Obj X }
{----------------------------}
(* By: Stupid3ooo and Starblaster100 *)
Function FindObjX(var cx, cy: Integer; Text: TStringArray; Color: TIntegerArray; Tolerance: Integer): Boolean;
var
a, b, c, i, x1, y1, x2, y2: Integer;
Start: Boolean;
begin
for b := 0 to (GetArrayLength(Color)-1) do
begin
if (FindColorSpiralTolerance(cx, cy, color[b], MSX1, MSY1, MSX2, MSY2, Tolerance)) then
begin
Start := True;
Break;
end;
end;
if(Start)then
begin
x1 := 245;
y1 := 165;
x2 := 277;
y2 := 185;
repeat
if not(LoggedIn)then break;
a := a + 1;
if (a = 1) then
c := c + 1
else if (a = 3) then
c := c + 1;
for i := 1 to c do
begin
if (a = 1) then
begin
x1 := x1 + 30;
x2 := x2 + 30;
end else
if (a = 2) then
begin
y1 := y1 - 20;
y2 := y2 - 20;
end else
if (a = 3) then
begin
x1 := x1 - 30;
x2 := x2 - 30;
end else
if (a = 4) then
begin
y1 := y1 + 20;
y2 := y2 + 20;
end;
if (x1 = 485) and (x2 = 517) then
x2 := x2 - 2;
if (y1 = 325) and (y2 = 345) then
y2 := y2 - 7;
if (x2 > 515) then
Break;
for b := 0 to (GetArrayLength(Color)-1) do
begin
if (FindColorTolerance(cx, cy, Color[b], x1, y1, x2, y2, tolerance)) then
begin
MMouse(cx, cy, 0, 0)
if (IsUpTextMultiCustom(Text)) then
begin
Result := True;
Exit;
end;
end;
end;
end;
if (a = 4) then
a := 0;
until (x2 > 515) or (Result = True);
end;
end;
{--------------------}
{ Free Varz! }
{--------------------}
Procedure FreeVarz;
begin
FreeDtm(LobsterPot);
FreeDtm(Banker);
FreeBitmap(LobbyMessage);
{ FreeBitmap(CanOption);
FreeBitmap(OkOption);
FreeBitmap(SearchOption);
FreeBitmap(YesOption);
FreeDTM(SailorDTM); }
end;
{----------------------------}
{ Random Movement }
{----------------------------}
Procedure RandomMovementX;
Begin
If (not (Loggedin)) then
Exit;
Case Random (5) of
1:Begin
MMouse(727 - Random(200), 90 + Random(200), 0, 0);
IdleTime(300 + Random(300), 500, 0.5);
end;
2:Begin
MMouse(227 - Random(200), 290 + Random(200), 0, 0);
IdleTime(300 + Random(300), 500, 0.5);
end;
3:Begin
GameTab(1+Random(14))
end;
4,0: Wait(2000+Random(200))
end;
end;
{----------------------------}
{ Walk Anti ban! }
{----------------------------}
Procedure WalkAntiBan;
Begin
If (not (Loggedin)) then
Exit;
Case Random(6) of
1:Begin
Case 11 of
0: TypeSend('stoopib walkin');
9: Typesend('.');
10: Typesend('Yawn');
end;
Exit;
end;
3: Begin
GameTab(1+Random(14))
wait(Random(2))
GameTab(4)
end;
5: MMouse(MSX1,MSY2,1,1);
0: RandomMovementX;
end;
end;
{-------------------------------}
{ My AntiRandom Procedure }
{-------------------------------}
Procedure NaumanAR;
Begin
If Not (Loggedin) then
Exit;
For i := 0 to 3 do
// HandleWhirlPool;
FindNormalRandoms;
HandleWhirlPool;
Begin
FindNonInventoryRandoms;
// HandleWhirlPool;
If FindFight Then
RunAway('s', false, 1, 8500);
// HandleWhirlPool;
end;
end;
{-----------------------------}
{ Find Equipment!!! }
{-----------------------------}
Function FindEquipment : Boolean;
Begin
If Not (Loggedin) then
Exit;
If FindDTM(LobsterPot,x,y,MIX1,MIY1,MIX2,MIY2) Then
Begin
WriteLn('Lobster Pot Found')
LobbyPot := True;
end;
Begin
MMouse(619-Random(5), 230 + Random(5), 1, 1)
wait(300+Random(700))
If IsUpText('oin') then
Begin
WriteLn('Coins Found');
Result := True;
end;
end;
end;
{-------------------------------}
{ Wait While Sail! }
{-------------------------------}
Procedure WaitWhileSail;
Begin
Wait(5000+Random(2000))
Repeat
Wait(100+Random(200));
Until(ClickToContinue);
WriteLn('Sailed the Ship')
Begin
Case Random(2) of
0: Begin
If ClickToContinue then
Mouse(x,y,1,1,true);
end;
1: wait(1);
end;
end;
end;
{-------------------------------}
{ Cross Gang Plank }
{-------------------------------}
Function CrossGangPlank : Boolean;
var
Tries, iMark : Integer;
Begin
MarkTime(imark)
MakeCompass('S')
Repeat
If FindObjTPA(x, y, 3034468, 15, 2, 10, 25, 1,['ank','ross']) and
IsUpText('ank') then
Result := True;
Mouse(x,y,1,1,true);
FFlag(0);
Tries:= Tries +1;
Until(Tries > 5) or
(TimeFromMark(imark) > 7000) or (Result)
Wait(2000+random(3000))
end;
{-------------------------------}
{ Find The Sailor }
{-------------------------------}
function FindSailor(var fx, fy: Integer): Boolean; // Based On
Begin // Nielsies
Repeat //Idea
If FindObjTPA(x, y, 5583152, 15, 20, 50, 90, 1, ['alk','-to']) Then
wait(1000);
Until IsUpText('alk-to')
Begin
Result := True
WriteLn('Found The Sailor');
Exit;
end;
Begin
Result := False;
WriteLn('Sailor NOT Found!');
end;
end;
{--------------------------------}
{ Try's Again to find the Sailor }
{--------------------------------}
Function SailorNotFound :Boolean;
var
SailorDTM : Integer;
Begin
SailorDTM := DTMFromString('78DA634C656260886340017FFE3031FC07D28' +
'C40FC1F0818416A6251D5FCFB270CA619A17CC674A09A040634C0' +
'88AA268548357144D885A6E6EE5D061435002755117F');
FFlag(0);
If Not FindSailor(x, y) Then
Begin
If DTMRotated(SailorDTM, x, y, 568, 40, 668, 110) Then
Mouse(x, y+Random(5), 5, 5, true);
FFlag(0);
Result := False;
end;
wait(1);
end;
{-------------------------------}
{ Relocation, Relocation }
{-------------------------------}
Procedure Relocate (Place : String);
Begin
FTWait(3+Random(5));
MMouse(MSX1, MSY2, 70, 70);
Begin
Case Place of
'Quest Symbol': Begin
WriteLn('DEBUG: Could NOT find quest Symbol, Improvising');
SymbolAccuracy := 0.5;
If FindSymbolIn(x, y, 'Quest', 533, 10, 711, 91) Then
Begin
Mouse(x,y,1,1,true);
WalkAntiBan;
FFlag(0);
end;
Exit;
end;
'Quest 2' : Begin
WriteLn('DEBUG: Could NOT find quest Symbol, Improvising');
Wait(2000+Random(3000));
Mouse(671, 42, 5, 5, True);
FFlag(0)
Exit;
end;
'Docks' : Begin
WriteLn('DEBUG: Could NOT find Docks, Improvising');
Mouse(587, 117, 5, 5, true);
FFlag(0)
Exit;
end;
'Docks 2' :Begin
WriteLn('DEBUG: Could NOT find Docks, Improvising');
Mouse(631, 10, 6, 3, true);
Wait(8000+Random(500));
// Mouse(631, 16, 6, 3, true);
// wait(8000+Random(3000));
Exit;
end;
end;
end;
end;
{-------------------------------}
{ Finds If Low Run Energy }
{-------------------------------}
Function FindLowRun : Boolean;
Begin
Result := FindColorSpiral(x, y, 255, 740, 106, 762, 118);
end;
{-------------------------------}
{ Walk To Port Sarim!!!! }
{-------------------------------}
Procedure WalkToPortSarim;
var
//Result1 : Boolean;
YesOption : Integer;
Begin
YesOption := BitmapFromString(24, 14, 'beNp9UkEOgzAM6/8fscP' +
'gsn1jQkKwIxe2HXjKAkaW5ZQiCzlt4yZupsd37IFSym86w+39jH+E' +
'geAghli3rXJ8kKIsla90KIUDmmv8Kh1g5aYDzjOqiZWGjqUjV3Ual' +
'ZAwVKOMs0d81KGr2k7ui1lmlC1uc68t2Bvx7azIXE/o7Dh8NjX1Wd' +
'NtJLgVOiqejc09Zif1ujw51V2z2sKqFMg6dKqMsDEGgc9403sjBUA' +
'ieXVUCJyhFK4Gltc9V5WL2ckfO6d+Eg==');
If Not (Loggedin) then
Exit;
Begin
MakeCompass('W');
RadialRoadWalk(FindRoadColor, 9, 26, 73, 1, 1);
WalkAntiBan;
FFlag(0)
MOuse(MMCX, MMCY-55, 2, 2,true)
{ Wait(Random(999));
Case Random (3) Of
0: Mouse(x, y, 1, 1, true);
end; }
Wait(4000+RANDOM(3000));
If FindLowRun Then
Begin
WriteLn('We are on low run energy, lets take it easy ;)');
Wait(21500+Random(5000))
WalkAntiBan;
end else
Wait(14000+Random(5000));
WalkAntiBan;
FFlag(0)
{If(not( FlagPresent )) then
Begin
Repeat
Wait(1000+Random(2000))
Until(FlagPresent)
If FlagPresent then
FFlag(0); }
Begin
If (not(FindSymbolIn(x ,y, 'Quest', 533, 10, 711, 91))) Then
Begin
Relocate('Quest Symbol');
SymbolAccuracy := 0.8;
end else
If FindSymbolIn(x, y, 'Quest', 533, 10, 711, 91) Then
Begin
Mouse(x,y,1,1,true);
WalkAntiBan;
FFlag(0);
end;
Begin
RadialRoadWalk(FindRoadColor, 17, 39, 70, 1, 1);
WalkAntiBan;
FFlag(0);
Mouse(MMCX, MMCY-60, 5, 5, True);
WalkAntiBan;
FFlag(0);
Begin
RadialRoadWalk(FindRoadColor, 282, 262, 61 , 1, 1);
WalkAntiBan;
FFlag(0)
Begin
Mouse(556, 85, 5, 5,true)
FFlag(0)
Begin
If (Not( FindSymbol(x,y,'fishing shop'))) Then
Begin
Relocate('Docks');
end;
If FindSymbol(x,y,'fishing shop') Then
Mouse(x-8,y+65 + Random(5),1,1,true);
WalkAntiBan;
FFlag(0);
If FindSymbol(x,y,'transportation') Then
Mouse(x,y,1,1,true);
WalkAntiBan;
FFlag(0)
Begin
Case DoneQuest of
False :Begin
If FindSailor(x, y) then
Begin
Mouse(x,y,1,1,false);
wait(88+Random(88));
ChooseOption('are');
WalkAntiBan;
end;
end;
True : Begin
If FindSailor(x, y) Then
Begin
Mouse(x, y, 1, 1, True);
Repeat
If ClickToContinue Then
Mouse(x,y,1,1,true);
wait(2000+Random(1000));
Until(not(ClickToContinue))
If not(ClickToContinue) Then
Begin
If FindBitmap(YesOption, x, y) Then
Begin
Mouse(x+Random(10), y, 2, 2, True);
wait(1200+Random(2300));
If ClickToContinue Then
Mouse(x, y, 1, 1, True);
wait(2000+Random(1000));
end;
end;
end;
end;
end;
Begin
WaitWhileSail;
end;
end;
end;
end;
end;
end;
end;
end;
end;
{-----------------------------------------}
{Tries again to Get to The Fishing Spot }
{-----------------------------------------}
Procedure TryAgain;
var
Tries : Integer;
Begin
Repeat
If Not (Loggedin) then
Exit;
Begin
Tries:=Tries+1;
Mouse(695, 106,5,5,true);
end;
Until(Tries > 2) or (FlagPresent)
If (Tries > 2) or (FlagPresent) Then
WalkAntiBan;
FFlag(0);
end;
{------------------------------------}
{ From The Boat To The Fishing Spot! }
{------------------------------------}
Procedure KaramjaToFishing;
Begin
CrossGangPlank;
WriteLn('We are in Karamja!!!')
Begin
MakeCompass('W')
Mouse(MMCX+Random(3), MMCY-65, 5, 5, true);
WalkAntiBan;
wait(1000+Random(1000));
FFlag(0)
Mouse(MMCX+18, MMCY-64, 5, 5, true);
WalkAntiBan;
wait(1000+Random(1000));
FFlag(0)
Begin
If TreeWalk('Tree', 678, 83, 697, 107) Then
Mouse(x,y,1,1,true);
WalkAntiBan;
FFlag(0);
{If TreeWalk('Tree', 662, 83, 686, 110) Then
Mouse(x,y,1,1,true);
WalkAntiBan;
FFlag(0); }
Begin
If (Not(FindSymbol(x,y,'Fishing Spot'))) then
Begin
WriteLn(' Trying to get to the fishing spot ')
TryAgain;
wait(1)
FindNormalRandoms;
end;
If ((FindSymbol(x,y,'fishing spot'))) then
Begin
Mouse(x,y,1,1,true)
WalkAntiBan;
FFlag(0)
end;
end;
end;
end;
end;
{
<----------------------------------------------------------------->
Function FindFishingSpots: TPointArray;
Description:
Finds all RuneScape 2 Fishing spots on the MainScreen.
Mainscreen is defined by MSX1, MSY1, MSX2, MSY2.
The spots are sorted by Distance, the first in the array
is the one closest to the RS char (MSCX, MSCY).
Made By: Wizzup?
<----------------------------------------------------------------->
}
Function FindFishingSpots: TPointArray;
Var
Fish: TPointArray;
Fishes: T2DPointArray;
I, cts: Integer;
Begin
If Not LoggedIn Then Exit;
SetLength(Result, 0);
cts := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
FindColorsSpiralTolerance(MSCX, MSCY, Fish, 15257001, MSX1, MSY1, MSX2, MSY2, 40);
Fishes := TPAToATPA(Fish, 25);
SetLength(Fish, 0);
SetLength(Result, Length(Fishes));
For I := 0 To High(Fishes) Do
Begin
If Length(Fishes[I]) < 5 Then
Continue;
Result[I] := MiddleTPA(Fishes[I]);
End;
SetLength(Fishes, 0);
ColorToleranceSpeed(cts);
End;
{
<----------------------------------------------------------------->
Function FindFishingSpot(Var x, y: Integer): Boolean;
Description:
Uses FindFishingSpots to find a fishing spot on the
RuneScape mainscreen.
Returns the coordinate of the fishing spot in x and y.
Result Returns True if the spot is found.
Made By: Wizzup?
<----------------------------------------------------------------->
}
Function FindFishingSpot(Var x, y: Integer): Boolean;
Var
Fish: TPointArray;
I: Integer;
Begin
If Not LoggedIn Then Exit;
Result := False;
Fish := FindFishingSpots;
For I := 0 To Length(Fish) - 1 Do
Begin
MMouse(Fish[I].X, Fish[I].Y, 0, 0);
Wait(150 + Random(50));
If IsUpText('age') Then
Begin
Result := True;
x := Fish[I].X;
y := Fish[I].Y;
Exit;
End;
End;
End;
{-------------------------------}
{ Random Clicking Techniques }
{-------------------------------}
Procedure Click;
Begin
If Not (Loggedin) then
Exit;
Case Random(3) of
0:Begin
MMouse(x,y,5,5)
wait(800+Random(200))
If IsUpText('age') then
Mouse(x,y,1,1,true)
end;
1:Begin
MMouse(x,y,5,5)
wait(800+Random(200))
If IsUpText('age') then
Mouse(x,y,1,1,False);
ChooseOption('age');
end;
2:Begin
MMouse(x,y,2,3);
wait(700+Random(300));
If IsUpText('age') then
Mouse(x,y,2,3,False);
ChooseOption('age');
end;
end;
end;
{----------------------------}
{ Search Antiban! }
{----------------------------}
procedure Search;
var
f, e : integer;
begin
If (not (Loggedin)) then
Exit;
MMouse(645, -14, 1, 1)
MMouse(727, -10, 1, 1)
e := 5 + Random(6); //Of Almost Logout credits to Yakman :)
for f := 0 to e do
begin
case Random(3) of
0, 1: MMouse(727 - Random(200), 90 + Random(200), 0, 0);
2: IdleTime(300 + Random(300), 500, 0.5);
end;
FTwait(2 + Random(1));
end;
end;
{----------------------------}
{ Anti Ban }
{----------------------------}
procedure AntiBan;
begin
If (not (Loggedin)) then
Exit;
case Random(47) of
0,1,2: PickUpMouse;
23,5,9: GameTab(1 + Random(11));
46: Search;
45: MMouse(Random(MSX2), Random(MSY2), 0, 0);
19: begin
HoverSkill('random',false);
gametab(4);
ChooseOption('Cancel');
MMouse(Random(MSY1), Random(MSX1), 0, 0);
end;
10: begin
GameTab(1 + Random(13));
wait(1000+ random(600));
gametab(4);
ChooseOption('Cancel');
end;
34: begin
HoverSkill('random',false);
gametab(4);
end;
33: Begin
Case Random(67)+1 of
0,1,23,25,45,46: Typesend('...');
2,22,42,52,62: Typesend('Yawn');
3,5,9,19: Typesend('Hey');
66,65,64,63: Typesend('Fishing lvls?');
56,55,54,53,67: Typesend('l0l');
end;
end;
end;
end;
{Procedure RandomsCheck;
var
v: Integer;
Begin
If Not (Loggedin) then
Exit;
for v:= 0 to 3 do
FindNormalRandoms;
FindNonInventoryRandoms;
wait(1)
end;}
{-------------------------------}
{ Wait While Fishing }
{-------------------------------}
Procedure WaitWhileFish;
var
imark : Integer;
Begin
If Not (Loggedin) then
Exit;
wait(1);
Begin
FFlag(0);
if invfull then Exit;
MarkTime(imark)
Repeat
if invfull then break;
AntiBan;
NaumanAR;
FTWait(20 + Random(10))
if invfull then break;
AntiBan;
NaumanAR;
FTWait(30 + Random(10))
Case Random (2) Of
0:Begin
If FindFishingSpot(x,y) then
Begin
Mouse(x,y,1,1,true);
FFlag(0);
end;
wait(1);
end;
end;
if invfull then break;
if timefrommark(imark) > 500000 then break;
Until(ClickToContinue) or (FindBitmapIn(LobbyMessage,x ,y , MCX1, MCY1, MCX2, MCY2)) Or
(invfull) Or
(Not (FindDTM(LobsterPot,x,y,MIX1,MIY1,MIX2,MIY2)))
If Not (FindDTM(LobsterPot,x,y,MIX1,MIY1,MIX2,MIY2)) Then
LobbyPot := False;
end;
Exit;
end;
{-------------------------}
{ Tryit again!!!! }
{-------------------------}
{Procedure Tryit;
Begin
For i:= 0 to 3 do
If FindFishingSpot(x,y) Then
Click;
Exit;
end; }
{-------------------------------}
{ Fish Lobbies!!! YaY!!! }
{-------------------------------}
Procedure FishLobbies;
Begin
FishingSpotCol[0] := 13540732;
FishingSpotCol[1] := 14458997;
FishingSpotCol[2] := 12886415;
FishingSpotCol[3] := 14595221;
FishingSpotCol[4] := 13673866;
FishingSpotCol[5] := 13281424;
Begin
If Not (Loggedin) then
Exit;
Begin
MakeCompass('E')
{For i:= 0 to 5 do
If FindObjX(x, y, ['age','ish','pot'] , [FishingSpotCol[i]] , 7) or
} If Not FindFishingSpot(x,y) then
Begin
{ Tryit;}
Mouse(MMCX-4+Random(3), MMCY-Random(2+Random(4)), 2, 2, True);
end else
If FindFishingSpot(x,y) then
Begin
Repeat
Click;
FFlag(0);
Wait(600+Random(200));
If (Not(FindBlackChatMessage('ou atte'))) then
Begin
WriteLn('Didn''t work!! Trying Again');
If FindFishingSpot(x,y) then
Click;
FFlag(0);
end;
WaitWhileFish;
Until(invfull)
If (InvFull) then
Fished := Fished +26;
WriteLn(' Done One Load :), GOING TO BANK')
end;
end;
end;
end;
{-------------------------------}
{ Karamja To Port Sarim }
{-------------------------------}
Procedure KaramjaToPortSarim;
var
CanOption, SearchOption, OkOption : Integer;
Begin
CanOption := BitmapFromString(33, 15, 'beNqVU0EOgkAM9P+P4KA' +
'c0G8YCDEeDQH14FOsjBkns8uCZEJKt3Taabevn5cj8ejrwNQe4k2P' +
'BmxB9hdkBv7KXMiWjdSj3fww4HU9FVg0oZVK5+28pzhIjjAY5RY2U' +
'lB/VM4YsiwJkpUlZUFyLRsYZoTn3lcpBbve0kWohC4oS9jkDWNsqz' +
'TPknpaMMNAocrr3oYxSI9cAx2c+VOw5oihHW9bGC6Ybho+szqvUhD' +
'RI9rMLjMpbDcADFFZEGAs4AUXkq9SUGqbqbHYgMxQFh3BklBKARZ9' +
'yEjP1DV6WeyqZlm4tABuurYJT6yuCogZqRShfCCdJvfzc9Q1P4rZt' +
'gbpsTLslMa3qjcF/eym');
SearchOption := BitmapFromString(46, 17, 'beNp9VdtKAzEQ7f+/' +
'+2IX0daH+guKxVJWREUo6KLUj3GSkzk5mey6DEsymcmczHXcnvbrz' +
'8OQ6Lh5f7yxv9L55TZwfsYtqDKzesPJYt/jFYVJdiFIt1gbkgLGkD' +
'xc8mZbTA4jWXFzvKGY7mBAwGDwHmr9vt5Rl38s7KgiyVrlLwT1Wfo' +
'HCX2Cf33F805dSkjlsXTycbPyT2XUCcHVUAyhCXiKbvtGM4HoGxEt' +
'ZE77a5yCY2tFMgsDSMJWkeCqYkgw2GehnzxnYOjjaaA3DIw6ZwkDg' +
'95HPLhlYjpJ3E0Ml2tdQBd5UhzSqoT07gthJliCpImIZ68+s0qyUg' +
'KSTP1jQwmH2KHWztntaqJvBSH0hP12f4EYreRLHLelaYzkh4c1t5k' +
'APAp8fJoq9c5MqYccBvuDgotwrcb3a9wBG3CqRZpQj9GW+ryuPVJN' +
'kmQAadsKw7qmGbOCjwqpqFQEPGGw1jyhADob7Gq/NQ5aLo76ojaOl' +
'Q/4rCNsVTJAJZOzAAK2RVByCa8RJroCwWL0tV6gDiSMI5Go9xQJQ6' +
'mAa3x94qzaj8kzm2C6hXN4bfCSCrO9Q0VPgdbMwSEMDcufYIJ7Q5+' +
'xayeNXa4vnchss0sjDKkCW3UOCpgwnWsbx9or2hbs/OmxjgTgy1xu' +
'5x1bDTnNq2Uc17rOnFJTbbNSJ4QxxNJemp4RyR+ome/Z');
OkOption := BitmapFromString(27, 16, 'beNqNk0EWgjAMRL3/IdjI' +
'Qr0HPh54AEEXHMXo4Lxx0oK8LBKa/E6HMpyfw088+rZWRs4SucYyt' +
'nPf3LsmA2NpuV2Mw9CNjEZgjNvWh+9jwCjxMu8FoO2Ifh2JXFFaZv' +
'GhE0tIIMwcIDNOEW0KzDZC5wr/mBb9OH7MKhCu/gPkavQX5ZEJAoG' +
'7YW4XgbRRzSyibIpBH8xP+14ZVQTqIN8QwuRt71hmZoVqRfF+gmYO' +
'5BtiN9zKrNB+gXxwc14Fq5iaqszc8Lk2UmuwrzZ1x3yQ6Xrapm0A9' +
'Y/YhazxAiSpZfM=');
If Not (Loggedin) then
Begin
Exit;
end else
If (((InvFull))) Then
Begin
WriteLn('Now Going To Bank');
end;
Begin
MakeCompass('E');
Mouse(MMCX + 60+Random(5), MMCY, 5, 5, true);
WalkAntiBan;
FFlag(0);
Begin
Mouse(MMCX+45+Random(5), MMCY, 5, 5, true);
wait(5000+Random(3000));
WalkAntiBan;
FFlag(0);
{ Mouse(MMCX+10+Random(4), MMCY-60+Random(5), 5, 5, true);
wait(6000+Random(3000));
WalkAntiBan;
FFlag(0); }
Begin
Mouse(MMCX + 10, MMCY - 65 ,5, 5, true);
WalkAntiBan;
wait(5000+Random(3000));
wait(1);
Mouse(MMCX, MMCY - 30, 10, 10, True);
FFlag(0);
Begin
If Not FindSymbolIn(x,y,'transportation', 590, 11, 697, 122) Then
Begin
WriteLn('We might be Lost Lets Get to the Custom Officer :)');
Relocate('Docks 2');
end;
If FindSymbolIn(x,y,'transportation', 590, 11, 697, 122) Then
Mouse(x,y,1,1,true);
wait(8000+Random(3000));
end;
Begin
If SailorNotFound then
wait(2);
If FindSailor(x, y) then
Begin
Case DoneQuest Of
False : Begin
Mouse(x,y,1,1,false);
wait(88+Random(99));
ChooseOption('are');
wait(2000+Random(3000));
WalkAntiBan;
end;
True : Begin
Mouse(x,y,1,1,true);
wait(1200+Random(2000));
Repeat
If ClickToContinue Then
Mouse(x,y,1,1,true);
wait(2000+Random(1000));
Until(Not(ClickToContinue))
If Not ClickToContinue Then
If FindBitmap(CanOption, x, y) Then
Mouse(x+Random(10),y,2,2,true);
Repeat
If ClickToContinue Then
Mouse(x,y,1,1,true);
wait(2000+Random(1000));
Until(Not(ClickToContinue))
If Not ClickToContinue Then
If FindBitmap(SearchOption, x, y) Then
Mouse(x+Random(10),y,2,2,true);
Wait(1200+Random(2000));
Repeat
If ClickToContinue Then
Mouse(x,y,1,1,true);
wait(2000+Random(1000));
Until(Not(ClickToContinue))
If Not ClickToContinue Then
Begin
If FindBitmap(OkOption, x, y) Then
Mouse(x+Random(10), y, 2, 2, true);
wait(1200+Random(2000));
Repeat
If ClickToContinue Then
Mouse(x,y,1,1,true);
wait(2000+Random(1000));
Until(Not(ClickToContinue))
If Not ClickToContinue Then
Exit;
end;
end;
end;
WaitWhileSail;
end;
end;
end;
end;
end;
end;
{--------------------------}
{ TryAgain X }
{--------------------------}
Procedure TryAgainX;
Begin
If Not (Loggedin) then
Exit;
If DTMRotated(Banker, x, y, 656, 74, 698, 106) Then
Mouse(x+17,y-5,1,1,true);
WalkAntiBan;
FFlag(0)
end;
{-------------------------------}
{ Port Sarim to Draynor Bank }
{-------------------------------}
Procedure PortSarimToDraynorBank;
Var
Back: TPoint;
Begin
If Not (Loggedin) then
Exit;
CrossGangPlank;
WriteLn('We are in Port Sarim')
Begin
MakeCompass('N');
SetRun(True);
GameTab(1+Random(12));
Mouse(638, 33, 5, 5, true);
WalkAntiBan
FFlag(0)
Begin
Mouse(673, 71, 5, 5, true);
WalkAntiBan;
FFlag(0)
Begin
Mouse(659, 45, 10, 10, true);
WalkAntiBan;
FFlag(0)
Begin
If Not FindSymbol(Back.x, Back.y, 'Quest') then
Begin
Relocate('Quest 2');
end;
If FindSymbol(Back.x, Back.y, 'Quest') then
Begin
Mouse(Back.x, Back.y, 1, 1, true);
wait(2000+Random(3000));
WalkAntiBan;
FFlag(0)
Begin
Mouse(666, 34, 5, 5, true);
wait(1500+Random(300));
FFlag(0)
Begin
Mouse(658, 136, 5, 5, true);
Case Random(2) of
0: SetRun(True);
1: wait(1);
end;
wait(20000+Random(2000));
WalkAntiBan;
{ If(not( FlagPresent )) then
Begin
Repeat
Wait(1000+Random(2000))
Until(FlagPresent)
If FlagPresent then
FFlag(0); }
Begin
Radialwalk(FindRoadColor, 70, 100, 59, 0, 0);
Wait(2000+Random(2000));
GameTab(4);
WalkAntiBan;
FFlag(0);
end;
Begin
If FindSymbol(Back.x, Back.y, 'Bank') Then
Begin
SymbolAccuracy := 0.8;
Mouse(Back.x,Back.y,1,1,true);
FFlag(0)
WriteLn('In Bank');
If (Not(FindSymbol(Back.x, Back.y, 'Bank'))) then
Begin
SymbolAccuracy := 0.4
If FindSymbol(Back.x, Back.y, 'Bank') Then
Begin
Mouse(Back.x,Back.y,1,1,true);
FFlag(0)
If (Not(FindSymbol(Back.x, Back.y, 'Bank'))) then
Begin
TryAgainX;
WriteLn('Hoping For The Best ');
end;
end;
end;
end;
end;
end;
end;
ReportVars[0] := ReportVars[0] + 26;
ReportVars[1] := ReportVars[1] + 1;
end;
end;
end;
end;
end;
end;
{-------------------------------}
{ Gets New LobbyPot }
{-------------------------------}
Procedure WithdrawPot;
var
LobbyPotBit : Integer;
Begin
If Not LoggedIn Then
Exit;
LobbyPotBit := BitmapFromString(20, 10, 'beNqdkVsLAVEUhR/d/' +
'RAPHpQHRWqYaFwmDA2Rxt24JHnh0S/31ZpO8qCo1Wmdmf2ds/Y+Vr' +
'pZSKBuMYkGpUh+OSVNq2kpsCKt7Yz0fNz/oMJmhi3srxQ6t7ITz4N' +
'F+q6y75RAEL/fEzsbjeQPqyWrKUMflEDU77RlAOVPmzXrfOzX8nH5' +
'azf7Ln4JcR1HZui6+Eoudg1DtvTC5C+7rSIxyf0iUKVp07HrtKZD8' +
'Nx1Ox4Vg3qdg2eMyvDeZsOyNGpAPHeJJT/18kRi8spg2jRj1CF6Zd' +
'UTw7AUk00ZTJvRu7wADL+5gQ==');
If FindBitmapIn(LobbyPotBit, x, y, MSX1, MSY1, MSX2, MSY2) Then
Begin
Mouse(x, y, 2, 2, True);
Wait(1300+Random(800));
LobbyPot := True;
end;
end;
{-------------------------------}
{ Finds Pin Screen }
{-------------------------------}
Procedure CheckPScreen;
Begin
If Not (Loggedin) then
Exit;
If Players[0].PIN = '0000' Then Exit;
If (PinScreen) then
Begin
InPin(Players[0].PIN);
end;
end;
{-------------------------------}
{ Bank Lobbies }
{-------------------------------}
Procedure BankLobbies;
Begin
If Not (Loggedin) then
Exit;
OpenBankFast('db');
FTWait(3+Random(2));
Begin
CheckPScreen;
If (bankScreen) then
Begin
Deposit(3,28,True);
wait(1000 + Random(200))
If Not LobbyPot Then
WithdrawPot;
Begin
CloseBank
Loads := Loads+1;
SRLRandomsReport;
SendSRLReport;
WriteLn('Banked')
end;
end;
end;
end;
{--------------------}
{ Load Version }
{--------------------}
Const
Version = 0.9; //DONT TOUCH!
{-------------------------------}
{ Progress Report }
{-------------------------------}
Procedure Proggie;
Begin
SRLRandomsReport;
SendSRLReport
WriteLn('__________________________________________');
WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
WriteLn('//====== Karamja Lobby Fish0r +Bank0r ======\\');
WriteLn('||======== '+FloatToStr(Version)+' - Progress Report ======== ||');
WriteLn('\\======================================//');
WriteLn('[> Worked for ' + TimeRunning + '.');
WriteLn('[> Fished ' + IntToStr(Fished) + (' LobZ.'));
WriteLn('[> Banked ' + IntToStr(Loads) + (' LoadZ.'));
// WriteLn('[> Doing :' +IntToStr(Players[0].Integers[0])+ 'Loads !!!');
// WriteLn('[> We Have Done : '+IntToStr(Loads)+' out of '+(Edit[3].text)+ 'Loads');
WriteLn('____\\==============================//____');
end;
{-------------------------------}
{ Sets Up S.M.A.R.T! }
{-------------------------------}
Procedure SetUpSMART;
Begin
Begin
WriteLn('Making S.M.A.R.T Ready');
SmartSetupEx(16, true, true, false);
wait(2000+Random(2000));
WriteLn('Loaded S.M.A.R.T');
SetTargetDC(SmartGetDC);
Exit;
end;
end;
{-------------------------------}
{ Sets Up The Script }
{-------------------------------}
Procedure SetUpScript;
Begin
If (not( Loggedin )) then
LoginPlayer;
If LoggedIn then
Begin
SetAngle(True);
SetRun(True);
Level:= GetSkillInfo('fishing',False);
If (Level > 40) then
WriteLn('DEBUG: Fishing Level is appropriate for fishing lobbies');
Begin
GameTab(4)
If FindEquipment then
Begin
WriteLn('DEBUG: Script is complete and Equipment found')
wait(1)
// ftwait(8)
end;
end;
end;
end;
{-------------------------------}
{ Main Event Loop }
{-------------------------------}
Procedure Loop;
var
MSpeed : Integer;
begin
ClearDebug;
SetupSRL;
ScriptID := '825';
LoadVarz;
MSpeed := MouseSpeed;
Proggie;
SetupSMART;
Begin
wait(1000+Random(1000))
GetApplication.BringToFront;
Disguise('SRL-Forums - Index -...');
SafeInitForm;
SafeShowFormModal;
if (not(StartTheScript)) then TerminateScript;
{ if(EndInitForm)then
TerminateScript;}
GetApplication.Minimize;
wait(1000+Random(1000))
SetupScript;
Begin
Repeat
WalkToPortSarim;
KaramjaToFishing;
MouseSpeed := 9+Random(2);
FishLobbies;
// Proggie;
MouseSpeed := MSpeed;
KaramjaToPortSarim;
PortSarimToDraynorBank;
BankLobbies;
Proggie;
Disguise('We have Done '+IntToStr(Loads)+' Banks!');
Until(Not(LoggedIn)) Or (Loads > Players[CurrentPlayer].Integers[0]);
If (Not(LoggedIn)) Or (Loads > Players[CurrentPlayer].Integers[0]) then
Begin
WriteLn(' Script Is Finished');
Disguise(' FINISHED! ');
ClearDebug;
Proggie;
WriteLn('Final proggie Printed!!!');
TERMINATESCRIPT;
end;
end;
end;
end;
{--------------------}
{ Main Loop }
{--------------------}
Begin
Loop;
FreeForm(frmDesign);
FreeVarz;
terminatescript;
end.
{Please don't copy any procedures without my premission ;)}
{---------------------------------}
{ End Of Script :( :( :( }
{---------------------------------}
//(c) By NaumanAkhlaQ, If Any Bugs Found Please PM me ;)//
// This Version and Above Is: STABLE!!!//
// Thank-you :)//